in reply to Sys:syslog
This defines the local2 category for your use.local2.* /var/log/your_log_name
Include Sys::Syslog in your script or module:
Then make a sub like this one:use Sys::Syslog qw(:DEFAULT setlogsock);
Then call syslog_event as needed passing it one of the allowed types and your message:sub syslog_event { my ( $type, $message ) = @_; Sys::Syslog::setlogsock( 'unix' ); openlog( 'daemon_name', '', 'local2' ); $message =~ s/\s+$//; syslog( $type, $message ); closelog(); return(); } # END syslog_event
The types are taken from the system types. Look insyslog_event( 'info', 'daemon starting' );
for 'level'. You'll see things like LOG_INFO, the type you need is everything after LOG_. You can use lower case if you like.man 3 syslog
Phil
|
---|