Changeset 27718 for trunk/ippScripts/scripts/detrend_correct_imfile.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/detrend_correct_imfile.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_correct_imfile.pl

@@ -8 +8 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
-print "command: @ARGV\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );