#!/usr/local/bin/perl

# script: forward_log.pl
# Forward web server log entries to central syslog.
# requires perl 5.001 or higher
require 5.001;

# See "Web Security, A Step-by-Step Reference Guide" by Lincoln Stein, page 200

$SERVER_NAME = 'Web';
$FACILITY = 'local0';
$PRIORITY = 'warning';

use Sys::Syslog;
openlog ($SERVER_NAME,'nowait',$FACILITY);
while (<>) {
    chomp;
    syslog($PRIORITY,$_);
}
closelog;