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

trunk/ippScripts/scripts/receive_setstatus.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 );
@@ -74 +75 @@
         $fileargs = " --list - --copy --abspath";
     }
-        
+
     # XXX need to create a fileset type for this
     my $command = "echo $regline | dsreg --add $status_fs_name --product $status_product --type notset";