Changeset 8710 for trunk/ippScripts/scripts/phase0imfile.pl

Timestamp:

Aug 30, 2006, 1:32:59 PM (20 years ago)

Author:

jhoblitt

Message:

expand tabs

File:

• trunk/ippScripts/scripts/phase0imfile.pl (modified) (5 diffs)

trunk/ippScripts/scripts/phase0imfile.pl

@@ -17 +17 @@
     "FPA.FILTER"   => "-filter", # Filter used
     "FPA.AIRMASS"  => "-airmass", # Airmass
-    "FPA.RA"       => "-ra",    # Right ascension
-    "FPA.DEC"      => "-decl",  # Declination
-    "TELALT"       => "-alt",   # Altitude
-    "TELAZ"        => "-az",    # Azimuth
+    "FPA.RA"       => "-ra",        # Right ascension
+    "FPA.DEC"      => "-decl",        # Declination
+    "TELALT"       => "-alt",        # Altitude
+    "TELAZ"        => "-az",        # Azimuth
     "DETTEM"       => "-ccd_temp", # CCD temperature
     "FPA.POSANGLE" => "-posang" # Position angle
@@ -43 +43 @@
 if (scalar @ARGV == 0 || scalar @ARGV > 3) {
     die "Perform phase 0 processing at the imfile level.\n\n" .
-        "Usage: $0 EXP_ID CLASS_ID FILE.fits\n\n";
+        "Usage: $0 EXP_ID CLASS_ID FILE.fits\n\n";
 }
 
-my $expid = shift @ARGV;        # Exposure identifier
-my $classid = shift @ARGV;      # Class identifier
-my $file = shift @ARGV;         # Input filename
+my $expid = shift @ARGV;        # Exposure identifier
+my $classid = shift @ARGV;        # Class identifier
+my $file = shift @ARGV;                # Input filename
 
 
@@ -62 +62 @@
     my $command = "$ppStats $file -recipe PPSTATS " . RECIPE; # Command to run ppStats
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => 1);
     die "Unable to perform ppStats on exposure id $expid: $error_code\n" if not $success;
     
     # Parse the output
-    my $mdcParser = PS::IPP::Metadata::Config->new;     # Parser for metadata config files
+    my $mdcParser = PS::IPP::Metadata::Config->new;        # Parser for metadata config files
     my $metadata = $mdcParser->parse(join "", @$stdout_buf);
     my @constants = keys %{CONSTANTS()}; # List of constants to parse out
@@ -77 +77 @@
 {
     my $command = $p0tool . " " . P0TOOL_MODE() . " " . P0TOOL_EXPID() . " " . $expid . " " .
-        P0TOOL_CLASSID() . " " . $classid; # Command to run p0tool
+        P0TOOL_CLASSID() . " " . $classid; # Command to run p0tool
     
     foreach my $constant (keys %{CONSTANTS()}) {
-        $command .= " " . CONSTANTS->{$constant} . " " . ($stats->data($constant))->{value};
+        $command .= " " . CONSTANTS->{$constant} . " " . ($stats->data($constant))->{value};
     }
     foreach my $variable (keys %{VARIABLES()}) {
-        # Just use the mean value
-        $command .= " " . VARIABLES->{$variable} . " " . ($stats->data($variable))->{mean};
+        # Just use the mean value
+        $command .= " " . VARIABLES->{$variable} . " " . ($stats->data($variable))->{mean};
     }
     
@@ -92 +92 @@
  
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => 1);
     die "Unable to perform p0tool -updateimfile: $error_code\n" if not $success;
 }