--- sysplogd	2009/04/10 21:22:01	3
+++ sysplogd	2009/04/11 08:30:33	5
@@ -11,7 +11,7 @@
 
 my $MAXLEN = 1524;
 
-my $dsn = 'DBI:Pg:dbname=syslog';
+my $dsn = 'DBI:Pg:dbname=syslog;host=llin.lan';
 my $user = 'dpavlin';
 my $debug = 0;
 
@@ -46,9 +46,11 @@
 	my $ip = join('.', unpack('C4',$ipaddr));
 	warn "# ",dump( $port, $ipaddr, $hostname, $buf );
 
-	if ( $buf=~/<(\d+)>(.*?):(.*)/ ) {
+	if ( $buf =~ /<(\d+)>\s*(\S*)\s*:\s*(.*)/ ) {
 		my $level=$1 % 8;
 		my $fac=($1-$level) / 8;
 		$sth->execute( $ip, $hostname, $fac, $1, $level, $2, $3 );
+	} else {
+		$sth->execute( $ip, $hostname, undef, undef, undef, undef, $buf );
 	}
 }