config/urlfilter/redirect_wrapper

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
   6 #                                                                             #
   7 # This program is free software: you can redistribute it and/or modify        #
   8 # it under the terms of the GNU General Public License as published by        #
   9 # the Free Software Foundation, either version 3 of the License, or           #
  10 # (at your option) any later version.                                         #
  11 #                                                                             #
  12 # This program is distributed in the hope that it will be useful,             #
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  15 # GNU General Public License for more details.                                #
  16 #                                                                             #
  17 # You should have received a copy of the GNU General Public License           #
  18 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  19 #                                                                             #
  20 # Based on Steffen Schoch (sschoch@users.sourceforge.net)                     #
  21 #                                                                             #
  22 ###############################################################################
  23
  24 use strict;
  25 use IPC::Open2;
  26 use IO::Handle;
  27
  28 # define here your redirectors (use a comma sperated list)
  29 my $redirectors = [ '/usr/bin/squidGuard', '/usr/sbin/updxlrator' ];
  30
  31 require '/var/ipfire/general-functions.pl';
  32
  33 my %proxysettings=();
  34 &General::readhash("${General::swroot}/proxy/settings", \%proxysettings);
  35
  36 # define here your redirectors (use a comma sperated list)
  37 if ( $proxysettings{'ENABLE_FILTER'} eq 'on' && $proxysettings{'ENABLE_CLAMAV'} eq 'on' && $proxysettings{'ENABLE_UPDXLRATOR'} eq 'on' ){my $redirectors = [ '/usr/bin/squidGuard', '/usr/bin/squidclamav', '/usr/sbin/updxlrator' ];}
  38 if ( $proxysettings{'ENABLE_FILTER'} eq 'on' && $proxysettings{'ENABLE_CLAMAV'} eq 'on' && $proxysettings{'ENABLE_UPDXLRATOR'} eq 'off' ){my $redirectors = [ '/usr/bin/squidGuard', '/usr/bin/squidclamav' ];}
  39 if ( $proxysettings{'ENABLE_FILTER'} eq 'on' && $proxysettings{'ENABLE_CLAMAV'} eq 'off' && $proxysettings{'ENABLE_UPDXLRATOR'} eq 'on' ){my $redirectors = [ '/usr/bin/squidGuard', '/usr/sbin/updxlrator' ];}
  40 if ( $proxysettings{'ENABLE_FILTER'} eq 'on' && $proxysettings{'ENABLE_CLAMAV'} eq 'off' && $proxysettings{'ENABLE_UPDXLRATOR'} eq 'off' ){my $redirectors = [ '/usr/bin/squidGuard' ];}
  41 if ( $proxysettings{'ENABLE_FILTER'} eq 'off' && $proxysettings{'ENABLE_CLAMAV'} eq 'on' && $proxysettings{'ENABLE_UPDXLRATOR'} eq 'on' ){my $redirectors = [ '/usr/bin/squidclamav', '/usr/sbin/updxlrator' ];}
  42 if ( $proxysettings{'ENABLE_FILTER'} eq 'off' && $proxysettings{'ENABLE_CLAMAV'} eq 'on' && $proxysettings{'ENABLE_UPDXLRATOR'} eq 'off' ){my $redirectors = [ '/usr/bin/squidclamav' ];}
  43 if ( $proxysettings{'ENABLE_FILTER'} eq 'off' && $proxysettings{'ENABLE_CLAMAV'} eq 'off' && $proxysettings{'ENABLE_UPDXLRATOR'} eq 'on' ){my $redirectors = [ '/usr/sbin/updxlrator' ];}
  44
  45 # Attention: keep in mind that the order of your redirectors is important.
  46 # It doesn't make sense to scan for viruses on pages you restrict access to...
  47 # So place first your tools which restrict access, then the tools which do the
  48 # content filtering!
  49
  50
  51 ##### no need to change anything below this line #####
  52
  53 # init
  54 $| = 1;
  55 STDOUT->autoflush(1);
  56 my $line;
  57 my $return;
  58 my $i;
  59 my $debug=0; # enable only for debugging
  60
  61 # open progamms
  62 my $pidlist = [];
  63 my $rlist = [];
  64 my $wlist = [];
  65 for($i = 0; $i < @$redirectors; $i++) {
  66         $pidlist->[$i] = open2($rlist->[$i], $wlist->[$i], $redirectors->[$i]);
  67 }
  68
  69 # wait for data...
  70 while($line = <>) {
  71         for($i = 0; $i < @$redirectors; $i++) {
  72                 $wlist->[$i]->print($line);
  73                 $return = $rlist->[$i]->getline;
  74                 last if($return ne "\n" and $return ne $line);
  75                                                                 # break if redirector changes data
  76         }
  77         print $return;
  78
  79                                 if ($debug){
  80                  chomp $line;
  81                  chomp $return;
  82                  if ( $line ne $return ){
  83                  open(DATEI, ">>/var/log/squid/redirector_debug") || die "Unable to acces file /var/log/redirector_debug";
  84                                          print DATEI "Requested ".$line."\nAnswer    ".$return."\n";
  85                                          close(DATEI);
  86                                          }
  87                                 }
  88 }
  89 exit 0;