[netflow-tools] Busted Perl interface

[Damien Miller]

On Mon, 14 May 2007, Christopher Snell wrote:

> We're configured to store everything:
> 
> store ALL
> 
> ...right?

oh, it looks like a bug in flowinsert.pl. Please try this patch:

Index: flowinsert.pl
===================================================================
RCS file: /var/cvs/flowd/tools/flowinsert.pl,v
retrieving revision 1.2
diff -u -p -r1.2 flowinsert.pl
--- flowinsert.pl	31 Oct 2004 06:42:57 -0000	1.2
+++ flowinsert.pl	14 May 2007 23:47:16 -0000
@@ -53,7 +53,7 @@ for (my $i = 0; $i < scalar(@ARGV); $i++
 		    " src_port, dst_port, octets, packets, protocol) VALUES ".
 		    "(%u, %s, %s, %s, %s, %u, %u, %u, %u, %u)" ,
 		    $tag, 
-		    $db->quote(Flowd::iso_time($flow->{recv_secs})),
+		    $db->quote(Flowd::iso_time($flow->{recv_sec})),
 		    $db->quote($flow->{agent_addr}), 
 		    $db->quote($flow->{src_addr}), 
 		    $db->quote($flow->{dst_addr}),