Changeset 24951 for branches/czw_branch/cleanup/pstamp/scripts/pstamp_parser_run.pl

Timestamp:

Jul 30, 2009, 5:20:29 PM (17 years ago)

Author:

watersc1

Message:

Finished up my edits to the detrend cleanup, and some changes to my
copy of burntool and the pslib astrometry. Detrend cleanup has not
been tested yet. That's up next.

Location:

branches/czw_branch/cleanup

Files:

• . (modified) (1 prop)
• pstamp/scripts/pstamp_parser_run.pl (modified) (6 diffs)

branches/czw_branch/cleanup/pstamp/scripts/pstamp_parser_run.pl

@@ -20 +20 @@
 my $verbose;
 my $dbname;
+my $dbserver;
 
 GetOptions(
@@ -28 +29 @@
     'verbose'           =>  \$verbose,
     'dbname=s'          =>  \$dbname,
+    'dbserver=s'         =>  \$dbserver,
 );
 
@@ -67 +69 @@
 my $pstamp_workdir = metadataLookupStr($ipprc->{_siteConfig}, 'PSTAMP_WORKDIR');
 exit ($PS_EXIT_CONFIG_ERROR) unless defined $pstamp_workdir; # lookup failure outputs a message
+
+if (!$dbserver) {
+    $dbserver =  metadataLookupStr($ipprc->{_siteConfig}, 'PS_DBSERVER');
+}
 
 # workdir is where we download request files to and place any error output from the parser
@@ -167 +173 @@
     $command   .= " -fault $PS_EXIT_DATA_ERROR";
     $command   .= " -dbname $dbname" if $dbname;
+    $command   .= " -dbserver $dbserver" if $dbserver;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => $verbose);
@@ -177 +184 @@
 $parse_cmd .= " --mode queue_job --req_id $req_id --product $product --out_dir $workdir --file $uri";
 $parse_cmd .= " --dbname $dbname" if $dbname;
+$parse_cmd .= " --dbserver $dbserver" if $dbserver;
 $parse_cmd .= " --verbose" if $verbose;
 
@@ -218 +226 @@
     $command   .= " -fault $fault" if $fault;
     $command   .= " -dbname $dbname" if $dbname;
+    $command   .= " -dbserver $dbserver" if $dbserver;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => $verbose);