syslog - Perl interface to the UNIX syslog calls |
Sys::Syslog, openlog, closelog, setlogmask, syslog - Perl interface to the UNIX syslog(3)
calls
use Sys::Syslog; # all except setlogsock, or: use Sys::Syslog qw(:DEFAULT setlogsock); # default set, plus setlogsock
setlogsock $sock_type; openlog $ident, $logopt, $facility; syslog $priority, $format, @args; $oldmask = setlogmask $mask_priority; closelog;
Sys::Syslog is an interface to the UNIX syslog(3)
program.
Call syslog()
with a string priority and a list of printf()
args
just like syslog(3)
.
Syslog provides the functions:
printf(3V)
, with the addition that %m
is replaced with "$!"
(the latest error message).
openlog()
or syslog()
and returns TRUE on success,
undef on failure.
A value of 'unix' will connect to the UNIX domain socket (in some
systems a character special device) returned by the _PATH_LOG
macro
(if your system defines it), or /dev/log or /dev/conslog,
whatever is writable. A value of 'stream' will connect to the stream
indicated by the pathname provided as the optional second parameter.
A value of 'inet' will connect to an INET socket (either tcp or udp,
tried in that order) returned by getservbyname(). 'tcp' and 'udp' can
also be given as values. The value 'console' will send messages
directly to the console, as for the 'cons' option in the logopts in
openlog().
A reference to an array can also be passed as the first parameter. When this calling method is used, the array should contain a list of sock_types which are attempted in order.
The default is to try tcp, udp, unix, stream, console.
Giving an invalid value for sock_type will croak.
Note that openlog
now takes three arguments, just like openlog(3)
.
openlog($program, 'cons,pid', 'user'); syslog('info', 'this is another test'); syslog('mail|warning', 'this is a better test: %d', time); closelog();
syslog('debug', 'this is the last test');
setlogsock('unix'); openlog("$program $$", 'ndelay', 'user'); syslog('notice', 'fooprogram: this is really done');
setlogsock('inet'); $! = 55; syslog('info', 'problem was %m'); # %m == $! in syslog(3)
syslog(3)
Tom Christiansen <tchrist@perl.com> and Larry Wall <larry@wall.org>.
UNIX domain sockets added by Sean Robinson <robinson_s@sc.maricopa.edu> with support from Tim Bunce <Tim.Bunce@ig.co.uk> and the perl5-porters mailing list.
Dependency on syslog.ph replaced with XS code by Tom Hughes <tom@compton.nu>.
Code for constant()s regenerated by Nicholas Clark <nick@ccl4.org>.
Failover to different communication modes by Nick Williams <Nick.Williams@morganstanley.com>.
syslog - Perl interface to the UNIX syslog calls |