13 |
TCP/80 TCP/110 TCP/113 TCP/119 UDP/137 UDP/138 |
TCP/80 TCP/110 TCP/113 TCP/119 UDP/137 UDP/138 |
14 |
TCP/210 TCP/443 UDP/514 ); |
TCP/210 TCP/443 UDP/514 ); |
15 |
|
|
16 |
my $log = '/var/log/iptraf/tcp_udp_services-eth1.log'; |
#my $log = '/var/log/iptraf/tcp_udp_services-eth1.log'; |
17 |
|
my $log = '/home/dpavlin/iptraf/tcp_udp_services-eth1.log'; |
18 |
|
|
19 |
open(LOG,$log) || die "Can't open logfile '$log': $!"; |
open(LOG,$log) || die "Can't open logfile '$log': $!"; |
20 |
|
|
38 |
|
|
39 |
foreach my $port (@PORTS) { |
foreach my $port (@PORTS) { |
40 |
print @{$hash{$port}}[0] || 0,"\n",@{$hash{$port}}[1] || 0,"\n"; |
print @{$hash{$port}}[0] || 0,"\n",@{$hash{$port}}[1] || 0,"\n"; |
41 |
|
delete $hash{$port}; |
42 |
} |
} |
43 |
|
|
44 |
|
my ($sum_in,$sum_out) = (0,0); |
45 |
|
|
46 |
|
foreach my $port (keys %hash) { |
47 |
|
$sum_in+=@{$hash{$port}}[0]; |
48 |
|
$sum_out+=@{$hash{$port}}[1]; |
49 |
|
} |
50 |
|
print "$sum_in\n$sum_out\n"; |