Changeset 29233

Timestamp:

Sep 24, 2010, 3:44:17 PM (16 years ago)

Author:

rhenders

Message:

Handling failure to get smf path

File:

• trunk/ippToPsps/perl/getSmfForThisBatch.pl (modified) (4 diffs)

trunk/ippToPsps/perl/getSmfForThisBatch.pl

@@ -10 +10 @@
 
 my $camera = undef;
-my $singleBatch = undef;
+my $batch = undef;
 my $verbose = undef;
 my $save_temps = undef;
 
 GetOptions(
-        'batch|b=s' => \$singleBatch,
+        'batch|b=s' => \$batch,
         'verbose|v' => \$verbose,
         'save_temps|t' => \$save_temps,
@@ -28 +28 @@
     print "* UNKNKOWN: option                          @ARGV\n";
 }
-if (!defined $singleBatch) {
+if (!defined $batch) {
     $quit=1;
     print "* REQUIRED: need to provide a batch   -b <batch>\n";
@@ -55 +55 @@
         $camera,
         $gpc1Db,
-        $singleBatch, 
+        $batch, 
         $ippToPspsDb, 
         "./",
@@ -61 +61 @@
         $save_temps);
 
-
-print $detectionBatch->getSmfFile() . "\n";
-
+my $smf = $detectionBatch->getSmfFile();
+if (defined $smf) {
+    print "$smf\n";
+}
+else {
+    print "* Could not find an smf file for batch $batch\n";
+}