On 7/20/07, Gregory Machin <[EMAIL PROTECTED]> wrote:
Hi
I have a script that i'm working on, I want it to write info to a log
file, but I can't get it to write to the file.. I run the script as
root, and I also chmod 0777 the file but still no out put ...
what have it missed ..
snip
Simplify, simplify, simplify.
#!/usr/bin/perl
use strict;
use warnings;
use IO::File;
my $wait = 10;
my $logfile = "/var/log/ifwatch";
my $continue = 1;
open my $log, ">>", $logfile
or die "could not open $logfile:$!";
$log->autoflush(1);
#### process handeling kill and restart call
$SIG{INT} = $SIG{TERM} = sub {
print $log localtime() . " Exiting...\n";
$continue = 0;
};
$SIG{HUP} = sub {
print $log localtime() . " Restarting...\n";
exec ($0, @ARGV) or die "Could not restart: $!\n";
};
open STDIN, "<", "/dev/null"
or die "could not redirect stdin: $!";
print $log localtime() . " ifwatch starting\n";
while ($continue) {
#do stuff
print $log localtime() . " sleeping\n";
sleep $wait;
}
print $log localtime() . " ifwatch exiting\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
