iptables ULOG

Глянь ulog-acctd, конфиг прост до одурения, формат лога можно настроить как хочешь, а дальше на bash/perl пропарсить труда не составит

#!/usr/bin/perl

use Time::Local;

my ($date,$host,$prefix,$logfile) = @ARGV;
my ($day,$month,$year) = split(/\./,$date);

my $stamp1 = timelocal(1,1,0,$day,$month-1,$year);
my $stamp2 = timelocal(59,59,23,$day,$month-1,$year);

my $in = 0;
my $out = 0;

open LOGFILE, "< $logfile";
while (<LOGFILE>) {
	chomp;
	($stamp,$dst,$src,$bytes,$pref) = split(/\s/);
	if ($stamp ge $stamp1 && $stamp le $stamp2 && $pref eq $prefix) {
		if ($dst eq $host) {
			$in += $bytes;
		}
		if ($src eq $host) {
			$out += $bytes;
		}
	}
}

close LOGFILE;
print "incoming: $in bytes\noutgoing: $out bytes\n";


формат лога "%t\t%s\t%d\t%b\е%f\n"

пример:

1173503528	10.1.1.1	10.1.1.2	1024	prefix1
1173503528	10.1.1.2	10.1.1.2	1024	prefix1
1173503528	10.1.1.1	10.1.1.2	1024	prefix1
1173503528	10.1.1.1	10.1.1.2	1024	prefix1
1173503528	10.1.1.2	10.1.1.2	1024	prefix1
1173503528	10.1.1.1	10.1.1.2	1024	prefix2
1173503528	10.1.1.1	10.1.1.2	1024	prefix1
1173503528	10.1.1.1	10.1.1.2	1024	prefix2
1173503528	10.1.1.1	10.1.1.2	1024	prefix2


$ perl sample.pl 10.03.2007 10.1.1.1 prefix1 test.log
incoming: 0 bytes
outgoing: 4096 bytes

если хочется чего побольше -- гляди сюда: http://sbilling.ru

писал на яве парсер логов по свободному формату, ориентировался на ulog, если надо - скину