## syslog.pl## $Log: syslog.pl,v $# Revision 1.3  1997/05/19 12:32:06  neeri# 5.004 merge, round 1## Revision 1.1.1.2  1997/05/17 21:41:42  neeri# Import of Perl 5.004## Revision 1.2  1997/04/07 20:52:04  neeri# Synchronized with MacPerl 5.1.4a1## Revision 1.1.1.1  1997/04/06 21:06:30  neeri# Import of Perl 5.002## # tom christiansen <tchrist@convex.com># modified to use sockets by Larry Wall <lwall@jpl-devvax.jpl.nasa.gov># NOTE: openlog now takes three arguments, just like openlog(3)## call syslog() with a string priority and a list of printf() args# like syslog(3)##  usage: require 'syslog.pl';##  then (put these all in a script to test function)#		##	do openlog($program,'cons,pid','user');#	do syslog('info','this is another test');#	do syslog('mail|warning','this is a better test: %d', time);#	do closelog();#	#	do syslog('debug','this is the last test');#	do openlog("$program $$",'ndelay','user');#	do syslog('notice','fooprogram: this is really done');##	$! = 55;#	do syslog('info','problem was %m'); # %m == $! in syslog(3)use Sys::Syslog;1;