#!/usr/bin/perl 

use POSIX qw(strftime);
$| = 1 ;



$poisk="/usr/local/etc/porno"; # список слов плохих выражений в поисковых машинах эдакий SAFE ха-ха ;-))

$html="http://192.168.4.1/safeinternet.html";# страничка, запрета доступа 

# Читаем список слов для подмены плохих выражений в поиске
if (-e "$poisk")
{open (POISK,"$poisk") or die;
 chomp(@poisk=<POISK>);
  close (POISK);}
  
  
  # Цикл редиректа собственной персоной
  #print"Начало редиректинга .... \n";
  while(chomp($url=<>)) # запись данных переданных Squid в переменную $url
  { # скобка начала редиректа
   @mass = split(/ /, $url); # разделение строки на 4 части и запись её в массив
    $url=$mass[0];
     $ip=$mass[1];
      $ident=$mass[2];
       $met=$mass[3];
        
         $find=$url;
         
          #________________________________автоопределение utf кодировки в словах с длиной от 3 букв включительно.
          if($find=~/%D0%(..)%D0%(..)%D0%(..)/){& Utf8;}
          elsif($find=~/%D0%(..)%D0%(..)%D1%(..)/){& Utf8;}
          elsif($find=~/%D0%(..)%D1%(..)%D1%(..)/){& Utf8;}
          elsif($find=~/%D1%(..)%D1%(..)%D1%(..)/){& Utf8;}
          elsif($find=~/%D0%(..)%D1%(..)%D0%(..)/){& Utf8;}
          elsif($find=~/%D1%(..)%D1%(..)%D0%(..)/){& Utf8;}
          elsif($find=~/%D1%(..)%D0%(..)%D0%(..)/){& Utf8;}
          elsif($find=~/%D1%(..)%D0%(..)%D1%(..)/){& Utf8;}
          elsif($find=~/%D1%(..)%D1%(..)%D1%(..)/){& Utf8;}
          else{& Win1251;}

          $find=~s/%20/ /g;                                                                                       
          $find=~s/\+/ /g;                                                                                        
          use encoding 'utf8';                                                                                    
          $find = lc($find);

          for($i=0;$i<scalar(@poisk);$i++){
          if($find=~/$poisk[$i]/)
          {
          $url=$html;
          }
          }
               
                
                # отправляем адрес squid
                print ("$url $ip $ident $met\n")
                }
                
                sub Win1251 {
                #__Преобразование кодировки WIN1251_
                $find=~s/%E0/а/g;$find=~s/%E1/б/g;$find=~s/%E2/в/g;$find=~s/%E3/г/g;$find=~s/%E4/д/g;$find=~s/%E5/е/g;
                $find=~s/%B8/ё/g;$find=~s/%E6/ж/g;$find=~s/%E7/з/g;$find=~s/%E8/и/g;$find=~s/%E9/й/g;$find=~s/%EA/к/g;
                $find=~s/%EB/л/g;$find=~s/%EC/м/g;$find=~s/%ED/н/g;$find=~s/%EE/о/g;$find=~s/%EF/п/g;$find=~s/%F0/р/g;
                $find=~s/%F1/с/g;$find=~s/%F2/т/g;$find=~s/%F3/у/g;$find=~s/%F4/ф/g;$find=~s/%F5/х/g;$find=~s/%F6/ц/g;
                $find=~s/%F7/ч/g;$find=~s/%F8/ш/g;$find=~s/%F9/щ/g;$find=~s/%FA/ъ/g;$find=~s/%FB/ы/g;$find=~s/%FC/ь/g;
                $find=~s/%FD/э/g;$find=~s/%FE/ю/g;$find=~s/%FF/я/g;$find=~s/%C0/а/g;$find=~s/%C1/б/g;$find=~s/%C2/в/g;
                $find=~s/%C3/г/g;$find=~s/%C4/д/g;$find=~s/%C5/е/g;$find=~s/%A8/ё/g;$find=~s/%C6/ж/g;$find=~s/%C7/з/g;
                $find=~s/%C8/и/g;$find=~s/%C9/й/g;$find=~s/%CA/к/g;$find=~s/%CB/л/g;$find=~s/%CC/м/g;$find=~s/%CD/н/g;
                $find=~s/%CE/о/g;$find=~s/%CF/п/g;$find=~s/%D0/р/g;$find=~s/%D1/с/g;$find=~s/%D2/т/g;$find=~s/%D3/у/g;
                $find=~s/%D4/ф/g;$find=~s/%D5/х/g;$find=~s/%D6/ц/g;$find=~s/%D7/ч/g;$find=~s/%D8/ш/g;$find=~s/%D9/щ/g;
                $find=~s/%DA/ъ/g;$find=~s/%DB/ы/g;$find=~s/%DC/ь/g;$find=~s/%DD/э/g;$find=~s/%DE/ю/g;$find=~s/%DF/я/g;
                }
                
                sub Utf8 {
                $find=~s/%D0%90/а/g;$find=~s/%D0%91/б/g;$find=~s/%D0%92/в/g;$find=~s/%D0%93/г/g;$find=~s/%D0%94/д/g;
                $find=~s/%D0%95/е/g;$find=~s/%D0%81/ё/g;$find=~s/%D0%96/ж/g;$find=~s/%D0%97/з/g;$find=~s/%D0%98/и/g;
                $find=~s/%D0%99/й/g;$find=~s/%D0%9A/к/g;$find=~s/%D0%9B/л/g;$find=~s/%D0%9C/м/g;$find=~s/%D0%9D/н/g;
                $find=~s/%D0%9E/о/g;$find=~s/%D0%9F/п/g;$find=~s/%D0%A0/р/g;$find=~s/%D0%A1/с/g;$find=~s/%D0%A2/т/g;
                $find=~s/%D0%A3/у/g;$find=~s/%D0%A4/ф/g;$find=~s/%D0%A5/х/g;$find=~s/%D0%A6/ц/g;$find=~s/%D0%A7/ч/g;
                $find=~s/%D0%A8/ш/g;$find=~s/%D0%A9/щ/g;$find=~s/%D0%AA/ъ/g;$find=~s/%D0%AB/ы/g;$find=~s/%D0%AC/ь/g;
                $find=~s/%D0%AD/э/g;$find=~s/%D0%AE/ю/g;$find=~s/%D0%AF/я/g;$find=~s/%D0%B0/а/g;$find=~s/%D0%B1/б/g;
                $find=~s/%D0%B2/в/g;$find=~s/%D0%B3/г/g;$find=~s/%D0%B4/д/g;$find=~s/%D0%B5/е/g;$find=~s/%D1%91/ё/g;
                $find=~s/%D0%B6/ж/g;$find=~s/%D0%B7/з/g;$find=~s/%D0%B8/и/g;$find=~s/%D0%B9/й/g;$find=~s/%D0%BA/к/g;
                $find=~s/%D0%BB/л/g;$find=~s/%D0%BC/м/g;$find=~s/%D0%BD/н/g;$find=~s/%D0%BE/о/g;$find=~s/%D0%BF/п/g;
                $find=~s/%D1%80/р/g;$find=~s/%D1%81/с/g;$find=~s/%D1%82/т/g;$find=~s/%D1%83/у/g;$find=~s/%D1%84/ф/g;
                $find=~s/%D1%85/х/g;$find=~s/%D1%86/ц/g;$find=~s/%D1%87/ч/g;$find=~s/%D1%88/ш/g;$find=~s/%D1%89/щ/g;
                $find=~s/%D1%8A/ъ/g;$find=~s/%D1%8B/ы/g;$find=~s/%D1%8C/ь/g;$find=~s/%D1%8D/э/g;$find=~s/%D1%8E/ю/g;
                $find=~s/%D1%8F/я/g;
                }