/[cricket]/parse_iptraf.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /parse_iptraf.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Mon May 20 16:03:16 2002 UTC revision 1.3 by dpavlin, Mon May 20 16:31:01 2002 UTC
# Line 13  my @PORTS = qw ( Line 13  my @PORTS = qw (
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    
# Line 37  close(LOG); Line 38  close(LOG);
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";

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.26