Changeset 24951 for branches/czw_branch/cleanup/pstamp/scripts/dqueryparse.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/dqueryparse.pl (modified) (5 diffs)

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

@@ -26 +26 @@
                        );
 
-my ($req_file, $req_id, $out_dir, $product, $mode, $dbname, $verbose, $save_temps);
+my ($req_file, $req_id, $out_dir, $product, $mode, $dbname, $dbserver, $verbose, $save_temps);
 
 #
@@ -39 +39 @@
         'mode=s'          =>      \$mode,
         'dbname=s'        =>      \$dbname,
+        'dbserver=s'      =>      \$dbserver,
         'verbose'         =>      \$verbose,
         'save-temps'      =>      \$save_temps,
@@ -69 +70 @@
     warn("Can't find required tools.");
     exit ($PS_EXIT_CONFIG_ERROR);
+}
+
+if (!$dbserver) {
+    my $ipprc = = PS::IPP::Config->new();
+    $dbserver =  metadataLookupStr($ipprc->{_siteConfig}, 'PS_DBSERVER');
 }
 
@@ -131 +137 @@
     $command .= " -rownum 0";
     $command .= " -dbname $dbname" if $dbname;
+    $command .= " -dbserver $dbserver" if $dbserver;
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -153 +160 @@
     $command .= " -fault $result" if $result;
     $command .= " -dbname $dbname" if $dbname;
+    $command .= " -dbserver $dbserver" if $dbserver;
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =