--- parse_iptraf.pl	2002/05/20 16:03:16	1.2
+++ parse_iptraf.pl	2002/05/20 16:31:01	1.3
@@ -13,7 +13,8 @@
 	TCP/80 TCP/110 TCP/113 TCP/119 UDP/137 UDP/138
 	TCP/210 TCP/443 UDP/514 );
 
-my $log = '/var/log/iptraf/tcp_udp_services-eth1.log';
+#my $log = '/var/log/iptraf/tcp_udp_services-eth1.log';
+my $log = '/home/dpavlin/iptraf/tcp_udp_services-eth1.log';
 
 open(LOG,$log) || die "Can't open logfile '$log': $!";
 
@@ -37,4 +38,13 @@
 
 foreach my $port (@PORTS) {
 	print @{$hash{$port}}[0] || 0,"\n",@{$hash{$port}}[1] || 0,"\n";
+	delete $hash{$port};
 }
+
+my ($sum_in,$sum_out) = (0,0);
+
+foreach my $port (keys %hash) {
+	$sum_in+=@{$hash{$port}}[0];
+	$sum_out+=@{$hash{$port}}[1];
+}
+print "$sum_in\n$sum_out\n";