Redirector

#!/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',
               'bizlink.ru/cgi-bin/irads.cgi?',
               'bizlink.ru/cgi-bin/cgiwrap/ar/irads.cgi?',
               'adv.stars.ru/cgi-bin/adv.pl',
               'banner.ricor.ru/cgi-bin/banner.pl?',
               'ad.doubleclick.net/adi?/',
               'ad.doubleclick.net/viewad/',
 'ad.doubleclick.net/click',
 'banner.chelcom.ru/user/select.cgi?',
 'flamingo.promote.ru/image.pl?',
 'banner.linkexchange.com/',
 'glasnet.ru/PHP/banners/extview.phtml?',
 'linkexchange.ru/cgi-bin/click.cgi?',
 'ad.bb.ru/bb.cgi?',
 'lbe.ru/cgi-bin/banner',
 'pics.rbc.ru/img/banpics/',
 'reklama.netskate.ru/banner.pl?',
 'reklama.netskate.ru:81/banner.pl?',
 'reklama.netskate.ru:82/banner.pl?',
 'banners.zhurnal.ru/cgi-bin/banner/468x60/',
 'rb.fep.ru/cgi-bin/banner/ng1?',
 'rb1.design.ru/cgi-bin/banner',
 'www.lbe.ru/cgi-bin/banner',
 'www.russianstory.com/cgi-rs/showme.cgi?',
 'banner.echo.com.ua/gf.dll?',
 'banner.topping.com.ua/cgi-bin/pbn_show.cgi?',
 'www.miklukho.cadabra.ru/cgi-bin/adsrc.cgi?',
 'reklama2.memonet.ru/show.pl?',
 '.lbn.ru/bb.cgi?',
 'ad.smi.bb.ru/bb.cgi?',
 'm.doubleclick.net/viewad',
 'rb.fep.ru/cgi-bin/banner/',
 'pics.rbc.ru/rbcmill/img/',
 'reklama.port.ru/banners',
 'rb2.design.ru/cgi-bin/banner/',
 'ben.aspads.net',
 'rotator.exler.ru',
 'ad.krutilka.ru',
 'ad.ir.ru/bb.cgi?',
 'ad.100.tbn.ru/bb.cgi?',
 'ad1.lbe.ru',
 '120.goodoo.ru/cgi-bin/banner/',
 'ad2.rambler.ru/ban.clk',
 'alpha.f2.ru/image.pl?',
 'ban.clk',
 'az.yandex.ru/bshow',
 'adv.dll',
 'images.slashdot.org/banner/',
 'rotabanner.kulichki.net/cgi-bin/banner/',
 '10e2.linkexchange.ru/cgi-bin/rle.cgi',
 'anekdotov.net/show/uhi/',
 'rbtest.dada.ru/cgi-bin/banner/',
 'hpc.ru/bans/',
 'xbn.ru/cgi-bin/banner/',
 'yandex.ru/count/',
 '195.54.209.142/cgi-bin/img?',
 'rotabanner.mos.ru/cgi-bin/banner/',
 'gameland.ru/code/ads/',
 'om.ru/adrot/banners/',
 'om.ru/adrot/ad.cgi',
 'banners.zhurnal.ru/cgi-bin/banner/',
 'www.ru/banner/',
 'ad.rambler.ru/ban.ban',
 'exec.osp.ru/BS/sb.php3',
 'adv.computerra.ru/cgi-bin/',
 'ad.computerra.ru/cgi/adcycle.cgi',
 'images.internet.com/ads/',
 'doubleclick.net/',
 'bn.ais.spb.ru/',
 'izrukvruki.ru/banners/',
 'vts.tass.ru/images/',
 'banners.rambler.ru',
 'ads.tucows.com',
 'osdn.com/banner/',
 'mediaplex.com/ad/bn/',
 'yimg.com/a/',
 'yandex.ru/yabs-stub/',
 'rotabanner.fep.ru',
 'chat.ru/_sys_img/',
 'cgi-bin/banner/',
 'banners.cm.ru/banner.asp',
 'bpath.com/gif.cfm',
 'banners.ru/cgi-bin/view.cgi',
 'anekdotov.net/show',
 'atas.ru/show/',
 'images.rambler.ru/upl/',
 'images.rambler.ru/advert/',
 'images.go2net.com/go2net/ads/',
 'ads-intf.algo.ru/adv.asp',
 'zdnet.ru:80/banners/images/',
 'zdnet.ru/banners/images/',
 'banner.list.ru/cgi-bin/img/',
 'bb.ru',
 'media.fastclick.net',
 'm2k.ru/cgi-bin/',
 'ad.computerra.ru/cgi/',
 'itc-ua.com/viewban.php',
 'itc-ua.com/vuho.php',
 'bx.metka.ru',
 'popular.ru/image/',
 'lib.ru/KARTINKI/krutilka/',
 'ixbt.com/cgi-bin/show.cgi',
 'nbe.net-on.net/bserve.cgi',
 'russiantimes.com/cgi-bin/ads/ads.pl',
 'ad.wyw.ru/cgi-bin/',
 'ad.bannerexchange.com',
         'translate.ru/images/banners',
 '204.198.135.79/RealMedia/ads',
 'banner.kiev.ua/cgi-bin',
 'lenta.ru:9000/krutilka',
 'anekdot.ru:8083/banner',
 'aifnet.ru/images/banners',
 'yadro.ru/cgi-bin/show',
 'anekdot.ru/reklama',
 'linuxtoday.com/RealMedia/ads/',
 'bs.yandex.ru',
 'xakep.ru/code/ads',
 'ad.tbn.ru/bb.cgi',
 'linux.ru/ads',
 'rek.m9.ru',
 'linux.org.ru/adv/',
 'r.mail.ru',
 'netvertising.com.ua/i.php',
 'ad.jobnet.agava.ru/bb.cgi',
 'banner.rosweb.ru',
 'professia.ru/img/ban',
 'job.ru/images/banners',
 'nnm.ru/b',
 'ad.adriver.ru',
 'by.ru/ad',
 'bannerbank.ru/bb.cgi',
 '194.186.36.172:8080',
 'acc.ru',
 '195.92.95.5/impression',
# 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',
         'index99.kiev.ua/cgi-bin/count',
 'counter.list.ru',
 '1000stars.ru/cgi-bin/',
 'spylog.com/cnt?',
 'top.list.ru/counter?',
 '195.34.34.80/counter',
 '194.67.23.251/counter',
 'counter.rambler.ru/top100.cnt?',
 '217.73.192.19/top100.cnt?',
 'hitbox.com/',
 'one.ru/cgi-bin/cnt.cgi?',
 'infoart.ru/cgi-bin/ihits/counter.cgi?',
 'omsknet.ru/resource/counting.asp',
 'ranker.ru/scripts/rcounter.dll',
 'kmindex.ru/cgi-bin/cgi2',
 'rating.km.ua/cgi-bin/counter',
 'counter.aport.ru/scripts/rcounter.dll',
 'top100.mafia.ru',
 'linux.ru.net/counter.ph',
 'counter.allhits.ru/counter?',
 'newmail.ru/cgi-bin/ucount.cgi',
 'bigmir.net/stat.php',
 'poseti.com/cgi-bin/sys/poseti.cgi',
 'counter.goldenurl.ru/cgi-bin/count.pl',
 'count.rbc.ru',
 'pocketpc.com.ua/cgi-bin/ppc/ppc.cgi',
 'yandex.ru/cycounter'
 );

while (<>) {
    ($url, $who, $ident, $method) = /^(S+) (S+) (S+) (S+)$/ ;
    $url = 'http://linuxnews.ru/images/1x1.gif'
if grep ($url=~/$_/i, @banners) ;
    print "$url $who $ident $method
" ;
}