Changeset 25027 for branches/pap/pstamp/scripts/pstamp_webrequest.pl

Timestamp:

Aug 7, 2009, 4:08:25 PM (17 years ago)

Author:

Paul Price

Message:

Merging trunk (r25026) to get up-to-date on old branch.

Location:

branches/pap

Files:

• . (modified) (1 prop)
• pstamp/scripts/pstamp_webrequest.pl (modified) (4 diffs)

branches/pap/pstamp/scripts/pstamp_webrequest.pl

@@ -24 +24 @@
 my $verbose = 0;
 my $dbname;
+my $dbserver;
 my $project;
 my $job_type;
@@ -30 +31 @@
     'job_type=s'    =>  \$job_type,
     'dbname=s'      =>  \$dbname,
+    'dbserver=s'    =>  \$dbserver,
     'project=s'     => \$project,
     'verbose'       => \$verbose,
@@ -101 +103 @@
     my $command = "$pstampparse --mode list_uri --file $request_file";
     $command .= " --dbname $dbname" if $dbname;
+    $command .= " --dbserver $dbserver" if $dbserver;
     $command .= " --verbose" if $verbose;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -123 +126 @@
     my $command = "$pstamptool -addreq -uri $request_file -ds_id 0";
     $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);