update to 1.6.0 [release 1.6.0-1mamba;Sat Nov 26 2022]

This commit is contained in:
Silvan Calarco 2024-01-05 18:06:11 +01:00
parent 0b765a1c78
commit 4c0268b1b4
8 changed files with 1261 additions and 0 deletions

View File

@ -1,2 +1,4 @@
# squidguard # squidguard
SquidGuard is an ultrafast and free filter, redirector and access controller for Squid.

View File

@ -0,0 +1,43 @@
diff -Nru squidGuard-1.4.orig//samples/babel.it squidGuard-1.4/samples/babel.it
--- squidGuard-1.4.orig//samples/babel.it 1970-01-01 01:00:00.000000000 +0100
+++ squidGuard-1.4/samples/babel.it 2011-04-28 14:01:34.281659208 +0200
@@ -0,0 +1,20 @@
+Unknown=sconosciuto
+Title=403 Accesso negato
+Msg=L'accesso a questo sito è bloccato.
+Tabclientname=Nome del Client
+Tabcaption=Informazioni aggiuntive:
+TabIP=Indirizzo del Client
+Tabclientuser=Utente
+Tabclientgroup=Gruppo
+Taburl=URL
+Tabtargetgroup=Gruppo target
+msgproxymaster=Se credi che questo sia un errore, invia <U>this page</U> a
+msgrefresh=Potrebbe essere necessario usare il pulsante &lt;Ricarica&gt; del browser o premere &lt;Shift&gt;+&lt;Ricarica&gt; per rimuovere questo messaggio dopo aver modificato la regola di accesso.
+msgtimerefresh=Potrebbe essere necessario usare il pulsante &lt;Ricarica&gt; del browser o premere &lt;Shift&gt;+&lt;Ricarica&gt; per rimuovere questo messaggio dopo la transizione da un orario con restrizioni.
+msgunknown=Accesso negato perch&egrave; il client &grave; sconosciuto a $proxy.
+msginaddr=La navigazione usando <U>indirizzi IP</U> &egrave; bloccata dalle politiche di accesso alla rete.
+msgalternatives=Sono state trovate le seguenti possibili alternative:
+msgnoalternatives=Non &grave; stato trovato un dominio alternativo per il server.
+msgreferermaster=Invia una segnalazione all'amministratore della rete chiedendo di correggere i link che puntano a $url nel referer con le alternative corrette mostrate sopra.
+msgwebmaster=Per favore chiedi al <U>webmaster</U> di quel server il <EM>nome del dominio</EM> corretto.
+msgdeflang=Questo messaggio &egrave; in Italiano perch&egrave; il tuo browser ha "it" in testa alla lista delle lingue preferite tra quelle supportate da questo programma oppure la lingua impostata non &egrave; supportata da questo programma. Le lingue supportate sono:
diff -Nru squidGuard-1.4.orig//samples/squidGuard.cgi.in squidGuard-1.4/samples/squidGuard.cgi.in
--- squidGuard-1.4.orig//samples/squidGuard.cgi.in 2008-12-23 22:08:35.000000000 +0100
+++ squidGuard-1.4/samples/squidGuard.cgi.in 2011-04-28 14:02:54.735856781 +0200
@@ -57,12 +57,13 @@
#
# CONFIGURABLE OPTIONS:
#
-# (Currently: "en", "fr", "de", "es", "nl", "no")
+# (Currently: "en", "de", "es", "fr", "it", "nl", "no")
@supported = (
"en (English), ",
- "fr (Français), ",
"de (Deutsch), ",
"es (Español), ",
+ "fr (Français), ",
+ "it (Italiano), ",
"nl (Nederlands), ",
"no (Norsk)."
);

View File

@ -0,0 +1,12 @@
diff -Nru squidGuard-1.4.orig//src/sg.h.in squidGuard-1.4/src/sg.h.in
--- squidGuard-1.4.orig//src/sg.h.in 2011-04-28 13:27:17.434060406 +0200
+++ squidGuard-1.4/src/sg.h.in 2011-04-28 13:28:06.358510843 +0200
@@ -79,7 +79,7 @@
#define WARNING_LOGFILE "squidGuard.log"
#define ERROR_LOGFILE "squidGuard.error"
-#define DEFAULT_CONFIGFILE "@prefix@/squidGuard/squidGuard.conf"
+#define DEFAULT_CONFIGFILE "@sysconfdir@/squidGuard/squidGuard.conf"
#define DEFAULT_LOGDIR "@prefix@/squidGuard/log"
#define DEFAULT_DBHOME "@prefix@/squidGuard/db"
#define EXEC_PROGRAM "@prefix@/bin/squidGuard"

View File

@ -0,0 +1,44 @@
--- src/sgLog.c 2007-11-16 17:58:32.000000000 +0100
+++ squidGuard-1.4-patch-20091015/sgLog.c 2009-10-15 21:25:14.000000000 +0200
@@ -2,7 +2,7 @@
By accepting this notice, you agree to be bound by the following
agreements:
- This software product, squidGuard, is copyrighted (C) 1998-2007
+ This software product, squidGuard, is copyrighted (C) 1998-2009
by Christine Kronberg, Shalla Secure Services. All rights reserved.
This program is free software; you can redistribute it and/or modify it
@@ -55,8 +55,8 @@
char msg[MAX_BUF];
va_list ap;
VA_START(ap, format);
- if(vsprintf(msg, format, ap) > (MAX_BUF - 1))
- fprintf(stderr,"overflow in vsprintf (sgLog): %s",strerror(errno));
+ if(vsnprintf(msg, MAX_BUF, format, ap) > (MAX_BUF - 1))
+ fprintf(stderr,"overflow in vsnprintf (sgLog): %s",strerror(errno));
va_end(ap);
date = niso(0);
if(globalDebug || log == NULL) {
@@ -87,8 +87,8 @@
char msg[MAX_BUF];
va_list ap;
VA_START(ap, format);
- if(vsprintf(msg, format, ap) > (MAX_BUF - 1))
- sgLogFatalError("overflow in vsprintf (sgLogError): %s",strerror(errno));
+ if(vsnprintf(msg, MAX_BUF, format, ap) > (MAX_BUF - 1))
+ sgLog(globalErrorLog, "overflow in vsnprintf (sgLogError): %s",strerror(errno));
va_end(ap);
sgLog(globalErrorLog,"%s",msg);
}
@@ -104,8 +104,8 @@
char msg[MAX_BUF];
va_list ap;
VA_START(ap, format);
- if(vsprintf(msg, format, ap) > (MAX_BUF - 1))
- return;
+ if(vsnprintf(msg, MAX_BUF, format, ap) > (MAX_BUF - 1))
+ sgLog(globalErrorLog, "overflow in vsnprintf (sgLogError): %s",strerror(errno));
va_end(ap);
sgLog(globalErrorLog,"%s",msg);
sgEmergency();

View File

@ -0,0 +1,70 @@
--- src/sg.h.in 2007-11-16 17:58:32.000000000 +0100
+++ squidGuard-1.4-20091019/sg.h.in 2009-10-19 21:25:23.000000000 +0200
@@ -73,7 +73,7 @@
#define REQUEST_TYPE_REDIRECT 2
#define REQUEST_TYPE_PASS 3
-#define MAX_BUF 4096
+#define MAX_BUF 12288
#define DEFAULT_LOGFILE "squidGuard.log"
#define WARNING_LOGFILE "squidGuard.log"
--- src/sgDiv.c 2008-03-12 21:41:53.000000000 +0100
+++ squidGuard-1.4-20091019/sgDiv.c.in 2009-10-19 21:26:04.000000000 +0200
@@ -94,6 +94,7 @@
int i = 0;
char c;
int report_once = 1;
+ int trailingdot = 0;
size_t strsz;
int ndx = 0;
@@ -132,7 +133,7 @@
{
/* in case this is a '://' skip over it, but try to not read past EOS */
if(3 <= strsz-ndx) {
- if(':' == p[ndx] && '/' == p[ndx+1] && '/' == p[ndx+2]) {
+ if(':' == p[ndx] && '/' == p[ndx+1] && '/' == p[ndx+2] && '\0' != p[ndx+3]) {
ndx+=3; /* 3 == strlen("://"); */
}
}
@@ -144,10 +145,20 @@
strncpy(p+ndx,p+ndx+1, sz);
p[ndx+sz] = '\0';
if(1 == report_once) {
- sgLogError("Warning: Possible bypass attempt. Found multiple slashes where only one is expected: %s", s->orig);
+ @NOLOG1@ sgLogError("Warning: Possible bypass attempt. Found multiple slashes where only one is expected: %s", s->orig); @NOLOG2@
report_once--;
}
}
+ else if ('.' == p[ndx] && '/' == p[ndx+1] && trailingdot == 0) {
+ /* If the domain has trailing dot, remove (problem found with squid 3.0 stable1-5) */
+ /* if this char is a dot and the next char is a slash, then shift the rest of the string left one char */
+ /* We do this only the first time it is encountered. */
+ trailingdot++;
+ size_t sz = strlen(p+ndx+1);
+ strncpy(p+ndx,p+ndx+1, sz);
+ p[ndx+sz] = '\0';
+ @NOLOG1@ sgLogError("Warning: Possible bypass attempt. Found a trailing dot in the domain name: %s", s->orig); @NOLOG2@
+ }
else
{
/* increment the string indexer */
@@ -734,7 +745,7 @@
p++;
break;
case 'u': /* Requested URL */
- strcat(buf, req->orig);
+ strncat(buf, req->orig, 2048);
p++;
break;
default:
@@ -766,7 +777,7 @@
fprintf( stderr, " ****************\n");
fprintf( stderr, "FAILURE! Check your log file for problems with the database files!\n" );
fprintf( stderr, " ****************\n");
- exit(1);
+ exit(4);
}
}
sgLogError("Going into emergency mode");

900
squidGuard.cgi Normal file
View File

@ -0,0 +1,900 @@
#!/usr/bin/perl
#
# Explain to the user that the URL is blocked and by which rule set
#
# 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/)
#
# The last version may be found anytime at:
# http://ftp.ost.eltele.no/pub/www/proxy/squidGuard/contrib/
#
# By accepting this notice, you agree to be bound by the following
# agreements:
#
# This software product, squidGuard, is copyrighted (C) 1999 by ElTele
# Øst AS, Oslo, Norway, with 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 ($lang,@supported,$image,$redirect,$autoinaddr,$proxy,$proxymaster);
my (%msgconf,%title,%logo,%msg,%tab,%word);
my ($protocol,$address,$port,$path,$refererhost,$referer);
sub msginit();
sub getpreferedlang(@);
sub parsequery($);
sub status($);
sub redirect($);
sub content($);
sub expires($);
sub title($);
sub terminator();
sub msg($$);
sub table($$@);
sub href($);
sub gethostnames($);
sub spliturl($);
sub showhtml($);
sub showimage($$$);
sub showinaddr($$$$$);
#
# CONFIGURABLE OPTIONS:
#
@supported = ( # "en", "fr", "de", "nl", "no" etc.
"en (English),",
"fr (Français),",
"de (Deutsch),",
"nl (Nederlands),",
"no (norsk)."
);
$image = "/images/blocked.gif"; # RELATIVE TO DOCUMENT_ROOT
$redirect = ""; # "" TO AVOID REDIRECTION
$proxy = "proxy.ost.eltele.no"; #
$proxymaster = "blacklist\@squidguard.org"; #
$autoinaddr = 2; # 0|1|2;
# 0 TO NOT REDIRECT
# 1 TO AUTORESOLVE & REDIRECT IF UNIQUE
# 2 TO AUTORESOLVE & REDIRECT TO FIRST NAME
#
# CONFIGURABLE MESSAGES:
#
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# !!! NOTE1: ALLWAYS ESCAPE EMBEDDED VARIABLES (I.E. \$var) !!!
# !!! IF YOU DON'T YOU MAY OPEN A SECURITY HOLE !!!
# !!! NOTE2: TRIPLE ESCAPE EMBEDDED `\', `"', `$', `@', `%' and `&' !!!
# !!! (I.E. \\\\, \\\", \\\$, \\\@, \\\&) !!!
# !!! NOTE3: ESCAPE OTHER SPECIAL INLINE CHARACTERS !!!
# !!! (I.E. \;, \') !!!
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#
sub msginit() {
($clientaddr,$clientname,$clientuser,$clientgroup,$targetgroup,$url)
= parsequery($ENV{"QUERY_STRING"});
($protocol,$address,$port,$path) = spliturl($url);
$lang = getpreferedlang(@supported);
%word->{"unknown"}->{"en"} # THE WORD "unknown"
= "unknown"; # --------- "" ---------
%word->{"unknown"}->{"fr"} # "unknown" IN FRENCH
= "inconnu"; #
%word->{"unknown"}->{"de"} # "unknown" IN GERMAN
= "unbekannt"; #
%word->{"unknown"}->{"nl"} # "unknown" IN DUTCH
= "onbekend"; #
%word->{"unknown"}->{"no"} # "unknown" IN NORWEGIAN
= "ukjent"; #
%title->{"default"}->{"en"} # THE DEFAULT TITLE
= [ "403 Forbidden" ]; # --------- "" ---------
%title->{"default"}->{"fr"} # --------- "" ---------
= [ "403 Interdit" ]; # --------- "" ---------
%title->{"default"}->{"de"} # --------- "" ---------
= [ "403 Verboten" ]; # --------- "" ---------
%title->{"default"}->{"nl"} # --------- "" ---------
= [ "403 Verboden" ]; # --------- "" ---------
%title->{"default"}->{"no"} # --------- "" ---------
= [ "403 Sperret" ]; # --------- "" ---------
%msgconf->{"default"} # THE "default" MESSAGE CONFIG
# (USED WHEN NO OTHER MSGS APPLIES):
= [ "msg:H1:default", # SHOW MSG "default" AS <H1> (DEFINED BELOW)
"tab:R,C,L:info" # SHOW "info" AS <TABLE> & COLUMNS ALIGNED R,C,L
. ":clientaddr" # AND WITH THESE ELEMENTS (DEFINED BELOW)
. ":clientname" # --------- "" --------- "" ---------
. ":clientuser" # --------- "" --------- "" ---------
. ":clientgroup" # --------- "" --------- "" ---------
. ":url" # --------- "" --------- "" ---------
. ":targetgroup", # --------- "" --------- "" ---------
"msg:P:proxymaster", # SHOW "proxymaster" AS <P> (DEFINED BELOW)
"msg:P:refresh" # SHOW "refresh" AS <P> (DEFINED BELOW)
];
%msgconf->{"unknown"} # THE "unknown" CLIENT MESSAGE CONFIG:
= [ "msg:H1:unknown", # SHOW "unknown" AS <H1> (DEFINED BELOW)
"tab:R,C,L:info" # SHOW "info" AS <TABLE> & COLUMNS ALIGNED R,C,L
. ":clientaddr" # AND WITH THESE ELEMENTS (DEFINED BELOW)
. ":clientname" # --------- "" --------- "" ---------
. ":clientuser" # --------- "" --------- "" ---------
. ":clientgroup", # --------- "" --------- "" ---------
"msg:P:proxymaster", # SHOW "proxymaster" AS <P> (DEFINED BELOW)
"msg:P:refresh" # SHOW "refresh" AS <P> (DEFINED BELOW)
];
%msgconf->{%word->{"unknown"}->{$lang}}
= %msgconf->{"unknown"};
%msgconf->{"in-addr"} # THE MESSAGE CONFIG FOR THE "in-addr" DEST GROUP:
= [ "msg:H1:alternatives", # SHOW "alternatives" AS <H1> (DEFINED BELOW)
"alternatives", # SHOW THE ALTERNATIV DOMAIN ADDRESSES
"referermaster", # SHOW "referermaster" (DEFINED BELOW)
"msg:P:refresh" # SHOW "refresh" AS <P> (DEFINED BELOW)
];
%msgconf->{"noalternatives"} # DITTO WHEN THERE ARE NO DOMAIN ADDRESS ALTERNATIVES:
= [ "msg:H1:in-addr", # SHOW "in-addr" AS <H1> (DEFINED BELOW)
"tab:R,C,L:info" # SHOW "info" AS <TABLE> & COLUMNS ALIGNED R,C,L
. ":clientaddr" # AND WITH THESE ELEMENTS (DEFINED BELOW)
. ":clientname" # --------- "" --------- "" ---------
. ":clientuser" # --------- "" --------- "" ---------
. ":clientgroup" # --------- "" --------- "" ---------
. ":domainurl" # --------- "" --------- "" ---------
. ":targetgroup", # --------- "" --------- "" ---------
"msg:H3:noalternatives", # SHOW "noalternatives" AS <H3> (DEFINED BELOW)
"msg:P:webmaster", # SHOW "webmaster" AS <P> (DEFINED BELOW)
"msg:P:refresh" # SHOW "refresh" AS <P> (DEFINED BELOW)
];
%msg->{"default"}->{"en"} # THE MSG TEXT "default" IN "en" (ENGLISH):
= [ "Access to this site is blocked" ]; #
%msg->{"default"}->{"fr"} # THE MSG TEXT "default" IN "fr" (FRENCH):
= [ "L\'accès à ce site est bloqué" ]; #
%msg->{"default"}->{"de"} # THE MSG TEXT "default" IN "de" (GERMAN):
= [ "Zugriff verweigert" ]; #
%msg->{"default"}->{"nl"} # THE MSG TEXT "default" IN "nl" (DUTCH):
= [ "De toegang is geblokkeerd" ]; #
%msg->{"default"}->{"no"} # THE MSG TEXT "default" IN "no" (NORWEGIAN):
= [ "Siden er sperret" ]; #
# THE "info" TABLE IN "en" (ENGLISH):
%tab->{"info"}->{"caption"}->{"en"} # THE "info" TABLE'S TITLE:
= [ "Additional information:" ]; #
%tab->{"info"}->{"clientaddr"}->{"en"} # THE "clientaddr" MSG OPTION:
= [ "Client address", "=", "\$clientaddr" ];#
%tab->{"info"}->{"clientname"}->{"en"} # THE "clientname" MSG OPTION:
= [ "Client name", "=", "\$clientname" ]; #
%tab->{"info"}->{"clientuser"}->{"en"} # THE "clientuser" MSG OPTION:
= [ "Client user", "=", "\$clientuser" ]; #
%tab->{"info"}->{"clientgroup"}->{"en"} # THE "clientgroup" MSG OPTION:
= [ "Client group", "=", "\$clientgroup" ]; #
%tab->{"info"}->{"url"}->{"en"} # THE "url" MSG OPTION:
= [ "URL", "=", "\$url" ]; #
%tab->{"info"}->{"domainurl"}->{"en"} # THE "domainurl" MSG OPTION:
= [ "URL", "=", "\$protocol://<U>\$address</U>\$port\$path" ];
%tab->{"info"}->{"targetgroup"}->{"en"} # THE "targetgroup" MSG OPTION:
= [ "Target group", "=", "\$targetgroup" ]; #
%tab->{"info"}->{"caption"}->{"fr"} # DITTO IN "fr" (FRENCH):
= [ "Information complémentaire:" ]; # --------- "" ---------
%tab->{"info"}->{"clientaddr"}->{"fr"} # --------- "" ---------
= [ "Adresse de la machine", "=", "\$clientaddr" ];
%tab->{"info"}->{"clientname"}->{"fr"} # --------- "" ---------
= [ "Nom de la machine", "=", "\$clientname" ];
%tab->{"info"}->{"clientuser"}->{"fr"} # --------- "" ---------
= [ "Utilisateur", "=", "\$clientuser" ]; # --------- "" ---------
%tab->{"info"}->{"clientgroup"}->{"fr"} # --------- "" ---------
= [ "Groupe", "=", "\$clientgroup" ]; # --------- "" ---------
%tab->{"info"}->{"url"}->{"fr"} # --------- "" ---------
= [ "URL", "=", "\$url" ]; # --------- "" ---------
%tab->{"info"}->{"domainurl"}->{"fr"} # --------- "" ---------
= [ "URL", "=", "\$protocol://<U>\$address</U>\$port\$path" ];
%tab->{"info"}->{"targetgroup"}->{"fr"} # --------- "" ---------
= [ "Groupe cible", "=", "\$targetgroup" ]; # --------- "" ---------
%tab->{"info"}->{"caption"}->{"de"} # DITTO IN "de" (GERMAN):
= [ "Zusatzinformationen:" ]; # --------- "" ---------
%tab->{"info"}->{"clientaddr"}->{"de"} # --------- "" ---------
= [ "IP-Adresse", "=", "\$clientaddr" ]; # --------- "" ---------
%tab->{"info"}->{"clientname"}->{"de"} # --------- "" ---------
= [ "Rechnername", "=", "\$clientname" ]; # --------- "" ---------
%tab->{"info"}->{"clientuser"}->{"de"} # --------- "" ---------
= [ "Benutzer", "=", "\$clientuser" ]; # --------- "" ---------
%tab->{"info"}->{"clientgroup"}->{"de"} # --------- "" ---------
= [ "Gruppe", "=", "\$clientgroup" ]; # --------- "" ---------
%tab->{"info"}->{"url"}->{"de"} # --------- "" ---------
= [ "URL", "=", "\$url" ]; # --------- "" ---------
%tab->{"info"}->{"domainurl"}->{"de"} # --------- "" ---------
= [ "URL", "=", "\$protocol://<U>\$address</U>\$port\$path" ];
%tab->{"info"}->{"targetgroup"}->{"de"} # --------- "" ---------
= [ "Klassifizierung", "=", "\$targetgroup" ];
%tab->{"info"}->{"caption"}->{"nl"} # DITTO IN "nl" (DUTCH):
= [ "Extra informatie:" ]; # --------- "" ---------
%tab->{"info"}->{"clientaddr"}->{"nl"} # --------- "" ---------
= [ "Computeradres", "=", "\$clientaddr" ]; # --------- "" ---------
%tab->{"info"}->{"clientname"}->{"nl"} # --------- "" ---------
= [ "Computernaam", "=", "\$clientname" ]; # --------- "" ---------
%tab->{"info"}->{"clientuser"}->{"nl"} # --------- "" ---------
= [ "Gebruiker", "=", "\$clientuser" ]; # --------- "" ---------
%tab->{"info"}->{"clientgroup"}->{"nl"} # --------- "" ---------
= [ "Groep", "=", "\$clientgroup" ]; # --------- "" ---------
%tab->{"info"}->{"url"}->{"nl"} # --------- "" ---------
= [ "URL", "=", "\$url" ]; # --------- "" ---------
%tab->{"info"}->{"domainurl"}->{"nl"} # --------- "" ---------
= [ "URL", "=", "\$protocol://<U>\$address</U>\$port\$path" ];
%tab->{"info"}->{"targetgroup"}->{"nl"} # --------- "" ---------
= [ "Doelgroep", "=", "\$targetgroup" ]; # --------- "" ---------
%tab->{"info"}->{"caption"}->{"no"} # DITTO IN "no" (NORWEGIAN):
= [ "Tilleggsinformasjon:" ]; # --------- "" ---------
%tab->{"info"}->{"clientaddr"}->{"no"} # --------- "" ---------
= [ "Klientadresse", "=", "\$clientaddr" ]; # --------- "" ---------
%tab->{"info"}->{"clientname"}->{"no"} # --------- "" ---------
= [ "Klientnavn", "=", "\$clientname" ]; # --------- "" ---------
%tab->{"info"}->{"clientuser"}->{"no"} # --------- "" ---------
= [ "Brukerident", "=", "\$clientuser" ]; # --------- "" ---------
%tab->{"info"}->{"clientgroup"}->{"no"} # --------- "" ---------
= [ "Klientgruppe", "=", "\$clientgroup" ]; # --------- "" ---------
%tab->{"info"}->{"url"}->{"no"} # --------- "" ---------
= [ "URL", "=", "\$url" ]; # --------- "" ---------
%tab->{"info"}->{"domainurl"}->{"no"} # --------- "" ---------
= [ "URL", "=", "\$protocol://<U>\$address</U>\$port\$path" ];
%tab->{"info"}->{"targetgroup"}->{"no"} # --------- "" ---------
= [ "Målkategori", "=", "\$targetgroup" ]; # --------- "" ---------
%msg->{"proxymaster"}->{"en"}
= [ "If you think this is an error, send <U>this page</U> to",
"<A HREF=\\\"mailto:\$proxymaster\\\">\$proxymaster</A>" ];
%msg->{"proxymaster"}->{"fr"}
= [ "Si vous pensez qu\'il s\'agit d\'une erreur, envoyez <U>cette page</U> à",
"<A HREF=\\\"mailto:\$proxymaster\\\">\$proxymaster</A>" ];
%msg->{"proxymaster"}->{"de"}
= [ "Falls ein Fehler vorliegt schicken Sie die Adresse <U>dieser Seite</U> bitte an",
"<A HREF=\\\"mailto:\$proxymaster\\\">\$proxymaster</A>" ];
%msg->{"proxymaster"}->{"nl"}
= [ "Als u denkt dat dit onjuist is, zend <U>deze bladzijde</U> aan",
"<A HREF=\\\"mailto:\$proxymaster\\\">\$proxymaster</A>" ];
%msg->{"proxymaster"}->{"no"}
= [ "Om du mener dette er feil, så send <U>denne siden</U> til",
"<A HREF=\\\"mailto:\$proxymaster\\\">\$proxymaster</A>" ];
%msg->{"refresh"}->{"en"}
= [ "You may need to use the browser's \&lt\;Reload\&gt\; button<BR>",
"or even \&lt\;Keyboard Shift\&gt\;+\&lt\;Browser Reload\&gt\;<BR>",
"to get rid of this page after an access rule change" ];
%msg->{"refresh"}->{"fr"}
= [ "Vous avez peut-être besoin d\'utiliser le bouton \&lt\;Recharger\&gt\;<BR>",
"ou même \&lt\;Shift\&gt\;+\&lt\;Recharger\&gt\;<BR>",
"après un changement de règles" ];
%msg->{"refresh"}->{"de"}
= [ "Nach einer &Auml;nderung der Zugriffsrechte m&uuml;ssen Sie evtl. die Seite<BR>",
"mit dem \&lt\;Aktualisieren\&gt\; bzw. \&lt\;Neu laden\&gt\; Button<BR>",
"des Browsers oder sogar mit \&lt\;Strg\&gt\;+\&lt\;F5\&gt\;<BR>",
"erneut laden lassen." ];
%msg->{"refresh"}->{"nl"}
= [ "U moet waarschijnlijk de browser's \&lt\;Reload\&gt\; knop gebruiken<BR>",
"of zelfs \&lt\;Shift\&gt\;+\&lt\;Reload\&gt\;<BR>",
"na een verandering in de squidGuard regels" ];
%msg->{"refresh"}->{"no"}
= [ "Du kan trenge å bruke browserens \&lt\;Reload\&gt\; knapp<BR>",
"eller til og med",
"\&lt\;Tastatur Shift\&gt\;+\&lt\;Browser Reload\&gt\;<BR>",
"for å bli kvitt denne siden etter endring i adgangskontrollen" ];
%msg->{"timerefresh"}->{"en"}
= [ "You may need to use the browser's \&lt\;Reload\&gt\; button<BR>",
"or even \&lt\;Keyboard Shift\&gt\;+\&lt\;Browser Reload\&gt\;<BR>",
"to get rid of this page after transition from<BR>",
"a time zone with access restrictions" ];
%msg->{"timerefresh"}->{"fr"}
= [ "Vous avez peut-être besoin d\'utiliser le bouton \&lt\;Recharger\&gt\;<BR>",
"ou même \&lt\;Shift\&gt\;+\&lt\;Recharger\&gt\;<BR>",
"après un changement de zone temporelle d\'interdiction" ];
%msg->{"timerefresh"}->{"de"}
= [ "Nach dem Wechsel in eine erlaubte Zeitperiode m&uuml;ssen Sie evtl. die Seite<BR>",
"mit dem \&lt\;Aktualisieren\&gt\; bzw. \&lt\;Neu laden\&gt\; Button des Browsers<BR>",
"oder sogar mit \&lt\;Strg\&gt\;+\&lt\;F5\&gt\; erneut laden lassen." ];
%msg->{"timerefresh"}->{"nl"}
= [ "U moet waarschijnlijk de browser's \&lt\;Reload\&gt\; knop gebruiken<BR>",
"of zelfs \&lt\;Shift\&gt\;+\&lt\;Reload\&gt\;<BR>",
"na beeindiging van een periode met beperkingen" ];
%msg->{"timerefresh"}->{"no"}
= [ "Du kan trenge å bruke browserens \&lt\;Reload\&gt\; knapp<BR>",
"eller til og med",
"\&lt\;Tastatur Shift\&gt\;+\&lt\;Browser Reload\&gt\;<BR>",
"for å bli kvitt denne siden ved overgang fra",
"et tidsrom med sperring" ];
%msg->{"unknown"}->{"en"}
= [ "Access denied because<BR>",
"your clienten is<BR>",
"unknown to \$proxy"];
%msg->{"unknown"}->{"fr"}
= [ "Accès interdit car <BR>",
"votre client est <BR>",
"inconnu de \$proxy"];
%msg->{"unknown"}->{"de"}
= [ "Zugriff verweigert,<BR>",
"da Ihr Rechner bei<BR>",
"\$proxy unbekannt ist."];
%msg->{"unknown"}->{"nl"}
= [ "Toegand geweigerd omdat <BR>",
"uw client niet <BR>",
"bekend is bij \$proxy"];
%msg->{"unknown"}->{"no"}
= [ "Adgang nektes fordi<BR>",
"denne klienten ikke er<BR>",
"definert på \$proxy" ];
%msg->{"in-addr"}->{"en"}
= [ "Surfing on plain <U>IP-addresses</U><BR>",
"is denied from this client<BR>",
"for security reasons" ];
%msg->{"in-addr"}->{"fr"}
= [ "Naviguer sur des <U>adresses IP</U><BR>",
"est refusé à cette machine<BR>",
"pour des raisons de sécurité" ];
%msg->{"in-addr"}->{"de"}
= [ "Die direkte Verwendung von <U>IP-Adressen</U><BR>",
"ist von diesem Rechner aus Sicherheitsg&uuml;nden<BR>",
"nicht erlaubt." ];
%msg->{"in-addr"}->{"nl"}
= [ "Surfen naar harde <U>IP adressen</U><BR>",
"wordt op deze client geweigerd<BR>",
"om veiligheidsredenen" ];
%msg->{"in-addr"}->{"no"}
= [ "Av sikkerhetsgrunner er<BR>",
"surfing på <U>IP-adresser</U><BR>",
"ikke tillatt fra denne klienten" ];
%msg->{"alternatives"}->{"en"}
= [ "The following possible alternatives were found:" ];
%msg->{"alternatives"}->{"fr"}
= [ "Les alternatives suivantes sont possibles:" ];
%msg->{"alternatives"}->{"de"}
= [ "Die folgenden Alternativen wurden gefunden:" ];
%msg->{"alternatives"}->{"nl"}
= [ "De volgende alternatieven zijn mogelijk:" ];
%msg->{"alternatives"}->{"no"}
= [ "Følgende mulige alternativer ble funnet:" ];
%msg->{"noalternatives"}->{"en"}
= [ "No alternative domainname were found<BR>",
"for the server <U>\$address</U>" ];
%msg->{"noalternatives"}->{"fr"}
= [ "Aucun nom de domaine alternatif n\'a été<BR>",
"trouvé pour le serveur <U>\$address</U>" ];
%msg->{"noalternatives"}->{"de"}
= [ "Es konnte kein alternativer Domainname f&uuml;r den<BR>",
"Server <U>\$address</U> gefunden werden" ];
%msg->{"noalternatives"}->{"nl"}
= [ "Geen alternatieve domeinnaam gevonden<BR>",
"voor de server <U>\$address</U>" ];
%msg->{"noalternatives"}->{"no"}
= [ "Finner ingen alternative domenenavn<BR>",
" for serveren <U>\$address</U>" ];
%msg->{"referermaster"}->{"en"}
= [ "Send complaints to the",
"<A HREF=\\\"mailto:webmaster\@\$refererhost\\\">webmaster</A><BR>",
"of <A HREF=\\\"\$referer\\\">\$referer</A><BR>",
"and ask him to correct the link(s) that points to \$url<BR>",
"in <A HREF=\\\"\$referer\\\">\$referer</A>,<BR>",
"with the supposedly correct alternative above" ];
%msg->{"referermaster"}->{"fr"}
= [ "Envoyez les demandes au",
"<A HREF=\\\"mailto:webmaster\@\$refererhost\\\">webmaster</A><BR>",
"de <A HREF=\\\"\$referer\\\">\$referer</A><BR>",
"et demandez lui corriger les liens qui pointent sur \$url<BR>",
"dans <A HREF=\\\"\$referer\\\">\$referer</A>,<BR>",
"avec l\'alternative (supposée correcte) suivante" ];
%msg->{"referermaster"}->{"de"}
= [ "Benachrichtigen Sie den",
"<A HREF=\\\"mailto:webmaster\@\$refererhost\\\">Webmaster</A><BR>",
"von <A HREF=\\\"\$referer\\\">\$referer</A><BR>",
"und bitten Sie ihn die auf \$url verweisenden Links<BR>",
"in <A HREF=\\\"\$referer\\\">\$referer</A>,<BR>",
"auf die vermutlich korrekte oben angezeigte Alternative zu setzen." ];
%msg->{"referermaster"}->{"nl"}
= [ "Zend klachten aan",
"<A HREF=\\\"mailto:webmaster\@\$refererhost\\\">webmaster</A><BR>",
"de <A HREF=\\\"\$referer\\\">\$referer</A><BR>",
"en vraag deze de link te verbeteren die verwijst naar \$url<BR>",
"op <A HREF=\\\"\$referer\\\">\$referer</A>,<BR>",
"met het waarschijnlijk correcte alternatief" ];
%msg->{"referermaster"}->{"no"}
= [ "Send evt. klager til",
"<A HREF=\\\"mailto:webmaster\@\$refererhost\\\">webmaster</A><BR>",
"for <A HREF=\\\"\$referer\\\">\$referer</A><BR>",
"og be ham rette linken(e) som peker til \$url<BR>",
"i <A HREF=\\\"\$referer\\\">\$referer</A>,<BR>",
"med det antatt korrekte alternativet over" ];
%msg->{"webmaster"}->{"en"}
= [ "Send complaints to the <U>webmaster</U>",
"for <U>\$protocol://\$address</U><BR>",
"and request for a <EM>domainname</EM> to the server" ];
%msg->{"webmaster"}->{"fr"}
= [ "Envoyez les demandes au <U>webmaster</U>",
"pour <U>\$protocol://\$address</U><BR>",
"et demandez un <EM>nom de domaine</EM> pour le serveur" ];
%msg->{"webmaster"}->{"de"}
= [ "Fragen Sie den <U>Webmaster</U>",
"von <U>\$protocol://\$address</U><BR>",
"nach einem <EM>Domainnamen</EM> f&uuml;r den Server" ];
%msg->{"webmaster"}->{"nl"}
= [ "Stuur klachten aan de <U>webmaster</U>",
"voor <U>\$protocol://\$address</U><BR>",
"en vraag om een <EM>domeinnaam</EM> voor de server" ];
%msg->{"webmaster"}->{"no"}
= [ "Send evt. klager til <U>webmaster</U>",
"for <U>\$protocol://\$address</U><BR>",
"og anmod om å få knyttet serveren til et <EM>domenenavn</EM>" ];
%msg->{"deflang"}->{"en"}
= [ "This message is in English because \\\"en\\\"",
"is the first supported language<BR>",
"of those your browser is set up",
"to report as prefered.<BR>",
"Supported languages are:",
@supported ];
%msg->{"deflang"}->{"fr"}
= [ "Ce message est en français car \\\"fr\\\"",
"est la première langue supportée<BR>",
"parmi celles que votre navigateur signale comme",
"préférée.<BR>",
"Les langues supportées sont:",
@supported ];
%msg->{"deflang"}->{"de"}
= [ "Dieser Text erscheint in Deutsch, \\\"de\\\"",
"da Ihr Browser dies als bevorzugte<BR>",
"(erste) Sprache einstellt hat.<BR>",
"Unterst&uuml;tzte Sprachen:",
@supported ];
%msg->{"deflang"}->{"nl"}
= [ "Deze melding is in het Nederlands want \\\"nl\\\"",
"is de eerst ondersteunde taal<BR>",
"van de talen die uw browser ondersteunt.",
"<BR>",
"De ondersteunde talen zijn:",
@supported ];
%msg->{"deflang"}->{"no"}
= [ "Denne meldingen er på norsk fordi \\\"no\\\"",
"er det første støttede sproget<BR>",
"av de din nettleser er satt opp til",
"å rapportere som foretrukket.<BR>",
"Støttede sprog er:",
@supported ];
%logo->{"default"}->{"url"}
= "http://www.squidguard.org/images/squidGuard.gif";
%logo->{"default"}->{"href"}
= "http://www.squidguard.org/";
%logo->{"default"}->{"url"}
= "http://info.ost.eltele.no/images/eto.small.gif";
%logo->{"default"}->{"href"}
= "http://www.ost.eltele.no/";
}
#
# END OF CONFIGURABLE OPTIONS
#
#
# 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.*//;
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 = %word->{"unknown"}->{$lang};
my $clientname = %word->{"unknown"}->{$lang};
my $clientuser = %word->{"unknown"}->{$lang};
my $clientgroup = %word->{"unknown"}->{$lang};
my $targetgroup = %word->{"unknown"}->{$lang};
my $url = %word->{"unknown"}->{$lang};
if (defined($query)) {
while ($query =~ /^\&?([^\&=]+)=\"([^\"]*)\"(.*)/ || $query =~ /^\&?([^\&=]+)=([^\&=]*)(.*)/) {
my $key = $1;
my $value = $2;
$value = %word->{"unknown"}->{$lang} 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 HEARER:
#
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;
}
#
# PRINT THE INITIAL HTML TAGS FOR HTML, HEAD, TITLE BODY AND H1:
#
sub title($) {
my $msgid = shift;
my $defl = $supported[0];
my $text;
$defl =~ s/\s.*//;
print "\n<HTML>\n";
print " <HEAD>\n <TITLE>\n";
if (defined($msg{$msgid}{$lang})) {
for $text (@{$title{$msgid}{$lang}}) {
eval "\$text = \"$text\"";
print " $text\n";
}
} else {
for $text (@{$title{"default"}{$lang}}) {
eval "\$text = \"$text\"";
print " $text\n";
}
}
print " </TITLE>\n </HEAD>\n";
print " <BODY BGCOLOR=\"#FFFFFF\">\n";
print " <TABLE BORDER=0 ALIGN=CENTER WIDTH=100%>\n";
print " <TR>\n";
print " <TD ALIGN=LEFT VALIGN=BOTTOM>\n";
print " <FONT SIZE=7>\n";
print " <B>\n <U>\n";
if (defined($msg{$msgid}{$lang})) {
for $text (@{$title{$msgid}{$lang}}) {
eval "\$text = \"$text\"";
print " $text\n";
}
} else {
for $text (@{$title{"default"}{$lang}}) {
eval "\$text = \"$text\"";
print " $text\n";
}
}
print " </U>\n </B>\n";
print " </FONT>\n";
print " </TD>\n";
print " <TD ROWSPAN=2 ALIGN=RIGHT>\n";
if (defined($logo{$msgid}{"url"})) {
print " <A HREF=\"$logo{$msgid}{\"href\"}\"><IMG\n";
} else {
print " <A HREF=\"$logo{\"default\"}{\"href\"}\"><IMG\n";
}
if (defined($logo{$msgid}{"url"})) {
print " SRC=\"$logo{$msgid}{\"url\"}\" BORDER=0 ALIGN=TOP></A>\n";
} else {
print " SRC=\"$logo{\"default\"}{\"url\"}\" BORDER=0 ALIGN=TOP></A>\n";
}
print " </TD>\n";
print " </TR>\n";
if ($lang eq $defl && defined($msg{"deflang"}{$lang})) {
print " <TR><!-- \$msg{\"deflang\"}{$lang} -->\n";
print " <TH ALIGN=LEFT VALIGN=TOP>\n";
print " <FONT SIZE=-1>\n";
print " <B>\n";
for $text (@{$msg{"deflang"}{$lang}}) {
eval "\$text = \"$text\"";
print " $text\n";
}
print " </B>\n";
print " </FONT>\n";
print " </TH>\n";
print " </TR>\n";
}
print " </TABLE>\n";
}
#
# PRINT THE ENDING HTML TAGS FOR BODY AND HTML:
#
sub terminator() {
print " </BODY>\n</HTML>\n";
}
#
# PRINT A MESSAGE WITH THE SPECIFIED TYPE (P,H1,H2,..):
#
sub msg($$) {
my ($type,$msgid) = @_;
my $text;
print " <$type ALIGN=CENTER><!-- \$msg{$msgid}{$lang} -->\n";
if (defined($msg{$msgid}{$lang})) {
for $text (@{$msg{$msgid}{$lang}}) {
eval "\$text = \"$text\"";
print " $text\n";
}
} else {
print " <EM><B>ERROR: missing message \"$msgid\"</B></EM>\n";
}
print " </$type>\n";
}
#
# PRINT A TABLE WITH THE SPECIFIED FORMAT:
#
sub table($$@) {
my @format = split(/,/,shift);
my $table = shift;
my $cols = @format;
my @msgids = @_;
my $msgid;
my $text;
my %type;
%type->{"L"} = [ "<TH ALIGN=LEFT>", "</TH>" ];
%type->{"C"} = [ "<TH ALIGN=CENTER>", "</TH>" ];
%type->{"R"} = [ "<TH ALIGN=RIGHT>", "</TH>" ];
%type->{"l"} = [ "<TD ALIGN=LEFT>", "</TD>" ];
%type->{"c"} = [ "<TD ALIGN=CENTER>", "</TD>" ];
%type->{"r"} = [ "<TD ALIGN=RIGHT>", "</TD>" ];
print " <TABLE BORDER=0 ALIGN=CENTER><!-- table(\"$table\") -->\n";
if (defined($tab{$table})) {
if (defined($tab{$table}{"caption"}{$lang})) {
#print " <CAPTION ALIGN=LEFT>\n";
print " <TH ALIGN=LEFT>\n";
print " <FONT SIZE=+1>\n";
for $text (@{$tab{$table}{"caption"}{$lang}}) {
eval "\$text = \"$text\"";
print " $text\n";
}
print " </FONT>\n";
#print " </CAPTION>\n";
print " </TH>\n";
}
for $msgid (@msgids) {
print " <TR>\n";
if (defined($tab{$table}{$msgid}{$lang})) {
my $i = 0;
for $text (@{$tab{$table}{$msgid}{$lang}}) {
eval "\$text = \"$text\"";
print " $type{$format[$i]}[0]\n";
print " $text\n";
print " $type{$format[$i]}[1]\n";
$i++;
}
} else {
print " $type{$format[0]}[0]\n";
print " <EM><B>ERROR: missing table message \"$msgid\"</B></EM>\n";
print " $type{$format[0]}[1]\n";
}
print " </TR>\n";
}
} else {
print " <TR>\n";
print " <TH ALIGN=CENTER>\n";
print " <EM><B>ERROR: missing message \"$msgid\"</B></EM>\n";
print " </TH>\n";
print " </TR>\n";
}
print " </TABLE>\n";
}
#
# PRINT A LINK HREF:
#
sub href($) {
my $href = shift;
print "<A HREF=\"$href\">$href</A>";
}
#
# 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);
}
#
# SHOW THE CONFIGURED MESSAGE AS HTML:
#
sub showhtml($) {
my $msgid = shift;
status("403 Forbidden");
content("text/html");
expires(0);
title($msgid);
$msgid = "default" unless(defined($msgconf{$msgid}));
if (defined($msgconf{$msgid})) {
print " <!-- showhtml(\"$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);
}
}
} else {
print " <P><EM><B>ERROR: missing msgconf for \"$msgid\"</B></EM></P>\n";
}
terminator();
}
#
# 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 ($path =~ /\.(gif|jpg|jpeg|mp3|mpg|mpeg|avi|mov)$/i) {
showimage("gif",$image,$redirect);
} elsif (@names) {
content("text/html");
expires(0);
title($msgid);
$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");
}
}
}
} else {
print " <P><EM><B>ERROR: missing msgconf for \"$msgid\"</B></EM></P>\n";
}
terminator();
} else {
showhtml("noalternatives");
}
}
#
# NOW JUST DO IT:
#
msginit();
if ($targetgroup eq "in-addr") {
showinaddr($targetgroup,$protocol,$address,$port,$path);
} elsif ($url =~ /\.(gif|jpg|jpeg|mp3|mpg|mpeg|avi|mov)$/i) {
status("403 Forbidden");
showimage("gif",$image,$redirect);
} else {
showhtml($clientgroup);
}
exit 0;

View File

@ -0,0 +1,54 @@
--- src/y.tab.c.bison 2020-03-08 20:05:00.750000000 +0300
+++ src/y.tab.c.bison 2020-03-08 20:04:42.160000000 +0300
@@ -217,7 +217,7 @@
#include "sgEx.h"
-FILE *yyin, *yyout;
+extern FILE *yyin, *yyout;
char *configFile;
int numTimeElements;
--- src/sg.h.in 2020-03-08 20:02:46.900000000 +0300
+++ src/sg.h.in 2020-03-08 20:03:22.110000000 +0300
@@ -115,7 +115,7 @@
#define REDIRECT_PERMANENT "301:"
#define REDIRECT_TEMPORARILY "302:"
-char *progname;
+extern char *progname;
struct LogFileStat {
char *name;
@@ -337,7 +337,7 @@
struct AclDest *next;
};
-int lineno;
+extern int lineno;
char *sgParseRedirect __P((char *, struct SquidInfo *, struct Acl *, struct AclDest *));
char *sgAclAccess __P((struct Source *, struct Acl *, struct SquidInfo *));
--- src/main.c.in 2020-03-08 20:10:55.650000000 +0300
+++ src/main.c.in 2020-03-08 20:11:13.590000000 +0300
@@ -21,6 +21,9 @@
#include <syslog.h>
#endif
+char *progname;
+int lineno;
+
struct Setting *lastSetting = NULL;
struct Setting *Setting = NULL; /* linked list, Calloc */
--- src/sg.y.in 2020-03-08 20:14:46.180000000 +0300
+++ src/sg.y.in 2020-03-08 20:14:57.110000000 +0300
@@ -35,7 +35,7 @@
#include "sgEx.h"
-FILE *yyin, *yyout;
+extern FILE *yyin, *yyout;
char *configFile;
int numTimeElements;

136
squidguard.spec Normal file
View File

@ -0,0 +1,136 @@
Name: squidguard
Version: 1.6.0
Release: 1mamba
Summary: An ultrafast and free filter, redirector and access controller for Squid
Group: Network/Monitoring
Vendor: openmamba
Distribution: openmamba
Packager: Silvan Calarco <silvan.calarco@mambasoft.it>
URL: https://web.archive.org/web/20220728071047/http://www.squidguard.org/
Source: https://launchpad.net/debian/+archive/primary/+sourcefiles/squidguard/%{version}-1/squidguard_%{version}.orig.tar.gz
#Source: http://www.squidguard.org/Downloads/squidGuard-%{version}.tar.gz
Source3: squidGuard.cgi
Patch0: squidGuard-1.4-patch-20091015.patch
Patch1: squidGuard-1.4-patch-20091019.patch
Patch2: squidGuard-1.4-configdir.patch
Patch3: squidGuard-1.4-cgi_it.patch
Patch4: squidguard-1.6.0-gcc10.patch
License: GPL
## AUTOBUILDREQ-BEGIN
BuildRequires: glibc-devel
BuildRequires: libdb53-devel
BuildRequires: libopenldap-devel
BuildRequires: libperl
BuildRequires: perl-devel
## AUTOBUILDREQ-END
Requires(post):squid
Requires: apache
Requires: squidguard_blacklists
Provides: squidGuard
Obsoletes: squidGuard < 1.6.0
%description
SquidGuard is an ultrafast and free filter, redirector and access controller for Squid.
%prep
%setup -q
#%patch0 -p0
#%patch1 -p0
%patch2 -p1
#%patch3 -p1
%patch4 -p0 -b .gcc10
#sed -i "s|-ldb|-ldb-4.8|" configure
./autogen.sh
%build
%configure \
--sysconfdir=%{_sysconfdir}/squid \
--with-ldap \
--with-sg-config=%{_sysconfdir}/squid/squidGuard.conf \
--with-sg-dbhome=/var/lib/squidGuard \
--with-sg-logdir=/var/log/squid/
# --with-mysql \
# --with-db=%{_prefix} \
# --with-db-inc=%{_includedir}/db4 \
%make
cd samples
make clean
make
cd ..
%install
[ "%{buildroot}" != / ] && rm -rf "%{buildroot}"
%makeoldinstall SQUIDUSER=`id -u` \
dbhomedir=%{buildroot}/var/lib \
configfile=%{buildroot}%{_sysconfdir}/squid/squidGuard.conf.sample
install -D -m0755 samples/squidGuard.cgi %{buildroot}/var/www/cgi-bin/squidGuard.cgi
cp -a samples/babel.* %{buildroot}/var/www/cgi-bin/
%clean
[ "%{buildroot}" != / ] && rm -rf "%{buildroot}"
%post
if [ $1 -ge 1 ]; then
grep squidGuard %{_sysconfdir}/squid/squid.conf &>/dev/null || {
cat >> %{_sysconfdir}/squid/squid.conf << _EOF
#url_rewrite_program %{_bindir}/squidGuard -c %{_sysconfdir}/squid/squidGuard.conf
#url_rewrite_children 5
_EOF
}
# service squid status >/dev/null
# [ $? -eq 0 ] && service squid reload
fi
:
%preun
# uninstall
if [ $1 -eq 0 ]; then
sed -i '/^url_rewrite_program .*/d' %{_sysconfdir}/squid/squid.conf
sed -i '/^url_rewrite_children .*/d' %{_sysconfdir}/squid/squid.conf
#service squid status >/dev/null
#[ $? -eq 0 ] && service squid reload
fi
:
%files
%defattr(-,root,root)
%{_sysconfdir}/squid/squidGuard.conf.sample
%{_bindir}/squidGuard
%config(noreplace) %attr(0755,root,root) %{_localstatedir}/www/cgi-bin/squidGuard.cgi
%attr(0644,root,root) %{_localstatedir}/www/cgi-bin/babel.*
%changelog
* Sat Nov 26 2022 Silvan Calarco <silvan.calarco@mambasoft.it> 1.6.0-1mamba
- update to 1.6.0
* Thu Apr 28 2011 Silvan Calarco <silvan.calarco@mambasoft.it> 1.4-3mamba
- added patch to find configuration file without -c parameter to work with squidclamav
- disable squid configuration by default to allow usage through icap and squidclamav
- added italian cgi translation support and restored upstream cgi
* Tue Apr 12 2011 Silvan Calarco <silvan.calarco@mambasoft.it> 1.4-2mamba
- added patches from official site
- require external blacklist package
* Mon May 18 2009 Silvan Calarco <silvan.calarco@mambasoft.it> 1.4-1mamba
- update to 1.4
* Thu Oct 05 2006 Davide Madrisan <davide.madrisan@qilinux.it> 1.2.0-4qilnx
- database definitions updated to 20051119
- fixed compilation problems
* Wed May 26 2004 Silvan Calarco <silvan.calarco@mambasoft.it> 1.2.0-3qilnx
- rebuilt and correctly linked with libdb3
* Wed Jan 14 2004 Silvan Calarco <silvan.calarco@mambasoft.it> 1.2.0-2qilnx
- changed libdir permissions from nobody.nobody to squid.squid
- database definitions updated to 20040114
* Tue Jun 10 2003 Silvan Calarco <silvan.calarco@qinet.it> 1.2.0-1qilnx
- creation of squidGuard package