Changeset 14039 for trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl

Timestamp:

Jul 5, 2007, 6:16:04 PM (19 years ago)

Author:

eugene

Message:

updates to new regtool / pxinject apis

File:

• trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl (modified) (3 diffs)

trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl

@@ -1 +1 @@
 #!/usr/bin/env perl
+
+# this program injects a set of multi-file exposures into the db.  the
+# program takes a list of base exposure names and injects all files
+# associated with the exposure.  It constructs the expected filenames
+# from the exposure tag and rules for the camera.  This program is for
+# the test only since it requires too much information at the inject
+# stage.  use 'ipp_serial_inject.pl' for single-file images and
+# 'ipp_serial_inject_split.pl' for multiple file images in split
+# format
+
+# this program should not fail because of the data format or the
+# configuration, except for the very basic database setup.
 
 use warnings;
@@ -75 +87 @@
 }
 
-foreach my $exp ( @ARGV ) {
-    my $command = "$pxinject -newExp -exp_id $exp -inst $camera -telescope $telescope -workdir $workdir -dbname $dbname -imfiles " . (scalar @classes or 1) ; # Command to run
+foreach my $exp_name ( @ARGV ) {
+    my $command = "$pxinject -newExp";
+    " -exp_name $exp_name";
+    " -inst $camera";
+    " -telescope $telescope";
+    " -workdir $workdir";
+    " -dbname $dbname" if defined $dbname;
+    " -imfiles " . (scalar @classes or 1) ; # Command to run
+
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run( command => $command, verbose => 1 );
-    die "Unable to inject $exp: $error_code\n" if not $success;
+    die "Unable to inject $exp_name: $error_code\n" if not $success;
     
     my @line = split(/\s+/, $$stdout_buf[0]); # The output line, containing the exposure tag
-    my $exp_tag = $line[2];     # The exposure tag
+    my $exp_id = $line[2];      # The exposure tag
     for (my $i = 0; $i < scalar @classes; $i++) {
         my $class_id = $classes[$i];
         my $file_id = $files[$i];
-        my $filename = $exp . $file_id . '.fits';
-        $filename = caturi( $exp, $filename ) if defined $add_dir;
+        my $filename = $exp_name . $file_id . '.fits';
+        $filename = caturi( $exp_name, $filename ) if defined $add_dir;
         $filename = caturi( $path, $filename );
 
@@ -93 +112 @@
 
         $filename = $ipprc->convert_filename_relative( $filename );
-        my $command = "$pxinject -newImfile -exp_tag $exp_tag -class chip -class_id $class_id -uri $filename -dbname $dbname"; # Command to run
+        my $command = "$pxinject -newImfile";
+        " -exp_id $exp_id";
+        " -exp_name $exp_name";
+        " -class chip";
+        " -class_id $class_id";
+        " -uri $filename";
+        " -dbname $dbname" if defined ($dbname); # Command to run
+
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );