1#! /usr/bin/perl -w 2# MD5: e2ddc6cb13c8956ce2906ef6faf9b794 3# TEST: ../rwfilter/rwfilter --type=in,inweb --pass=/tmp/rwstats-multi-inputs-3-5-in --fail=/tmp/rwstats-multi-inputs-3-5-out ../../tests/data.rwf && ./rwstats --fields=3-5 --values=bytes,packets --threshold=30000000 /tmp/rwstats-multi-inputs-3-5-in /tmp/rwstats-multi-inputs-3-5-out 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'); 12my %temp; 13$temp{in} = make_tempname('in'); 14$temp{out} = make_tempname('out'); 15my $cmd = "$rwfilter --type=in,inweb --pass=$temp{in} --fail=$temp{out} $file{data} && $rwstats --fields=3-5 --values=bytes,packets --threshold=30000000 $temp{in} $temp{out}"; 16my $md5 = "e2ddc6cb13c8956ce2906ef6faf9b794"; 17 18check_md5_output($md5, $cmd); 19