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

Timestamp:

May 4, 2007, 4:52:03 PM (19 years ago)

Author:

Paul Price

Message:

Major upgrade to allow use of Nebulous

File:

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

trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl

@@ -5 +5 @@
 
 use IPC::Cmd 0.36 qw( can_run run );
-use PS::IPP::Config;
+use PS::IPP::Config qw( caturi );
 use Data::Dumper;
-use File::Spec;
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
@@ -14 +13 @@
 my ($camera,                    # Camera used
     $telescope,                 # Telescope used
-    $workdir,                   # Working directory to append
     $dbname,                    # Database name
+    $workdir,                   # Working directory
+    $path,                      # Path to data
     );
 GetOptions(
-           'camera|c=s' => \$camera,
+           'camera|c=s'    => \$camera,
            'telescope|t=s' => \$telescope,
-           'workdir=s' => \$workdir,
-           'dbname=s' => \$dbname,
+           'workdir=s'     => \$workdir,
+           'path=s'        => \$path,
+           'dbname=s'      => \$dbname,
 ) or pod2usage( 2 );
 
 pod2usage(
-          -msg => "Required options: --camera --telescope --workdir --dbname",
+          -msg => "Required options: --camera --telescope --workdir --path --dbname",
           -exitval => 3,
-          ) unless defined $camera and defined $telescope and defined $workdir and defined $dbname;
+          ) unless defined $camera
+    and defined $telescope
+    and defined $workdir
+    and defined $path
+    and defined $dbname;
 
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
-my $workdir_abs = $ipprc->convert_filename_absolute( $workdir );
 
 # Look for programs we need
@@ -36 +40 @@
 my $pxinject = can_run('pxinject')  or (warn "Can't find pxinject" and $missing_tools = 1);
 
+if (scalar @ARGV == 0) {
+    die "No exposures provided.\n";
+}
+
 # Inject new data into the database
-if (scalar @ARGV != 0) {
-    my @classes;                # Names of the classes
-    my @files;                  # What to add to the filename for each class
-    my $imfiles;
-    my $add_dir;                # Add directory name to get file name?
-    if ($camera eq "MEGACAM") {
-        for (my $i = 0; $i < 36; $i++) {
-            push @classes, sprintf("ccd%02d", $i);
-            push @files, sprintf(".ccd%02d", $i);
-        }
-    } elsif ($camera eq "MCSHORT") {
-        @classes = ( 'ccd12', 'ccd13', 'ccd14', 'ccd21', 'ccd22', 'ccd23' );
-        @files   = ( '.ccd12', '.ccd13', '.ccd14', '.ccd21', '.ccd22', '.ccd23' );
-        
-    } elsif ($camera eq "CTIO_MOSAIC2") {
-        @classes = ();
-        @files = ();
-    } elsif ($camera eq "TC3") {
-        @classes = ( 'CCID58-1-06b2', 'CCID45-1-14A', 'CCID45-1-11A', 'CCID45-1-22A',
-                   'CCID45-1-04C', 'CCID45-1-13A', 'CCID45-1-05A', 'CCID45-1-19A' );
-        @files = ( '00', '01', '10', '11', '20', '21', '30', '31' );
-        $add_dir = 1;
-    } elsif ($camera eq "SIMMOSAIC") {
-        @classes = ( 'Chip00', 'Chip01', 'Chip10', 'Chip11' );
-        @files   = ( '.Chip00', '.Chip01', '.Chip10', '.Chip11' );
-    } elsif ($camera eq "SIMTEST") {
-        @classes = ();
-        @files = ();
-    } else {
-        die "Unrecognised camera name: $camera.\n";
+my @classes;                    # Names of the classes
+my @files;                      # What to add to the filename for each class
+my $imfiles;
+my $add_dir;                    # Add directory name to get file name?
+if ($camera eq "MEGACAM") {
+    for (my $i = 0; $i < 36; $i++) {
+        push @classes, sprintf("ccd%02d", $i);
+        push @files, sprintf(".ccd%02d", $i);
+    }
+} elsif ($camera eq "MCSHORT") {
+    @classes = ( 'ccd12', 'ccd13', 'ccd14', 'ccd21', 'ccd22', 'ccd23' );
+    @files   = ( '.ccd12', '.ccd13', '.ccd14', '.ccd21', '.ccd22', '.ccd23' );
+} elsif ($camera eq "CTIO_MOSAIC2") {
+    @classes = ();
+    @files = ();
+} elsif ($camera eq "TC3") {
+    @classes = ( 'CCID58-1-06b2', 'CCID45-1-14A', 'CCID45-1-11A', 'CCID45-1-22A',
+                 'CCID45-1-04C', 'CCID45-1-13A', 'CCID45-1-05A', 'CCID45-1-19A' );
+    @files = ( '00', '01', '10', '11', '20', '21', '30', '31' );
+    $add_dir = 1;
+} elsif ($camera eq "SIMMOSAIC") {
+    @classes = ( 'Chip00', 'Chip01', 'Chip10', 'Chip11' );
+    @files   = ( '.Chip00', '.Chip01', '.Chip10', '.Chip11' );
+} elsif ($camera eq "SIMTEST") {
+    @classes = ();
+    @files = ();
+} else {
+    die "Unrecognised camera name: $camera.\n";
+}
+
+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
+    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;
+    
+    my @line = split(/\s+/, $$stdout_buf[0]); # The output line, containing the exposure tag
+    my $exp_tag = $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;
+        $filename = caturi( $path, $filename );
+
+        die "Unable to find file $filename" unless -f $ipprc->file_resolve( $filename );
+
+        $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 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run( command => $command, verbose => 1 );
+        die "Unable to inject $exp $class_id: $error_code\n" if not $success;
     }
 
-    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
+    if (scalar @classes == 0) {
+        my $filename = "$exp.fits";
+        $filename = caturi( $exp, $filename ) if defined $add_dir;
+        $filename = caturi( $path, $filename );
+
+        die "Unable to find file $filename" unless -f $ipprc->file_resolve( $filename );
+
+        $filename = $ipprc->convert_filename_relative( $filename );
+        my $command = "$pxinject -newImfile -exp_tag $exp_tag -class fpa -class_id fpa -dbname $dbname -uri $filename"; # 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;
-        
-        my @line = split(/\s+/, $$stdout_buf[0]); # The output line, containing the exposure tag
-        my $exp_tag = $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 = File::Spec->catfile( $exp, $filename ) if defined $add_dir;
-            $filename = File::Spec->catfile( $workdir_abs, $filename);
-            $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 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                run( command => $command, verbose => 1 );
-            die "Unable to inject $exp $class_id: $error_code\n" if not $success;
-        }
+        die "Unable to inject $exp imfile: $error_code\n" if not $success;
+    }
 
-        if (scalar @classes == 0) {
-            my $filename = "$exp.fits";
-            $filename = File::Spec->catfile( $exp, $filename ) if defined $add_dir;
-            $filename = File::Spec->catfile( $workdir_abs, $filename);
-            $filename = $ipprc->convert_filename_relative( $filename );
-            my $command = "$pxinject -newImfile -exp_tag $exp_tag -class fpa -class_id fpa -dbname $dbname -uri $filename"; # 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;
-        }
-
-    }
 }
 
 END {
     my $status = $?;
-    system("sync") == 0
-        or die "failed to execute sync: $!" ;
-    $? = $status;
+system("sync") == 0
+    or die "failed to execute sync: $!" ;
+$? = $status;
 }