Changeset 24831 for trunk/pstamp/scripts/pstampparse.pl

Timestamp:

Jul 16, 2009, 5:14:07 PM (17 years ago)

Author:

bills

Message:

updates to the postage stamp server to allow the postage stamp server's
database to be located on a different mysql server than the ipp.
Also some updates towards compatability with the current ipp

File:

• trunk/pstamp/scripts/pstampparse.pl (modified) (6 diffs)

trunk/pstamp/scripts/pstampparse.pl

@@ -16 +16 @@
 my $verbose;
 my $dbname;
+my $dbserver;
 my $req_id;
 my $request_file_name;
@@ -29 +30 @@
     'mode=s'    =>  \$mode,
     'dbname=s'  =>  \$dbname,
+    'dbserver=s'=>  \$dbserver,
     'verbose'   =>  \$verbose,
 );
@@ -89 +91 @@
     $command .= " -outProduct $product";
     $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);
@@ -143 +146 @@
     die "job_type is list_uri but mode is $mode" if ($job_type eq "list_uri") and ($mode ne "list_uri");
 
-    my $proj_hash = resolve_project($ipprc, $project, $dbname);
+    my $proj_hash = resolve_project($ipprc, $project, $dbname, $dbserver);
     die "project $project not found\n" unless $proj_hash;
 
@@ -217 +220 @@
                     . " -uri $listfile -outputBase $out_dir -rownum $rownum";
         $command .= " -dbname $dbname" if $dbname;
+        $command .= " -dbserver $dbserver" if $dbserver;
         if ($mode eq "list_job") {
             print "$command\n";
@@ -274 +278 @@
             $command .= " -exp_id $exp_id" if $exp_id;
             $command .= " -dbname $dbname" if $dbname;
+            $command .= " -dbserver $dbserver" if $dbserver;
 
             if ($mode eq "list_job") {