#!/usr/bin/perl
# Filter HTTP transactions
# (c) 2003 Martin Mares <mj@ucw.cz>, GPL'ed

use strict;
use warnings;
use POSIX;

1 == @ARGV or die "Usage: http-filter <perl-expression>";
eval '
while (<STDIN>) {
	chomp;
	/^#/ && next;
	my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
	if (' . $ARGV[0] . ') {
		print $_, "\n";
	}
}
';
die "$ARGV[0]: $@" if $@;