Changeset 27718 for trunk/ippScripts/scripts/dist_advancerun.pl

Timestamp:

Apr 21, 2010, 11:35:15 AM (16 years ago)

Author:

Paul Price

Message:

Add date of processing to output log.

File:

• trunk/ippScripts/scripts/dist_advancerun.pl (modified) (2 diffs)

trunk/ippScripts/scripts/dist_advancerun.pl

@@ -8 +8 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );
@@ -174 +175 @@
         }
         &my_die("unable to find path",  $dist_id, $PS_EXIT_UNKNOWN_ERROR) if !$path;
-        my $component_dir = find_componentdir($destdir, $path); 
+        my $component_dir = find_componentdir($destdir, $path);
 #        print MANIFEST "$component METADATA\n";
         print MANIFEST "\t" , "$component", "\tSTR\t", $component_dir, "\n";
     }
     print MANIFEST "END\n\n";
-    close MANIFEST or 
+    close MANIFEST or
         &my_die("Unable to close dirinfo file $dirinfo",  $dist_id, $PS_EXIT_UNKNOWN_ERROR);
 }