Changeset 37313 for trunk/ippScripts/scripts/ipp_apply_burntool_fix.pl

Timestamp:

Aug 26, 2014, 4:17:26 PM (12 years ago)

Author:

watersc1

Message:

Updated with comments.

File:

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

trunk/ippScripts/scripts/ipp_apply_burntool_fix.pl

@@ -39 +39 @@
 die "usage: $0 --exp_name (exp_name) --class_id (class_id)\n" unless $class_id and $exp_name;
 
-
+# Set up the commands we'll use:
 $regtool  .= " -dbname $dbname -exp_name $exp_name -class_id $class_id";
 $burntool .= " --dbname $dbname --camera $camera";
 
+# Check database entry for this to get the exp_id and image uri
 my $regData;
 {
@@ -64 +65 @@
 die "failed to find uri in regtool output" unless $uri;
 
+# Construct burntool table name
 my $table;
 ($table = $uri) =~ s/\.fits/\.burn\.tbl/;
 print "$table\n";
 
+# Look for the old table, and if it exists, move it out of the way and delete it so we can work from scratch.
 my $table_exists;
 {
@@ -95 +98 @@
 }
 
+# Calculate the previous uri for the table by decrementing the nightly image sequence
 my $left = substr $exp_name, 0, 6;
 my $num = substr $exp_name, 6, 4;
@@ -107 +111 @@
 $prev_uri =~ s/$exp_name/$prev_name/g;
 die "failed" unless $prev_uri;
-# print "$prev_name $prev_uri\n";
+
+# Run the burntool command to generate the table.
 {
     my $command = "$burntool --exp_id $exp_id --class_id $class_id --this_uri $uri --previous_uri $prev_uri";
@@ -120 +125 @@
     }
 }
+
+# This isn't needed, but doesn't hurt anything.
+# Copy the table we just made to a local directory
 if (defined $save) {
     my $nebfile = `neb-locate -p $table`; chomp $nebfile;