#!/usr/bin/perl
use Sys::Syslog qw (:DEFAULT setlogsock);
setlogsock('unix');
# open our log socket
openlog('httpd', 'pid', 'local6');
# log all our input
while (<STDIN>) {
syslog('info', $_);
}
# close the log socket
closelog;
Posted by 노는총각
#!/usr/bin/perl
use Sys::Syslog qw (:DEFAULT setlogsock);
setlogsock('unix');
# open our log socket
openlog('httpd', 'pid', 'local6');
# log all our input
while (<STDIN>) {
syslog('info', $_);
}
# close the log socket
closelog;
