вот она, я ее переделал с проги, к-ую нашел в инете, там формат логов был другой и интерфейс с postgre старенький
есть, понятно, еще и вторая часть, к-ая блокировкой занимается, но она отношения к теме не имеет
самую суть я звездочками выделил
#!/usr/bin/perl
use strict;
use DBI;
my ($remotehost,$rfc931,$authuser,$date,$request,$status,$bytes,$resultcode);
my ($sql, $type1, $type2);
my $dbh = DBI->connect("dbi:Pg:dbname=squid;host=localhost","","",
{PrintError => 0});
if ((defined $DBI::err) and ($DBI::err !=0)){
print $DBI::errstr."\n";
exit($DBI::err);
}
# Open squid log file generated by `squid -k rotate`
open (FILE, "/var/log/squid/access.log") or die;
while(<FILE>) {
m/^(\S+)\s(\S+)\s(\S+)\s\[(\S+\s).+?\]\s\"(.+?)\"\s(\d+?)\s(\d+?)\s(\S+)$/;
$remotehost = $1; # address of the remote host
$rfc931 = $2; # remote logname of the user
$authuser = $3; # the username as which the user has authenticated himself
$date = $4; # date and time of the request
$request = $5; # the request line exactly as it came from the client
$status = $6; # the HTTP status code returned to the client
$bytes = $7; # the content-length of the document transferred
$resultcode = $8; # hierarchy code
$request =~ s/ICP_QUERY/GET/;
$request =~ s/\'//g;
($type1,$type2) = split (/:/,$resultcode);
*********************************************************************
if ((($type1 eq 'TCP_MISS') or ($type1 eq 'TCP_REFRESH_MISS')
or ($type1 eq 'TCP_CLIENT_REFRESH_MISS')) and ($request =~ /^GET/)
and ($type2 ne 'NONE') and ($bytes != 0)) {
*********************************************************************
$sql = "INSERT INTO squid VALUES ('$date','$remotehost','$bytes','$request','$rfc931')";
&sqlexec ($sql,$dbh);
}
}
close (FILE);
# delete temporary data in
# ip_clients and auth_clients tables
$sql = "delete from access_auth"; &sqlexec ($sql,$dbh);
$sql = "delete from access_ip"; &sqlexec ($sql,$dbh);
# fill in data of downloaded sizes
$sql = "INSERT INTO access_auth SELECT ident, sum(size) FROM squid WHERE ident <> '-' GROUP BY ident";
&sqlexec ($sql,$dbh);
$sql = "INSERT INTO access_ip SELECT host, sum(size) FROM squid WHERE ident = '-' GROUP BY host";
&sqlexec ($sql,$dbh);
exit;
# -----------------------------------------------------------
sub sqlexec {
my ($sql,$dbh)=@_;
my $sth = $dbh->prepare($sql);
my $rv = $sth->execute();
if(!defined $rv) {
print "Error while $sql\n";
print $dbh->errstr."\n";
exit;
}
}
Вариант для распечатки
Настройка Squid и других прокси серверов (Public)
on
10-Мрт-04, 13:52 (MSK)
