--- parse_iptraf.pl	2002/05/20 16:31:01	1.3
+++ parse_iptraf.pl	2002/05/20 17:25:52	1.4
@@ -6,18 +6,34 @@
 use strict;
 use warnings;
 
-use Time::Local;
-
 my @PORTS = qw (
 	TCP/22 TCP/25 TCP/20 TCP/21 UDP/53
 	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 = '/home/dpavlin/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';
+
+$log = $ARGV[0] if ($ARGV[0] && -r $ARGV[0]);
 
 open(LOG,$log) || die "Can't open logfile '$log': $!";
 
+my $delta="/var/tmp/";
+my $tmp_log=$log;
+$tmp_log=~s/\W/_/g;
+$delta.=$tmp_log.".offset";
+
+if (-e $delta) {
+	open(D,$delta) || die "can't open delta file '$delta' for log '$log': $!";
+	my $offset=<D>;
+	chomp $offset;
+	close(D);
+	my $log_size = -s $log;
+	if ($offset <= $log_size) {
+		seek(LOG,$offset,0);
+	}
+}
+
 my %hash;
 
 while (<LOG>) {
@@ -34,6 +50,10 @@
 	}
 }
 
+open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!";
+print D tell(LOG);
+close(D);
+
 close(LOG);
 
 foreach my $port (@PORTS) {