Changeset 11319 for trunk/ippScripts/scripts/phase3.pl

Timestamp:

Jan 26, 2007, 12:20:56 PM (19 years ago)

Author:

Paul Price

Message:

Fixing compilation errors.

File:

• trunk/ippScripts/scripts/phase3.pl (modified) (7 diffs)

trunk/ippScripts/scripts/phase3.pl

@@ -27 +27 @@
 use Pod::Usage qw( pod2usage );
 
-my ($exp_tag, $camera, $outpath, $dbname, $workdir, $no_update);
+my ($exp_tag, $camera, $dbname, $workdir, $no_update);
 GetOptions(
     'exp_tag|e=s'       => \$exp_tag,
@@ -38 +38 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --exp_tag --camera --outpath",
+    -msg => "Required options: --exp_tag --camera --workdir",
     -exitval => 3,
 ) unless defined $exp_tag
@@ -68 +68 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to perform p3tool: $error_code", $exp_tag, $error_code);
     }
@@ -148 +148 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to perform ppImage: $error_code", $exp_tag, $error_code);
     }
@@ -160 +160 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to perform ppImage: $error_code", $exp_tag, $error_code);
     }
@@ -180 +180 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         warn("Unable to perform dettool -addprocessedexp: $error_code\n");
         exit($error_code);
@@ -198 +198 @@
     warn($msg);
     if ($exp_tag) {
-        my $command = "$dettool -addprocessedexp -exp_tag $exp_tag -code $exit_code";
+        my $command = "$p3tool -addprocessedexp -exp_tag $exp_tag -code $exit_code";
         $command .= " -dbname $dbname" if defined $dbname;
         system ($command);