--- sysplogd	2009/04/17 10:03:00	19
+++ sysplogd	2009/05/02 21:07:32	21
@@ -123,13 +123,17 @@
 		my $level    = $1 % 8;
 		my $facility = ( $1-$level ) / 8;
 	
-		$buf =~ s/^\w\w\w \d+ \d\d:\d\d:\d\d//;	# strip timestamp which some syslog servers insert here
+		$buf =~ s/^\w\w\w\s+\d+\s+\d\d:\d\d:\d\d//;	# strip timestamp which some syslog servers insert here
 
 		my ( $program, $pid );
 
 		if ( $buf =~ s/^\s*([^:]+)\s*:\s*// ) {
-			$program  = $1;
-			$pid      = $1 if $program =~ s/\[(\d+)\]$//;
+			$program = $1;
+			if ( $program =~ s/\[(\d+)\]$// ) {
+				$pid = $1;
+			} elsif ( $buf =~ s/^(\d+):\s*// ) {
+				$pid = $1;
+			}
 		}
 
 		$values[1] = $buf;