Парсер Rsyslog для прокси Mikrotik

Для справки, webproxylogtomysql.php в Proxylizer довольно хорошо справляется с записью URL-запросов, доменов и HIT/MISS-запросов в Mysql через syslog-ng. Он поставляется с небольшим скриптом-оберткой для cron, который поддерживает его работу. Скрипт принимает вывод именованного канала, передаваемого через syslog-ng, и отправляет все данные в Mysql. Остальная часть Proxylizer (генерация отчетов, рассылка и т.д.) сейчас немного не работает, особенно если вы используете PHP5, так как там много устаревших компонентов (например, ereg и использование DB.php).

Хочу поделиться своим скриптом, который конвертирует файл rsyslog mkaccess.log в формат squid. mkaccess.log: без отладочной информации, только простой формат - одна запись на строку. Здесь нет размера (фейковый размер, 1024 на строку), нет IP адреса назначения (фейковый IP 8.8.8.8), только дата и время, локальный IP и URL. Вывод можно использовать в таких инструментах для Linux, как lightsquid и т.д. #!/usr/bin/perl -w
use Date::Parse;

$num_args = $#ARGV + 1;
if ($num_args != 1) {
   # mkaccess.log - файл syslog, удаленное логирование mikrotik.
   print "\nИспользуйте: ".$0." /путь/к/mkaccess.log\n";
   exit;
}

open (IN, "<".$ARGV[0]) || die $!;
while(<IN>){
   chomp;
   ($line)=join " ",(split / /)[1,0,2,3,4,5,6,7,8];
   $line =~ s/^\s+//gi;
   $line =~ s/(\s+)/ /gi;
   my($day,$mns,$time,$hname,$host,$method,$site,$access) = split('\s+', $line);
   ($date)=join " ",$day,$mns,$time;
   $dateepoch=str2time($date." +0200");
   if ($access eq 'action=allow') {
       $string=$dateepoch.".000 999 ".$host." TCP_MISS/200 1024 ".$method." ".$site." - DIRECT/8.8.8.8 text/html\n";
       print $string;
   }
}
close IN;