#!/usr/bin/perl
# Jan 25 04:02:02 honeywall kernel: INBOUND OTHER: IN=br0 OUT=br0 PHYSIN=eth0
# PHYSOUT=eth1 SRC=128.208.131.100 DST=224.0.0.1 LEN=28 TOS=0x00 PREC=0x00
# TTL=1 ID=21990 PROTO=2 

while (<>) {
	@a=split(" ");
	if ($a[5] eq "INBOUND" || $a[5] eq "OUTBOUND") {
		++$count{"$a[0] $a[1] $a[5]"};
	} elsif ($a[6] eq "INBOUND" || $a[6] eq "OUTBOUND") {
		++$count{"$a[0] $a[1] $a[6]"};
	}
}

foreach $i (sort keys %count) {
	print "$i $count{$i}\n";
}

exit(0);