REJIK

Код: Выделить всё

Скрипт блокирования за месяц:
-------------------------------------------
#!/usr/bin/perl
#

use File::Basename;
push (@INC,(fileparse($0))[1]);
 
require "lightsquid.cfg";
require "common.pl";
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;
$year=sprintf("%02d",$year+1900);
$month=sprintf("%02d",$mon+1);
 
$filter="$year$month";
 
@daylist=glob("$reportpath/$filter*");
 
foreach $daypath (sort @daylist) {
  open FF,"<$daypath/.total";
#  GetRealName($daypath,"?"); # init realname for day
  while (<FF>) {
    ($user,$size,$hit)=split;
    $h{$user}{size}+=$size;
    $h{$user}{hit}+=$hit;
  }  
  close FF;
}
 
  open FF,"</usr/local/squid/limit";
  while (<FF>) {
    ($user,$limit)=split;
    $tt{$user}{limit}=$limit;
  }  
  close FF;
 
    open FF,">","/usr/local/squid/blocked_users";
 
foreach $user (sort {$h{$b}{size}<=>$h{$a}{size}} keys     %h) {
    print FF ("$user\n") if ($h{$user}{size} > $tt{$user}{limit});
}
close FF;
 
exec '/usr/local/squid/sbin/squid -k reconfigure' 
--------------------------------------------------------------------

Запускается каждые 20 минут.

/usr/local/squid/limit
файл с именем и лимитом трафика

В сквиде есть ACL

acl bl_users proxy_auth_regex -i '/usr/local/squid/blocked_users'
http_access deny bl_users

Код: Выделить всё

work_id <логин>
work_id <f:/path/file>
Производить замены только для указанного логина (для тех, у кого пользователи авторизуются в squid по логину). Если нужно указать несколько логинов, то необходимо прописать несколько строчек с work_id, указав в каждой по одному логину. Также можно указать все логины в текстовом файле, по одной записи в строке, и задать work_id f:/этот_файл (f: - не диск, а флаг, означающий, что дальше идет путь к файлу).