1#! /usr/bin/perl -w
2# MD5: d5c09b15e9741d4c83758808f7bef1be
3# TEST: ../rwfilter/rwfilter --type=in,inweb --pass=stdout ../../tests/data.rwf | ./rwstats --pmap-file=service-port:../../tests/proto-port-map.pmap --pmap-file=../../tests/ip-map.pmap --fields=src-service-host,src-service-port --count=10
4
5use strict;
6use SiLKTests;
7
8my $rwstats = check_silk_app('rwstats');
9my $rwfilter = check_silk_app('rwfilter');
10my %file;
11$file{data} = get_data_or_exit77('data');
12$file{ip_map} = get_data_or_exit77('ip_map');
13$file{proto_port_map} = get_data_or_exit77('proto_port_map');
14my $cmd = "$rwfilter --type=in,inweb --pass=stdout $file{data} | $rwstats --pmap-file=service-port:$file{proto_port_map} --pmap-file=$file{ip_map} --fields=src-service-host,src-service-port --count=10";
15my $md5 = "d5c09b15e9741d4c83758808f7bef1be";
16
17check_md5_output($md5, $cmd);
18