forum.lissyara.su

Код: Выделить всё

#!/usr/local/bin/perl

use DBI;
use DateTime;
#########################################
###---------- Variables
#########################################
$logpipe = '/usr/local/squid/logs/access.log.pipe';
$logfile = '/usr/local/squid/logs/access.log';
$dbhost = 'xxx';
$dbuser = 'xxx';
$dbpw = 'xxx';
$dbname = 'traflog';

########################################

while()
{
# Open connection
$dbh = DBI->connect("DBI:mysql:database=".$dbname.";host=".$dbhost,$dbuser,$dbpw) or die "Ne mogu connect to mysql".$DBI::errstr;
open(SQUIDLOG, "<$logpipe") || die "OMG, Ne mogu otkrit' $logpipe";
while(<SQUIDLOG>)
{
        open(SQLOG, ">>$logfile") || die "Omg Wtf ne mogu open $logfile";
        print SQLOG $_."\n";
        close(SQLOG);
        print "Processing \n".$_;
        ($time,$elapsed,$ip,$codestatus,$bytes,$method,$url,$user,$peerstatus,$contenttype) = split();
        $dt = DateTime->from_epoch(epoch => $time);
        print "time = ".$dt."\n";
        $query = "insert into squidlog values('".$dt."','".$elapsed."','".$ip."','".$codestatus."','".$bytes."','".$method."','".$url."','".$user."','".$peerstatus."','".$contenttype."')";
        $result = $dbh->prepare($query) or die "Kakaya to hrenota".$DBI::errstr;
        $result->execute() or die "Omg Wtf ppc".$DBI::errstr;
}
close(SQUIDLOG);
$dbh->disconnect;
sleep 10;
print "--------------------------\nStarting Next Loop \n------------------------\n";
}