Changeset 26835 for branches/eam_branches/20091201/ippScripts/scripts/magic_process.pl

Timestamp:

Feb 9, 2010, 6:38:12 PM (16 years ago)

Author:

eugene

Message:

fix magic_process.pl to correctly run VerifyStreaks; updates to ippconfig for MAGIC output files

File:

• branches/eam_branches/20091201/ippScripts/scripts/magic_process.pl (modified) (3 diffs)

branches/eam_branches/20091201/ippScripts/scripts/magic_process.pl

@@ -290 +290 @@
     my $baseroot = shift;
 
-    unless ($VerifyStreaks) { 
-        print STDERR "skipping VerifyStreaks\n";
-        return 1;
+    unless ($VerifyStreaks) {
+        print STDERR "skipping VerifyStreaks\n";
+        return 1;
     }
 
@@ -300 +300 @@
 
     my($status) = system ("mkdir -p $outdir");
-    if ($status) { 
-        print STDERR "failed to create output directory $outdir\n"; 
-        return 1;
-    }
+    if ($status) {
+        print STDERR "failed to create output directory $outdir\n";
+        return 1;
+    }
+
+    my $FILE;
 
     my @files = <$baseroot.*.clusters>;
-    unless (OPEN (FILE, ">$outdir/clusters.list")) {
-        print "failed to create cluster file $outdir/clusters.list\n"; 
-        return 1;
+
+    unless (open ($FILE, ">$outdir/clusters.list")) {
+        print "failed to create cluster file $outdir/clusters.list\n";
+        return 1;
     }
     foreach my $file (@files) {
-        print FILE "$file\n";
-    }
-    close (FILE);
-    if ($status) { 
-        print "failed to create cluster file $outdir/clusters.list\n"; 
-        return 1;
+        $file =~ s|.clusters$||;
+        print $FILE "$file\n";
+    }
+    close ($FILE);
+    if ($status) {
+        print "failed to create cluster file $outdir/clusters.list\n";
+        return 1;
     }
 
@@ -322 +326 @@
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
-        print "failed to run VerifyStreaks:\n stderr: $stderr_buff\n stdout: $stdout_buff"; 
-        return 1;
+        print "failed to run VerifyStreaks:\n";
+        return 1;
     }