Changeset 27718 for trunk/ippScripts/scripts/tdl_generate.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/tdl_generate.pl (modified) (2 diffs)

trunk/ippScripts/scripts/tdl_generate.pl

@@ -13 +13 @@
 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 );
@@ -58 +59 @@
 # resolve any path:// or file:// in outroot
 $outroot = $ipprc->file_resolve($outroot);
-    
+
 # Look for programs we need
 my $missing_tools;