Changeset 38159

Timestamp:

Apr 20, 2015, 2:22:30 PM (11 years ago)

Author:

watersc1

Message:

Fix typo issues.

File:

• trunk/ippScripts/scripts/lap_queue_diff.pl (modified) (4 diffs)

trunk/ippScripts/scripts/lap_queue_diff.pl

@@ -25 +25 @@
 my ( $help, $verbose, $debug, $do_nothing);
 my ( $camera, $dbname);
-my ( $lap_id );
+my ( $lap_id, $data_group );
 my ( $queue_list );
 
@@ -38 +38 @@
     
     'lap_id=s'     => \$lap_id,
+    'data_group=s' => \$data_group,
     'queue_list=s' => \$queue_list,
     ) or pod2usage ( 2 );
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "--lap_id is required",
+    -msg => "--lap_id --data_group --queue_list are required",
     -exitval => 3,
     ) unless
-    defined $lap_id;
+    defined $lap_id and
+    defined $queue_list and
+    defined $data_group
+;
 
 unless (defined $dbname) {
@@ -91 +95 @@
             if ($can_diff == 1) {
                 # This needs a check to ensure it hasn't been done yet.
-                my $diff_id = &launch_diff($warp_id);
+                my $diff_id = &launch_diff($warp_id,$label,$data_group);
                 print "Made diff for $warp_id => $diff_id\n";
                 $Ndiff++;
@@ -255 +259 @@
     my $warp_id = shift;
     my $label = shift;
+    my $data_group = shift;
+    my $command = "$difftool -definewarpstack -available -bothways -good_frac 0.2 ";
+    $command   .= " -warp_label $label -stack_label $label -set_label $label ";
+    $command   .= " -set_data_group $data_group ";
+    $command   .= " -set_workdir neb://\@HOST\@.0/gpc1/${label}/${data_group}/ ";
+    $command   .= " -set_reduction WARPSTACK_PV3 ";
+    $command   .= " -warp_id ${warp_id} ";
+    $command .= " -dbname $dbname " if defined $dbname;
+    
     if (($debug)||($do_nothing)) {
+        print "DEBUG! WOULD RUN: >> $command\n";
         return(99);
     }
     else {
-        my $command = "$difftool -definewarpstack -available -bothways -good_frac 0.2 ";
-        $command   .= " -warp_label $label -stack_label $label -set_label $label ";
-        $command   .= " -set_data_group ${label}.";
-        $command   .= " -set_workdir neb://@HOST@.0/gpc1/LAP.PV3.20140730/diff01.20150311/ ";
-        $command   .= " -set_reduction WARPSTACK_PV3 ";
-        $command   .= " -warp_id ${warp_id} ";
-        $command .= " -dbname $dbname " if defined $dbname;
         my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => $verbose);