mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
66c3619872
Bumping across one of our scripts with very long trailing whitespaces, I thought it might be a good idea to clean these up. Doing so, some missing or inconsistent licence headers were fixed. There is no need in shipping all these files en bloc, as their functionality won't change. Signed-off-by: Peter Müller <peter.mueller@ipfire.org>
3191 lines
98 KiB
Perl
3191 lines
98 KiB
Perl
#!/usr/bin/perl
|
|
###############################################################################
|
|
# #
|
|
# IPFire.org - A linux based firewall #
|
|
# Copyright (C) 2005-2010 IPFire Team #
|
|
# #
|
|
# This program is free software: you can redistribute it and/or modify #
|
|
# it under the terms of the GNU General Public License as published by #
|
|
# the Free Software Foundation, either version 3 of the License, or #
|
|
# (at your option) any later version. #
|
|
# #
|
|
# This program 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 for more details. #
|
|
# #
|
|
# You should have received a copy of the GNU General Public License #
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
|
# #
|
|
###############################################################################
|
|
|
|
use strict;
|
|
|
|
# enable only the following on debugging purpose
|
|
#use warnings;
|
|
#use CGI::Carp 'fatalsToBrowser';
|
|
|
|
use File::Copy;
|
|
use IO::Socket;
|
|
|
|
require '/var/ipfire/general-functions.pl';
|
|
require "${General::swroot}/lang.pl";
|
|
require "${General::swroot}/header.pl";
|
|
|
|
my $http_port='81';
|
|
my %netsettings=();
|
|
my %mainsettings=();
|
|
my %proxysettings=();
|
|
my %filtersettings=();
|
|
my %tcsettings=();
|
|
my %uqsettings=();
|
|
my %besettings=();
|
|
my %updatesettings=();
|
|
my %checked=();
|
|
my %selected=();
|
|
my $id=0;
|
|
my $line='';
|
|
my $i=0;
|
|
my $n=0;
|
|
my $time='';
|
|
my $filesize;
|
|
my $category='';
|
|
my $section='';
|
|
my $blacklist='';
|
|
my $blistbackup='';
|
|
|
|
my $changed = 'no';
|
|
my $tcfile = "${General::swroot}/urlfilter/timeconst";
|
|
my $uqfile = "${General::swroot}/urlfilter/userquota";
|
|
my $dbdir = "${General::swroot}/urlfilter/blacklists";
|
|
my $editdir = "${General::swroot}/urlfilter/editor";
|
|
my $templatedir = "/srv/web/ipfire/html/redirect-templates";
|
|
my $repository = "/var/urlrepo";
|
|
my $hintcolour = '#FFFFCC';
|
|
|
|
my $sourceurlfile = "${General::swroot}/urlfilter/autoupdate/autoupdate.urls";
|
|
my $updconffile = "${General::swroot}/urlfilter/autoupdate/autoupdate.conf";
|
|
my $updflagfile = "${General::swroot}/urlfilter/blacklists/.autoupdate.last";
|
|
|
|
my $errormessage='';
|
|
my $updatemessage='';
|
|
my $restoremessage='';
|
|
my $buttontext='';
|
|
my $source_name='';
|
|
my $source_url='';
|
|
my $blacklistage=0;
|
|
|
|
my @repositorylist=();
|
|
my @repositoryfiles=();
|
|
my @categories=();
|
|
my @selectedcategories=();
|
|
my @filtergroups=();
|
|
my @tclist=();
|
|
my @uqlist=();
|
|
my @source_urllist=();
|
|
my @clients=();
|
|
my @temp=();
|
|
|
|
my $lastslashpos=0;
|
|
|
|
my $toggle='';
|
|
my $gif='';
|
|
my $led='';
|
|
my $ldesc='';
|
|
my $gdesc='';
|
|
|
|
if (! -d $dbdir) { mkdir("$dbdir"); }
|
|
if (! -e $tcfile) { &General::system("touch", "$tcfile"); }
|
|
if (! -e $uqfile) { &General::system("touch", "$uqfile"); }
|
|
if (! -e $sourceurlfile) { &General::system("touch", "$sourceurlfile"); }
|
|
|
|
&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
|
|
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
|
|
&General::readhash("${General::swroot}/proxy/settings", \%proxysettings);
|
|
|
|
&readblockcategories;
|
|
|
|
open(FILE, $tcfile);
|
|
@tclist = <FILE>;
|
|
close(FILE);
|
|
open(FILE, $uqfile);
|
|
@uqlist = <FILE>;
|
|
close(FILE);
|
|
open(FILE, $sourceurlfile);
|
|
@source_urllist = <FILE>;
|
|
close(FILE);
|
|
|
|
$filtersettings{'ENABLE_CUSTOM_BLACKLIST'} = 'off';
|
|
$filtersettings{'ENABLE_CUSTOM_WHITELIST'} = 'off';
|
|
$filtersettings{'ENABLE_CUSTOM_EXPRESSIONS'} = 'off';
|
|
$filtersettings{'BLOCK_EXECUTABLES'} = 'off';
|
|
$filtersettings{'BLOCK_AUDIO-VIDEO'} = 'off';
|
|
$filtersettings{'BLOCK_ARCHIVES'} = 'off';
|
|
$filtersettings{'ENABLE_REWRITE'} = 'off';
|
|
$filtersettings{'UNFILTERED_CLIENTS'} = '';
|
|
$filtersettings{'BANNED_CLIENTS'} = '';
|
|
$filtersettings{'SHOW_CATEGORY'} = 'off';
|
|
$filtersettings{'SHOW_URL'} = 'off';
|
|
$filtersettings{'SHOW_IP'} = 'off';
|
|
$filtersettings{'ENABLE_DNSERROR'} = 'off';
|
|
$filtersettings{'ENABLE_JPEG'} = 'off';
|
|
$filtersettings{'REDIRECT_PAGE'} = '';
|
|
$filtersettings{'MSG_TEXT_1'} = '';
|
|
$filtersettings{'MSG_TEXT_2'} = '';
|
|
$filtersettings{'MSG_TEXT_3'} = '';
|
|
$filtersettings{'ENABLE_EXPR_LISTS'} = 'off';
|
|
$filtersettings{'BLOCK_IP_ADDR'} = 'off';
|
|
$filtersettings{'BLOCK_ALL'} = 'off';
|
|
$filtersettings{'ENABLE_EMPTY_ADS'} = 'off';
|
|
$filtersettings{'ENABLE_GLOBAL_WHITELIST'} = 'off';
|
|
$filtersettings{'ENABLE_LOG'} = 'off';
|
|
$filtersettings{'ENABLE_USERNAME_LOG'} = 'off';
|
|
$filtersettings{'ENABLE_CATEGORY_LOG'} = 'off';
|
|
$filtersettings{'ENABLE_AUTOUPDATE'} = 'off';
|
|
$filtersettings{'REDIRECT_TEMPLATE'} = 'legacy';
|
|
|
|
$filtersettings{'ACTION'} = '';
|
|
$filtersettings{'VALID'} = '';
|
|
|
|
&Header::getcgihash(\%filtersettings);
|
|
&Header::getcgihash(\%tcsettings);
|
|
&Header::getcgihash(\%uqsettings);
|
|
&Header::getcgihash(\%besettings);
|
|
|
|
if (($filtersettings{'ACTION'} eq $Lang::tr{'save'}) ||
|
|
($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter save and restart'}) ||
|
|
($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload file'}) ||
|
|
($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter remove file'}) ||
|
|
($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload blacklist'}) ||
|
|
($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter backup'}) ||
|
|
($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter restore'}))
|
|
{
|
|
|
|
@clients = split(/\n/,$filtersettings{'UNFILTERED_CLIENTS'});
|
|
foreach (@clients)
|
|
{
|
|
s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
|
|
if (/.*-.*-.*/) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; }
|
|
@temp = split(/-/);
|
|
foreach (@temp) { unless ((&General::validipormask($_)) || (&General::validipandmask($_))) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; } }
|
|
}
|
|
@clients = split(/\n/,$filtersettings{'BANNED_CLIENTS'});
|
|
foreach (@clients)
|
|
{
|
|
s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
|
|
if (/.*-.*-.*/) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; }
|
|
@temp = split(/-/);
|
|
foreach (@temp) { unless ((&General::validipormask($_)) || (&General::validipandmask($_))) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; } }
|
|
}
|
|
if ($errormessage) { goto ERROR; }
|
|
|
|
if ((!($filtersettings{'REDIRECT_PAGE'} eq '')) && (!($filtersettings{'REDIRECT_PAGE'} =~ /^https?:\/\//)))
|
|
{
|
|
$filtersettings{'REDIRECT_PAGE'} = "http://".$filtersettings{'REDIRECT_PAGE'};
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter remove file'})
|
|
{
|
|
if (-e "$repository/$filtersettings{'ID'}") { unlink("$repository/$filtersettings{'ID'}"); }
|
|
$filtersettings{'ACTION'} = $Lang::tr{'urlfilter manage repository'};
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload file'})
|
|
{
|
|
&Header::getcgihash(\%filtersettings, {'wantfile' => 1, 'filevar' => 'UPLOADFILE'});
|
|
|
|
$filtersettings{'ACTION'} = $Lang::tr{'urlfilter manage repository'};
|
|
$_ = $filtersettings{'UPLOADFILE'};
|
|
tr/\\/\//;
|
|
$_ = substr($_,rindex($_,"/")+1);
|
|
if ($_) {
|
|
if (copy($filtersettings{'UPLOADFILE'}, "$repository/$_") != 1)
|
|
{
|
|
$errormessage = $!;
|
|
goto ERROR;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload blacklist'})
|
|
{
|
|
&Header::getcgihash(\%filtersettings, {'wantfile' => 1, 'filevar' => 'UPDATEFILE'});
|
|
|
|
if (!($filtersettings{'UPDATEFILE'} =~ /.tar.gz$/))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter wrong filetype'};
|
|
goto ERROR;
|
|
}
|
|
|
|
if (copy($filtersettings{'UPDATEFILE'}, "${General::swroot}/urlfilter/blacklists.tar.gz") != 1)
|
|
{
|
|
$errormessage = $!;
|
|
goto ERROR;
|
|
}
|
|
|
|
if (!(-d "${General::swroot}/urlfilter/update")) { mkdir("${General::swroot}/urlfilter/update"); }
|
|
|
|
my $exitcode = &General::system("/bin/tar", "--no-same-owner", "-xzf", "${General::swroot}/urlfilter/blacklists.tar.gz", "-C", "${General::swroot}/urlfilter/update");
|
|
|
|
if ($exitcode > 0)
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter tar error'};
|
|
} else {
|
|
|
|
if (-d "${General::swroot}/urlfilter/update/BL")
|
|
{
|
|
&General::system("mv", "${General::swroot}/urlfilter/update/BL", "${General::swroot}/urlfilter/update/blacklists");
|
|
}
|
|
|
|
if (-d "${General::swroot}/urlfilter/update/category")
|
|
{
|
|
&General::system("mv", "${General::swroot}/urlfilter/update/category", "${General::swroot}/urlfilter/update/blacklists");
|
|
}
|
|
|
|
if (!(-d "${General::swroot}/urlfilter/update/blacklists"))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter invalid content'};
|
|
} else {
|
|
# XXX Uses globbing
|
|
system("cp -r ${General::swroot}/urlfilter/update/blacklists/* $dbdir");
|
|
|
|
&readblockcategories;
|
|
&readcustomlists;
|
|
|
|
&writeconfigfile;
|
|
|
|
$updatemessage = $Lang::tr{'urlfilter upload success'};
|
|
&General::system_background("${General::swroot}/urlfilter/bin/prebuild.pl");
|
|
&General::system("logger", "-t", "installpackage[urlfilter]", "URL filter blacklist - Blacklist update from local source completed");
|
|
}
|
|
}
|
|
if (-d "${General::swroot}/urlfilter/update") { &General::system("rm", "-rf", "${General::swroot}/urlfilter/update"); }
|
|
if (-e "${General::swroot}/urlfilter/blacklists.tar.gz") { unlink("${General::swroot}/urlfilter/blacklists.tar.gz"); }
|
|
if ($errormessage) { goto ERROR; }
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter backup'})
|
|
{
|
|
$blistbackup = ($filtersettings{'ENABLE_FULLBACKUP'} eq 'on') ? "blacklists" : "blacklists/custom";
|
|
if (&General::system("/bin/tar", "-C", "${General::swroot}/urlfilter", "-czf", "${General::swroot}/urlfilter/backup.tar.gz", "settings", "timeconst", "userquota", "autoupdate", "$blistbackup"))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter backup error'};
|
|
goto ERROR;
|
|
}
|
|
else
|
|
{
|
|
print "Content-type: application/gzip\n";
|
|
print "Content-length: ";
|
|
print (-s "${General::swroot}/urlfilter/backup.tar.gz");
|
|
print "\n";
|
|
print "Content-disposition: attachment; filename=urlfilter-backup.tar.gz\n\n";
|
|
|
|
open (FILE, "${General::swroot}/urlfilter/backup.tar.gz");
|
|
while (<FILE>) { print; }
|
|
close (FILE);
|
|
|
|
if (-e "${General::swroot}/urlfilter/backup.tar.gz") { unlink("${General::swroot}/urlfilter/backup.tar.gz"); }
|
|
exit;
|
|
}
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter restore'})
|
|
{
|
|
&Header::getcgihash(\%filtersettings, {'wantfile' => 1, 'filevar' => 'UPDATEFILE'});
|
|
|
|
if (!($filtersettings{'UPDATEFILE'} =~ /.tar.gz$/))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter wrong filetype'};
|
|
goto ERROR;
|
|
}
|
|
|
|
if (!(-d "${General::swroot}/urlfilter/restore")) { mkdir("${General::swroot}/urlfilter/restore"); }
|
|
|
|
if (copy($filtersettings{'UPDATEFILE'}, "${General::swroot}/urlfilter/backup.tar.gz") != 1)
|
|
{
|
|
$errormessage = $!;
|
|
}
|
|
|
|
my $exitcode = &General::system("/bin/tar", "--no-same-owner", "--preserve-permissions", "-xzf", "${General::swroot}/urlfilter/backup.tar.gz", "-C", "${General::swroot}/urlfilter/restore");
|
|
if ($exitcode > 0)
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter tar error'};
|
|
} else {
|
|
if (!(-e "${General::swroot}/urlfilter/restore/settings"))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter invalid restore file'};
|
|
} else {
|
|
# XXX uses globbing
|
|
system("cp -rp ${General::swroot}/urlfilter/restore/* ${General::swroot}/urlfilter/");
|
|
&readblockcategories;
|
|
&readcustomlists;
|
|
&writeconfigfile;
|
|
|
|
$restoremessage = $Lang::tr{'urlfilter restore success'};
|
|
}
|
|
}
|
|
|
|
if (-e "${General::swroot}/urlfilter/backup.tar.gz") { unlink("${General::swroot}/urlfilter/backup.tar.gz"); }
|
|
if (-d "${General::swroot}/urlfilter/restore") { &General::system("rm", "-rf", "${General::swroot}/urlfilter/restore"); }
|
|
if ($errormessage) { goto ERROR; }
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'save'})
|
|
{
|
|
$filtersettings{'VALID'} = 'yes';
|
|
&savesettings;
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter save and restart'})
|
|
{
|
|
if ((!(-e "${General::swroot}/proxy/enable")) && (!(-e "${General::swroot}/proxy/enable_blue")))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter web proxy service required'};
|
|
goto ERROR;
|
|
}
|
|
if (!($proxysettings{'ENABLE_FILTER'} eq 'on'))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter not enabled'};
|
|
goto ERROR;
|
|
}
|
|
|
|
$filtersettings{'VALID'} = 'yes';
|
|
&savesettings;
|
|
|
|
&General::system('/usr/local/bin/squidctrl', 'restart');
|
|
}
|
|
}
|
|
|
|
if ($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter set time constraints'}) { $tcsettings{'TCMODE'} = 'on'}
|
|
|
|
if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'add'}))
|
|
{
|
|
$tcsettings{'TCMODE'}='on';
|
|
|
|
if (!$tcsettings{'DST'})
|
|
{
|
|
$errormessage=$Lang::tr{'urlfilter dst error'};
|
|
}
|
|
|
|
if (!$tcsettings{'SRC'})
|
|
{
|
|
$errormessage=$Lang::tr{'urlfilter src error'};
|
|
}
|
|
|
|
if (!($tcsettings{'TO_HOUR'}.$tcsettings{'TO_MINUTE'} gt $tcsettings{'FROM_HOUR'}.$tcsettings{'FROM_MINUTE'}))
|
|
{
|
|
$errormessage=$Lang::tr{'urlfilter timespace error'};
|
|
}
|
|
|
|
if (!(($tcsettings{'MON'} eq 'on') || ($tcsettings{'TUE'} eq 'on') || ($tcsettings{'WED'} eq 'on') || ($tcsettings{'THU'} eq 'on') || ($tcsettings{'FRI'} eq 'on') || ($tcsettings{'SAT'} eq 'on') || ($tcsettings{'SUN'} eq 'on')))
|
|
{
|
|
$errormessage=$Lang::tr{'urlfilter weekday error'};
|
|
}
|
|
|
|
if (!$errormessage)
|
|
{
|
|
# transform to pre1.8 client definitions
|
|
@clients = split(/\n/,$tcsettings{'SRC'});
|
|
undef $tcsettings{'SRC'};
|
|
foreach(@clients)
|
|
{
|
|
s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
|
|
$tcsettings{'SRC'} .= "$_ ";
|
|
}
|
|
$tcsettings{'SRC'} =~ s/\s+$//;
|
|
|
|
if ($tcsettings{'DST'} =~ /^any/) { $tcsettings{'DST'} = 'any'; }
|
|
if ($tcsettings{'ENABLERULE'} eq 'on') { $tcsettings{'ACTIVE'} = $tcsettings{'ENABLERULE'}; } else { $tcsettings{'ACTIVE'} = 'off'}
|
|
|
|
$tcsettings{'ENABLERULE'} = 'on';
|
|
if($tcsettings{'EDITING'} eq 'no') {
|
|
open(FILE,">>$tcfile");
|
|
flock FILE, 2;
|
|
print FILE "$tcsettings{'DEFINITION'},$tcsettings{'MON'},$tcsettings{'TUE'},$tcsettings{'WED'},$tcsettings{'THU'},$tcsettings{'FRI'},$tcsettings{'SAT'},$tcsettings{'SUN'},$tcsettings{'FROM_HOUR'},$tcsettings{'FROM_MINUTE'},$tcsettings{'TO_HOUR'},$tcsettings{'TO_MINUTE'},$tcsettings{'SRC'},$tcsettings{'DST'},$tcsettings{'ACCESS'},$tcsettings{'ACTIVE'},$tcsettings{'COMMENT'}\n";
|
|
} else {
|
|
open(FILE, ">$tcfile");
|
|
flock FILE, 2;
|
|
$id = 0;
|
|
foreach $line (@tclist)
|
|
{
|
|
$id++;
|
|
if ($tcsettings{'EDITING'} eq $id) {
|
|
print FILE "$tcsettings{'DEFINITION'},$tcsettings{'MON'},$tcsettings{'TUE'},$tcsettings{'WED'},$tcsettings{'THU'},$tcsettings{'FRI'},$tcsettings{'SAT'},$tcsettings{'SUN'},$tcsettings{'FROM_HOUR'},$tcsettings{'FROM_MINUTE'},$tcsettings{'TO_HOUR'},$tcsettings{'TO_MINUTE'},$tcsettings{'SRC'},$tcsettings{'DST'},$tcsettings{'ACCESS'},$tcsettings{'ACTIVE'},$tcsettings{'COMMENT'}\n";
|
|
} else { print FILE "$line"; }
|
|
}
|
|
}
|
|
close(FILE);
|
|
undef %tcsettings;
|
|
$tcsettings{'CHANGED'}='yes';
|
|
$tcsettings{'TCMODE'}='on';
|
|
$changed = 'yes';
|
|
} else {
|
|
if ($tcsettings{'EDITING'} ne 'no')
|
|
{
|
|
$tcsettings{'ACTION'} = $Lang::tr{'edit'};
|
|
$tcsettings{'ID'} = $tcsettings{'EDITING'};
|
|
}
|
|
}
|
|
}
|
|
|
|
if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter copy rule'}) && (!$errormessage))
|
|
{
|
|
$id = 0;
|
|
foreach $line (@tclist)
|
|
{
|
|
$id++;
|
|
if ($tcsettings{'ID'} eq $id)
|
|
{
|
|
chomp($line);
|
|
@temp = split(/\,/,$line);
|
|
$tcsettings{'DEFINITION'} = $temp[0];
|
|
$tcsettings{'MON'} = $temp[1];
|
|
$tcsettings{'TUE'} = $temp[2];
|
|
$tcsettings{'WED'} = $temp[3];
|
|
$tcsettings{'THU'} = $temp[4];
|
|
$tcsettings{'FRI'} = $temp[5];
|
|
$tcsettings{'SAT'} = $temp[6];
|
|
$tcsettings{'SUN'} = $temp[7];
|
|
$tcsettings{'FROM_HOUR'} = $temp[8];
|
|
$tcsettings{'FROM_MINUTE'} = $temp[9];
|
|
$tcsettings{'TO_HOUR'} = $temp[10];
|
|
$tcsettings{'TO_MINUTE'} = $temp[11];
|
|
$tcsettings{'SRC'} = $temp[12];
|
|
$tcsettings{'DST'} = $temp[13];
|
|
$tcsettings{'ACCESS'} = $temp[14];
|
|
$tcsettings{'ENABLERULE'} = $temp[15];
|
|
$tcsettings{'COMMENT'} = $temp[16];
|
|
}
|
|
}
|
|
$tcsettings{'TCMODE'}='on';
|
|
}
|
|
|
|
if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'remove'}))
|
|
{
|
|
$id = 0;
|
|
open(FILE, ">$tcfile");
|
|
flock FILE, 2;
|
|
foreach $line (@tclist)
|
|
{
|
|
$id++;
|
|
unless ($tcsettings{'ID'} eq $id) { print FILE "$line"; }
|
|
}
|
|
close(FILE);
|
|
$tcsettings{'CHANGED'}='yes';
|
|
$tcsettings{'TCMODE'}='on';
|
|
}
|
|
|
|
if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter restart'}))
|
|
{
|
|
if (!($proxysettings{'ENABLE_FILTER'} eq 'on'))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter not enabled'};
|
|
}
|
|
if ((!(-e "${General::swroot}/proxy/enable")) && (!(-e "${General::swroot}/proxy/enable_blue")))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter web proxy service required'};
|
|
}
|
|
|
|
if (!$errormessage) { &General::system('/usr/local/bin/squidctrl', 'restart'); }
|
|
$tcsettings{'TCMODE'}='on';
|
|
}
|
|
|
|
if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'}))
|
|
{
|
|
open(FILE, ">$tcfile");
|
|
flock FILE, 2;
|
|
$id = 0;
|
|
foreach $line (@tclist)
|
|
{
|
|
$id++;
|
|
unless ($tcsettings{'ID'} eq $id) { print FILE "$line"; }
|
|
else
|
|
{
|
|
chomp($line);
|
|
@temp = split(/\,/,$line);
|
|
if ($temp[15] eq 'on') { $temp[15] = 'off'; } else { $temp[15] = 'on' }
|
|
print FILE "$temp[0],$temp[1],$temp[2],$temp[3],$temp[4],$temp[5],$temp[6],$temp[7],$temp[8],$temp[9],$temp[10],$temp[11],$temp[12],$temp[13],$temp[14],$temp[15],$temp[16]\n";
|
|
}
|
|
}
|
|
close(FILE);
|
|
$tcsettings{'CHANGED'}='yes';
|
|
$tcsettings{'TCMODE'}='on';
|
|
}
|
|
|
|
if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'edit'}) && (!$errormessage))
|
|
{
|
|
$id = 0;
|
|
foreach $line (@tclist)
|
|
{
|
|
$id++;
|
|
if ($tcsettings{'ID'} eq $id)
|
|
{
|
|
chomp($line);
|
|
@temp = split(/\,/,$line);
|
|
$tcsettings{'DEFINITION'} = $temp[0];
|
|
$tcsettings{'MON'} = $temp[1];
|
|
$tcsettings{'TUE'} = $temp[2];
|
|
$tcsettings{'WED'} = $temp[3];
|
|
$tcsettings{'THU'} = $temp[4];
|
|
$tcsettings{'FRI'} = $temp[5];
|
|
$tcsettings{'SAT'} = $temp[6];
|
|
$tcsettings{'SUN'} = $temp[7];
|
|
$tcsettings{'FROM_HOUR'} = $temp[8];
|
|
$tcsettings{'FROM_MINUTE'} = $temp[9];
|
|
$tcsettings{'TO_HOUR'} = $temp[10];
|
|
$tcsettings{'TO_MINUTE'} = $temp[11];
|
|
$tcsettings{'SRC'} = $temp[12];
|
|
$tcsettings{'DST'} = $temp[13];
|
|
$tcsettings{'ACCESS'} = $temp[14];
|
|
$tcsettings{'ENABLERULE'} = $temp[15];
|
|
$tcsettings{'COMMENT'} = $temp[16];
|
|
}
|
|
}
|
|
$tcsettings{'TCMODE'}='on';
|
|
}
|
|
|
|
if ((!$errormessage) && (!($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter copy rule'})) && (!($tcsettings{'ACTION'} eq $Lang::tr{'edit'}))) {
|
|
$tcsettings{'ENABLERULE'}='on';
|
|
$tcsettings{'TO_HOUR'}='24';
|
|
}
|
|
|
|
if ($uqsettings{'ACTION'} eq $Lang::tr{'urlfilter set user quota'}) { $uqsettings{'UQMODE'} = 'on'}
|
|
|
|
if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'add'}))
|
|
{
|
|
$uqsettings{'UQMODE'}='on';
|
|
|
|
if ((!($uqsettings{'TIME_QUOTA'} =~ /^\d+/)) || ($uqsettings{'TIME_QUOTA'} < '1'))
|
|
{
|
|
$errormessage=$Lang::tr{'urlfilter quota time error'};
|
|
}
|
|
|
|
@temp = split(/\n/,$uqsettings{'QUOTA_USERS'});
|
|
undef $uqsettings{'QUOTA_USERS'};
|
|
foreach (@temp)
|
|
{
|
|
s/^\s+//g; s/\s+$//g;
|
|
if ($_) { $uqsettings{'QUOTA_USERS'} .= $_."\n"; }
|
|
}
|
|
|
|
if ($uqsettings{'QUOTA_USERS'} eq '')
|
|
{
|
|
$errormessage=$Lang::tr{'urlfilter quota user error'};
|
|
}
|
|
|
|
$_ = $uqsettings{'QUOTA_USERS'};
|
|
chomp; s/\n/|/g;
|
|
my $quota_users = $_;
|
|
|
|
if ($uqsettings{'QUOTA_USERS'} =~ /\\/)
|
|
{
|
|
$errormessage=$Lang::tr{'urlfilter invalid user error'};
|
|
}
|
|
|
|
if (!$errormessage) {
|
|
if ($uqsettings{'ENABLEQUOTA'} eq 'on') { $uqsettings{'ACTIVE'} = $uqsettings{'ENABLEQUOTA'}; } else { $uqsettings{'ACTIVE'} = 'off'}
|
|
|
|
$uqsettings{'ENABLERULE'} = 'on';
|
|
if($uqsettings{'EDITING'} eq 'no') {
|
|
open(FILE,">>$uqfile");
|
|
flock FILE, 2;
|
|
print FILE "$uqsettings{'TIME_QUOTA'},$uqsettings{'SPORADIC'},$uqsettings{'RENEWAL'},$quota_users,$uqsettings{'ACTIVE'}\n";
|
|
} else {
|
|
open(FILE, ">$uqfile");
|
|
flock FILE, 2;
|
|
$id = 0;
|
|
foreach $line (@uqlist)
|
|
{
|
|
$id++;
|
|
if ($uqsettings{'EDITING'} eq $id) {
|
|
print FILE "$uqsettings{'TIME_QUOTA'},$uqsettings{'SPORADIC'},$uqsettings{'RENEWAL'},$quota_users,$uqsettings{'ACTIVE'}\n";
|
|
} else { print FILE "$line"; }
|
|
}
|
|
}
|
|
close(FILE);
|
|
undef %uqsettings;
|
|
$uqsettings{'CHANGED'}='yes';
|
|
$uqsettings{'MODE'}='USERQUOTA';
|
|
$uqsettings{'UQMODE'}='on';
|
|
$changed = 'yes';
|
|
} else {
|
|
if ($uqsettings{'EDITING'} ne 'no')
|
|
{
|
|
$uqsettings{'ACTION'} = $Lang::tr{'edit'};
|
|
$uqsettings{'ID'} = $uqsettings{'EDITING'};
|
|
}
|
|
}
|
|
}
|
|
|
|
if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'remove'}))
|
|
{
|
|
$id = 0;
|
|
open(FILE, ">$uqfile");
|
|
flock FILE, 2;
|
|
foreach $line (@uqlist)
|
|
{
|
|
$id++;
|
|
unless ($uqsettings{'ID'} eq $id) { print FILE "$line"; }
|
|
}
|
|
close(FILE);
|
|
$uqsettings{'CHANGED'}='yes';
|
|
$uqsettings{'UQMODE'}='on';
|
|
}
|
|
|
|
if (!$errormessage) {
|
|
$uqsettings{'ENABLEQUOTA'}='on';
|
|
}
|
|
|
|
if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'edit'}) && (!$errormessage))
|
|
{
|
|
$id = 0;
|
|
foreach $line (@uqlist)
|
|
{
|
|
$id++;
|
|
if ($uqsettings{'ID'} eq $id)
|
|
{
|
|
chomp($line);
|
|
@temp = split(/\,/,$line);
|
|
$uqsettings{'TIME_QUOTA'} = $temp[0];
|
|
$uqsettings{'SPORADIC'} = $temp[1];
|
|
$uqsettings{'RENEWAL'} = $temp[2];
|
|
$uqsettings{'QUOTA_USERS'} = $temp[3];
|
|
$uqsettings{'ENABLEQUOTA'} = $temp[4];
|
|
}
|
|
}
|
|
$uqsettings{'UQMODE'}='on';
|
|
}
|
|
|
|
if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'}))
|
|
{
|
|
open(FILE, ">$uqfile");
|
|
flock FILE, 2;
|
|
$id = 0;
|
|
foreach $line (@uqlist)
|
|
{
|
|
$id++;
|
|
unless ($uqsettings{'ID'} eq $id) { print FILE "$line"; }
|
|
else
|
|
{
|
|
chomp($line);
|
|
@temp = split(/\,/,$line);
|
|
if ($temp[4] eq 'on') { $temp[4] = 'off'; } else { $temp[4] = 'on' }
|
|
print FILE "$temp[0],$temp[1],$temp[2],$temp[3],$temp[4]\n";
|
|
}
|
|
}
|
|
close(FILE);
|
|
$uqsettings{'CHANGED'}='yes';
|
|
$uqsettings{'UQMODE'}='on';
|
|
}
|
|
|
|
if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'urlfilter restart'}))
|
|
{
|
|
if (!($proxysettings{'ENABLE_FILTER'} eq 'on'))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter not enabled'};
|
|
}
|
|
if ((!(-e "${General::swroot}/proxy/enable")) && (!(-e "${General::swroot}/proxy/enable_blue")))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter web proxy service required'};
|
|
}
|
|
|
|
if (!$errormessage) { &General::system('/usr/local/bin/squidctrl', 'restart'); }
|
|
$uqsettings{'UQMODE'}='on';
|
|
}
|
|
|
|
if ($besettings{'ACTION'} eq $Lang::tr{'urlfilter blacklist editor'}) { $besettings{'BEMODE'} = 'on'; }
|
|
|
|
if ($besettings{'MODE'} eq 'BLACKLIST_EDITOR')
|
|
{
|
|
@temp = split(/\n/,$besettings{'BE_DOMAINS'});
|
|
undef $besettings{'BE_DOMAINS'};
|
|
foreach (@temp)
|
|
{
|
|
s/^\s+//g; s/\s+$//g;
|
|
if ($_) { $besettings{'BE_DOMAINS'} .= $_."\n"; }
|
|
}
|
|
chomp($besettings{'BE_DOMAINS'});
|
|
@temp = split(/\n/,$besettings{'BE_URLS'});
|
|
undef $besettings{'BE_URLS'};
|
|
foreach (@temp)
|
|
{
|
|
s/^\s+//g; s/\s+$//g;
|
|
if ($_) { $besettings{'BE_URLS'} .= $_."\n"; }
|
|
}
|
|
chomp($besettings{'BE_URLS'});
|
|
@temp = split(/\n/,$besettings{'BE_EXPRESSIONS'});
|
|
undef $besettings{'BE_EXPRESSIONS'};
|
|
foreach (@temp)
|
|
{
|
|
s/^\s+//g; s/\s+$//g;
|
|
if ($_) { $besettings{'BE_EXPRESSIONS'} .= $_."\n"; }
|
|
}
|
|
chomp($besettings{'BE_EXPRESSIONS'});
|
|
}
|
|
|
|
if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter load blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
|
|
{
|
|
$besettings{'BEMODE'} = 'on';
|
|
|
|
$besettings{'BE_NAME'} = $besettings{'BE_BLACKLIST'};
|
|
|
|
delete $besettings{'BE_DOMAINS'};
|
|
delete $besettings{'BE_URLS'};
|
|
delete $besettings{'BE_EXPRESSIONS'};
|
|
|
|
if (-e "$dbdir/$besettings{'BE_NAME'}/domains")
|
|
{
|
|
open(FILE, "$dbdir/$besettings{'BE_NAME'}/domains");
|
|
while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_DOMAINS'} .= $_ } };
|
|
close FILE;
|
|
chomp($besettings{'BE_DOMAINS'});
|
|
}
|
|
if (-e "$dbdir/$besettings{'BE_NAME'}/urls")
|
|
{
|
|
open(FILE, "$dbdir/$besettings{'BE_NAME'}/urls");
|
|
while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_URLS'} .= $_ } };
|
|
close FILE;
|
|
chomp($besettings{'BE_URLS'});
|
|
}
|
|
if (-e "$dbdir/$besettings{'BE_NAME'}/expressions")
|
|
{
|
|
open(FILE, "$dbdir/$besettings{'BE_NAME'}/expressions");
|
|
while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_EXPRESSIONS'} .= $_ } };
|
|
close FILE;
|
|
chomp($besettings{'BE_EXPRESSIONS'});
|
|
}
|
|
}
|
|
|
|
if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter import blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
|
|
{
|
|
$besettings{'BEMODE'} = 'on';
|
|
|
|
&Header::getcgihash(\%besettings, {'wantfile' => 1, 'filevar' => 'IMPORTFILE'});
|
|
|
|
if (!($besettings{'IMPORTFILE'} =~ /.tar.gz$/))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter wrong filetype'};
|
|
} else {
|
|
if (!-d "$editdir") { mkdir("$editdir"); }
|
|
|
|
if (copy($besettings{'IMPORTFILE'}, "$editdir/blacklist.tar.gz") != 1)
|
|
{
|
|
$errormessage = $!;
|
|
} else {
|
|
|
|
my $exitcode = &General::system("/bin/tar", "--no-same-owner", "--preserve-permissions", "-xzf", "$editdir/blacklist.tar.gz", "-C", "$editdir");
|
|
if ($exitcode > 0)
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter tar error'};
|
|
} else {
|
|
$i = 0;
|
|
foreach (<$editdir/blacklists/*>)
|
|
{
|
|
if (-d)
|
|
{
|
|
$i++;
|
|
$besettings{'BE_NAME'} = substr($_, rindex($_,"/")+1);
|
|
}
|
|
}
|
|
|
|
if (!($i == 1))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter invalid import file'};
|
|
} else {
|
|
delete $besettings{'BE_DOMAINS'};
|
|
delete $besettings{'BE_URLS'};
|
|
delete $besettings{'BE_EXPRESSIONS'};
|
|
|
|
if (-e "$editdir/blacklists/$besettings{'BE_NAME'}/domains")
|
|
{
|
|
open(FILE, "$editdir/blacklists/$besettings{'BE_NAME'}/domains");
|
|
while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_DOMAINS'} .= $_ } };
|
|
close FILE;
|
|
chomp($besettings{'BE_DOMAINS'});
|
|
}
|
|
if (-e "$editdir/blacklists/$besettings{'BE_NAME'}/urls")
|
|
{
|
|
open(FILE, "$editdir/blacklists/$besettings{'BE_NAME'}/urls");
|
|
while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_URLS'} .= $_ } };
|
|
close FILE;
|
|
chomp($besettings{'BE_URLS'});
|
|
}
|
|
if (-e "$editdir/blacklists/$besettings{'BE_NAME'}/expressions")
|
|
{
|
|
open(FILE, "$editdir/blacklists/$besettings{'BE_NAME'}/expressions");
|
|
while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_EXPRESSIONS'} .= $_ } };
|
|
close FILE;
|
|
chomp($besettings{'BE_EXPRESSIONS'});
|
|
}
|
|
}
|
|
}
|
|
|
|
if (-d $editdir) { &General::system("rm", "-rf", "$editdir"); }
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter export blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
|
|
{
|
|
$besettings{'BEMODE'} = 'on';
|
|
|
|
if ($besettings{'BE_NAME'} eq '')
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter category name error'};
|
|
} elsif ($besettings{'BE_DOMAINS'} || $besettings{'BE_URLS'} || $besettings{'BE_EXPRESSIONS'}) {
|
|
|
|
$_ = $besettings{'BE_NAME'}; tr/A-Z/a-z/; $besettings{'BE_NAME'} = $_;
|
|
|
|
if (!(-d "$editdir")) { mkdir("$editdir"); }
|
|
if (!(-d "$editdir/blacklists")) { mkdir("$editdir/blacklists"); }
|
|
if (!(-d "$editdir/blacklists/$besettings{'BE_NAME'}")) { mkdir("$editdir/blacklists/$besettings{'BE_NAME'}"); }
|
|
|
|
open(FILE, ">$editdir/blacklists/$besettings{'BE_NAME'}/domains");
|
|
flock FILE, 2;
|
|
print FILE "$besettings{'BE_DOMAINS'}\n";
|
|
close FILE;
|
|
open(FILE, ">$editdir/blacklists/$besettings{'BE_NAME'}/urls");
|
|
flock FILE, 2;
|
|
print FILE "$besettings{'BE_URLS'}\n";
|
|
close FILE;
|
|
open(FILE, ">$editdir/blacklists/$besettings{'BE_NAME'}/expressions");
|
|
flock FILE, 2;
|
|
print FILE "$besettings{'BE_EXPRESSIONS'}\n";
|
|
close FILE;
|
|
|
|
if (&General::system("/bin/tar", "-C", "$editdir", "-czf", "$editdir/$besettings{'BE_NAME'}.tar.gz", "blacklists"))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter export error'};
|
|
}
|
|
else
|
|
{
|
|
print "Content-type: application/gzip\n";
|
|
print "Content-length: ";
|
|
print (-s "$editdir/$besettings{'BE_NAME'}.tar.gz");
|
|
print "\n";
|
|
print "Content-disposition: attachment; filename=$besettings{'BE_NAME'}.tar.gz\n\n";
|
|
|
|
open (FILE, "$editdir/$besettings{'BE_NAME'}.tar.gz");
|
|
while (<FILE>) { print; }
|
|
close (FILE);
|
|
|
|
if (-d $editdir) { &General::system("rm", "-rf", "$editdir"); }
|
|
exit;
|
|
}
|
|
} else {
|
|
$errormessage = $Lang::tr{'urlfilter category data error'};
|
|
}
|
|
}
|
|
|
|
if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter install blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
|
|
{
|
|
$besettings{'BEMODE'} = 'on';
|
|
|
|
if ($besettings{'BE_NAME'} eq '')
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter category name error'};
|
|
} elsif ($besettings{'BE_DOMAINS'} || $besettings{'BE_URLS'} || $besettings{'BE_EXPRESSIONS'}) {
|
|
|
|
$_ = $besettings{'BE_NAME'}; tr/A-Z/a-z/; $besettings{'BE_NAME'} = $_;
|
|
|
|
if (!-d "$editdir") { mkdir("$editdir"); }
|
|
|
|
if (!-d "$dbdir/$besettings{'BE_NAME'}") { mkdir("$dbdir/$besettings{'BE_NAME'}"); }
|
|
|
|
if (-e "$dbdir/$besettings{'BE_NAME'}/domains") { unlink("$dbdir/$besettings{'BE_NAME'}/domains"); }
|
|
if ($besettings{'BE_DOMAINS'})
|
|
{
|
|
open(FILE, ">$dbdir/$besettings{'BE_NAME'}/domains");
|
|
flock FILE, 2;
|
|
print FILE "$besettings{'BE_DOMAINS'}\n";
|
|
close FILE;
|
|
}
|
|
if (-e "$dbdir/$besettings{'BE_NAME'}/urls") { unlink("$dbdir/$besettings{'BE_NAME'}/urls"); }
|
|
if ($besettings{'BE_URLS'})
|
|
{
|
|
open(FILE, ">$dbdir/$besettings{'BE_NAME'}/urls");
|
|
flock FILE, 2;
|
|
print FILE "$besettings{'BE_URLS'}\n";
|
|
close FILE;
|
|
}
|
|
if (-e "$dbdir/$besettings{'BE_NAME'}/expressions") { unlink("$dbdir/$besettings{'BE_NAME'}/expressions"); }
|
|
if ($besettings{'BE_EXPRESSIONS'})
|
|
{
|
|
open(FILE, ">$dbdir/$besettings{'BE_NAME'}/expressions");
|
|
flock FILE, 2;
|
|
print FILE "$besettings{'BE_EXPRESSIONS'}\n";
|
|
close FILE;
|
|
}
|
|
|
|
open(FILE, ">$editdir/install.conf");
|
|
flock FILE, 2;
|
|
print FILE "logdir /var/log/squidGuard\n";
|
|
print FILE "dbhome $dbdir/$besettings{'BE_NAME'}\n\n";
|
|
print FILE "dest $besettings{'BE_NAME'} {\n";
|
|
if ($besettings{'BE_DOMAINS'}) { print FILE " domainlist domains\n"; }
|
|
if ($besettings{'BE_URLS'}) { print FILE " urllist urls\n"; }
|
|
if ($besettings{'BE_EXPRESSIONS'}) { print FILE " expressions expressions\n"; }
|
|
print FILE "}\n\n";
|
|
print FILE "acl {\n";
|
|
print FILE " default {\n";
|
|
print FILE " pass none\n";
|
|
print FILE " }\n";
|
|
print FILE "}\n";
|
|
close FILE;
|
|
|
|
# XXX uses globbing
|
|
system("rm -f $dbdir/$besettings{'BE_NAME'}/*.db");
|
|
&General::system("/usr/bin/squidGuard", "-c", "$editdir/install.conf", "-C", "all");
|
|
# XXX uses globbing
|
|
system("chmod a+w $dbdir/$besettings{'BE_NAME'}/*.db");
|
|
|
|
&readblockcategories;
|
|
&readcustomlists;
|
|
|
|
&writeconfigfile;
|
|
|
|
&General::system('/usr/local/bin/squidctrl', 'restart') unless ($besettings{'NORESTART'} eq 'on');
|
|
|
|
if (-d $editdir) { &General::system("rm", "-rf", "$editdir"); }
|
|
} else {
|
|
$errormessage = $Lang::tr{'urlfilter category data error'};
|
|
}
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter save schedule'})
|
|
{
|
|
if (($filtersettings{'UPDATE_SOURCE'} eq 'custom') && ($filtersettings{'CUSTOM_UPDATE_URL'} eq ''))
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter custom url required'};
|
|
} else {
|
|
open (FILE, ">$updconffile");
|
|
print FILE "ENABLE_AUTOUPDATE=$filtersettings{'ENABLE_AUTOUPDATE'}\n";
|
|
print FILE "UPDATE_SCHEDULE=$filtersettings{'UPDATE_SCHEDULE'}\n";
|
|
print FILE "UPDATE_SOURCE=$filtersettings{'UPDATE_SOURCE'}\n";
|
|
print FILE "CUSTOM_UPDATE_URL=$filtersettings{'CUSTOM_UPDATE_URL'}\n";
|
|
close FILE;
|
|
|
|
|
|
if (($filtersettings{'ENABLE_AUTOUPDATE'} eq 'on') && ($filtersettings{'UPDATE_SCHEDULE'} eq 'daily'))
|
|
{
|
|
&General::system('/usr/local/bin/urlfilterctrl', 'cron', 'daily');
|
|
}
|
|
|
|
if (($filtersettings{'ENABLE_AUTOUPDATE'} eq 'on') && ($filtersettings{'UPDATE_SCHEDULE'} eq 'weekly'))
|
|
{
|
|
&General::system('/usr/local/bin/urlfilterctrl', 'cron', 'weekly');
|
|
}
|
|
|
|
if (($filtersettings{'ENABLE_AUTOUPDATE'} eq 'on') && ($filtersettings{'UPDATE_SCHEDULE'} eq 'monthly'))
|
|
{
|
|
&General::system('/usr/local/bin/urlfilterctrl', 'cron', 'monthly');
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter update now'})
|
|
{
|
|
if ($filtersettings{'UPDATE_SOURCE'} eq 'custom')
|
|
{
|
|
if ($filtersettings{'CUSTOM_UPDATE_URL'} eq '')
|
|
{
|
|
$errormessage = $Lang::tr{'urlfilter custom url required'};
|
|
} else {
|
|
&General::system_background("${General::swroot}/urlfilter/bin/autoupdate.pl", "$filtersettings{'CUSTOM_UPDATE_URL'}");
|
|
}
|
|
} else {
|
|
&General::system_background("${General::swroot}/urlfilter/bin/autoupdate.pl", "$filtersettings{'UPDATE_SOURCE'}");
|
|
}
|
|
}
|
|
|
|
|
|
if (-e "${General::swroot}/urlfilter/settings") { &General::readhash("${General::swroot}/urlfilter/settings", \%filtersettings); }
|
|
|
|
&readcustomlists;
|
|
|
|
ERROR:
|
|
|
|
if ($errormessage) { $filtersettings{'VALID'} = 'no'; }
|
|
|
|
$checked{'ENABLE_CUSTOM_BLACKLIST'}{'off'} = '';
|
|
$checked{'ENABLE_CUSTOM_BLACKLIST'}{'on'} = '';
|
|
$checked{'ENABLE_CUSTOM_BLACKLIST'}{$filtersettings{'ENABLE_CUSTOM_BLACKLIST'}} = "checked='checked'";
|
|
$checked{'ENABLE_CUSTOM_WHITELIST'}{'off'} = '';
|
|
$checked{'ENABLE_CUSTOM_WHITELIST'}{'on'} = '';
|
|
$checked{'ENABLE_CUSTOM_WHITELIST'}{$filtersettings{'ENABLE_CUSTOM_WHITELIST'}} = "checked='checked'";
|
|
$checked{'ENABLE_CUSTOM_EXPRESSIONS'}{'off'} = '';
|
|
$checked{'ENABLE_CUSTOM_EXPRESSIONS'}{'on'} = '';
|
|
$checked{'ENABLE_CUSTOM_EXPRESSIONS'}{$filtersettings{'ENABLE_CUSTOM_EXPRESSIONS'}} = "checked='checked'";
|
|
$checked{'BLOCK_EXECUTABLES'}{'off'} = '';
|
|
$checked{'BLOCK_EXECUTABLES'}{'on'} = '';
|
|
$checked{'BLOCK_EXECUTABLES'}{$filtersettings{'BLOCK_EXECUTABLES'}} = "checked='checked'";
|
|
$checked{'BLOCK_AUDIO-VIDEO'}{'off'} = '';
|
|
$checked{'BLOCK_AUDIO-VIDEO'}{'on'} = '';
|
|
$checked{'BLOCK_AUDIO-VIDEO'}{$filtersettings{'BLOCK_AUDIO-VIDEO'}} = "checked='checked'";
|
|
$checked{'BLOCK_ARCHIVES'}{'off'} = '';
|
|
$checked{'BLOCK_ARCHIVES'}{'on'} = '';
|
|
$checked{'BLOCK_ARCHIVES'}{$filtersettings{'BLOCK_ARCHIVES'}} = "checked='checked'";
|
|
$checked{'ENABLE_REWRITE'}{'off'} = '';
|
|
$checked{'ENABLE_REWRITE'}{'on'} = '';
|
|
$checked{'ENABLE_REWRITE'}{$filtersettings{'ENABLE_REWRITE'}} = "checked='checked'";
|
|
$checked{'SHOW_CATEGORY'}{'off'} = '';
|
|
$checked{'SHOW_CATEGORY'}{'on'} = '';
|
|
$checked{'SHOW_CATEGORY'}{$filtersettings{'SHOW_CATEGORY'}} = "checked='checked'";
|
|
$checked{'SHOW_URL'}{'off'} = '';
|
|
$checked{'SHOW_URL'}{'on'} = '';
|
|
$checked{'SHOW_URL'}{$filtersettings{'SHOW_URL'}} = "checked='checked'";
|
|
$checked{'SHOW_IP'}{'off'} = '';
|
|
$checked{'SHOW_IP'}{'on'} = '';
|
|
$checked{'SHOW_IP'}{$filtersettings{'SHOW_IP'}} = "checked='checked'";
|
|
$checked{'ENABLE_DNSERROR'}{'off'} = '';
|
|
$checked{'ENABLE_DNSERROR'}{'on'} = '';
|
|
$checked{'ENABLE_DNSERROR'}{$filtersettings{'ENABLE_DNSERROR'}} = "checked='checked'";
|
|
$checked{'ENABLE_JPEG'}{'off'} = '';
|
|
$checked{'ENABLE_JPEG'}{'on'} = '';
|
|
$checked{'ENABLE_JPEG'}{$filtersettings{'ENABLE_JPEG'}} = "checked='checked'";
|
|
$checked{'ENABLE_EXPR_LISTS'}{'off'} = '';
|
|
$checked{'ENABLE_EXPR_LISTS'}{'on'} = '';
|
|
$checked{'ENABLE_EXPR_LISTS'}{$filtersettings{'ENABLE_EXPR_LISTS'}} = "checked='checked'";
|
|
$checked{'BLOCK_IP_ADDR'}{'off'} = '';
|
|
$checked{'BLOCK_IP_ADDR'}{'on'} = '';
|
|
$checked{'BLOCK_IP_ADDR'}{$filtersettings{'BLOCK_IP_ADDR'}} = "checked='checked'";
|
|
$checked{'BLOCK_ALL'}{'off'} = '';
|
|
$checked{'BLOCK_ALL'}{'on'} = '';
|
|
$checked{'BLOCK_ALL'}{$filtersettings{'BLOCK_ALL'}} = "checked='checked'";
|
|
$checked{'ENABLE_EMPTY_ADS'}{'off'} = '';
|
|
$checked{'ENABLE_EMPTY_ADS'}{'on'} = '';
|
|
$checked{'ENABLE_EMPTY_ADS'}{$filtersettings{'ENABLE_EMPTY_ADS'}} = "checked='checked'";
|
|
$checked{'ENABLE_GLOBAL_WHITELIST'}{'off'} = '';
|
|
$checked{'ENABLE_GLOBAL_WHITELIST'}{'on'} = '';
|
|
$checked{'ENABLE_GLOBAL_WHITELIST'}{$filtersettings{'ENABLE_GLOBAL_WHITELIST'}} = "checked='checked'";
|
|
$checked{'ENABLE_LOG'}{'off'} = '';
|
|
$checked{'ENABLE_LOG'}{'on'} = '';
|
|
$checked{'ENABLE_LOG'}{$filtersettings{'ENABLE_LOG'}} = "checked='checked'";
|
|
$checked{'ENABLE_USERNAME_LOG'}{'off'} = '';
|
|
$checked{'ENABLE_USERNAME_LOG'}{'on'} = '';
|
|
$checked{'ENABLE_USERNAME_LOG'}{$filtersettings{'ENABLE_USERNAME_LOG'}} = "checked='checked'";
|
|
$checked{'ENABLE_CATEGORY_LOG'}{'off'} = '';
|
|
$checked{'ENABLE_CATEGORY_LOG'}{'on'} = '';
|
|
$checked{'ENABLE_CATEGORY_LOG'}{$filtersettings{'ENABLE_CATEGORY_LOG'}} = "checked='checked'";
|
|
|
|
foreach $category (@filtergroups) {
|
|
$checked{$category}{'off'} = '';
|
|
$checked{$category}{'on'} = '';
|
|
$checked{$category}{$filtersettings{$category}} = "checked='checked'";
|
|
}
|
|
|
|
$selected{'REDIRECT_TEMPLATE'}{$filtersettings{'REDIRECT_TEMPLATE'}} = "selected='selected'";
|
|
|
|
$selected{'DEFINITION'}{$tcsettings{'DEFINITION'}} = "selected='selected'";
|
|
$selected{'FROM_HOUR'}{$tcsettings{'FROM_HOUR'}} = "selected='selected'";
|
|
$selected{'FROM_MINUTE'}{$tcsettings{'FROM_MINUTE'}} = "selected='selected'";
|
|
$selected{'TO_HOUR'}{$tcsettings{'TO_HOUR'}} = "selected='selected'";
|
|
$selected{'TO_MINUTE'}{$tcsettings{'TO_MINUTE'}} = "selected='selected'";
|
|
|
|
@selectedcategories = split(/\|/,$tcsettings{'DST'});
|
|
foreach (@selectedcategories)
|
|
{
|
|
$selected{'DST'}{$_} = "selected='selected'";
|
|
}
|
|
|
|
$selected{'ACCESS'}{$tcsettings{'ACCESS'}} = "selected='selected'";
|
|
|
|
$checked{'ENABLERULE'}{'off'} = '';
|
|
$checked{'ENABLERULE'}{'on'} = '';
|
|
$checked{'ENABLERULE'}{$tcsettings{'ENABLERULE'}} = "checked='checked'";
|
|
$checked{'MON'}{'off'} = '';
|
|
$checked{'MON'}{'on'} = '';
|
|
$checked{'MON'}{$tcsettings{'MON'}} = "checked='checked'";
|
|
$checked{'TUE'}{'off'} = '';
|
|
$checked{'TUE'}{'on'} = '';
|
|
$checked{'TUE'}{$tcsettings{'TUE'}} = "checked='checked'";
|
|
$checked{'WED'}{'off'} = '';
|
|
$checked{'WED'}{'on'} = '';
|
|
$checked{'WED'}{$tcsettings{'WED'}} = "checked='checked'";
|
|
$checked{'THU'}{'off'} = '';
|
|
$checked{'THU'}{'on'} = '';
|
|
$checked{'THU'}{$tcsettings{'THU'}} = "checked='checked'";
|
|
$checked{'FRI'}{'off'} = '';
|
|
$checked{'FRI'}{'on'} = '';
|
|
$checked{'FRI'}{$tcsettings{'FRI'}} = "checked='checked'";
|
|
$checked{'SAT'}{'off'} = '';
|
|
$checked{'SAT'}{'on'} = '';
|
|
$checked{'SAT'}{$tcsettings{'SAT'}} = "checked='checked'";
|
|
$checked{'SUN'}{'off'} = '';
|
|
$checked{'SUN'}{'on'} = '';
|
|
$checked{'SUN'}{$tcsettings{'SUN'}} = "checked='checked'";
|
|
|
|
$selected{'SPORADIC'}{$uqsettings{'SPORADIC'}} = "selected='selected'";
|
|
$selected{'RENEWAL'} {$uqsettings{'RENEWAL'}} = "selected='selected'";
|
|
|
|
$checked{'ENABLEQUOTA'}{'off'} = '';
|
|
$checked{'ENABLEQUOTA'}{'on'} = '';
|
|
$checked{'ENABLEQUOTA'}{$uqsettings{'ENABLEQUOTA'}} = "checked='checked'";
|
|
|
|
$selected{'BE_BLACKLIST'}{$besettings{'BE_BLACKLIST'}} = "selected='selected'";
|
|
|
|
|
|
&Header::showhttpheaders();
|
|
|
|
&Header::openpage($Lang::tr{'urlfilter configuration'}, 1, '');
|
|
|
|
&Header::openbigbox('100%', 'left', '', $errormessage);
|
|
|
|
if ($errormessage) {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
|
print "<font class='base'>$errormessage </font>\n";
|
|
&Header::closebox();
|
|
} elsif (($tcsettings{'CHANGED'} eq 'yes') || ($uqsettings{'CHANGED'} eq 'yes') ) {
|
|
&writeconfigfile;
|
|
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'urlfilter restart notification'}:");
|
|
print "<class name='base'>$Lang::tr{'urlfilter restart message'}\n";
|
|
if ($uqsettings{'MODE'} eq 'USERQUOTA') { print "<p><class name='base'>$Lang::tr{'urlfilter quota restart message'}\n"; }
|
|
print "</class>\n";
|
|
print "<p><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter restart'}' />";
|
|
if ($tcsettings{'MODE'} eq 'TIMECONSTRAINT') { print "<input type='hidden' name='MODE' value='TIMECONSTRAINT' />"; }
|
|
if ($uqsettings{'MODE'} eq 'USERQUOTA') { print "<input type='hidden' name='MODE' value='USERQUOTA' />"; }
|
|
&Header::closebox();
|
|
print "</form>\n";
|
|
}
|
|
|
|
if ($restoremessage) {
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'urlfilter restore results'}:");
|
|
print "<class name='base'>$restoremessage\n";
|
|
print " </class>\n";
|
|
&Header::closebox();
|
|
}
|
|
|
|
if ((!$tcsettings{'TCMODE'}) && (!$uqsettings{'UQMODE'}) && (!$besettings{'BEMODE'})) {
|
|
|
|
if (!($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter manage repository'})) {
|
|
|
|
#==========================================================
|
|
#
|
|
# Section: Main Configuration
|
|
#
|
|
#==========================================================
|
|
|
|
print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
|
|
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'urlfilter filter settings'}");
|
|
print <<END
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4'><b>$Lang::tr{'urlfilter block categories'}</b></td>
|
|
</tr>
|
|
END
|
|
;
|
|
|
|
if (@categories == 0) {
|
|
print <<END
|
|
<tr>
|
|
<td><i>$Lang::tr{'urlfilter no categories'}</i></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
|
|
END
|
|
;
|
|
}
|
|
|
|
for ($n=0; $n<=@categories; $n = $n + $i) {
|
|
for ($i=0; $i<=3; $i++) {
|
|
if ($i eq 0) { print "<tr>\n"; }
|
|
if (($n+$i) < @categories) {
|
|
print "<td width='15%'>@categories[$n+$i]:<\/td>\n";
|
|
print "<td width='10%'><input type='checkbox' name=@filtergroups[$n+$i] $checked{@filtergroups[$n+$i]}{'on'} /></td>\n";
|
|
}
|
|
if ($i eq 3) { print "<\/tr>\n"; }
|
|
}
|
|
}
|
|
|
|
print <<END
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td><b>$Lang::tr{'urlfilter custom blacklist'}</b></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'>$Lang::tr{'urlfilter blocked domains'}</td>
|
|
<td colspan='2'>$Lang::tr{'urlfilter blocked urls'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'>$Lang::tr{'urlfilter example'}</td>
|
|
<td colspan='2'>$Lang::tr{'urlfilter example ads'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2' width='50%'><textarea name='CUSTOM_BLACK_DOMAINS' cols='32' rows='6' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $filtersettings{'CUSTOM_BLACK_DOMAINS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
<td colspan='2' width='50%'><textarea name='CUSTOM_BLACK_URLS' cols='32' rows='6' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $filtersettings{'CUSTOM_BLACK_URLS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
</tr>
|
|
</table>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base' width='25%'>$Lang::tr{'urlfilter enable custom blacklist'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_CUSTOM_BLACKLIST' $checked{'ENABLE_CUSTOM_BLACKLIST'}{'on'} /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td><b>$Lang::tr{'urlfilter custom whitelist'}</b></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'>$Lang::tr{'urlfilter allowed domains'}</td>
|
|
<td colspan='2'>$Lang::tr{'urlfilter allowed urls'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'>$Lang::tr{'urlfilter example'}</td>
|
|
<td colspan='2'>$Lang::tr{'urlfilter example ads'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2' width='50%'><textarea name='CUSTOM_WHITE_DOMAINS' cols='32' rows='6' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $filtersettings{'CUSTOM_WHITE_DOMAINS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
<td colspan='2' width='50%'><textarea name='CUSTOM_WHITE_URLS' cols='32' rows='6' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $filtersettings{'CUSTOM_WHITE_URLS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
</tr>
|
|
</table>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base' width='25%'>$Lang::tr{'urlfilter enable custom whitelist'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_CUSTOM_WHITELIST' $checked{'ENABLE_CUSTOM_WHITELIST'}{'on'} /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4'><b>$Lang::tr{'urlfilter custom expression list'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='4'>$Lang::tr{'urlfilter blocked expressions'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='4'><textarea name='CUSTOM_EXPRESSIONS' cols='70' rows='3' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $filtersettings{'CUSTOM_EXPRESSIONS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base' width='25%'>$Lang::tr{'urlfilter enable custom expression list'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_CUSTOM_EXPRESSIONS' $checked{'ENABLE_CUSTOM_EXPRESSIONS'}{'on'} /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4'><b>$Lang::tr{'urlfilter file ext block'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter block executables'}:</td>
|
|
<td width='12%'><input type='checkbox' name='BLOCK_EXECUTABLES' $checked{'BLOCK_EXECUTABLES'}{'on'} /></td>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter block audio-video'}:</td>
|
|
<td><input type='checkbox' name='BLOCK_AUDIO-VIDEO' $checked{'BLOCK_AUDIO-VIDEO'}{'on'} /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter block archives'}:</td>
|
|
<td><input type='checkbox' name='BLOCK_ARCHIVES' $checked{'BLOCK_ARCHIVES'}{'on'} /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4'><b>$Lang::tr{'urlfilter local file redirection'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter enable rewrite rules'}:</td>
|
|
<td width='12%'><input type='checkbox' name='ENABLE_REWRITE' $checked{'ENABLE_REWRITE'}{'on'} /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter manage repository'}'></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='2'><b>$Lang::tr{'urlfilter network access control'}</b></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'>$Lang::tr{'urlfilter unfiltered clients'}</td>
|
|
<td colspan='2'>$Lang::tr{'urlfilter banned clients'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2' width='50%'><textarea name='UNFILTERED_CLIENTS' cols='32' rows='6' wrap='off'>
|
|
END
|
|
;
|
|
|
|
# transform from pre1.8 client definitions
|
|
$filtersettings{'UNFILTERED_CLIENTS'} =~ s/^\s+//g;
|
|
$filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+$//g;
|
|
$filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+-\s+/-/g;
|
|
$filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+/ /g;
|
|
|
|
@clients = split(/ /,$filtersettings{'UNFILTERED_CLIENTS'});
|
|
undef $filtersettings{'UNFILTERED_CLIENTS'};
|
|
foreach (@clients) { $filtersettings{'UNFILTERED_CLIENTS'} .= "$_\n"; }
|
|
|
|
print $filtersettings{'UNFILTERED_CLIENTS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
<td colspan='2' width='50%'><textarea name='BANNED_CLIENTS' cols='32' rows='6' wrap='off'>
|
|
END
|
|
;
|
|
|
|
# transform from pre1.8 client definitions
|
|
$filtersettings{'BANNED_CLIENTS'} =~ s/^\s+//g;
|
|
$filtersettings{'BANNED_CLIENTS'} =~ s/\s+$//g;
|
|
$filtersettings{'BANNED_CLIENTS'} =~ s/\s+-\s+/-/g;
|
|
$filtersettings{'BANNED_CLIENTS'} =~ s/\s+/ /g;
|
|
|
|
@clients = split(/ /,$filtersettings{'BANNED_CLIENTS'});
|
|
undef $filtersettings{'BANNED_CLIENTS'};
|
|
foreach (@clients) { $filtersettings{'BANNED_CLIENTS'} .= "$_\n"; }
|
|
|
|
print $filtersettings{'BANNED_CLIENTS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4'><b>$Lang::tr{'urlfilter timebased access control'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter set time constraints'}'></td>
|
|
<td width='25%'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter set user quota'}'></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4'><b>$Lang::tr{'urlfilter block settings'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter redirect template'}</td>
|
|
<td width='75%' colspan='2'>
|
|
<select name='REDIRECT_TEMPLATE'>
|
|
END
|
|
;
|
|
|
|
foreach (<$templatedir/*>) {
|
|
if ((-d "$_") && (-e "$_/template.html")) {
|
|
my $template = substr($_,rindex($_,"/")+1);
|
|
print "<option value='$template' $selected{'REDIRECT_TEMPLATE'}{$template}>$template</option>\n";
|
|
}
|
|
}
|
|
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter show category'}:</td>
|
|
<td width='12%'><input type='checkbox' name='SHOW_CATEGORY' $checked{'SHOW_CATEGORY'}{'on'} /></td>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter redirectpage'}:</td>
|
|
<td><input type='text' name='REDIRECT_PAGE' value='$filtersettings{'REDIRECT_PAGE'}' size='40' /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter show url'}:</td>
|
|
<td><input type='checkbox' name='SHOW_URL' $checked{'SHOW_URL'}{'on'} /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter msg text 1'}:</td>
|
|
<td><input type='text' name='MSG_TEXT_1' value='$filtersettings{'MSG_TEXT_1'}' size='40' /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter show ip'}:</td>
|
|
<td><input type='checkbox' name='SHOW_IP' $checked{'SHOW_IP'}{'on'} /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter msg text 2'}:</td>
|
|
<td><input type='text' name='MSG_TEXT_2' value='$filtersettings{'MSG_TEXT_2'}' size='40' /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter show dnserror'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_DNSERROR' $checked{'ENABLE_DNSERROR'}{'on'} /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter msg text 3'}:</td>
|
|
<td><input type='text' name='MSG_TEXT_3' value='$filtersettings{'MSG_TEXT_3'}' size='40' /></td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4'><b>$Lang::tr{'urlfilter advanced settings'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter enable expression lists'}:</td>
|
|
<td width='12%'><input type='checkbox' name='ENABLE_EXPR_LISTS' $checked{'ENABLE_EXPR_LISTS'}{'on'} /></td>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter enable log'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_LOG' $checked{'ENABLE_LOG'}{'on'} /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter empty ads'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_EMPTY_ADS' $checked{'ENABLE_EMPTY_ADS'}{'on'} /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter username log'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_USERNAME_LOG' $checked{'ENABLE_USERNAME_LOG'}{'on'} /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter block ip'}:</td>
|
|
<td><input type='checkbox' name='BLOCK_IP_ADDR' $checked{'BLOCK_IP_ADDR'}{'on'} /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter category log'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_CATEGORY_LOG' $checked{'ENABLE_CATEGORY_LOG'}{'on'} /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter block all'}:</td>
|
|
<td><input type='checkbox' name='BLOCK_ALL' $checked{'BLOCK_ALL'}{'on'} /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter whitelist always allowed'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_GLOBAL_WHITELIST' $checked{'ENABLE_GLOBAL_WHITELIST'}{'on'} /></td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td><img src='/blob.gif' align='top' alt='*' /> <font class='base'>$Lang::tr{'required field'}</font></td>
|
|
<td align='right'> </td>
|
|
</tr>
|
|
</table>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td> </td>
|
|
<td align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
|
|
<td align='center'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter save and restart'}' /></td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
END
|
|
;
|
|
|
|
&Header::closebox();
|
|
|
|
print "</form>\n";
|
|
|
|
print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
|
|
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'urlfilter maintenance'}");
|
|
|
|
print <<END
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base'><b>$Lang::tr{'urlfilter blacklist update'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td>$Lang::tr{'urlfilter upload information'}<p>$Lang::tr{'urlfilter upload text'}:</td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='file' name='UPDATEFILE' size='40' /> <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter upload blacklist'}' /></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<hr size='1'>
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='2' class='base'><b>$Lang::tr{'urlfilter automatic blacklist update'}</b>
|
|
END
|
|
;
|
|
if (-e "$updflagfile")
|
|
{
|
|
$blacklistage = int(-M "$updflagfile");
|
|
print " <b>[</b> <small><i>$Lang::tr{'urlfilter blacklist age 1'} <b>$blacklistage</b> $Lang::tr{'urlfilter blacklist age 2'}</i></small> <b>]</b>";
|
|
}
|
|
|
|
$updatesettings{'UPDATE_SCHEDULE'} = 'monthly';
|
|
$updatesettings{'CUSTOM_UPDATE_URL'} = '';
|
|
|
|
if (-e "$updconffile") { &General::readhash("$updconffile", \%updatesettings); }
|
|
|
|
$checked{'ENABLE_AUTOUPDATE'}{'off'} = '';
|
|
$checked{'ENABLE_AUTOUPDATE'}{'on'} = '';
|
|
$checked{'ENABLE_AUTOUPDATE'}{$updatesettings{'ENABLE_AUTOUPDATE'}} = "checked='checked'";
|
|
|
|
$selected{'UPDATE_SCHEDULE'}{$updatesettings{'UPDATE_SCHEDULE'}} = "selected='selected'";
|
|
|
|
$selected{'UPDATE_SOURCE'}{$updatesettings{'UPDATE_SOURCE'}} = "selected='selected'";
|
|
|
|
print <<END
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter enable automatic blacklist update'}:</td>
|
|
<td width='75%' class='base'><input type='checkbox' name='ENABLE_AUTOUPDATE' $checked{'ENABLE_AUTOUPDATE'}{'on'} /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter automatic update schedule'}:</td>
|
|
<td class='base'>
|
|
<select name='UPDATE_SCHEDULE'>
|
|
<option value='daily' $selected{'UPDATE_SCHEDULE'}{'daily'}>$Lang::tr{'urlfilter daily'}</option>
|
|
<option value='weekly' $selected{'UPDATE_SCHEDULE'}{'weekly'}>$Lang::tr{'urlfilter weekly'}</option>
|
|
<option value='monthly' $selected{'UPDATE_SCHEDULE'}{'monthly'}>$Lang::tr{'urlfilter monthly'}</option>
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter select source'}:</td>
|
|
<td class='base' colspan='2'>
|
|
<select name='UPDATE_SOURCE'>
|
|
END
|
|
;
|
|
|
|
foreach (@source_urllist) {
|
|
chomp;
|
|
$source_name = substr($_,0,rindex($_,","));
|
|
$source_url = substr($_,index($_,",")+1);
|
|
print "\t<option value='$source_url' $selected{'UPDATE_SOURCE'}{$source_url}>$source_name</option>\n";
|
|
}
|
|
|
|
print <<END
|
|
<option value='custom' $selected{'UPDATE_SOURCE'}{'custom'}>$Lang::tr{'urlfilter custom url'}</option>
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td>$Lang::tr{'urlfilter custom url'}:</td>
|
|
<td><input type='text' name='CUSTOM_UPDATE_URL' value='$updatesettings{'CUSTOM_UPDATE_URL'}' size='72' /></td>
|
|
</tr>
|
|
</table>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='25%'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter save schedule'}'> <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter update now'}'></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<hr size='1'>
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base'><b>$Lang::tr{'urlfilter blacklist editor'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td>$Lang::tr{'urlfilter blacklist editor info'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter blacklist editor'}' /></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<hr size='1'>
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td colspan='4' class='base'><b>$Lang::tr{'urlfilter backup settings'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter enable full backup'}:</td>
|
|
<td width='12%' class='base'><input type='checkbox' name='ENABLE_FULLBACKUP' $checked{'ENABLE_FULLBACKUP'}{'on'} /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='4' class='base'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter backup'}' /></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<hr size='1'>
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base'><b>$Lang::tr{'urlfilter restore settings'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td>$Lang::tr{'urlfilter restore text'}:</td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='file' name='UPDATEFILE' size='40' /> <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter restore'}' /></td>
|
|
</tr>
|
|
</table>
|
|
</form>
|
|
END
|
|
;
|
|
|
|
&Header::closebox();
|
|
|
|
} else {
|
|
|
|
#==========================================================
|
|
#
|
|
# Section: Manage Repository
|
|
#
|
|
#==========================================================
|
|
|
|
print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
|
|
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'urlfilter manage local file repository'}:");
|
|
print <<END
|
|
<table width='100%'>
|
|
<tr>
|
|
<td>$Lang::tr{'urlfilter repository information'}<br><br></td>
|
|
</tr>
|
|
<tr>
|
|
<td>$Lang::tr{'urlfilter upload file text'}:</td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='file' name='UPLOADFILE' size='50' /> <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter upload file'}' /></td>
|
|
</tr>
|
|
<tr>
|
|
<td><br><b>$Lang::tr{'urlfilter upload file information 1'}:</b> $Lang::tr{'urlfilter upload file information 2'}</td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
|
|
</tr>
|
|
</table>
|
|
</form>
|
|
END
|
|
;
|
|
|
|
&Header::closebox();
|
|
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'urlfilter current files'}: </b>[$repository]");
|
|
|
|
@repositorylist = <$repository/*>;
|
|
|
|
undef @repositoryfiles;
|
|
foreach (@repositorylist)
|
|
{
|
|
if (!-d) { push(@repositoryfiles,substr($_,rindex($_,"/")+1)); }
|
|
}
|
|
|
|
if (@repositoryfiles)
|
|
{
|
|
print <<END
|
|
<table width='100%'>
|
|
<tr>
|
|
<td align='center'><b>$Lang::tr{'urlfilter filename'}</b></td>
|
|
<td width='15%' align='center'><b>$Lang::tr{'urlfilter filesize'}</b></td>
|
|
<td width='10%'></td>
|
|
</tr>
|
|
END
|
|
;
|
|
$id = 0;
|
|
foreach $line (@repositoryfiles)
|
|
{
|
|
$id++;
|
|
if ($id % 2) {
|
|
print "<tr bgcolor='$Header::table1colour'>\n"; }
|
|
else {
|
|
print "<tr bgcolor='$Header::table2colour'>\n"; }
|
|
$filesize = (-s "$repository/$line");
|
|
1 while $filesize =~ s/^(-?\d+)(\d{3})/$1.$2/;
|
|
|
|
print <<END
|
|
<td> $line</td>
|
|
<td align='right'>$filesize </td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
|
|
<input type='hidden' name='ID' value='$line' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'urlfilter remove file'}' />
|
|
</form>
|
|
</td>
|
|
|
|
</tr>
|
|
END
|
|
;
|
|
}
|
|
|
|
print <<END
|
|
</table>
|
|
<table>
|
|
<tr>
|
|
</tr>
|
|
</table>
|
|
<table>
|
|
<tr>
|
|
<td class='boldbase'> <b>$Lang::tr{'legend'}:</b></td>
|
|
<td> <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
|
|
<td class='base'>$Lang::tr{'remove'}</td>
|
|
</tr>
|
|
</table>
|
|
END
|
|
;
|
|
} else {
|
|
|
|
print "<i>$Lang::tr{'urlfilter empty repository'}</i>\n";
|
|
}
|
|
|
|
&Header::closebox();
|
|
|
|
}
|
|
|
|
} elsif ($tcsettings{'TCMODE'}) {
|
|
|
|
#==========================================================
|
|
#
|
|
# Section: Set Time Constraints
|
|
#
|
|
#==========================================================
|
|
|
|
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
|
|
|
|
$buttontext = $Lang::tr{'urlfilter add rule'};
|
|
if ($tcsettings{'ACTION'} eq $Lang::tr{'edit'}) {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'urlfilter edit time constraint rule'}.':');
|
|
$buttontext = $Lang::tr{'urlfilter update rule'};
|
|
} else {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'urlfilter add new time constraint rule'}.':');
|
|
}
|
|
print <<END
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='2%'>$Lang::tr{'urlfilter constraint definition'}</td>
|
|
<td width='1%'> </td>
|
|
<td width='2%' align='center'>$Lang::tr{'urlfilter monday'}</td>
|
|
<td width='2%' align='center'>$Lang::tr{'urlfilter tuesday'}</td>
|
|
<td width='2%' align='center'>$Lang::tr{'urlfilter wednesday'}</td>
|
|
<td width='2%' align='center'>$Lang::tr{'urlfilter thursday'}</td>
|
|
<td width='2%' align='center'>$Lang::tr{'urlfilter friday'}</td>
|
|
<td width='2%' align='center'>$Lang::tr{'urlfilter saturday'}</td>
|
|
<td width='2%' align='center'>$Lang::tr{'urlfilter sunday'}</td>
|
|
<td width='1%'> </td>
|
|
<td width='7%' colspan=3>$Lang::tr{'urlfilter from'}</td>
|
|
<td width='1%'> </td>
|
|
<td width='7%' colspan=3>$Lang::tr{'urlfilter to'}</td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>
|
|
<select name='DEFINITION'>
|
|
<option value='within' $selected{'DEFINITION'}{'within'}>$Lang::tr{'urlfilter constraint within'}</option>
|
|
<option value='outside' $selected{'DEFINITION'}{'outside'}>$Lang::tr{'urlfilter constraint outside'}</option>
|
|
</select>
|
|
</td>
|
|
<td> </td>
|
|
<td class='base'><input type='checkbox' name='MON' $checked{'MON'}{'on'} /></td>
|
|
<td class='base'><input type='checkbox' name='TUE' $checked{'TUE'}{'on'} /></td>
|
|
<td class='base'><input type='checkbox' name='WED' $checked{'WED'}{'on'} /></td>
|
|
<td class='base'><input type='checkbox' name='THU' $checked{'THU'}{'on'} /></td>
|
|
<td class='base'><input type='checkbox' name='FRI' $checked{'FRI'}{'on'} /></td>
|
|
<td class='base'><input type='checkbox' name='SAT' $checked{'SAT'}{'on'} /></td>
|
|
<td class='base'><input type='checkbox' name='SUN' $checked{'SUN'}{'on'} /></td>
|
|
<td> </td>
|
|
<td class='base'>
|
|
<select name='FROM_HOUR'>
|
|
END
|
|
;
|
|
for ($i=0;$i<=24;$i++) {
|
|
$_ = sprintf("%02s",$i);
|
|
print "<option $selected{'FROM_HOUR'}{$_}>$_</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td>:</td>
|
|
<td class='base'>
|
|
<select name='FROM_MINUTE'>
|
|
END
|
|
;
|
|
for ($i=0;$i<=45;$i+=15) {
|
|
$_ = sprintf("%02s",$i);
|
|
print "<option $selected{'FROM_MINUTE'}{$_}>$_</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
<td> - </td>
|
|
</td>
|
|
<td class='base'>
|
|
<select name='TO_HOUR'>
|
|
END
|
|
;
|
|
for ($i=0;$i<=24;$i++) {
|
|
$_ = sprintf("%02s",$i);
|
|
print "<option $selected{'TO_HOUR'}{$_}>$_</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td>:</td>
|
|
<td class='base'>
|
|
<select name='TO_MINUTE'>
|
|
END
|
|
;
|
|
for ($i=0;$i<=45;$i+=15) {
|
|
$_ = sprintf("%02s",$i);
|
|
print "<option $selected{'TO_MINUTE'}{$_}>$_</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
|
|
<br>
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='5%'>$Lang::tr{'urlfilter source'} <img src='/blob.gif' alt='*' /></td>
|
|
<td width='1%'> </td>
|
|
<td width='5%'>$Lang::tr{'urlfilter dst'} <img src='/blob.gif' alt='*' /></td>
|
|
<td width='1%'> </td>
|
|
<td width='5%'>$Lang::tr{'urlfilter access'}</td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td rowspan='2'><textarea name='SRC' cols='28' rows='5' wrap='off'>
|
|
END
|
|
;
|
|
|
|
# transform from pre1.8 client definitions
|
|
$tcsettings{'SRC'} =~ s/^\s+//g;
|
|
$tcsettings{'SRC'} =~ s/\s+$//g;
|
|
$tcsettings{'SRC'} =~ s/\s+-\s+/-/g;
|
|
$tcsettings{'SRC'} =~ s/\s+/ /g;
|
|
|
|
@clients = split(/ /,$tcsettings{'SRC'});
|
|
undef $tcsettings{'SRC'};
|
|
foreach (@clients) { $tcsettings{'SRC'} .= "$_\n"; }
|
|
|
|
print $tcsettings{'SRC'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
|
|
<td> </td>
|
|
<td class='base' rowspan='2' valign='top'>
|
|
<select name='DST' size='6' multiple>
|
|
<option value='any' $selected{'DST'}{'any'} = "selected='selected'">$Lang::tr{'urlfilter category all'}</option>
|
|
<option value='in-addr' $selected{'DST'}{'in-addr'} = "selected='selected'">in-addr</option>
|
|
END
|
|
;
|
|
|
|
&readblockcategories;
|
|
foreach (@categories)
|
|
{
|
|
print "<option value='$_' $selected{'DST'}{$_}>$_</option>\n";
|
|
}
|
|
|
|
print <<END
|
|
<option value='files' $selected{'DST'}{'files'} = "selected='selected'">files</option>
|
|
<option value='custom-blocked' $selected{'DST'}{'custom-blocked'} = "selected='selected'">custom-blocked</option>
|
|
<option value='custom-expressions' $selected{'DST'}{'custom-expressions'} = "selected='selected'">custom-expressions</option>
|
|
</select>
|
|
</td>
|
|
<td> </td>
|
|
<td class='base' valign='top'>
|
|
<select name='ACCESS'>
|
|
<option value='block' $selected{'ACCESS'}{'block'}>$Lang::tr{'urlfilter mode block'}</option>
|
|
<option value='allow' $selected{'ACCESS'}{'allow'}>$Lang::tr{'urlfilter mode allow'}</option>
|
|
</select>
|
|
</td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td>$Lang::tr{'remark'}</td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='text' name='COMMENT' value='$tcsettings{'COMMENT'}' size='32' /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
</table>
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter enabled'}<input type='checkbox' name='ENABLERULE' $checked{'ENABLERULE'}{'on'} /></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<p>
|
|
|
|
<table width='50%'>
|
|
<tr>
|
|
<td><input type='hidden' name='ACTION' value='$Lang::tr{'add'}' /></td>
|
|
<td><input type='hidden' name='MODE' value='TIMECONSTRAINT' /></td>
|
|
<td><input type='submit' name='SUBMIT' value='$buttontext' /></td>
|
|
<td><input type='reset' name='ACTION' value='$Lang::tr{'urlfilter reset'}' /></td>
|
|
<td> </td>
|
|
<td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
|
|
</tr>
|
|
</table>
|
|
<p>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='1%' align='right'> <img src='/blob.gif' align='top' alt='*' /> </td>
|
|
<td><font class='base'>$Lang::tr{'required field'}</font></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='1%' align='right'> </td>
|
|
<td><font class='base'>$Lang::tr{'urlfilter select multi'}</font></td>
|
|
</tr>
|
|
</table>
|
|
END
|
|
;
|
|
|
|
if ($tcsettings{'ACTION'} eq $Lang::tr{'edit'}) {
|
|
print "<input type='hidden' name='EDITING' value='$tcsettings{'ID'}' />\n";
|
|
} else {
|
|
print "<input type='hidden' name='EDITING' value='no' />\n";
|
|
}
|
|
|
|
&Header::closebox();
|
|
print "</form>\n";
|
|
|
|
&Header::openbox('100%', 'left', $Lang::tr{'current rules'});
|
|
print <<END
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='5%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter constraint definition'}</b></td>
|
|
<td width='10%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter time space'}</b></td>
|
|
<td width='15%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter src'}</b></td>
|
|
<td width='5%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter dst'}</b></td>
|
|
<td width='10%' class='boldbase' colspan='5' align='center'> </td>
|
|
</tr>
|
|
END
|
|
;
|
|
|
|
if ($tcsettings{'ACTION'} ne '' or $changed ne 'no')
|
|
{
|
|
open(FILE, $tcfile);
|
|
@tclist = <FILE>;
|
|
close(FILE);
|
|
}
|
|
|
|
$id = 0;
|
|
foreach $line (@tclist)
|
|
{
|
|
$id++;
|
|
chomp($line);
|
|
@temp = split(/\,/,$line);
|
|
if($tcsettings{'ACTION'} eq $Lang::tr{'edit'} && $tcsettings{'ID'} eq $id) {
|
|
print "<tr bgcolor='$Header::colouryellow'>\n"; }
|
|
elsif ($id % 2) {
|
|
print "<tr bgcolor='$Header::table1colour'>\n"; }
|
|
else {
|
|
print "<tr bgcolor='$Header::table2colour'>\n"; }
|
|
if ($temp[0] eq 'within') { $temp[0]=$Lang::tr{'urlfilter constraint within'}; } else { $temp[0]=$Lang::tr{'urlfilter constraint outside'}; }
|
|
if ($temp[13] eq 'any') { $temp[13]=$Lang::tr{'urlfilter category all'}; }
|
|
if ($temp[15] eq 'on') { $gif='on.gif'; $toggle='off'; $gdesc=$Lang::tr{'click to disable'};}
|
|
else { $gif='off.gif'; $toggle='on'; $gdesc=$Lang::tr{'click to enable'}; }
|
|
if ($temp[14] eq 'block') { $led='led-red.gif'; $ldesc=$Lang::tr{'urlfilter block access'};}
|
|
else { $led='led-green.gif'; $ldesc=$Lang::tr{'urlfilter allow access'}; }
|
|
|
|
undef $time;
|
|
if ($temp[1] eq 'on') { $time.=$Lang::tr{'urlfilter mon'}; } else { $time.='='; }
|
|
if ($temp[2] eq 'on') { $time.=$Lang::tr{'urlfilter tue'}; } else { $time.='='; }
|
|
if ($temp[3] eq 'on') { $time.=$Lang::tr{'urlfilter wed'}; } else { $time.='='; }
|
|
if ($temp[4] eq 'on') { $time.=$Lang::tr{'urlfilter thu'}; } else { $time.='='; }
|
|
if ($temp[5] eq 'on') { $time.=$Lang::tr{'urlfilter fri'}; } else { $time.='='; }
|
|
if ($temp[6] eq 'on') { $time.=$Lang::tr{'urlfilter sat'}; } else { $time.='='; }
|
|
if ($temp[7] eq 'on') { $time.=$Lang::tr{'urlfilter sun'}; } else { $time.='='; }
|
|
$time=$time.' '.$temp[8].':'.$temp[9].' to '.$temp[10].':'.$temp[11];
|
|
|
|
print <<END
|
|
<td align='center'>$temp[0]</td>
|
|
<td align='center' nowrap>$time</td>
|
|
<td align='center'>$temp[12]</td>
|
|
<td align='center'>$temp[13]</td>
|
|
<td align='center'><image src='/images/urlfilter/$led' alt='$ldesc'></td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' title='$gdesc' alt='$gdesc' />
|
|
<input type='hidden' name='MODE' value='TIMECONSTRAINT' />
|
|
<input type='hidden' name='ID' value='$id' />
|
|
<input type='hidden' name='ACTIVE' value='$toggle' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />
|
|
</form>
|
|
</td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />
|
|
<input type='hidden' name='MODE' value='TIMECONSTRAINT' />
|
|
<input type='hidden' name='ID' value='$id' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
|
|
</form>
|
|
</td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'urlfilter copy rule'}' src='/images/urlfilter/copy.gif' title='$Lang::tr{'urlfilter copy rule'}' alt='$Lang::tr{'urlfilter copy rule'}' />
|
|
<input type='hidden' name='MODE' value='TIMECONSTRAINT' />
|
|
<input type='hidden' name='ID' value='$id' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'urlfilter copy rule'}' />
|
|
</form>
|
|
</td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frmd$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
|
|
<input type='hidden' name='MODE' value='TIMECONSTRAINT' />
|
|
<input type='hidden' name='ID' value='$id' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />
|
|
</form>
|
|
</td>
|
|
|
|
</tr>
|
|
END
|
|
;
|
|
if($tcsettings{'ACTION'} eq $Lang::tr{'edit'} && $tcsettings{'ID'} eq $id) {
|
|
print "<tr bgcolor='$Header::colouryellow'>\n"; }
|
|
elsif ($id % 2) {
|
|
print "<tr bgcolor='$Header::table1colour'>\n"; }
|
|
else {
|
|
print "<tr bgcolor='$Header::table2colour'>\n"; }
|
|
print <<END
|
|
<td align='center' colspan='4'>$temp[16]
|
|
</td>
|
|
<td align='center' colspan='5'>
|
|
</td>
|
|
</tr>
|
|
END
|
|
;
|
|
}
|
|
|
|
print "</table>\n";
|
|
|
|
# If the time constraint file contains entries, print entries and action icons
|
|
if (! -z "$tcfile") {
|
|
print <<END
|
|
|
|
<table>
|
|
<tr>
|
|
<td class='boldbase'> <b>$Lang::tr{'legend'}:</b></td>
|
|
<td> <img src='/images/urlfilter/led-green.gif' alt='$Lang::tr{'urlfilter allow access'}' /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter allow'}</td>
|
|
<td> <img src='/images/urlfilter/led-red.gif' alt='$Lang::tr{'urlfilter block access'}' /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter block'}</td>
|
|
<td> <img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>
|
|
<td class='base'>$Lang::tr{'click to disable'}</td>
|
|
<td> <img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>
|
|
<td class='base'>$Lang::tr{'click to enable'}</td>
|
|
<td> <img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
|
|
<td class='base'>$Lang::tr{'edit'}</td>
|
|
<td> <img src='/images/urlfilter/copy.gif' alt='$Lang::tr{'urlfilter copy rule'}' /></td>
|
|
<td class='base'>$Lang::tr{'urlfilter copy rule'}</td>
|
|
<td> <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
|
|
<td class='base'>$Lang::tr{'remove'}</td>
|
|
</tr>
|
|
</table>
|
|
END
|
|
;
|
|
}
|
|
|
|
&Header::closebox();
|
|
|
|
} elsif ($uqsettings{'UQMODE'}) {
|
|
|
|
#==========================================================
|
|
#
|
|
# Section: Set User Quota
|
|
#
|
|
#==========================================================
|
|
|
|
print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
|
|
|
|
$buttontext = $Lang::tr{'urlfilter add rule'};
|
|
if ($uqsettings{'ACTION'} eq $Lang::tr{'edit'}) {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'urlfilter edit user quota rule'}.':');
|
|
$buttontext = $Lang::tr{'urlfilter update rule'};
|
|
} else {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'urlfilter add new user quota rule'}.':');
|
|
}
|
|
print <<END
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='25%'></td> <td width='20%'> </td><td width='25%'> </td><td width='30%'></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter user time quota'}: <img src='/blob.gif' alt='*' /></td>
|
|
<td><input type='text' name='TIME_QUOTA' value='$uqsettings{'TIME_QUOTA'}' size='5' /></td>
|
|
<td colspan='2' rowspan= '5' valign='top' class='base'>
|
|
<table cellpadding='0' cellspacing='0'>
|
|
<tr>
|
|
<!-- intentionally left empty -->
|
|
</tr>
|
|
<tr>
|
|
<td>$Lang::tr{'urlfilter assigned quota users'}: <img src='/blob.gif' alt='*' /></td>
|
|
</tr>
|
|
<tr>
|
|
<!-- intentionally left empty -->
|
|
</tr>
|
|
<tr>
|
|
<!-- intentionally left empty -->
|
|
</tr>
|
|
<tr>
|
|
<td><textarea name='QUOTA_USERS' cols='32' rows='6' wrap='off'>
|
|
END
|
|
;
|
|
|
|
$uqsettings{'QUOTA_USERS'} =~ s/\|/\n/g;
|
|
print $uqsettings{'QUOTA_USERS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
</tr>
|
|
</table>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter activity detection'}:</td>
|
|
<td class='base'><select name='SPORADIC'>
|
|
<option value='0' $selected{'SPORADIC'}{'0'}>$Lang::tr{'urlfilter disabled'}</option>
|
|
<option value='300' $selected{'SPORADIC'}{'300'}>5 $Lang::tr{'urlfilter minutes'}</option>
|
|
<option value='900' $selected{'SPORADIC'}{'900'}>15 $Lang::tr{'urlfilter minutes'}</option>
|
|
</select></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter renewal period'}:</td>
|
|
<td class='base'><select name='RENEWAL'>
|
|
<option value='hourly' $selected{'RENEWAL'}{'hourly'}>$Lang::tr{'urlfilter hourly'}</option>
|
|
<option value='daily' $selected{'RENEWAL'}{'daily'}>$Lang::tr{'urlfilter daily'}</option>
|
|
<option value='weekly' $selected{'RENEWAL'}{'weekly'}>$Lang::tr{'urlfilter weekly'}</option>
|
|
</select></td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'> </td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter enabled'}</td>
|
|
<td class='base'><input type='checkbox' name='ENABLEQUOTA' $checked{'ENABLEQUOTA'}{'on'} /></td>
|
|
</tr>
|
|
|
|
</table>
|
|
<p>
|
|
|
|
<table width='50%'>
|
|
<tr>
|
|
<td><input type='hidden' name='ACTION' value='$Lang::tr{'add'}' /></td>
|
|
<td><input type='hidden' name='MODE' value='USERQUOTA' /></td>
|
|
<td><input type='submit' name='SUBMIT' value='$buttontext' /></td>
|
|
<td><input type='reset' name='ACTION' value='$Lang::tr{'urlfilter reset'}' /></td>
|
|
<td> </td>
|
|
<td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<p>
|
|
END
|
|
;
|
|
|
|
if ($uqsettings{'ACTION'} eq $Lang::tr{'edit'}) {
|
|
print "<input type='hidden' name='EDITING' value='$uqsettings{'ID'}' />\n";
|
|
} else {
|
|
print "<input type='hidden' name='EDITING' value='no' />\n";
|
|
}
|
|
|
|
&Header::closebox();
|
|
print "</form>\n";
|
|
|
|
&Header::openbox('100%', 'left', $Lang::tr{'current rules'});
|
|
print <<END
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='15%' class='boldbase' align='center'><b><nobr>$Lang::tr{'urlfilter time quota'}</nobr></b></td>
|
|
<td width='15%' class='boldbase' align='center'><b><nobr>$Lang::tr{'urlfilter activity detection'}</nobr></b></td>
|
|
<td width='10%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter renewal'}</b></td>
|
|
<td class='boldbase' align='center'><b>$Lang::tr{'urlfilter assigned users'}</b></td>
|
|
<td width='20%' class='boldbase' colspan='4' align='center'> </td>
|
|
</tr>
|
|
END
|
|
;
|
|
|
|
if ($uqsettings{'ACTION'} ne '' or $changed ne 'no')
|
|
{
|
|
open(FILE, $uqfile);
|
|
@uqlist = <FILE>;
|
|
close(FILE);
|
|
}
|
|
|
|
$id = 0;
|
|
foreach $line (@uqlist)
|
|
{
|
|
$id++;
|
|
chomp($line);
|
|
@temp = split(/\,/,$line);
|
|
if($uqsettings{'ACTION'} eq $Lang::tr{'edit'} && $uqsettings{'ID'} eq $id) {
|
|
print "<tr bgcolor='$Header::colouryellow'>\n"; }
|
|
elsif ($id % 2) {
|
|
print "<tr bgcolor='$Header::table1colour'>\n"; }
|
|
else {
|
|
print "<tr bgcolor='$Header::table2colour'>\n"; }
|
|
if ($temp[4] eq 'on') { $gif='on.gif'; $toggle='off'; $gdesc=$Lang::tr{'click to disable'};}
|
|
else { $gif='off.gif'; $toggle='on'; $gdesc=$Lang::tr{'click to enable'}; }
|
|
|
|
$temp[5] = $temp[1];
|
|
if ($temp[1] eq '0') { $temp[5] = $Lang::tr{'urlfilter disabled'} } else { $temp[5] = ($temp[5]/60).' '.$Lang::tr{'urlfilter minutes'} }
|
|
$_ = $temp[3]; s/\|/, /g; $temp[6] = $_;
|
|
|
|
print <<END
|
|
<td align='center'>$temp[0] $Lang::tr{'urlfilter minutes'}</td>
|
|
<td align='center'>$temp[5]</td>
|
|
<td align='center'>$Lang::tr{'urlfilter '.$temp[2]}</td>
|
|
<td align='center'>$temp[6]</td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' title='$gdesc' alt='$gdesc' />
|
|
<input type='hidden' name='MODE' value='USERQUOTA' />
|
|
<input type='hidden' name='ID' value='$id' />
|
|
<input type='hidden' name='ACTIVE' value='$toggle' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />
|
|
</form>
|
|
</td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />
|
|
<input type='hidden' name='MODE' value='USERQUOTA' />
|
|
<input type='hidden' name='ID' value='$id' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
|
|
</form>
|
|
</td>
|
|
|
|
<td align='center'>
|
|
<form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>
|
|
<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
|
|
<input type='hidden' name='MODE' value='USERQUOTA' />
|
|
<input type='hidden' name='ID' value='$id' />
|
|
<input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />
|
|
</form>
|
|
</td>
|
|
|
|
</tr>
|
|
END
|
|
;
|
|
}
|
|
|
|
print "</table>\n";
|
|
|
|
# If the user quota file contains entries, print entries and action icons
|
|
if (! -z "$uqfile") {
|
|
print <<END
|
|
|
|
<table>
|
|
<tr>
|
|
<td class='boldbase'> <b>$Lang::tr{'legend'}:</b></td>
|
|
<td> <img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>
|
|
<td class='base'>$Lang::tr{'click to disable'}</td>
|
|
<td> <img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>
|
|
<td class='base'>$Lang::tr{'click to enable'}</td>
|
|
<td> <img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
|
|
<td class='base'>$Lang::tr{'edit'}</td>
|
|
<td> <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
|
|
<td class='base'>$Lang::tr{'remove'}</td>
|
|
</tr>
|
|
</table>
|
|
END
|
|
;
|
|
}
|
|
|
|
&Header::closebox();
|
|
|
|
} else {
|
|
|
|
#==========================================================
|
|
#
|
|
# Section: Blacklist editor
|
|
#
|
|
#==========================================================
|
|
|
|
print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
|
|
|
|
&Header::openbox('100%', 'left', $Lang::tr{'urlfilter urlfilter blacklist editor'}.':');
|
|
|
|
print <<END
|
|
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='25%'></td> <td width='20%'> </td><td width='25%'> </td><td width='30%'></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'><b>$Lang::tr{'urlfilter blacklist name'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'urlfilter blacklist category name'}: <img src='/blob.gif' alt='*' /></td>
|
|
<td><input type='text' name='BE_NAME' value='$besettings{'BE_NAME'}' size='12' /></td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td width='25%'></td> <td width='20%'> </td><td width='25%'> </td><td width='20%'></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base' colspan='4'><b>$Lang::tr{'urlfilter edit domains urls expressions'}</b> <img src='/blob.gif' alt='*' /></td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'>$Lang::tr{'urlfilter domains'}</td>
|
|
<td colspan='2'>$Lang::tr{'urlfilter urls'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='2'><textarea name='BE_DOMAINS' cols='38' rows='10' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $besettings{'BE_DOMAINS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
<td colspan='2'><textarea name='BE_URLS' cols='38' rows='10' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $besettings{'BE_URLS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='4'>$Lang::tr{'urlfilter expressions'}</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='4'><textarea name='BE_EXPRESSIONS' cols='80' rows='3' wrap='off'>
|
|
END
|
|
;
|
|
|
|
print $besettings{'BE_EXPRESSIONS'};
|
|
|
|
print <<END
|
|
</textarea></td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base' colspan='4'><b>$Lang::tr{'urlfilter load blacklist'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter select blacklist'}:</td>
|
|
<td width='20%' class='base'>
|
|
<select name='BE_BLACKLIST'>
|
|
END
|
|
;
|
|
|
|
&readblockcategories;
|
|
foreach (@categories)
|
|
{
|
|
print "<option value='$_' $selected{'BE_BLACKLIST'}{$_}>$_</option>\n";
|
|
}
|
|
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td> </td>
|
|
<td> </td>
|
|
<tr>
|
|
<td colpsan='4'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter load blacklist'}' /></td>
|
|
</tr>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base' colspan='4'><b>$Lang::tr{'urlfilter import blacklist'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan='4'>$Lang::tr{'urlfilter import text'}:</td>
|
|
</tr>
|
|
<tr>
|
|
<td nowrap><input type='file' name='IMPORTFILE' size='40' /> <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter import blacklist'}' /></td>
|
|
<td><input type='hidden' name='MODE' value='BLACKLIST_EDITOR' /></td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base' colspan='4'><b>$Lang::tr{'urlfilter export blacklist'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter export blacklist'}' /></td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%'>
|
|
<tr>
|
|
<td class='base' colspan='4'><b>$Lang::tr{'urlfilter install blacklist'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='25%' class='base'>$Lang::tr{'urlfilter dont restart urlfilter'}:</td>
|
|
<td width='20%' class='base'><input type='checkbox' name='NORESTART' $checked{'NORESTART'}{'on'} /></td>
|
|
<td> </td>
|
|
<td> </td>
|
|
</tr>
|
|
<tr>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter install blacklist'}' /></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base' colspan='4'><br>$Lang::tr{'urlfilter install information'}</td>
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='20%'>
|
|
<tr>
|
|
<td><input type='reset' name='ACTION' value='$Lang::tr{'urlfilter reset'}' /></td>
|
|
<td> </td>
|
|
<td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
|
|
</tr>
|
|
</table>
|
|
|
|
END
|
|
;
|
|
|
|
&Header::closebox();
|
|
print "</form>\n";
|
|
|
|
}
|
|
|
|
&Header::closebigbox();
|
|
|
|
&Header::closepage();
|
|
|
|
# -------------------------------------------------------------------
|
|
|
|
sub savesettings
|
|
{
|
|
# transform to pre1.8 client definitions
|
|
@clients = split(/\n/,$filtersettings{'UNFILTERED_CLIENTS'});
|
|
undef $filtersettings{'UNFILTERED_CLIENTS'};
|
|
foreach(@clients)
|
|
{
|
|
s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
|
|
$filtersettings{'UNFILTERED_CLIENTS'} .= "$_ ";
|
|
}
|
|
$filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+$//;
|
|
|
|
# transform to pre1.8 client definitions
|
|
@clients = split(/\n/,$filtersettings{'BANNED_CLIENTS'});
|
|
undef $filtersettings{'BANNED_CLIENTS'};
|
|
foreach(@clients)
|
|
{
|
|
s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
|
|
$filtersettings{'BANNED_CLIENTS'} .= "$_ ";
|
|
}
|
|
$filtersettings{'BANNED_CLIENTS'} =~ s/\s+$//;
|
|
|
|
&writeconfigfile;
|
|
|
|
delete $filtersettings{'CUSTOM_BLACK_DOMAINS'};
|
|
delete $filtersettings{'CUSTOM_BLACK_URLS'};
|
|
delete $filtersettings{'CUSTOM_WHITE_DOMAINS'};
|
|
delete $filtersettings{'CUSTOM_WHITE_URLS'};
|
|
delete $filtersettings{'CUSTOM_EXPRESSIONS'};
|
|
delete $filtersettings{'BACKGROUND'};
|
|
delete $filtersettings{'UPDATEFILE'};
|
|
|
|
&General::system("chown", "-R", "nobody.nobody", "$dbdir");
|
|
&General::system('/usr/bin/squidGuard', '-C', 'custom/allowed/domains');
|
|
&General::system('/usr/bin/squidGuard', '-C', 'custom/allowed/urls');
|
|
&General::system('/usr/bin/squidGuard', '-C', 'custom/blocked/domains');
|
|
&General::system('/usr/bin/squidGuard', '-C', 'custom/blocked/urls');
|
|
&setpermissions ($dbdir);
|
|
|
|
&General::writehash("${General::swroot}/urlfilter/settings", \%filtersettings);
|
|
}
|
|
|
|
# -------------------------------------------------------------------
|
|
|
|
sub readblockcategories
|
|
{
|
|
undef(@categories);
|
|
|
|
&getblockcategory ($dbdir);
|
|
|
|
foreach (@categories) { $_ = substr($_,length($dbdir)+1); }
|
|
|
|
@filtergroups = @categories;
|
|
|
|
foreach (@filtergroups) {
|
|
s/\//_/g;
|
|
tr/a-z/A-Z/;
|
|
$_ = "FILTER_".$_;
|
|
}
|
|
}
|
|
|
|
# -------------------------------------------------------------------
|
|
|
|
sub getblockcategory
|
|
{
|
|
foreach $category (<$_[0]/*>)
|
|
{
|
|
if (-d $category)
|
|
{
|
|
if ((-e "$category/domains") || (-e "$category/urls"))
|
|
{
|
|
unless ($category =~ /\bcustom\b/) { push(@categories,$category); }
|
|
}
|
|
&getblockcategory ($category);
|
|
}
|
|
}
|
|
}
|
|
|
|
# -------------------------------------------------------------------
|
|
|
|
sub readcustomlists
|
|
{
|
|
if (-e "$dbdir/custom/blocked/domains") {
|
|
open(FILE,"$dbdir/custom/blocked/domains");
|
|
delete $filtersettings{'CUSTOM_BLACK_DOMAINS'};
|
|
while (<FILE>) { $filtersettings{'CUSTOM_BLACK_DOMAINS'} .= $_ };
|
|
close(FILE);
|
|
}
|
|
|
|
if (-e "$dbdir/custom/blocked/urls") {
|
|
open(FILE,"$dbdir/custom/blocked/urls");
|
|
delete $filtersettings{'CUSTOM_BLACK_URLS'};
|
|
while (<FILE>) { $filtersettings{'CUSTOM_BLACK_URLS'} .= $_ };
|
|
close(FILE);
|
|
}
|
|
|
|
if (-e "$dbdir/custom/blocked/expressions") {
|
|
open(FILE,"$dbdir/custom/blocked/expressions");
|
|
delete $filtersettings{'CUSTOM_EXPRESSIONS'};
|
|
while (<FILE>) { $filtersettings{'CUSTOM_EXPRESSIONS'} .= $_ };
|
|
close(FILE);
|
|
}
|
|
|
|
if (-e "$dbdir/custom/allowed/domains") {
|
|
open(FILE,"$dbdir/custom/allowed/domains");
|
|
delete $filtersettings{'CUSTOM_WHITE_DOMAINS'};
|
|
while (<FILE>) { $filtersettings{'CUSTOM_WHITE_DOMAINS'} .= $_ };
|
|
close(FILE);
|
|
}
|
|
if (-e "$dbdir/custom/allowed/urls") {
|
|
open(FILE,"$dbdir/custom/allowed/urls");
|
|
delete $filtersettings{'CUSTOM_WHITE_URLS'};
|
|
while (<FILE>) { $filtersettings{'CUSTOM_WHITE_URLS'} .= $_ };
|
|
close(FILE);
|
|
}
|
|
}
|
|
|
|
# -------------------------------------------------------------------
|
|
|
|
sub aggregatedconstraints
|
|
{
|
|
my $aggregated;
|
|
my @old;
|
|
my @new;
|
|
my @tmp1;
|
|
my @tmp2;
|
|
my $x;
|
|
|
|
if (-e $tcfile)
|
|
{
|
|
open(TC, $tcfile);
|
|
@old = <TC>;
|
|
close(TC);
|
|
|
|
while (@old > 0)
|
|
{
|
|
$aggregated = 0;
|
|
$x = shift(@old);
|
|
chomp($x);
|
|
@tmp1 = split(/\,/,$x);
|
|
$tmp1[16] = '';
|
|
foreach (@new)
|
|
{
|
|
@tmp2 = split(/\,/);
|
|
if (($tmp1[15] eq 'on') && ($tmp2[15] eq 'on'))
|
|
{
|
|
if (($tmp1[0] eq $tmp2[0]) && ($tmp1[12] eq $tmp2[12]) && ($tmp1[13] eq $tmp2[13]) && ($tmp1[14] eq $tmp2[14]))
|
|
{
|
|
$aggregated = 1;
|
|
$tmp2[16] .= " weekly ";
|
|
if ($tmp1[1] eq 'on') { $tmp2[16] .= "m"; }
|
|
if ($tmp1[2] eq 'on') { $tmp2[16] .= "t"; }
|
|
if ($tmp1[3] eq 'on') { $tmp2[16] .= "w"; }
|
|
if ($tmp1[4] eq 'on') { $tmp2[16] .= "h"; }
|
|
if ($tmp1[5] eq 'on') { $tmp2[16] .= "f"; }
|
|
if ($tmp1[6] eq 'on') { $tmp2[16] .= "a"; }
|
|
if ($tmp1[7] eq 'on') { $tmp2[16] .= "s"; }
|
|
$tmp2[16] .= " $tmp1[8]:$tmp1[9]-$tmp1[10]:$tmp1[11]\n";
|
|
$_ = join(",",@tmp2);
|
|
}
|
|
|
|
}
|
|
}
|
|
if (!$aggregated)
|
|
{
|
|
$tmp1[16] .= " weekly ";
|
|
if ($tmp1[1] eq 'on') { $tmp1[16] .= "m"; }
|
|
if ($tmp1[2] eq 'on') { $tmp1[16] .= "t"; }
|
|
if ($tmp1[3] eq 'on') { $tmp1[16] .= "w"; }
|
|
if ($tmp1[4] eq 'on') { $tmp1[16] .= "h"; }
|
|
if ($tmp1[5] eq 'on') { $tmp1[16] .= "f"; }
|
|
if ($tmp1[6] eq 'on') { $tmp1[16] .= "a"; }
|
|
if ($tmp1[7] eq 'on') { $tmp1[16] .= "s"; }
|
|
$tmp1[16] .= " $tmp1[8]:$tmp1[9]-$tmp1[10]:$tmp1[11]\n";
|
|
$x = join(",",@tmp1);
|
|
push(@new,$x);
|
|
}
|
|
}
|
|
}
|
|
|
|
return @new;
|
|
|
|
}
|
|
|
|
# -------------------------------------------------------------------
|
|
|
|
sub setpermissions
|
|
{
|
|
my $bldir = $_[0];
|
|
|
|
foreach $category (<$bldir/*>)
|
|
{
|
|
if (-d $category){
|
|
&General::system("chmod", "755", "$category");
|
|
foreach $blacklist (<$category/*>)
|
|
{
|
|
if (-f $blacklist) { &General::system("chmod", "644", "$blacklist"); }
|
|
if (-d $blacklist) { &General::system("chmod", "755", "$blacklist"); }
|
|
}
|
|
# XXX uses globbing
|
|
system("chmod 666 $category/*.db &> /dev/null");
|
|
&setpermissions ($category);
|
|
}
|
|
}
|
|
}
|
|
|
|
# -------------------------------------------------------------------
|
|
|
|
sub writeconfigfile
|
|
{
|
|
my $executables = "/[^/]*\\.\(ade|adp|asx|bas|bat|chm|com|cmd|cpl|crt|dll|eml|exe|hiv|hlp|hta|inc|inf|ins|isp|jse|jtd|lnk|msc|msh|msi|msp|mst|nws|ocx|oft|ops|pcd|pif|plx|reg|scr|sct|sha|shb|shm|shs|sys|tlb|tsp|url|vbe|vbs|vxd|wsc|wsf|wsh\)\$";
|
|
my $audiovideo = "/[^/]*\\.\(aiff|asf|avi|dif|divx|flv|mkv|mov|movie|mp3|mp4|mpe?g?|mpv2|ogg|ra?m|snd|qt|wav|wma|wmf|wmv\)\$";
|
|
my $archives = "/[^/]*\\.\(7z|bin|bz2|cab|cdr|dmg|gz|hqx|rar|smi|sit|sea|tar|tgz|zip\)\$";
|
|
|
|
my $ident = " anonymous";
|
|
|
|
my $defaultrule='';
|
|
my $tcrule='';
|
|
my $redirect='';
|
|
my $qredirect='';
|
|
|
|
my $idx;
|
|
|
|
my @ec=();
|
|
my @tc=();
|
|
my @uq=();
|
|
|
|
if (!(-d "$dbdir/custom")) { mkdir("$dbdir/custom") }
|
|
if (!(-d "$dbdir/custom/blocked")) { mkdir("$dbdir/custom/blocked") }
|
|
if (!(-d "$dbdir/custom/allowed")) { mkdir("$dbdir/custom/allowed") }
|
|
|
|
open(FILE, ">/$dbdir/custom/blocked/domains");
|
|
print FILE $filtersettings{'CUSTOM_BLACK_DOMAINS'};
|
|
close(FILE);
|
|
open(FILE, ">/$dbdir/custom/blocked/urls");
|
|
print FILE $filtersettings{'CUSTOM_BLACK_URLS'};
|
|
close(FILE);
|
|
open(FILE, ">/$dbdir/custom/blocked/expressions");
|
|
print FILE $filtersettings{'CUSTOM_EXPRESSIONS'};
|
|
close(FILE);
|
|
open(FILE, ">/$dbdir/custom/blocked/files");
|
|
if ($filtersettings{'BLOCK_EXECUTABLES'} eq 'on') { print FILE "$executables\n"; }
|
|
if ($filtersettings{'BLOCK_AUDIO-VIDEO'} eq 'on') { print FILE "$audiovideo\n"; }
|
|
if ($filtersettings{'BLOCK_ARCHIVES'} eq 'on') { print FILE "$archives\n"; }
|
|
close(FILE);
|
|
open(FILE, ">/$dbdir/custom/allowed/domains");
|
|
print FILE $filtersettings{'CUSTOM_WHITE_DOMAINS'};
|
|
close(FILE);
|
|
open(FILE, ">/$dbdir/custom/allowed/urls");
|
|
print FILE $filtersettings{'CUSTOM_WHITE_URLS'};
|
|
close(FILE);
|
|
|
|
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { $ident = ""; }
|
|
|
|
if ($filtersettings{'REDIRECT_PAGE'} eq '')
|
|
{
|
|
if (($filtersettings{'SHOW_CATEGORY'} eq 'on') || ($filtersettings{'SHOW_URL'} eq 'on') || ($filtersettings{'SHOW_IP'} eq 'on')) {
|
|
if ($filtersettings{'SHOW_CATEGORY'} eq 'on') { $redirect .= "&category=%t"; }
|
|
if ($filtersettings{'SHOW_URL'} eq 'on') { $redirect .= "&url=%u"; }
|
|
if ($filtersettings{'SHOW_IP'} eq 'on') { $redirect .= "&ip=%a"; }
|
|
$redirect =~ s/^&/?/;
|
|
$redirect = "http:\/\/$netsettings{'GREEN_ADDRESS'}:$http_port\/redirect.cgi".$redirect;
|
|
} else {
|
|
$redirect="http:\/\/$netsettings{'GREEN_ADDRESS'}:$http_port\/redirect.cgi";
|
|
}
|
|
} else { $redirect=$filtersettings{'REDIRECT_PAGE'}; }
|
|
|
|
if ($filtersettings{'ENABLE_DNSERROR'} eq 'on') { $redirect = "302:http://0.0.0.0"; }
|
|
|
|
undef $defaultrule;
|
|
|
|
if ($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on')
|
|
{
|
|
$defaultrule .= "custom-allowed ";
|
|
}
|
|
if ($filtersettings{'BLOCK_ALL'} eq 'on')
|
|
{
|
|
$defaultrule .= "none";
|
|
}
|
|
else
|
|
{
|
|
if ($filtersettings{'BLOCK_IP_ADDR'} eq 'on')
|
|
{
|
|
$defaultrule .= "!in-addr ";
|
|
}
|
|
for ($i=0; $i<=@filtergroups; $i++) {
|
|
if ($filtersettings{@filtergroups[$i]} eq 'on')
|
|
{
|
|
$defaultrule .= "!@categories[$i] ";
|
|
}
|
|
}
|
|
if ($filtersettings{'ENABLE_CUSTOM_BLACKLIST'} eq 'on')
|
|
{
|
|
$defaultrule .= "!custom-blocked ";
|
|
}
|
|
if ($filtersettings{'ENABLE_CUSTOM_EXPRESSIONS'} eq 'on')
|
|
{
|
|
$defaultrule .= "!custom-expressions ";
|
|
}
|
|
if (($filtersettings{'BLOCK_EXECUTABLES'} eq 'on') ||
|
|
($filtersettings{'BLOCK_AUDIO-VIDEO'} eq 'on') ||
|
|
($filtersettings{'BLOCK_ARCHIVES'} eq 'on'))
|
|
{
|
|
$defaultrule .= "!files ";
|
|
}
|
|
$defaultrule .= "any";
|
|
}
|
|
|
|
$defaultrule =~ s/\//_/g;
|
|
|
|
open(FILE, ">${General::swroot}/urlfilter/squidGuard.conf") or die "Unable to write squidGuard.conf file";
|
|
flock(FILE, 2);
|
|
|
|
print FILE "logdir /var/log/squidGuard\n";
|
|
print FILE "dbhome $dbdir\n\n";
|
|
|
|
undef @repositoryfiles;
|
|
if ($filtersettings{'ENABLE_REWRITE'} eq 'on')
|
|
{
|
|
@repositorylist = <$repository/*>;
|
|
foreach (@repositorylist)
|
|
{
|
|
if (!-d) { push(@repositoryfiles,substr($_,rindex($_,"/")+1)); }
|
|
}
|
|
}
|
|
|
|
if (($filtersettings{'ENABLE_REWRITE'} eq 'on') && (@repositoryfiles)) {
|
|
print FILE "rewrite rew-rule-1 {\n";
|
|
|
|
print FILE " # rewrite localfiles\n";
|
|
foreach (@repositoryfiles)
|
|
{
|
|
print FILE " s@.*/$_\$\@http://$netsettings{'GREEN_ADDRESS'}:$http_port/repository/$_\@i\n";
|
|
}
|
|
print FILE "}\n\n";
|
|
}
|
|
|
|
if (!($filtersettings{'UNFILTERED_CLIENTS'} eq '')) {
|
|
print FILE "src unfiltered {\n";
|
|
print FILE " ip $filtersettings{'UNFILTERED_CLIENTS'}\n";
|
|
print FILE "}\n\n";
|
|
}
|
|
if (!($filtersettings{'BANNED_CLIENTS'} eq '')) {
|
|
print FILE "src banned {\n";
|
|
print FILE " ip $filtersettings{'BANNED_CLIENTS'}\n";
|
|
if ($filtersettings{'ENABLE_LOG'} eq 'on')
|
|
{
|
|
if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
|
|
{
|
|
print FILE " logfile ".$ident." banned.log\n";
|
|
} else {
|
|
print FILE " logfile ".$ident." urlfilter.log\n";
|
|
}
|
|
}
|
|
print FILE "}\n\n";
|
|
}
|
|
|
|
if (-e $uqfile)
|
|
{
|
|
open(UQ, $uqfile);
|
|
@uqlist = <UQ>;
|
|
close(UQ);
|
|
|
|
if (@uqlist > 0)
|
|
{
|
|
$idx=0;
|
|
foreach (@uqlist)
|
|
{
|
|
chomp;
|
|
@uq = split(/\,/);
|
|
if ($uq[4] eq 'on')
|
|
{
|
|
$idx++;
|
|
$uq[0] = $uq[0] * 60;
|
|
if ($uq[1] eq '0') {
|
|
if ($uq[2] eq 'hourly') { $uq[1] = 3600 }
|
|
if ($uq[2] eq 'daily') { $uq[1] = 86400 }
|
|
if ($uq[2] eq 'weekly') { $uq[1] = 604800 }
|
|
}
|
|
$uq[3] =~ s/\|/ /g;
|
|
print FILE "src quota-$idx {\n";
|
|
print FILE " user $uq[3]\n";
|
|
print FILE " userquota $uq[0] $uq[1] $uq[2]\n";
|
|
print FILE "}\n\n";
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
@tclist = &aggregatedconstraints;
|
|
|
|
if (@tclist > 0)
|
|
{
|
|
$idx=0;
|
|
foreach (@tclist)
|
|
{
|
|
chomp;
|
|
@tc = split(/\,/);
|
|
if ($tc[15] eq 'on')
|
|
{
|
|
$idx++;
|
|
print FILE "src network-$idx {\n";
|
|
@clients = split(/ /,$tc[12]);
|
|
@temp = split(/-/,$clients[0]);
|
|
if ( (&General::validipormask($temp[0])) || (&General::validipandmask($temp[0])))
|
|
{
|
|
print FILE " ip $tc[12]\n";
|
|
} else {
|
|
print FILE " user";
|
|
@clients = split(/ /,$tc[12]);
|
|
foreach $line (@clients)
|
|
{
|
|
$line =~ s/(^\w+)\\(\w+$)/$1%5c$2/;
|
|
print FILE " $line";
|
|
}
|
|
print FILE "\n";
|
|
}
|
|
if (($filtersettings{'ENABLE_LOG'} eq 'on') && ($tc[14] eq 'block') && ($tc[13] eq 'any'))
|
|
{
|
|
if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
|
|
{
|
|
print FILE " logfile ".$ident." timeconst.log\n";
|
|
} else {
|
|
print FILE " logfile ".$ident." urlfilter.log\n";
|
|
}
|
|
}
|
|
print FILE "}\n\n";
|
|
}
|
|
}
|
|
|
|
$idx=0;
|
|
foreach (@tclist)
|
|
{
|
|
chomp;
|
|
@tc = split(/\,/);
|
|
if ($tc[15] eq 'on')
|
|
{
|
|
$idx++;
|
|
print FILE "time constraint-$idx {\n";
|
|
print FILE "$tc[16]\n";
|
|
print FILE "}\n\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
foreach $category (@categories) {
|
|
$blacklist = $category;
|
|
$category =~ s/\//_/g;
|
|
|
|
if ( $filtersettings{"FILTER_".uc($category)} ne "on" ){
|
|
my $constraintrule = "false";
|
|
|
|
foreach (@tclist){
|
|
chomp;
|
|
@tc = split(/\,/);
|
|
$tc[13] =~ s/\//_/g;
|
|
if ($tc[15] eq 'on' && $tc[13] =~ $category){
|
|
$constraintrule = "true";
|
|
}
|
|
}
|
|
|
|
if ( $constraintrule eq "false"){
|
|
next;
|
|
}
|
|
}
|
|
|
|
print FILE "dest $category {\n";
|
|
if (-e "$dbdir/$blacklist/domains") {
|
|
print FILE " domainlist $blacklist\/domains\n";
|
|
}
|
|
if (-e "$dbdir/$blacklist/urls") {
|
|
print FILE " urllist $blacklist\/urls\n";
|
|
}
|
|
if ((-e "$dbdir/$blacklist/expressions") && ($filtersettings{'ENABLE_EXPR_LISTS'} eq 'on')) {
|
|
print FILE " expressionlist $blacklist\/expressions\n";
|
|
}
|
|
if ((($category eq 'ads') || ($category eq 'adv')) && ($filtersettings{'ENABLE_EMPTY_ADS'} eq 'on'))
|
|
{
|
|
print FILE " redirect http:\/\/$netsettings{'GREEN_ADDRESS'}:$http_port\/images/urlfilter/1x1.gif\n";
|
|
}
|
|
if ($filtersettings{'ENABLE_LOG'} eq 'on')
|
|
{
|
|
if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
|
|
{
|
|
print FILE " logfile $ident $category.log\n";
|
|
} else {
|
|
print FILE " logfile $ident urlfilter.log\n";
|
|
}
|
|
}
|
|
print FILE "}\n\n";
|
|
$category = $blacklist;
|
|
}
|
|
|
|
print FILE "dest files {\n";
|
|
print FILE " expressionlist custom\/blocked\/files\n";
|
|
if ($filtersettings{'ENABLE_LOG'} eq 'on')
|
|
{
|
|
if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
|
|
{
|
|
print FILE " logfile $ident files.log\n";
|
|
} else {
|
|
print FILE " logfile $ident urlfilter.log\n";
|
|
}
|
|
}
|
|
print FILE "}\n\n";
|
|
|
|
print FILE "dest custom-allowed {\n";
|
|
print FILE " domainlist custom\/allowed\/domains\n";
|
|
print FILE " urllist custom\/allowed\/urls\n";
|
|
print FILE "}\n\n";
|
|
|
|
print FILE "dest custom-blocked {\n";
|
|
print FILE " domainlist custom\/blocked\/domains\n";
|
|
print FILE " urllist custom\/blocked\/urls\n";
|
|
if ($filtersettings{'ENABLE_LOG'} eq 'on')
|
|
{
|
|
if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
|
|
{
|
|
print FILE " logfile $ident custom.log\n";
|
|
} else {
|
|
print FILE " logfile $ident urlfilter.log\n";
|
|
}
|
|
}
|
|
print FILE "}\n\n";
|
|
|
|
print FILE "dest custom-expressions {\n";
|
|
print FILE " expressionlist custom\/blocked\/expressions\n";
|
|
if ($filtersettings{'ENABLE_LOG'} eq 'on')
|
|
{
|
|
if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
|
|
{
|
|
print FILE " logfile $ident custom.log\n";
|
|
} else {
|
|
print FILE " logfile $ident urlfilter.log\n";
|
|
}
|
|
}
|
|
print FILE "}\n\n";
|
|
|
|
print FILE "acl {\n";
|
|
if (!($filtersettings{'UNFILTERED_CLIENTS'} eq '')) {
|
|
print FILE " unfiltered {\n";
|
|
print FILE " pass all\n";
|
|
print FILE " }\n\n";
|
|
}
|
|
if (!($filtersettings{'BANNED_CLIENTS'} eq '')) {
|
|
print FILE " banned {\n";
|
|
print FILE " pass ";
|
|
if (($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'on'))
|
|
{
|
|
print FILE "custom-allowed ";
|
|
}
|
|
print FILE "none\n";
|
|
print FILE " }\n\n";
|
|
}
|
|
|
|
if (-s $uqfile)
|
|
{
|
|
open(UQ, $uqfile);
|
|
@uqlist = <UQ>;
|
|
close(UQ);
|
|
|
|
$idx=0;
|
|
foreach (@uqlist)
|
|
{
|
|
chomp;
|
|
@uq = split(/\,/);
|
|
if ($uq[4] eq 'on')
|
|
{
|
|
$idx++;
|
|
$qredirect = $redirect;
|
|
$qredirect =~ s/\%t/\%q\%20-\%20\%i/;
|
|
print FILE " quota-$idx {\n";
|
|
print FILE " pass ";
|
|
if (($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'on'))
|
|
{
|
|
print FILE "custom-allowed ";
|
|
}
|
|
print FILE "none\n";
|
|
unless ($redirect eq $qredirect) { print FILE " redirect $qredirect\n"; }
|
|
print FILE " }\n\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
if (@tclist > 0)
|
|
{
|
|
$idx=0;
|
|
foreach (@tclist)
|
|
{
|
|
chomp;
|
|
@tc = split(/\,/);
|
|
@ec = split(/\|/,$tc[13]);
|
|
foreach (@ec) { s/\//_/g; }
|
|
if ($tc[15] eq 'on')
|
|
{
|
|
$idx++;
|
|
print FILE " network-$idx $tc[0] constraint-$idx {\n";
|
|
print FILE " pass ";
|
|
|
|
if ($filtersettings{'BLOCK_ALL'} eq 'on')
|
|
{
|
|
if ($tc[14] eq 'block')
|
|
{
|
|
if ((@ec == 1) && ($ec[0] eq 'any')) {
|
|
if (($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'on'))
|
|
{
|
|
print FILE "custom-allowed ";
|
|
}
|
|
print FILE "none";
|
|
} else {
|
|
print FILE $defaultrule;
|
|
}
|
|
} else {
|
|
foreach (@ec)
|
|
{
|
|
print FILE "$_ ";
|
|
}
|
|
print FILE $defaultrule unless ((@ec == 1) && ($ec[0] eq 'any'));
|
|
}
|
|
} else {
|
|
if ($tc[14] eq 'block')
|
|
{
|
|
$tcrule = $defaultrule;
|
|
if ($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') {
|
|
$tcrule =~ s/custom-allowed //;
|
|
print FILE "custom-allowed " unless ((@ec == 1) && ($ec[0] eq 'any') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'off'));
|
|
}
|
|
if ((@ec == 1) && ($ec[0] eq 'any')) {
|
|
print FILE "none";
|
|
} else {
|
|
foreach (@ec)
|
|
{
|
|
print FILE "!$_ " unless (index($defaultrule,"!".$_." ") ge 0);
|
|
}
|
|
}
|
|
print FILE $tcrule unless ((@ec == 1) && ($ec[0] eq 'any'));
|
|
} else {
|
|
$tcrule = $defaultrule;
|
|
if ((@ec == 1) && ($ec[0] eq 'any'))
|
|
{
|
|
print FILE "any";
|
|
} else {
|
|
foreach (@ec)
|
|
{
|
|
$tcrule = "$_ ".$tcrule unless (index($defaultrule,"!".$_." ") ge 0);
|
|
$tcrule =~ s/!$_ //;
|
|
}
|
|
print FILE $tcrule;
|
|
}
|
|
}
|
|
}
|
|
|
|
print FILE "\n";
|
|
|
|
print FILE " }\n\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
print FILE " default {\n";
|
|
print FILE " pass $defaultrule\n";
|
|
if (($filtersettings{'ENABLE_LOG'} eq 'on') && ($filtersettings{'BLOCK_ALL'} eq 'on'))
|
|
{
|
|
if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
|
|
{
|
|
print FILE " logfile".$ident." default.log\n";
|
|
} else {
|
|
print FILE " logfile".$ident." urlfilter.log\n";
|
|
}
|
|
}
|
|
if (($filtersettings{'ENABLE_REWRITE'} eq 'on') && (@repositoryfiles))
|
|
{
|
|
print FILE " rewrite rew-rule-1\n";
|
|
}
|
|
print FILE " redirect $redirect\n";
|
|
print FILE " }\n";
|
|
print FILE "}\n";
|
|
|
|
close FILE;
|
|
}
|
|
|
|
# -------------------------------------------------------------------
|