From f2dfc089844164660aa1c5d5ec585ce1b943ccef Mon Sep 17 00:00:00 2001 From: Rogan Hamby Date: Fri, 8 Jun 2018 11:32:18 -0400 Subject: [PATCH] settting static value to capture all historical circs in data extract --- above_the_treeline/above_treeline_historical_export.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/above_the_treeline/above_treeline_historical_export.pl b/above_the_treeline/above_treeline_historical_export.pl index eaf4dfd..66d1e50 100755 --- a/above_the_treeline/above_treeline_historical_export.pl +++ b/above_the_treeline/above_treeline_historical_export.pl @@ -38,12 +38,14 @@ my $ftp_user; my $ftp_password; my $ftp_port; my $output; +my $run_date = '18000101' my $dbh; my $ret = GetOptions( 'org:s' => \$org, 'files:s' => \$files, 'exclude_mods:s' => \$exclude_mods, + 'db_host:s' => \$db_host, 'db_user:s' => \$db_user, 'db_database:s' => \$db_database, @@ -59,7 +61,7 @@ my $ret = GetOptions( abort('must specify --org') unless defined $org; $org = lc($org); validate_files($files); -my ($sql_date, $print_date) = format_date($run_date); +my ($sql_date, $print_date) = format_date($rundate); if ($db_host and $db_user and $db_password and $db_database) { $dbh = connect_db($db_database,$db_user,$db_password,$db_host,$db_port) or abort("Cannot open database at $db_host $!"); -- 2.11.0