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:
"$!"
(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 returned by
_PATH_LOG
in syslog.ph.
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.
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)
Sys::Syslog needs syslog.ph, which can be created with h2ph
.
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.
If rather than formatting bugs, you encounter substantive content errors in these documents, such as mistakes in the explanations or code, please use the perlbug utility included with the Perl distribution.