Changeset 16379

Timestamp:

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

Author:

eugene

Message:

fixed some minor usage bugs

Location:

trunk

Files:

• ippScripts/scripts/summit_copy.pl (modified) (4 diffs)
• ippTasks/summit.copy.pro (modified) (5 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;

trunk/ippTasks/summit.copy.pro

@@ -44 +44 @@
     active true
   end
-  task dsget
+  task summit_copy
     active true
   end
@@ -65 +65 @@
     active false
   end
-  task dsget
+  task summit_copy
     active false
   end
@@ -100 +100 @@
 
 # run pzgetexp periodically to populate pzPendingExp in the database (no I/O)
+# this task is querying the data store for a list of exposures ("filesets")
+# and inserting these into a db table on the local cluster (pzPendingExp)
 task pzgetexp
   periods      -exec     10
@@ -177 +179 @@
 end
 
-# run pzgetimfiles on pending exps
+# run pzgetimfiles on pending exps.  analogous to pzgetexp, this task
+# is downloading a list of imfiles reported by the datastore for a
+# given exposure ("fileset"), and placing the result in the local
+# database table of imfiles
 task pzgetimfile 
     periods      -exec     0.05
@@ -270 +275 @@
 
 
-# get dsget to retreive an imfile and then call pztool -copydone
-task dsget
+# retreive an imfile with dsget and then call pztool -copydone
+task summit_copy
     periods      -exec     5
     periods      -poll     0.05