Integrated logging facility to redirector now warning

[ipfire-2.x.git] / config / urlfilter / redirect_wrapper

diff --git a/config/urlfilter/redirect_wrapper b/config/urlfilter/redirect_wrapper
index c9636fcf659f8c080cf0312e2c00889ea1a49704..4e39460e3104ab6afb697b7c5bda3b967b97681a 100644 (file)
--- a/config/urlfilter/redirect_wrapper
+++ b/config/urlfilter/redirect_wrapper
@@ -62,9 +62,9 @@ my $i;
 my $debug=0; # enable only for debugging
 
 if ($debug){
-        print "Urlfilter = ".$proxysettings{'ENABLE_FILTER'}."\n";
-        print "Clamav = ".$proxysettings{'ENABLE_CLAMAV'}."\n";
-        print "Updxlrator = ".$proxysettings{'ENABLE_UPDXLRATOR'}."\n";
+       writetolog("Urlfilter = ".$proxysettings{'ENABLE_FILTER'});
+       writetolog("Clamav = ".$proxysettings{'ENABLE_CLAMAV'});
+       writetolog("Updxlrator = ".$proxysettings{'ENABLE_UPDXLRATOR'});
         }
 
 # open progamms
@@ -72,7 +72,7 @@ my $pidlist = [];
 my $rlist = [];
 my $wlist = [];
 for($i = 0; $i < @$redirectors; $i++) {
-                        if ($debug){print "Current redirector is ".$redirectors->[$i]."\n";}
+                        if ($debug){writetolog("Current redirector is ".$redirectors->[$i]);}
                         $pidlist->[$i] = open2($rlist->[$i], $wlist->[$i], $redirectors->[$i]);
 }
 
@@ -82,18 +82,27 @@ while($line = <>) {
                 $wlist->[$i]->print($line);
                 $return = $rlist->[$i]->getline;
                 last if($return ne "\n" and $return ne $line);
-                                                               # break if redirector changes data
+               # break if redirector changes data
+               if ( $return eq "Processing file and database" ){
+                       writetolog("Emergency - squidGuard not initialised please run squidGuard -C all");
+                       last;
+               }
         }
         print $return;
 
-                               if ($debug){
-                chomp $line;
-                chomp $return;
-                if ( $line ne $return ){
-                open(DATEI, ">>/var/log/squid/redirector_debug") || die "Unable to acces file /var/log/redirector_debug";
-                                        print DATEI "Requested ".$line."\nAnswer    ".$return."\n";
-                                        close(DATEI);
-                                        }
-                               }
+               if ($debug){
+                        chomp $line;
+                        chomp $return;
+                        if ( $line ne $return ){
+                                writetolog("Requested ".$line."\nAnswer    ".$return);
+                        }
+               }
 }
 exit 0;
+
+sub writetolog {
+       my $log = shift;
+       open(DATEI, ">>/var/log/squid/redirector_debug") || die "Unable to acces file /var/log/redirector_debug";
+       print DATEI $log."\n";
+       close(DATEI);
+}