Changeset 14135

Timestamp:

Jul 11, 2007, 10:06:41 AM (19 years ago)

Author:

Paul Price

Message:

Fixing multiple compilation errors of the form: Global symbol "$exp" requires explicit package name.
Hoping I got the names right following the database reorg.

File:

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

trunk/ippScripts/scripts/ipp_serial_inject_mosaic.pl

@@ -122 +122 @@
         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_name $class_id: $error_code\n" if not $success;
     }
 
     if (scalar @classes == 0) {
-        my $filename = "$exp.fits";
-        $filename = caturi( $exp, $filename ) if defined $add_dir;
+        my $filename = $exp_name . '.fits';
+        $filename = caturi( $exp_name, $filename ) if defined $add_dir;
         $filename = caturi( $path, $filename );
 
@@ -133 +133 @@
 
         $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 $command = "$pxinject -newImfile -exp_id $exp_id -exp_name $exp_name -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;
+        die "Unable to inject $exp_name imfile: $error_code\n" if not $success;
     }