Changeset 24831 for trunk/pstamp/scripts/pstamp_parser_run.pl
- Timestamp:
- Jul 16, 2009, 5:14:07 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstamp_parser_run.pl (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstamp_parser_run.pl
r21410 r24831 20 20 my $verbose; 21 21 my $dbname; 22 my $dbserver; 22 23 23 24 GetOptions( … … 28 29 'verbose' => \$verbose, 29 30 'dbname=s' => \$dbname, 31 'dbserver=s' => \$dbserver, 30 32 ); 31 33 … … 67 69 my $pstamp_workdir = metadataLookupStr($ipprc->{_siteConfig}, 'PSTAMP_WORKDIR'); 68 70 exit ($PS_EXIT_CONFIG_ERROR) unless defined $pstamp_workdir; # lookup failure outputs a message 71 72 if (!$dbserver) { 73 $dbserver = metadataLookupStr($ipprc->{_siteConfig}, 'PS_DBSERVER'); 74 } 69 75 70 76 # workdir is where we download request files to and place any error output from the parser … … 167 173 $command .= " -fault $PS_EXIT_DATA_ERROR"; 168 174 $command .= " -dbname $dbname" if $dbname; 175 $command .= " -dbserver $dbserver" if $dbserver; 169 176 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 170 177 run(command => $command, verbose => $verbose); … … 177 184 $parse_cmd .= " --mode queue_job --req_id $req_id --product $product --out_dir $workdir --file $uri"; 178 185 $parse_cmd .= " --dbname $dbname" if $dbname; 186 $parse_cmd .= " --dbserver $dbserver" if $dbserver; 179 187 $parse_cmd .= " --verbose" if $verbose; 180 188 … … 218 226 $command .= " -fault $fault" if $fault; 219 227 $command .= " -dbname $dbname" if $dbname; 228 $command .= " -dbserver $dbserver" if $dbserver; 220 229 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 221 230 run(command => $command, verbose => $verbose);
Note:
See TracChangeset
for help on using the changeset viewer.
