--- squidGuard-1.4/samples/squidGuard.cgi.in 2008-12-23 22:08:35.000000000 +0100 +++ squidGuard-1.4-patch-20150201/squidGuard.cgi 2015-02-01 19:43:27.000000000 +0100 @@ -1,4 +1,4 @@ -#! @PERL@ -w +#! /usr/bin/perl -w # # Explain to the user that the URL is blocked and by which rule set # @@ -6,7 +6,8 @@ # French texts thanks to Fabrice Prigent (fabrice.prigent@univ-tlse1.fr) # Dutch texts thanks to Anneke Sicherer-Roetman (sicherer@sichemsoft.nl) # German texts thanks to Buergernetz Pfaffenhofen (http://www.bn-paf.de/filter/) -# Spanish texts thanks to Samuel García). +# Spanish texts thanks to Samuel García. +# Russian texts thanks to Vladimir Ipatov. # Rewrite by Christine Kronberg, 2008, to enable an easier integration of # other languages. # @@ -57,21 +58,22 @@ # # CONFIGURABLE OPTIONS: # -# (Currently: "en", "fr", "de", "es", "nl", "no") +# (Currently: "en", "fr", "de", "es", "nl", "no", "ru") @supported = ( "en (English), ", - "fr (Français), ", + "fr (Français), ", "de (Deutsch), ", - "es (Español), ", + "es (Español), ", "nl (Nederlands), ", - "no (Norsk)." + "no (Norsk), ", + "ru (Russian)." ); # # Modifiy the values below to reflect you environment # The image you define with "$image" and redirect will be displayed if the unappropriate # url is of the type: gif, jpg, jpeg, png, mp3, mpg, mpeg, avi or mov. # -$image = "/images/blocked.gif"; # RELATIVE TO DOCUMENT_ROOT +$image = "/Logos/md5.png"; # RELATIVE TO DOCUMENT_ROOT $redirect = "http://admin.your-domain/images/blocked.gif"; # "" TO AVOID REDIRECTION $proxy = "proxy.your-domain"; # Your proxy server $proxymaster = "operator\@your-domain"; # The email of your proxy adminstrator @@ -142,7 +144,7 @@ } # -# PRINT HTTP STATUS HEARER: +# PRINT HTTP STATUS HEADER: # sub status($) { my $status = shift; @@ -150,7 +152,7 @@ } # -# PRINT HTTP LOCATION HEARER: +# PRINT HTTP LOCATION HEADER: # sub redirect($) { my $location = shift; @@ -249,7 +251,7 @@ status("404 Not Found"); } if (@names) { - print "Content-type: text/html\n\n"; + print "Content-type: text/html\n\n\n"; print "\n"; print "\n"; print "$Babel{Title}\n"; @@ -317,9 +319,12 @@ showinaddr($targetgroup,$protocol,$address,$port,$path); } +$url =~ s//>/g ; + status("403 Forbidden"); expires(0); -print "Content-type: text/html\n\n"; +print "Content-type: text/html\n\n\n"; print "\n"; print "\n"; print "$Babel{Title}\n";