--- sysplogd	2009/04/10 17:49:49	1
+++ sysplogd	2009/04/10 19:12:17	2
@@ -5,6 +5,7 @@
 
 use IO::Socket;
 use Data::Dump qw/dump/;
+#use StoreToMongoDB;
 
 my $port = 514;
 
@@ -32,12 +33,23 @@
 	my $hostname = gethostbyaddr($ipaddr, AF_INET);
 	my $ip = join('.', unpack('C4',$ipaddr));
 	warn "# ",dump( $port, $ipaddr, $hostname, $buf );
+
 	if ( $buf=~/<(\d+)>(.*?):(.*)/ ) {
-		my $pri=$1;
-		my $head=$2;
-		my $msg=$3;
-		my $sev=$pri % 8;
-		my $fac=($pri-$sev) / 8;
-		print dump( $ip, $port, $hostname, $pri, $head, $msg, $sev, $fac, $facilities[$fac] ),$/;
+		my $sev=$1 % 8;
+		my $fac=($1-$sev) / 8;
+
+		my $log = {
+			ip => $ip,
+			port => $port,
+			hostname => $hostname,
+
+			priority => $1,
+			severity => $sev,
+			facility => $fac,
+			header => $2,
+			message => $3,
+		};
+		print dump( $log ),$/;
+		#StoreToMongoDB->insert( $log );
 	}
 }