Changeset 25022 for branches/eam_branches/20090715/pstamp/scripts/pstamp_revert_request.pl

Timestamp:

Aug 7, 2009, 12:45:24 PM (17 years ago)

Author:

eugene

Message:

update from mainline

Location:

branches/eam_branches/20090715

Files:

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

branches/eam_branches/20090715/pstamp/scripts/pstamp_revert_request.pl

@@ -31 +31 @@
 
 
-my ( $req_id, $dbname, $verbose, $save_temps );
+my ( $req_id, $dbname, $dbserver, $verbose, $save_temps );
 
 GetOptions(
            'req_id=s'   => \$req_id,
            'dbname=s'   => \$dbname,
+           'dbserver=s' => \$dbserver,
            'verbose'    => \$verbose,
            'save-temps' => \$save_temps,
@@ -65 +66 @@
     my $command = "$pstamptool -listreq -req_id $req_id";
     $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);
@@ -97 +99 @@
 if ($product and $fileset) {
     my $command = "$dsreg --del $fileset --product $product --rm --force";
-    $command .= " --dbname $dbname" if $dbname;
+#   don't add dbname let dsreg get it from the DS_DBNAME in site.config
+#    $command .= " --dbname $dbname" if $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => $verbose);
@@ -109 +112 @@
     my $command = "$pstamptool -revertreq -req_id $req_id";
     $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);