Displaying 1 result from an estimated 1 matches for "write_syslog".
1999 Oct 20
3
patch for tinc-0.3
...inc";
$LOGDIR="/var/log";
$PROGNAME="tincsched";
$TESTHOST="a2000-gw1.aie.nl";
$host = $TESTHOST;
$oldmsg = "";
$0 = $PROGNAME; # cant get `ps -ef` show my progname ):
&check_pid("$HOME/tincsched.pid", $$);
&redir_io_log($PROGNAME);
write_syslog('info', "$PROGNAME started with pid $$ \n");
$SIG{'CHLD'} = 'handler';
$SIG{'TERM'} = 'sigtermhandler';
chdir("$HOME") || die "Can't chdir to $HOME";
$p = Net::Ping->new("icmp");
# endless loop
while (1) {...