#!/usr/bin/perl
$ 0  = 'redirect' ;
$| =  1  ;

@banners    = ('reklama\.ru/cgi-bin/banner/',
               'anekdot\.ru/cgi-bin/banner/',
               'banner\.ru/cgi/sites/' ,
               'linkexchange\.ru/cgi-bin',
# price.ru
         'price\.ru/images/price/adv/',
         'engine\.awaps\.net/',
# counters
         'topping\.com\.ua/cgi-bin/ping\.cgi',
         'lstat\.susanin\.com/cgi-bin/lstat/lstat\.cgi',
         'a-counter\.kiev\.ua/cgi-bin/count',
         'statistic\.ru/perl/banner/banner\.pl',
# My
         );

while (<>) {
    ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ;
    $url = 'http://mail2.derzhava.com/zagl.png'
        if grep ($url=~/$_/i, @banners) ;
    print "$url $who $ident $method\n" ;
}

tetki.com
deffki.com
ukrfun.com
viagra.com
man.in
deja-vu.com
bigfun.com
escort.com
piazzo.net
ero.com
eroclub
fn.com.ua
bagira.net
fun.in
glance.net

#!/usr/bin/perl

$ 0  = 'redirect' ;
$| =  1  ;

open (IN_FILE, "/usr/local/my_doc_smb/squid/denied_ext.conf") || die $!;
my @tmp_data = <IN_FILE>;
chomp @tmp_data;
push @banners, map { qr /\Q$_\E/ }  grep { ! /^\s*$/ } @tmp_data;
close IN_FILE;

while (<>) {
    ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ;
    $url = 'http://mail2.derzhava.com/zagl.jpg'
        if grep ($url=~/$_/i, @banners) ;
    print "$url $who $ident $method\n" ;
}