[카테고리:] Web Services

/usr/local/sbin/apache_syslog

#!/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;