LogScripts.pm

You may be able to re-associate Perl files in your web server or in NT to a slightly modified Perl command line: "perl.exe -MLogScripts". Then use a module like this to log the start and stop of the script:

package LogScripts;
# If you want high-res timekeeping:
# use Time::HiRes qw{ time };

my $started;

BEGIN {
   open(F, ">>/logdir/scripts.log");
   print F localtime(time) . " $ENV{REMOTE_ADDR} - Starting $0\n";
   $started = time();
}

END {
   my $elapsed = time() - $started;
   print F localtime(time) . " $ENV{REMOTE_ADDR} - Stopping $0 ($elaps
+ed seconds)\n";
   close(F);
}
[download]

Comment on LogScripts.pm Download Code

Replies are listed 'Best First'.

Re: Re: tracking files
by 2501 (Pilgrim) on Dec 04, 2000 at 00:56 UTC

package LogScripts;
# use Time::HiRes qw{ time };
use File::Spec::Functions qw(rel2abs);


my $started;
my $path;

BEGIN {
   open(F, ">>c:\\scripts.log");
   $path = rel2abs($0);
   $started = time();
   print F localtime(time) . " $ENV{REMOTE_ADDR} - Starting $path\n";
   


}

END {
   my $elapsed = time() - $started;
   print F localtime(time) . " $ENV{REMOTE_ADDR} - Stopping $path ($el
+apsed seconds)";
   close(F);
}
[download]

[reply]
[d/l]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks