$NetBSD: patch-samples_squidGuard.cgi.in,v 1.1 2017/06/21 15:11:10 taca Exp $ * Apply content of squidGuard-1.4-patch-20150201. --- samples/squidGuard.cgi.in.orig 2008-12-23 21:08:35.000000000 +0000 +++ samples/squidGuard.cgi.in @@ -57,14 +57,15 @@ sub showinaddr($$$$$); # # 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 @@ -142,7 +143,7 @@ sub parsequery($) { } # -# PRINT HTTP STATUS HEARER: +# PRINT HTTP STATUS HEADER: # sub status($) { my $status = shift; @@ -150,7 +151,7 @@ sub status($) { } # -# PRINT HTTP LOCATION HEARER: +# PRINT HTTP LOCATION HEADER: # sub redirect($) { my $location = shift; @@ -249,7 +250,7 @@ sub showinaddr($$$$$) { 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 +318,12 @@ if ($targetgroup eq "in-addr") { 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";