From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <maxim.savrilov@socenter.ru>
Date: Fri, 14 Mar 2003 17:05:53 +0600
From: Maxim.Savrilov@socenter.ru
To: community@altlinux.ru
Subject: Re: [Comm] SQUID
Message-Id: <20030314170553.5ff02745.Maxim.Savrilov@socenter.ru>
In-Reply-To: <7915883048.20030314134624@narod.ru>
References: <7915883048.20030314134624@narod.ru>
X-Mailer: Sylpheed version 0.8.8 (GTK+ 1.2.10; i586-alt-linux-gnu)
Mime-Version: 1.0
Content-Type: text/plain; charset=KOI8-R
Content-Transfer-Encoding: 8bit
Sender: community-admin@altlinux.ru
Errors-To: community-admin@altlinux.ru
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.0.9
Precedence: bulk
Reply-To: community@altlinux.ru
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Id: <community.altlinux.ru>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
List-Archive: <http://www.altlinux.ru/pipermail/community/>
Archived-At: <http://lore.altlinux.org/community/20030314170553.5ff02745.Maxim.Savrilov@socenter.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

On Fri, 14 Mar 2003 13:46:24 +0300
Oleg <wacom@narod.ru> wrote:

> Hello community,
> 
>   Можно ли заставить squid
>   не просто вырезать баннеры,
>   а подставлять на их место какую-нибудь свою картинку?
> 
./etc/squid/squid.conf
redirect_program /etc/squid/redirector


./etc/squid/redirector
#!/usr/bin/perl                                                                                   
                                                                                                  
$0 = 'redirector' ;                                                                               
                                                                                                  
$| = 1 ;                                                                                          
                                                                                                  
$SITE = 'http://localhost/banners' ;                                                  

@b    = qw (                                                                                
                 reklama\.ru/cgi\-bin/banner/
...
 ) ;

$b_     = "$SITE/468x60.gif" ;
while (<>) {                                                                                      
  ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ;                                   

   $url = $b_ if grep $url =~ m%$_%, @b ;                                                                                            
  print "$url $who $ident $method\n" ;                                                            
}                                                                                                 


Вот типа если совсем просто
Лучше, конечно на С
но принцип понятен