#!/usr/local/bin/perl
# sanitize-access-log.pl,v 1.5 1996/05/30 17:21:46 wessels Exp

$N = 0;

while (<>) {
	chop;
	@F = split;
	next unless ($#F == 9);
	next if ($F[6] =~ /cache_object/);
	next unless ($F[3] =~ /^TCP_/);
	print join(' ', $F[0],&foo($F[2]),$F[1],$F[3],$F[4],$F[5],$F[6],'-',$F[8]), "\n";
}

sub foo {
	$i = shift;
	return $X{$i} if defined ($X{$i});
	$X{$i} = ++$N;
}