Changeset 20673 for trunk/ippScripts/scripts/magic_mask.pl

Timestamp:

Nov 10, 2008, 4:48:03 PM (17 years ago)

Author:

bills

Message:

various changes this script doesn't work yet

File:

• trunk/ippScripts/scripts/magic_mask.pl (modified) (3 diffs)

trunk/ippScripts/scripts/magic_mask.pl

@@ -29 +29 @@
 
 # Parse the command-line arguments
-my ($magic_id, $camera, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op, $redirect);
+my ($magic_id, $camera, $dbname, $outroot, $save_temps, $verbose, $no_update, $no_op, $logfile);
 GetOptions(
            'magic_id=s'      => \$magic_id,   # Magic identifier
@@ -39 +39 @@
            'no-update'       => \$no_update,  # Don't update the database?
            'no-op'           => \$no_op,      # Don't do any operations?
-           'redirect-output' => \$redirect,   # Redirect output?
+           'logfile=s'       => \$logfile,   # Redirect output?
            ) or pod2usage( 2 );
 
@@ -51 +51 @@
 $ipprc->define_camera($camera);
 
-my $logDest = $ipprc->filename("LOG.EXP", $outroot, $magic_id) or
-    &my_die("Missing entry from camera config", $magic_id, $PS_EXIT_CONFIG_ERROR);
-$ipprc->redirect_output($logDest) if $redirect;
+$ipprc->redirect_output($logfile) if $logfile;
 
 # Look for programs we need
 my $missing_tools;
 my $magictool = can_run('magictool') or (warn "Can't find magictool" and $missing_tools = 1);
-my $streaks = can_run('RemoveStreaks') or (warn "Can't find RemoveStreaks" and $missing_tools = 1);
+my $streaksremove = can_run('streaksremove') or (warn "Can't find streaksremove" and $missing_tools = 1);
 if ($missing_tools) {
     warn("Can't find required tools.");