--- sysplogd 2009/04/11 12:17:53 13 +++ sysplogd 2009/04/13 18:40:32 16 @@ -47,7 +47,7 @@ id serial, timestamp timestamp default now(), ip inet not null, - hostname text not null, + hostname text, message text, level int, facility int, @@ -93,7 +93,7 @@ }); my $sth_log_unparsed = $dbh->prepare(qq{ - insert into log (ip,hostname,messsage) values (?,?,?) + insert into log (ip,hostname,message) values (?,?,?) }); @@ -120,7 +120,7 @@ my $ip = join('.', unpack('C4',$ipaddr)); my @values = ( $ip, $hostname, $buf ); - if ( $buf =~ /<(\d+)>\s*(\S*)\s*:\s*(.*)/ ) { + if ( $buf =~ /<(\d+)>\w\w\w \d+ \d\d:\d\d:\d\d\s*(\S*)\s*:\s*(.*)/ ) { $values[2] = $3; my $level = $1 % 8; my $facility = ( $1-$level ) / 8;