Changeset 24831 for trunk/pstamp/scripts/pstamp_queue_requests.pl
- Timestamp:
- Jul 16, 2009, 5:14:07 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstamp_queue_requests.pl (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstamp_queue_requests.pl
r21410 r24831 17 17 my $verbose; 18 18 my $dbname; 19 my $dbserver; 19 20 my $limit; 20 21 … … 22 23 'verbose' => \$verbose, 23 24 'dbname=s' => \$dbname, 25 'dbserver=s' => \$dbserver, 24 26 'limit=i' => \$limit, 25 27 ); … … 59 61 } 60 62 63 my $ipprc = PS::IPP::Config->new(); 61 64 my $mdcParser = PS::IPP::Metadata::Config->new; # Parser for metadata config files 65 66 if (!$dbserver) { 67 $dbserver = metadataLookupStr($ipprc->{_siteConfig}, 'PS_DBSERVER'); 68 } 62 69 63 70 my @dataStores; … … 66 73 my $command = "$pstamptool -datastore"; 67 74 $command .= " -dbname $dbname" if $dbname; 75 $command .= " -dbserver $dbserver" if $dbserver; 68 76 69 77 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 177 185 my $command = "$pstamptool -addreq -uri $req_uri -ds_id $ds_id"; 178 186 $command .= " -dbname $dbname" if $dbname; 187 $command .= " -dbserver $dbserver" if $dbserver; 179 188 180 189 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 192 201 my $command = "$pstamptool -ds_id $ds_id -moddatastore -last_fileset $lastFileset"; 193 202 $command .= " -dbname $dbname" if $dbname; 203 $command .= " -dbserver $dbserver" if $dbserver; 194 204 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 195 205 run(command => $command, verbose => $verbose);
Note:
See TracChangeset
for help on using the changeset viewer.
