Changeset 16379 for trunk/ippScripts/scripts/summit_copy.pl

Timestamp:

Feb 8, 2008, 11:28:41 AM (18 years ago)

Author:

eugene

Message:

fixed some minor usage bugs

File:

• trunk/ippScripts/scripts/summit_copy.pl (modified) (4 diffs)

trunk/ippScripts/scripts/summit_copy.pl

@@ -90 +90 @@
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-        &my_die("Unable to perform dsget: $error_code", $exp_name, $inst, $telescope, $class, $class_id, $error_code);
+        &my_die("Unable to perform dsget: $error_code", $exp_name, $inst, $telescope, $class, $class_id, $uri, $error_code);
     }
 } else {
@@ -113 +113 @@
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-        warn("Unable to perform pztool -copydone: $error_code\n");
+        warn("Unable to perform $command: $error_code\n");
         exit($error_code);
     }
@@ -122 +122 @@
 sub my_die
 {
-    my $msg = shift; # Warning message on die
-    my $exp_name = shift; # Chiptool identifier
-    my $inst = shift; # Chiptool identifier
+    my $msg       = shift; # Warning message on die
+    my $exp_name  = shift; # Chiptool identifier
+    my $inst      = shift; # Chiptool identifier
     my $telescope = shift; # Class identifier
-    my $class = shift; # Class identifier
-    my $class_id = shift; # Class identifier
+    my $class     = shift; # Class identifier
+    my $class_id  = shift; # Class identifier
+    my $uri       = shift; # Class identifier
     my $exit_code = shift; # Exit code to add
 
@@ -140 +141 @@
         $command .= " -class $class";
         $command .= " -class_id $class_id";
+        $command .= " -uri $uri";
         $command .= " -code $exit_code";
         $command .= " -dbname $dbname" if defined $dbname;