2 # Filter HTTP transactions
3 # (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed
9 1 == @ARGV or die "Usage: http-filter <perl-expression>";
14 my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
15 if (' . $ARGV[0] . ') {
20 die "$ARGV[0]: $@" if $@;