#!/usr/bin/perl -w
#

use ExtUtils::testlib;
use Net::NfDump ':all';


# instance of source and destination files
my $flow = new Net::NfDump(
					OutputFile => "rec.tmp",
					Fields => 'connid,srcip,srcport,dstip,dstport,
					xsrcip,xsrcport,xdstip,xdstport,
					proto,first,flowstart,inif,outif,bytes,pkts,tcpflags,event,xevent' 
				);


$flow->storerow_array(
	71434019, txt2ip('192.168.20.30'), 60268, txt2ip('8.8.8.8'), 53, 
	undef, undef, undef, undef, 
	17, 1361206834000, 1361206834000, 4, 3, 116, 6666, 0, 2, 3	);

$flow->storerow_array(
	71434019, txt2ip('192.168.20.30'), 60268, txt2ip('8.8.8.8'), 53, 
	undef, 1111, undef, 2222,
	17, 1361206834000, 1361206834000, 4, 3, 116, 6666, 0, 2, 3	);

#$flow->storerow_array(
#	71434019, '192.168.20.30', 60268, '8.8.8.8', 53, 
#	0, 111, 0, 555, 
#	17, 1361206834000, 1361206834000, 4, 3, 116, 6666, 0, 2, 3	);
$flow->finish();