/[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.3 by dpavlin, Mon May 20 16:31:01 2002 UTC revision 1.4 by dpavlin, Mon May 20 17:25:52 2002 UTC
# Line 6  Line 6 
6  use strict;  use strict;
7  use warnings;  use warnings;
8    
 use Time::Local;  
   
9  my @PORTS = qw (  my @PORTS = qw (
10          TCP/22 TCP/25 TCP/20 TCP/21 UDP/53          TCP/22 TCP/25 TCP/20 TCP/21 UDP/53
11          TCP/80 TCP/110 TCP/113 TCP/119 UDP/137 UDP/138          TCP/80 TCP/110 TCP/113 TCP/119 UDP/137 UDP/138
12          TCP/210 TCP/443 UDP/514 );          TCP/210 TCP/443 UDP/514 );
13    
14  #my $log = '/var/log/iptraf/tcp_udp_services-eth1.log';  my $log = '/var/log/iptraf/tcp_udp_services-eth1.log';
15  my $log = '/home/dpavlin/iptraf/tcp_udp_services-eth1.log';  #my $log = '/home/dpavlin/iptraf/tcp_udp_services-eth1.log';
16    
17    $log = $ARGV[0] if ($ARGV[0] && -r $ARGV[0]);
18    
19  open(LOG,$log) || die "Can't open logfile '$log': $!";  open(LOG,$log) || die "Can't open logfile '$log': $!";
20    
21    my $delta="/var/tmp/";
22    my $tmp_log=$log;
23    $tmp_log=~s/\W/_/g;
24    $delta.=$tmp_log.".offset";
25    
26    if (-e $delta) {
27            open(D,$delta) || die "can't open delta file '$delta' for log '$log': $!";
28            my $offset=<D>;
29            chomp $offset;
30            close(D);
31            my $log_size = -s $log;
32            if ($offset <= $log_size) {
33                    seek(LOG,$offset,0);
34            }
35    }
36    
37  my %hash;  my %hash;
38    
39  while (<LOG>) {  while (<LOG>) {
# Line 34  while (<LOG>) { Line 50  while (<LOG>) {
50          }          }
51  }  }
52    
53    open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!";
54    print D tell(LOG);
55    close(D);
56    
57  close(LOG);  close(LOG);
58    
59  foreach my $port (@PORTS) {  foreach my $port (@PORTS) {

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

  ViewVC Help
Powered by ViewVC 1.1.26