The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Net::NfDump qw ':all';

our %DS;		# data sets

$DS{'v4_basic_txt'} = {
	'first' => '1401177532345',
	'last' => '1401177592345',	# 60s 
	
	'bytes' => '750000000',	# 12.5MB * 60s = (100mb/s)
	'pkts'  => '1500000',

	'srcport' => '53008',
	'dstport' => '10050',
	'tcpflags' => '27',

	'srcip' => '147.229.3.135',
	'dstip' => '10.255.5.6',
	'nexthop' => '10.255.5.1',

	'proto' => '6',

	'duration' => '60000',
	'bpp' => '500',
	'pps' => '25000',
	'bps' => '100000000',	# 100Mb/s

	'if' => '2',
	'port' => '53008',
	'ip' => '147.229.3.135',
	'as' => '1234568',
	
};

$DS{'v4_txt'} = {
	'first' => '1401177532345',
	'last' => '1401177592345',
	'received' => '22341355439617',
	
	'bytes' => '750000000',
	'pkts' => '1500000',
	'outbytes' => '291',
	'outpkts' => '5',
	'flows' => '1',

	'srcport' => '53008',
	'dstport' => '10050',
	'tcpflags' => '27',

	'srcip' => '147.229.3.135',
	'dstip' => '10.255.5.6',
	'nexthop' => '10.255.5.1',
	'srcmask' => '24',
	'dstmask' => '32',
	'tos' => '7',
	'dsttos' => '8',

	'dstas' => '635789',
	'srcas' => '1234568',
	'nextas' => '1234569',
	'prevas' => '12345622',
	'bgpnexthop' => '10.255.5.1',

	'proto' => '6',

	'insrcmac' => '00:1c:2e:92:03:80',
	'outdstmac' => '00:50:56:bf:a2:88',
	'indstmac' => '00:1c:2e:92:04:80',
	'outsrcmac' => '00:50:56:bf:a3:88',
	'srcvlan' => '10',
	'dstvlan' => '20',

	'mpls' => '336-6-0 123-6-0 3337-6-1',

	'inif' => '2',
	'outif' => '1',
	'dir' => '0',
	'fwd' => '1',

	'router' => '10.255.5.6',
   	'sysid' => '0',
   	'systype' => '0',

	'cl' => '100', 
	'sl' => '200',
	'al' => '300',

	'duration' => '60000',
	'bpp' => '500',
	'pps' => '25000',
	'bps' => '100000000',

	'if' => '2',
	'port' => '53008',
	'ip' => '147.229.3.135',
	'as' => '1234568',
	'vlan' => '10',
};

# prepare v6 structure - same as V4 but address changed to v6
$DS{'v6_txt'} = { %{$DS{'v4_txt'}} };
$DS{'v6_txt'}->{'srcip'} ='2001:67c:1220:f565::93e5:f0fb';
$DS{'v6_txt'}->{'dstip'} ='2001:abc:1220:f565::93e5:f0fb';
$DS{'v6_txt'}->{'nexthop'} ='2001:67c:1220:f565::1';
$DS{'v6_txt'}->{'bgpnexthop'} ='2001:67c:1220:f565::1';
$DS{'v6_txt'}->{'router'} ='2001:67c:1220:f565::10';
$DS{'v6_txt'}->{'ip'} ='2001:67c:1220:f565::93e5:f0fb';

$DS{'v4_raw'} = txt2flow( $DS{'v4_txt'} );
$DS{'v4_basic_raw'} = txt2flow( $DS{'v4_basic_txt'} );
$DS{'v6_raw'} = txt2flow( $DS{'v6_txt'} );

1;