mirror of
https://github.com/casjaysdevdocker/squidguard
synced 2025-01-18 12:34:24 -05:00
➖ Deleted: data/htdocs/cgi-bin/blocked data/htdocs/cgi-bin/dansguardian.pl data/htdocs ➖
data/htdocs/cgi-bin/blocked data/htdocs/cgi-bin/dansguardian.pl data/htdocs/www/block.html
This commit is contained in:
Jason
parent
207c193136
commit
ba8d1a51de
@ -1,396 +0,0 @@
|
|||||||
#! /usr/bin/perl
|
|
||||||
#
|
|
||||||
# Explain to the user that the URL is blocked and by which rule set
|
|
||||||
#
|
|
||||||
# Original by P<>l Baltzersen 1999 (pal.baltzersen@ost.eltele.no)
|
|
||||||
# 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).
|
|
||||||
# Rewrite by Christine Kronberg, 2008, to enable an easier integration of
|
|
||||||
# other languages.
|
|
||||||
#
|
|
||||||
|
|
||||||
# By accepting this notice, you agree to be bound by the following
|
|
||||||
# agreements:
|
|
||||||
#
|
|
||||||
# This software product, squidGuard, is copyrighted (C) 1998-2008
|
|
||||||
# by Christine Kronberg, Shalla Secure Services. All rights reserved.
|
|
||||||
#
|
|
||||||
# This program is free software; you can redistribute it and/or modify
|
|
||||||
# it under the terms of the GNU General Public License (version 2) as
|
|
||||||
# published by the Free Software Foundation. It is distributed in the
|
|
||||||
# hope that it will be useful, but WITHOUT ANY WARRANTY; without even
|
|
||||||
# the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
||||||
# PURPOSE. See the GNU General Public License (GPL) for more details.
|
|
||||||
#
|
|
||||||
# You should have received a copy of the GNU General Public License
|
|
||||||
# (GPL) along with this program.
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use Socket;
|
|
||||||
#
|
|
||||||
# GLOBAL VALUES:
|
|
||||||
#
|
|
||||||
my ($clientaddr,$clientname,$clientuser,$clientgroup,$targetgroup,$url);
|
|
||||||
my (@supported,$image,$redirect,$autoinaddr,$proxy,$proxymaster);
|
|
||||||
my $lang="en";
|
|
||||||
my (%msgconf,%title,%logo,%msg,%tab,%word);
|
|
||||||
my ($protocol,$address,$port,$path,$refererhost,$referer);
|
|
||||||
my %Babel = ();
|
|
||||||
my $rechts="";
|
|
||||||
my $links="";
|
|
||||||
my $dummy="";
|
|
||||||
sub getpreferedlang(@);
|
|
||||||
sub parsequery($);
|
|
||||||
sub status($);
|
|
||||||
sub redirect($);
|
|
||||||
sub content($);
|
|
||||||
sub expires($);
|
|
||||||
sub msg($$);
|
|
||||||
sub gethostnames($);
|
|
||||||
sub spliturl($);
|
|
||||||
sub showhtml($);
|
|
||||||
sub showimage($$$);
|
|
||||||
sub showinaddr($$$$$);
|
|
||||||
|
|
||||||
#
|
|
||||||
# CONFIGURABLE OPTIONS:
|
|
||||||
#
|
|
||||||
# (Currently: "en", "fr", "de", "es", "nl", "no")
|
|
||||||
@supported = (
|
|
||||||
"en (English), ",
|
|
||||||
"fr (Fran<61>ais), ",
|
|
||||||
"de (Deutsch), ",
|
|
||||||
"es (Espa<70>ol), ",
|
|
||||||
"nl (Nederlands), ",
|
|
||||||
"no (Norsk)."
|
|
||||||
);
|
|
||||||
#
|
|
||||||
# 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.png"; # RELATIVE TO DOCUMENT_ROOT
|
|
||||||
$redirect = "http://admin.your-domain/images/blocked.png"; # "" TO AVOID REDIRECTION
|
|
||||||
$proxy = "proxy.your-domain"; # Your proxy server
|
|
||||||
$proxymaster = "operator\@your-domain"; # The email of your proxy adminstrator
|
|
||||||
$autoinaddr = 2; # 0|1|2;
|
|
||||||
# 0 TO NOT REDIRECT
|
|
||||||
# 1 TO AUTORESOLVE & REDIRECT IF UNIQUE
|
|
||||||
# 2 TO AUTORESOLVE & REDIRECT TO FIRST NAME
|
|
||||||
|
|
||||||
# You may wish to enter your company link and logo to be displayed on the page
|
|
||||||
my $company = " ";
|
|
||||||
my $companylogo = " ";
|
|
||||||
|
|
||||||
my $squidguard = "http://www.squidguard.org";
|
|
||||||
my $squidguardlogo = "http://www.squidguard.org/Logos/squidGuard.gif";
|
|
||||||
|
|
||||||
########################################################################################
|
|
||||||
#
|
|
||||||
# SUBROUTINES:
|
|
||||||
#
|
|
||||||
|
|
||||||
#
|
|
||||||
# RETURN THE FIRST SUPPORTED LANGUAGE OF THE BROWSERS PREFERRED OR THE
|
|
||||||
# DEFAULT:
|
|
||||||
#
|
|
||||||
sub getpreferedlang(@) {
|
|
||||||
my @supported = @_;
|
|
||||||
my @languages = split(/\s*,\s*/,$ENV{"HTTP_ACCEPT_LANGUAGE"}) if(defined($ENV{"HTTP_ACCEPT_LANGUAGE"}));
|
|
||||||
my $lang;
|
|
||||||
my $supp;
|
|
||||||
push(@languages,$supported[0]);
|
|
||||||
for $lang (@languages) {
|
|
||||||
$lang =~ s/\s.*//;
|
|
||||||
$lang = substr($lang,0,2);
|
|
||||||
for $supp (@supported) {
|
|
||||||
$supp =~ s/\s.*//;
|
|
||||||
return($lang) if ($lang eq $supp);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# PARSE THE QUERY_STRING FOR KNOWN KEYS:
|
|
||||||
#
|
|
||||||
sub parsequery($) {
|
|
||||||
my $query = shift;
|
|
||||||
my $clientaddr = "$Babel{Unknown}";
|
|
||||||
my $clientname = "$Babel{Unknown}";
|
|
||||||
my $clientuser = "$Babel{Unknown}";
|
|
||||||
my $clientgroup = "$Babel{Unknown}";
|
|
||||||
my $targetgroup = "$Babel{Unknown}";
|
|
||||||
my $url = "$Babel{Unknown}";
|
|
||||||
if (defined($query)) {
|
|
||||||
while ($query =~ /^\&?([^\&=]+)=\"([^\"]*)\"(.*)/ || $query =~ /^\&?([^\&=]+)=([^\&=]*)(.*)/) {
|
|
||||||
my $key = $1;
|
|
||||||
my $value = $2;
|
|
||||||
$value = "$Babel{Unknown}" unless(defined($value) && $value && $value ne "unknown");
|
|
||||||
$query = $3;
|
|
||||||
if ($key =~ /^(clientaddr|clientname|clientuser|clientgroup|targetgroup|url)$/) {
|
|
||||||
eval "\$$key = \$value";
|
|
||||||
}
|
|
||||||
if ($query =~ /^url=(.*)/) {
|
|
||||||
$url = $1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return($clientaddr,$clientname,$clientuser,$clientgroup,$targetgroup,$url);
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# PRINT HTTP STATUS HEARER:
|
|
||||||
#
|
|
||||||
sub status($) {
|
|
||||||
my $status = shift;
|
|
||||||
print "Status: $status\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# PRINT HTTP LOCATION HEARER:
|
|
||||||
#
|
|
||||||
sub redirect($) {
|
|
||||||
my $location = shift;
|
|
||||||
print "Location: $location\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# PRINT HTTP CONTENT-TYPE HEARER:
|
|
||||||
#
|
|
||||||
sub content($) {
|
|
||||||
my $contenttype = shift;
|
|
||||||
print "Content-Type: $contenttype\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# PRINT HTTP LAST-MODIFIED AND EXPIRES HEADER:
|
|
||||||
#
|
|
||||||
sub expires($) {
|
|
||||||
my $ttl = shift;
|
|
||||||
my $time = time;
|
|
||||||
my @day = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
|
|
||||||
my @month = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
|
|
||||||
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime($time);
|
|
||||||
printf "Last-Modified: %s, %d %s %d", $day[$wday],$mday,$month[$mon],$year+1900;
|
|
||||||
printf " %02d:%02d:%02d GMT\n", $hour,$min,$sec;
|
|
||||||
($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime($time+$ttl);
|
|
||||||
printf "Expires: %s, %d %s %d", $day[$wday],$mday,$month[$mon],$year+1900;
|
|
||||||
printf " %02d:%02d:%02d GMT\n", $hour,$min,$sec;
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# REVERSE LOOKUP AND RETURN NAMES:
|
|
||||||
#
|
|
||||||
sub gethostnames($) {
|
|
||||||
my $address = shift;
|
|
||||||
my ($name,$aliases) = gethostbyaddr(inet_aton($address), AF_INET);
|
|
||||||
my @names;
|
|
||||||
if (defined($name)) {
|
|
||||||
push(@names,$name);
|
|
||||||
if (defined($aliases) && $aliases) {
|
|
||||||
for(split(/\s+/,$aliases)) {
|
|
||||||
next unless(/\./);
|
|
||||||
push(@names,$_);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return(@names);
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# SPLIT AN URL INTO PROTOCOL, ADDRESS, PORT AND PATH:
|
|
||||||
#
|
|
||||||
sub spliturl($) {
|
|
||||||
my $url = shift;
|
|
||||||
my $protocol = "";
|
|
||||||
my $address = "";
|
|
||||||
my $port = "";
|
|
||||||
my $path = "";
|
|
||||||
$url =~ /^([^\/:]+):\/\/([^\/:]+)(:\d*)?(.*)/;
|
|
||||||
$protocol = $1 if(defined($1));
|
|
||||||
$address = $2 if(defined($2));
|
|
||||||
$port = $3 if(defined($3));
|
|
||||||
$path = $4 if(defined($4));
|
|
||||||
return($protocol,$address,$port,$path);
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# SEND OUT AN IMAGE:
|
|
||||||
#
|
|
||||||
sub showimage($$$) {
|
|
||||||
my ($type,$file,$redirect) = @_;
|
|
||||||
content("image/$type");
|
|
||||||
expires(300);
|
|
||||||
redirect($redirect) if($redirect);
|
|
||||||
print "\n";
|
|
||||||
open(GIF, "$ENV{\"DOCUMENT_ROOT\"}$file");
|
|
||||||
print <GIF>;
|
|
||||||
close(GIF)
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
|
||||||
# SHOW THE INADDR ALERNATIVES WITH OPTIONAL ATOREDIRECT:
|
|
||||||
#
|
|
||||||
sub showinaddr($$$$$) {
|
|
||||||
my ($targetgroup,$protocol,$address,$port,$path) = @_;
|
|
||||||
my $msgid = $targetgroup;
|
|
||||||
my @names = gethostnames($address);
|
|
||||||
if($autoinaddr == 2 && @names || $autoinaddr && @names==1) {
|
|
||||||
status("301 Moved Permanently");
|
|
||||||
redirect("$protocol://$names[0]$port$path");
|
|
||||||
} elsif (@names>1) {
|
|
||||||
status("300 Multiple Choices");
|
|
||||||
} elsif (@names) {
|
|
||||||
status("301 Moved Permanently");
|
|
||||||
} else {
|
|
||||||
status("404 Not Found");
|
|
||||||
}
|
|
||||||
if (@names) {
|
|
||||||
print "Content-type: text/html\n\n";
|
|
||||||
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\">\n";
|
|
||||||
print "<html><head>\n";
|
|
||||||
print "<title>$Babel{Title}</title>\n";
|
|
||||||
print "<link rel=\"stylesheet\" type=\"text/css\" href=\"/css/proxy.css\">\n";
|
|
||||||
print "</head>\n";
|
|
||||||
print "<body> \n";
|
|
||||||
expires(0);
|
|
||||||
$msgid = "in-addr" unless(defined($msgconf{$msgid}));
|
|
||||||
if (defined($msgconf{$msgid})) {
|
|
||||||
print " <!-- showinaddr(\"$msgid\") -->\n";
|
|
||||||
for (@{$msgconf{$msgid}}) {
|
|
||||||
my @config = split(/:/);
|
|
||||||
my $type = shift(@config);
|
|
||||||
if ($type eq "msg") {
|
|
||||||
msg($config[0],$config[1]);
|
|
||||||
} elsif ($type eq "tab") {
|
|
||||||
table(shift(@config),shift(@config),@config);
|
|
||||||
} elsif ($type eq "alternatives") {
|
|
||||||
print " <TABLE BORDER=0 ALIGN=CENTER>\n";
|
|
||||||
for (@names) {
|
|
||||||
print " <TR>\n <TH ALIGN=LEFT>\n <FONT SIZE=+1>";
|
|
||||||
href("$protocol://$_$port$path");
|
|
||||||
print "\n </FONT>\n </TH>\n </TR>\n";
|
|
||||||
}
|
|
||||||
print " </TABLE>\n\n";
|
|
||||||
if (defined($ENV{"HTTP_REFERER"}) && $ENV{"HTTP_REFERER"} =~ /:\/\/([^\/:]+)/) {
|
|
||||||
$refererhost = $1;
|
|
||||||
$referer = $ENV{"HTTP_REFERER"};
|
|
||||||
msg("H4","referermaster");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
########################################################################################
|
|
||||||
#
|
|
||||||
# MAIN PROGRAM
|
|
||||||
#
|
|
||||||
# To change the messages in the blocked page please refer to the corresponding babel file.
|
|
||||||
#
|
|
||||||
$lang = getpreferedlang(@supported);
|
|
||||||
|
|
||||||
open (BABEL, "babel.$lang") || warn "Unable to open language file: $!\n";
|
|
||||||
flock (BABEL, 2);
|
|
||||||
while (<BABEL>) {
|
|
||||||
chomp $_ ;
|
|
||||||
($links, $rechts) = split (/=/, $_);
|
|
||||||
$Babel{$links} = $rechts;
|
|
||||||
}
|
|
||||||
flock (BABEL, 8);
|
|
||||||
close (BABEL);
|
|
||||||
|
|
||||||
($clientaddr,$clientname,$clientuser,$clientgroup,$targetgroup,$url) = parsequery($ENV{"QUERY_STRING"});
|
|
||||||
($protocol,$address,$port,$path) = spliturl($url);
|
|
||||||
|
|
||||||
if ($url =~ /\.(gif|jpg|jpeg|png|mp3|mpg|mpeg|avi|mov)$/i) {
|
|
||||||
status("403 Forbidden");
|
|
||||||
showimage("gif",$image,$redirect);
|
|
||||||
exit 0;
|
|
||||||
}
|
|
||||||
if ($targetgroup eq "in-addr") {
|
|
||||||
showinaddr($targetgroup,$protocol,$address,$port,$path);
|
|
||||||
}
|
|
||||||
|
|
||||||
status("403 Forbidden");
|
|
||||||
expires(0);
|
|
||||||
print "Content-type: text/html\n\n";
|
|
||||||
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\">\n";
|
|
||||||
print "<html><head>\n";
|
|
||||||
print "<title>$Babel{Title}</title>\n";
|
|
||||||
print "<link rel=\"stylesheet\" type=\"text/css\" href=\"/css/proxy.css\">\n";
|
|
||||||
print "</head>\n";
|
|
||||||
print "<body> \n";
|
|
||||||
|
|
||||||
print "\n";
|
|
||||||
print "<a href=$company>\n";
|
|
||||||
print "<img align=left border=0 alt=\"\" src=$companylogo></a>\n";
|
|
||||||
print "<a href=$squidguard>\n";
|
|
||||||
print "<img align=right border=0 alt=\"\" src=$squidguardlogo></a><br><br>\n";
|
|
||||||
print "<center>\n";
|
|
||||||
print "<table border=0 width=80%>\n";
|
|
||||||
print "<tr><td align=center>\n";
|
|
||||||
|
|
||||||
print "<h2>$Babel{Msg}</h2>\n";
|
|
||||||
print "<br><br>\n";
|
|
||||||
|
|
||||||
print "<b>$Babel{Tabcaption}</b><br><br>\n";
|
|
||||||
|
|
||||||
print "<table border=4>\n";
|
|
||||||
print "<tr>\n";
|
|
||||||
print "<td>$Babel{TabIP}</td><td> $clientaddr</td>\n";
|
|
||||||
print "</tr>\n";
|
|
||||||
|
|
||||||
print "<tr>\n";
|
|
||||||
print "<td>$Babel{Tabclientname}</td><td> $clientname</td>\n";
|
|
||||||
print "</tr>\n";
|
|
||||||
|
|
||||||
print "<tr>\n";
|
|
||||||
print "<td>$Babel{Tabclientuser}</td><td> $clientuser</td>\n";
|
|
||||||
print "</tr>\n";
|
|
||||||
|
|
||||||
print "<tr>\n";
|
|
||||||
print "<td>$Babel{Tabclientgroup}</td><td> $clientgroup</td>\n";
|
|
||||||
print "</tr>\n";
|
|
||||||
|
|
||||||
print "<tr>\n";
|
|
||||||
print "<td>$Babel{Taburl}</td><td> $url</td>\n";
|
|
||||||
print "</tr>\n";
|
|
||||||
|
|
||||||
print "<tr>\n";
|
|
||||||
print "<td>$Babel{Tabtargetgroup}</td><td> $targetgroup</td>\n";
|
|
||||||
print "</tr>\n";
|
|
||||||
print "</table>\n";
|
|
||||||
print "<br><br>\n";
|
|
||||||
|
|
||||||
print "</td></tr>\n";
|
|
||||||
print "<tr><td>\n";
|
|
||||||
if ($targetgroup eq "in-addr") {
|
|
||||||
print "$Babel{msginaddr}<br><br>\n";
|
|
||||||
print "$Babel{msgnoalternatives} <U>",$address,"</U>.<br>\n";
|
|
||||||
print "$Babel{msgwebmaster}\n";
|
|
||||||
}
|
|
||||||
print "<br><br>\n";
|
|
||||||
print "$Babel{msgproxymaster} <A HREF=mailto:$proxymaster>$proxymaster</A>.<br>\n";
|
|
||||||
print "$Babel{msgrefresh}\n";
|
|
||||||
|
|
||||||
print "</td></tr></table>\n";
|
|
||||||
|
|
||||||
# bottom of page
|
|
||||||
print "</center>\n";
|
|
||||||
print "<br><br>\n";
|
|
||||||
print "<hr>\n";
|
|
||||||
print "<font size=-1>\n";
|
|
||||||
print "$Babel{msgdeflang} ",@supported, "\n";
|
|
||||||
print "</font>\n";
|
|
||||||
print "</body></html>\n";
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
exit 0 ;
|
|
||||||
@ -1,67 +0,0 @@
|
|||||||
#!/usr/bin/env perl
|
|
||||||
|
|
||||||
$allow_html_code = 0;
|
|
||||||
&ReadEnvs;
|
|
||||||
|
|
||||||
$deniedurl = $in{'DENIEDURL'};
|
|
||||||
$reason = $in{'REASON'};
|
|
||||||
$user = $in{'USER'};
|
|
||||||
$ip = $in{'IP'};
|
|
||||||
$cats = $in{'CATEGORIES'};
|
|
||||||
|
|
||||||
$host = $in{'HOST'};
|
|
||||||
|
|
||||||
$fbypasshash = $in{'GBYPASS'}; #
|
|
||||||
$ibypasshash = $in{'GIBYPASS'}; #
|
|
||||||
$hashflag = $in{'HASH'}; #
|
|
||||||
|
|
||||||
print "Content-type: text/html\n\n";
|
|
||||||
print '<HTML><link rel="stylesheet" href="/css/proxy.css" />';
|
|
||||||
print '<HEAD><TITLE>Access Denied</TITLE></HEAD>';
|
|
||||||
print '<BODY><CENTER><H2>ACCESS HAS BEEN DENIED</H2>';
|
|
||||||
print '<img src="/images/blocked.png" alt="Access Denied" />';
|
|
||||||
if (length($user) > 0) {
|
|
||||||
print "<br><em>$user</em>, access to the page:<p>";
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
print '<br>Access to the page:<p>';
|
|
||||||
}
|
|
||||||
print "<strong><a href=\"$deniedurl\">$deniedurl</a></strong>";
|
|
||||||
print '<p>... has been denied for the following reason:<p>';
|
|
||||||
print "<strong>$reason</font></strong>";
|
|
||||||
if (length($cats) > 0) {
|
|
||||||
print '<p>Categories:<p>';
|
|
||||||
print "<strong>$cats</font></strong>";
|
|
||||||
}
|
|
||||||
print '<p>Your username, IP address, date, time and URL have been logged.';
|
|
||||||
print '<p><table border=1><tr><td>You are seeing this error because the page you attempted<br>';
|
|
||||||
print 'to access contains, or is labelled as containing, material that';
|
|
||||||
print '<br>has been deemed inappropriate.</td></tr></table>';
|
|
||||||
print '<p><table border=1><tr><td>';
|
|
||||||
print 'If you have any queries contact your <a href="mailto:admin@proxy.casjay.net?subject=Banned -IP-">Proxy Administrator</td></tr></table>';
|
|
||||||
print '<p><font size=-3>Powered by <a href="http://proxy.casjay.net" target="_blank">Casjays Developments Proxy Server</a></font>';
|
|
||||||
print '</center></BODY></HTML>';
|
|
||||||
|
|
||||||
exit;
|
|
||||||
|
|
||||||
|
|
||||||
sub ReadEnvs {
|
|
||||||
local($cl, @clp, $pair, $name, $value);
|
|
||||||
if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) {
|
|
||||||
read(STDIN, $cl, $ENV{'CONTENT_LENGTH'} );
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$cl = $ENV{'QUERY_STRING'};
|
|
||||||
}
|
|
||||||
@clp = split(/::/, $cl);
|
|
||||||
foreach $pair (@clp) {
|
|
||||||
($name, $value) = split(/==/, $pair);
|
|
||||||
$value =~ tr/+/ /;
|
|
||||||
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
|
|
||||||
$value =~ s/<!--(.|\n)*-->//g;
|
|
||||||
if ($allow_html_code != 1) {
|
|
||||||
$value =~ s/<([^>]|\n)*>//g;
|
|
||||||
}
|
|
||||||
$in{$name} = $value;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
<html>
|
|
||||||
This URL was blocked by your squid!
|
|
||||||
</html>
|
|
||||||
Loading…
x
Reference in New Issue
Block a user