Sys::Syslog, openlog, closelog, setlogmask, syslog - Perl interface to the UNIX syslog(3) calls
use Sys::Syslog; 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 provides the functions:
$ident is prepended to every message. $logopt contains one or more of the words pid, ndelay, cons, nowait. $facility specifies the part of the system
If $priority permits, logs ($format, @args) printed as by
printf(3V), with the addition that %m is replaced with
"$!" (the latest error message).
Sets log mask $mask_priority and returns the old mask.
Sets the socket type to be used for the next call to
A value of 'unix' will connect to the UNIX domain socket returned by
_PATH_LOG in syslog.ph. If syslog.ph fails to define
undef; otherwise a true value is returned. A value of 'inet' will connect to an INET socket returned by getservbyname(). Any other value croaks.
The default is for the INET socket to be used.
Closes the log file.
openlog now takes three arguments, just like
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)
Sys::Syslog needs syslog.ph, which can be created with
Tom Christiansen <firstname.lastname@example.org> and Larry Wall <email@example.com>. UNIX domain sockets added by Sean Robinson <firstname.lastname@example.org> with support from Tim Bunce <Tim.Bunce@ig.co.uk> and the perl5-porters mailing list.