Changeset 20119

Timestamp:

Oct 13, 2008, 3:23:40 PM (18 years ago)

Author:

eugene

Message:

define ppStatsFromMetadata, cmdflags, chomp on cmdflags

File:

• trunk/ippScripts/scripts/register_exp.pl (modified) (6 diffs)

trunk/ippScripts/scripts/register_exp.pl

@@ -17 +17 @@
 use Storable qw( freeze thaw );
 use File::Basename qw( basename );
+use File::Temp qw( tempfile );                   # tools to construct temp files
 use IPC::Cmd 0.36 qw( can_run run );
 use PS::IPP::Metadata::Config;
@@ -26 +27 @@
 my $ipprc = PS::IPP::Config->new();
 
-my ($cache, $exp_id, $exp_tag, $dbname, $verbose, $no_update, $no_op, $logfile);
+my ($cache, $exp_id, $exp_tag, $dbname, $verbose, $no_update, $no_op, $save_temps, $logfile);
 GetOptions(
     'caches'        => \$cache,
@@ -35 +36 @@
     'no-update'     => \$no_update,
     'no-op'         => \$no_op,
+    'save-temps'    => \$save_temps, # Save temporary files?
     'logfile=s'     => \$logfile,
 ) or pod2usage( 2 );
@@ -52 +54 @@
 # Look for commands we need
 my $missing_tools;
-my $regtool = can_run('regtool')
-    or (warn "can't find regtool" and $missing_tools = 1);
+my $regtool = can_run('regtool') or (warn "can't find regtool" and $missing_tools = 1);
+my $ppStatsFromMetadata = can_run('ppStatsFromMetadata') or (warn "Can't find ppStatsFromMetadata" and $missing_tools = 1);
 
 if ($missing_tools) {
@@ -65 +67 @@
     default_expires => '7200 sec',
 );
+
+my $cmdflags;
 
 # Get the list of imfiles & their stats
@@ -99 +103 @@
         $cmdflags .= " $line";
     }
+    chomp $cmdflags;
 }