Changeset 10519

Timestamp:

Dec 6, 2006, 4:13:06 PM (20 years ago)

Author:

Paul Price

Message:

Adding ESSENCE camera.

File:

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

trunk/ippScripts/scripts/inject.pl

@@ -54 +54 @@
     } elsif ($camera eq "MCSHORT") {
         @classes = ( 'ccd12', 'ccd13', 'ccd14', 'ccd21', 'ccd22', 'ccd23' );
+    } elsif ($camera eq "CTIO_MOSAIC2") {
+        @classes = ();
     } else {
         die "Unrecognised camera name: $camera.\n";
@@ -59 +61 @@
 
     foreach my $exp ( @ARGV ) {
-        my $command = "$pxinject -newExp -exp_id $exp -inst $camera -telescope $telescope -exp_type $exp_type -imfiles " . scalar @classes; # Command to run
+        my $command = "$pxinject -newExp -exp_id $exp -inst $camera -telescope $telescope -exp_type $exp_type -imfiles " . (scalar @classes or 1) ; # Command to run
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -72 +74 @@
             die "Unable to inject $exp $class_id: $error_code\n" if not $success;
         }
+
+        if (scalar @classes == 0) {
+            my $command = "$pxinject -newImfile -exp_tag $exp_tag -class fpa -class_id fpa -uri $path/$exp.fits"; # Command to run
+            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+                run( command => $command, verbose => 1 );
+            die "Unable to inject $exp imfile: $error_code\n" if not $success;
+        }
+
     }
 }