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