ru.unix.bsd

 
 - RU.UNIX.BSD ------------------------------------------------------------------
 From : Vladimir. V. Tsel`m                  2:5020/400     30 Nov 2004  16:57:19
 To : All
 Subject : Squid redirector
 -------------------------------------------------------------------------------- 
 

 Тут у нас такая задачка возникла....
 Имеется FreeBSD 4.10, на ней squid 2.5.STABLE7 + redirector-банерорезка
 (перловый)
 возникла задача - для всех пользователей с IE обрезать графику наглухо
 как бы это осуществить?
 Редиректор:
 ------------------------------
 
 #!/usr/bin/perl
 $0 = 'redirector' ;
 $| = 1 ;
 
 $SITE = 'http://test.lc' ;
 $LOG = '/usr/local/squid/logs/redirect' ;
 $READABLE_TIME = 1 ;
 $LAZY_WRITE = 1 ;
 
 if ($LOG) {
   open LOG, ">> $LOG" ;
   unless ($LAZY_WRITE) { select LOG ; $| = 1 ; select STDOUT ; }
 }
   open LOG1, ">>/usr/local/squid/logs/redirect1 " ;
 @various    = qw (
 http://counter\.topping\.com
 a-counter
 11.bannerbank.ru
 list\.gif
 http://images\.rambler\.ru
 http://info-images\.rambler\.ru
 http://engine\.awaps\.net
 http://rb2\.
 http://rb\.
 yadro.ru
 \.lbe\.ru
 http://bs\.
 http://top\.
 http://u266\.
 http://pics\.
 http://telecom\.rle\.ru
 r.mail.ru
 blade3net.
 abn
 romance-net.com
 dateclix.com
 datingsites-exchange.com
 prostitutki
 hotlog.ru
 #opera.com
 c.bigmir.net
                 http://ad\.
                 http://ad1
                 http://ad2
                 http://ad3
                 http://ad4
                 http://ad5
                 http://ad6
                 http://ad7
                 http://ad8
                 http://ad9
                 http://ad0
                 http://adv
                 http://adn
                 www\.xbn\.ru
                  www\.linkexchange\.ru/cgi\-bin/e?rle\.cgi\?
                  msnbc\.ru/adv/banner\.pl\?                    #125x125
                  ) ;
 $various     = "$SITE/null.gif" ;
 
 while (<>) {
   ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ;
   $prev = $url ;
 if ($who=~/192\.168\.1\.51/g){
 printf LOG1 "$who\n";
   } else
   {
   $url = $various if grep $url =~ m%$_%, @various ;
 printf LOG1 "-- $who -- \n";
       print LOG time, " $who $prev > $url\n" ;
       print LOG  " $who $prev > $url\n" ;
 
   }
 if ($LOG and $url ne $prev) {
     if ($READABLE_TIME) {
       my ($sec, $min, $hour, $mday, $mon, $year) = localtime ;
       printf LOG "%2d.%02d.%2d %2d:%02d:%04d: %s\r\n",
              $mday, $mon + 1, $year + 1900, $hour, $min, $sec,
              " $who _ $prev > $url" ;
     } else {
  }
   }
 
   print "$url $who $ident $method\n" ;
 }
 
 close LOG if $LOG ;
 --- ifmail v.2.15dev5.3
  * Origin: Taide Network AS (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор