[squid 重定向器应用实例]我想通过SQUID R。A。P。E 用户的意向[问题已经解决]

fengyong

网关用OPENBSD+PF +SQUID 做了透明代理，所有用户访问外部80 都要通过SQUID，现在我想在代理上设置一下，让客户在我们公司上网时，第一次访打开任何网页，可以重定向到公司的主页，或直接用公司网站的内容来取代，让他们看看咱公司的主页，有没有办法？
－－－－－－－－－－－－－－－－－－－－－－－－－－
解决方法：
在squid.conf 加入下面代码

1. 
   
2. redirect_program /etc/pftable/red.pl
   
3. redirect_children 10
   
4. redirector_bypass on
   

复制代码

/etc/pftable/red.pl 内容如下

1. 
   
2. #!/usr/bin/perl -wl
   
3. #
   
4. use strict;
   
5. use DB_File;
   
6. $|=1;
   
7. use vars qw(%ip $uri);
   
8. my $db=tie %ip,"DB_File","/tmp/ip.db",O_CREAT|O_RDWR,0666;
   
9. while (<>){
   
10.         my ($client,$ident,$method)=();
    
11.         ($uri,$client,$ident,$method)=split;
    
12.          if (exists $ip{$client}){
    
13.                 next;
    
14.         }else{
    
15.                 $ip{$client}=1;
    
16.                 $db->sync;
    
17.                 $uri="301:[url]http://www.163.cn[/url]";
    
18.         }
    
19. }continue{
    
20.         print "$uri";
    
21. }
    
22. untie %ip;
    

复制代码

[ 本帖最后由 fengyong 于 2008-1-22 15:34 编辑 ]

fengyong

没人回复，自己顶一下。

badb0y

不过你的好像也有点复杂了!

fengyong

新版带缓存的程序

1. 
   
2. # cat /etc/pftable/red.pl                                                                                                        
   
3. #!/usr/bin/perl -w
   
4. # author fengyong 2008-01-22
   
5. use strict;
   
6. use DB_File;
   
7. use vars qw (%cache $uri $cachetime);
   
8. $|=1;
   
9. my $timeout=3600;#缓存超时时间
   
10. 
    
11. while (<>){
    
12.         my ($client,$ident,$method)=();
    
13.         ($uri,$client,$ident,$method)=split;
    
14.         if (check($client)){
    
15.                 next;
    
16.         }else{
    
17.                 save($client);
    
18.                 $uri="301:[url]http://www.xxxx.cn[/url]";
    
19.         }
    
20. }continue{
    
21.         print $uri;
    
22. }
    
23. sub check {
    
24.         my $client=shift;
    
25.         # init cache time
    
26.         my $time=time();
    
27.         if (!$cachetime){
    
28.                 $cachetime=$time+$timeout;
    
29.         }
    
30.         if ($time > $cachetime){
    
31.                 %cache=();
    
32.                 $cachetime=();
    
33.         }
    
34.         return 1 if $cache{$client};
    
35.         
    
36.         # reopen db
    
37.         my %ip=();
    
38.         tie %ip,"DB_File","/tmp/ip.db",O_CREAT|O_RDWR,0666;
    
39.         %cache=%ip; #hard copy?
    
40.         untie %ip;
    
41.         $cache{$client} ? 1:0;
    
42. }
    
43. sub save {
    
44.         my $client=shift;
    
45. 
    
46.         my %ip=();
    
47.         tie %ip,"DB_File","/tmp/ip.db",O_CREAT|O_RDWR,0666;
    
48.         $ip{$client}=1;
    
49.         untie %ip;
    
50. }
    

复制代码

[ 本帖最后由 fengyong 于 2008-1-22 16:09 编辑 ]

SunGod

BZ加个精吧

ryuutizen

LZ你好，我是在windows下想实现跟你一样的效果
但是启动后好像squid不能执行perl程序

redirect_program /etc/pftable/red.pl
不知道windows下应该怎么调用外部程序