Changeset 11946

Timestamp:

Feb 20, 2007, 3:26:45 PM (19 years ago)

Author:

Paul Price

Message:

Adding --no-op and --no-update.

Location:

trunk/ippScripts/scripts

Files:

• ipp_serial_phase2.pl (modified) (2 diffs)
• ipp_serial_phase3.pl (modified) (3 diffs)

trunk/ippScripts/scripts/ipp_serial_phase2.pl

@@ -14 +14 @@
 my ($dbname,                    # Database name to use
     $workdir,                   # Working directory
+    $no_op,                     # No operations?
+    $no_update,                 # No updating?
     );
 GetOptions(
            'dbname|d=s' => \$dbname,
            'workdir|w=s' => \$workdir,
+           'no-op' => \$no_op,
+           'no-update' => \$no_update,
 ) or pod2usage( 2 );
 
@@ -51 +55 @@
     
     my $command = "$phase2 --exp_tag $exp_tag --class_id $class_id --uri $uri --dbname $dbname --camera $camera";
+    $command .= " --no-op" if defined $no_op;
+    $command .= " --no-update" if defined $no_update;
     $command .= " --workdir $workdir" if defined $workdir;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =

trunk/ippScripts/scripts/ipp_serial_phase3.pl

@@ -14 +14 @@
 my ($dbname,                    # Database name to use
     $workdir,                   # Working directory
+    $no_op,                     # No operations?
+    $no_update,                 # No updating?
     );
 GetOptions(
            'dbname|d=s' => \$dbname,
            'workdir|w=s' => \$workdir,
+           'no-op' => \$no_op,
+           'no-update' => \$no_update,
 ) or pod2usage( 2 );
 
@@ -39 +43 @@
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run( command => $command, verbose => 1 );
-    die "Unable to get phase 3 imfile list: $error_code\n" if not $success;
+    die "Unable to get phase 3 exposure list: $error_code\n" if not $success;
     $list = parse_md_list( $mdcParser->parse( join( '', @$stdout_buf ) ) ) or
         die "Unable to parse output from p2tool.\n";
@@ -48 +52 @@
     my $camera = $item->{camera};
     
-    my $command = "$phase3 --exp_tag $exp_tag --camera $camera";
+    my $command = "$phase3 --exp_tag $exp_tag --camera $camera --dbname $dbname";
+    $command .= " --no-op" if defined $no_op;
+    $command .= " --no-update" if defined $no_update;
     $command .= " --workdir $workdir" if defined $workdir;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =