Changeset 38887 for trunk/tools/bills/joinstkcmf

Timestamp:

Oct 20, 2015, 12:09:18 PM (11 years ago)

Author:

bills

Message:

add --test which changes the filename parser from gpc1 style filerules to the ipptopsps test suite
convention.

File:

• trunk/tools/bills/joinstkcmf (modified) (3 diffs)

trunk/tools/bills/joinstkcmf

@@ -21 +21 @@
 
 my ($stack_id, $skycal_id);
+my $test;
 my ($save_temps, $verbose);
 my $ofmt;
@@ -26 +27 @@
 GetOptions(
     "stack_id|s=s"      =>  \$stack_id,
+    "test"              =>  \$test,
     "ofmt=s"            =>  \$ofmt,
-    "vebose|v"          =>  \$verbose,
+    "verbose|v"          =>  \$verbose,
     "save-temps"        =>  \$save_temps,
 ) or pod2usage( 2 );
@@ -56 +58 @@
 }
 
-my ($proj, $cell);
-(undef, undef, undef, $proj, $cell, undef, $stack_id, undef, $skycal_id) = split '\.', $infilename;;
+my ($proj, $cell, $skycell_id);
+if (!$test) {
+    (undef, undef, undef, $proj, $cell, undef, $stack_id, undef, $skycal_id) = split '\.', $infilename;;
 
-my $skycell_id = sprintf "skycell.%04d.%03d", $proj, $cell;
+    $skycell_id = sprintf "skycell.%04d.%03d", $proj, $cell;
+} else {
+    (undef, $stack_id) = split '\.', $infilename;
+    $stack_id += 0;
+    $skycal_id = $stack_id;
+    my $results = `ftlist $path k include=SKYCELL | head -1`;
+    chomp $results;
+    print "$results\n";
+    (undef, undef, $skycell_id) = split " ", $results;
+    (undef, $proj, $cell) = split '\.', $skycell_id;
+    $cell += 0;
+    $proj += 0;
+}
 
 print "$stack_id $skycal_id $skycell_id\n" if $verbose;