I have a script where I attempt to use Sys::Syslog, and while it works on several platforms it does not work on FreeBSD 4.x (well, 4.5 and 4.7 is what I have confirmed on) even though all works fine. I've also passed my version of perl debugging, and don't see why it's failing.
Test code, lifted right from the Sys::Syslog man page:
use Sys::Syslog;
openlog($program, 'cons,pid', 'user');
syslog('info', 'this is another test');
syslog('mail|warning', 'this is a better test: %d', time);
closelog();
If you add "|| die" to the end of each one you'll find it dies on
the openlog call, digging down with the debugger it can't establish
a socket to the syslog server. I get the same behavior if I tell
it to use a unix domain socket rather than an inet socket.
One machine runs syslog -s, the other -a with all IP's and localhost
in the ACL. I suppose it could be a security thing but all other
apps syslog just fine so I suspect perl should work.
While probably a perl issue, FreeBSD does seem to be the only place
it's broken for me, which is why I thought I'd try here. Anyone
got an idea?
--
Leo Bicknell - [EMAIL PROTECTED] - CCIE 3440
PGP keys at http://www.ufp.org/~bicknell/
Read TMBG List - [EMAIL PROTECTED], www.tmbg.org
msg38753/pgp00000.pgp
Description: PGP signature
