Ticket #2180: update_logdb_apache

#!/usr/bin/perl

#Capture the content of logdb file
my %logdb;
$rs = open (LOGDB,'+<',"/var/log/ispcp/logdb");
        while (<LOGDB>) {
                my ($logdb_key,$logdb_val) = split(' ',$_);
                $logdb{$logdb_key} = $logdb_val;
        }


#We are only taking care of http entries this time
delete $logdb{"mail.log"};
delete $logdb{"proftpd/ftp_traff.log"};

# for each element on the hash compare the real position with the logdb entry
while ( ($k,$v) = each %logdb ) {
    my $pos = 0;
    my $file = "/var/log/apache2/" . $k;
    $rs = open(LOGFILE,'<',$file);
    seek(LOGFILE,0,0);
    while (<LOGFILE>) {
        $pos = tell(LOGFILE) if (eof(LOGFILE));
        }
    close(LOGFILE);
    if ($v > $pos)
        {
        $v = $pos;
        }
        $logdb{$k}=$v;
}
close(LOGDB);

my $new_file = "/tmp/new_logdb";
system ("cat /var/log/ispcp/logdb | grep mail.log > $new_file");
system ("cat /var/log/ispcp/logdb | grep proftpd  >> $new_file");
$rs = open (NEWLOGDB,'>>',$new_file);
foreach my $logdb_key (keys %logdb) {
        print NEWLOGDB "$logdb_key $logdb{$logdb_key}\n";
}
close (NEWLOGDB);

system ("cp /var/log/ispcp/logdb /tmp/logdb.old");
system ("cp /tmp/new_logdb /var/log/ispcp/logdb");