пингвин заместо баннеров :)

squid.opennet.ru

#!/usr/bin/perl

$0 = 'redirector' ;

$| = 1 ;

$SITE = 'http://zulu.rusbiz.com/images' ;
$LOG = '/var/log/squid/redirect' ;
$READABLE_TIME = 0 ;
$LAZY_WRITE = 1 ;

if ($LOG) {
  open LOG, ">> $LOG" ;
  unless ($LAZY_WRITE) { select LOG ; $| = 1 ; select STDOUT ; }
}

@banner     = qw (
                 sj\d\.lenta\.ru
                 r\.mail\.ru/
                 http://www\.linux\.org\.ru/adv/
                 http://grani\.ru/ushi/
                 ) ;

$replace     = "$SITE/replace.gif" ;
$closewindow = "$SITE/close.html" ;
$text        = "$SITE/text.js" ;

while (<>) {
  ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ;
  $prev = $url ;

  $url = $replace if grep $url =~ m%$_%, @banner ;

  if ($LOG and $url ne $prev) {
      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" ;
  }

  print "$url $who $ident $method\n" ;
}

close LOG if $LOG ;