--- sysplogd	2009/04/14 14:19:59	18
+++ sysplogd	2009/04/17 10:03:00	19
@@ -47,7 +47,6 @@
 	id		serial,
 	timestamp	timestamp default now(),
 	ip		inet not null,
-	hostname	text,
 	message		text,
 	level		int,
 	facility	int,
@@ -88,12 +87,12 @@
 
 my $sth_log_full = $dbh->prepare(qq{
 	insert into log
-	(ip,hostname,message,level,facility,program,pid)
-	values (?,?,?,?,?,?,?)
+	(ip,message,level,facility,program,pid)
+	values (?,?,?,?,?,?)
 });
 
 my $sth_log_unparsed = $dbh->prepare(qq{
-	insert into log (ip,hostname,message) values (?,?,?)
+	insert into log (ip,message) values (?,?)
 });
 
 
@@ -116,9 +115,9 @@
 while(1) {
 	$sock->recv($buf, $MAXLEN);
 	my ($port, $ipaddr) = sockaddr_in($sock->peername);
-	my $hostname = gethostbyaddr($ipaddr, AF_INET);
+#	my $hostname = gethostbyaddr($ipaddr, AF_INET);
 	my $ip = join('.', unpack('C4',$ipaddr));
-	my @values = ( $ip, $hostname, $buf );
+	my @values = ( $ip, $buf );
 
 	if ( $buf =~ s/<(\d+)>// ) {
 		my $level    = $1 % 8;
@@ -133,7 +132,7 @@
 			$pid      = $1 if $program =~ s/\[(\d+)\]$//;
 		}
 
-		$values[2] = $buf;
+		$values[1] = $buf;
 		push @values, ( $level, $facility, $program, $pid );
 		$sth_log_full->execute( @values );
 	} else {