/[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

Annotation of /parse_iptraf.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Mon May 20 16:03:16 2002 UTC (21 years, 10 months ago) by dpavlin
Branch: MAIN
Changes since 1.1: +1 -2 lines
File MIME type: text/plain
real log location

1 dpavlin 1.1 #!/usr/bin/perl
2    
3     # based on work of Eric Wong <eric@taedium.net>
4     # available at http://www.taedium.net/rrd-iptraf/ [iptraf.txt]
5    
6     use strict;
7     use warnings;
8    
9     use Time::Local;
10    
11     my @PORTS = qw (
12     TCP/22 TCP/25 TCP/20 TCP/21 UDP/53
13     TCP/80 TCP/110 TCP/113 TCP/119 UDP/137 UDP/138
14     TCP/210 TCP/443 UDP/514 );
15    
16 dpavlin 1.2 my $log = '/var/log/iptraf/tcp_udp_services-eth1.log';
17 dpavlin 1.1
18     open(LOG,$log) || die "Can't open logfile '$log': $!";
19    
20     my %hash;
21    
22     while (<LOG>) {
23     chomp;
24     last if ( m/^Running/ );
25     next if ( m/^\s*$/ );
26    
27     ## read data for tcp packets
28     if (my ($port) = $_ =~ m/^(\w+\/\d+)/) {
29     my ($packs, $bytes, $pack_in, $byte_in, $pack_out, $byte_out) =
30     $_ =~ m/\s(\d+)\s/g;
31    
32     $hash{$port} = [$byte_in, $byte_out];
33     }
34     }
35    
36     close(LOG);
37    
38     foreach my $port (@PORTS) {
39     print @{$hash{$port}}[0] || 0,"\n",@{$hash{$port}}[1] || 0,"\n";
40     }

  ViewVC Help
Powered by ViewVC 1.1.26