Changeset 19545 for trunk/ippScripts

Timestamp:

Sep 12, 2008, 4:20:57 PM (18 years ago)

Author:

eugene

Message:

convert chiphost tables to ipphosts tables, add lookups for skycellID to host, add in the redirect-output option to stack and diff

Location:

trunk/ippScripts/scripts

Files:

• diff_skycell.pl (modified) (4 diffs)
• stack_skycell.pl (modified) (5 diffs)

trunk/ippScripts/scripts/diff_skycell.pl

@@ -25 +25 @@
 use Pod::Usage qw( pod2usage );
 
-my ($diff_id, $dbname, $threads, $outroot, $verbose, $no_update, $no_op);
+my ($diff_id, $dbname, $threads, $outroot, $verbose, $no_update, $no_op, $redirect);
 GetOptions(
     'diff_id|d=s'       => \$diff_id, # Diff identifier
@@ -34 +34 @@
     'no-update'         => \$no_update, # Don't update the database?
     'no-op'             => \$no_op, # Don't do any operations?
+    'redirect-output'   => \$redirect,
 ) or pod2usage( 2 );
 
@@ -42 +43 @@
           ) unless defined $diff_id
     and defined $outroot;
+
+# XXX camera is not known here; cannot use filerules...
+# my $logDest = $ipprc->filename("LOG.EXP", $outroot);
+
+my $logDest = "$outroot.log";
+$ipprc->redirect_output($logDest) if $redirect;
 
 my $STATS =
@@ -183 +190 @@
 my $outputStats = $ipprc->filename("SKYCELL.STATS", $outroot);
 my $traceDest = $ipprc->filename("TRACE.EXP", $outroot);
-my $logDest = $ipprc->filename("LOG.EXP", $outroot);
 
 # Perform subtraction

trunk/ippScripts/scripts/stack_skycell.pl

@@ -28 +28 @@
 use Pod::Usage qw( pod2usage );
 
-my ($stack_id, $dbname, $outroot, $debug, $threads, $verbose, $no_update, $no_op, $save_temps);
+my ($stack_id, $dbname, $outroot, $debug, $threads, $verbose, $no_update, $no_op, $redirect, $save_temps);
 GetOptions(
     'stack_id|d=s'      => \$stack_id, # Stack identifier
@@ -38 +38 @@
     'no-update'         => \$no_update, # Don't update the database?
     'no-op'             => \$no_op, # Don't do any operations?
+    'redirect-output'   => \$redirect,
     'save-temps'        => \$save_temps, # Save temporary files?
 ) or pod2usage( 2 );
@@ -47 +48 @@
           ) unless defined $stack_id
     and defined $outroot;
+
+# XXX camera is not known here; cannot use filerules...
+# my $logDest = $ipprc->filename("LOG.EXP", $outroot);
+
+my $logDest = "$outroot.log";
+$ipprc->redirect_output($logDest) if $redirect;
 
 my $STATS =
@@ -97 +104 @@
 my $camera;                     # Camera
 foreach my $file (@$files) {
-    # skip warps which are speicified as 'ignored'
+    # skip warps which are specified as 'ignored'
     if ($file->{ignored}) { next; }
     if (defined $tess_id) {
@@ -166 +173 @@
 my $outputStats = $ipprc->filename("SKYCELL.STATS", $outroot);
 my $traceDest = $ipprc->filename("TRACE.EXP", $outroot);
-my $logDest = $ipprc->filename("LOG.EXP", $outroot);
 my $configuration = $ipprc->filename("PPSTACK.CONFIG", $outroot);