html/cgi-bin/urlfilter.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2005-2010  IPFire Team                                        #
   6 #                                                                             #
   7 # This program is free software: you can redistribute it and/or modify        #
   8 # it under the terms of the GNU General Public License as published by        #
   9 # the Free Software Foundation, either version 3 of the License, or           #
  10 # (at your option) any later version.                                         #
  11 #                                                                             #
  12 # This program is distributed in the hope that it will be useful,             #
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  15 # GNU General Public License for more details.                                #
  16 #                                                                             #
  17 # You should have received a copy of the GNU General Public License           #
  18 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  19 #                                                                             #
  20 ###############################################################################
  21
  22 use strict;
  23
  24 # enable only the following on debugging purpose
  25 #use warnings;
  26 #use CGI::Carp 'fatalsToBrowser';
  27
  28 use File::Copy;
  29 use IO::Socket;
  30
  31 require '/var/ipfire/general-functions.pl';
  32 require "${General::swroot}/lang.pl";
  33 require "${General::swroot}/header.pl";
  34
  35 my $http_port='81';
  36 my %netsettings=();
  37 my %mainsettings=();
  38 my %proxysettings=();
  39 my %filtersettings=();
  40 my %tcsettings=();
  41 my %uqsettings=();
  42 my %besettings=();
  43 my %updatesettings=();
  44 my %checked=();
  45 my %selected=();
  46 my $id=0;
  47 my $line='';
  48 my $i=0;
  49 my $n=0;
  50 my $time='';
  51 my $filesize;
  52 my $category='';
  53 my $section='';
  54 my $blacklist='';
  55 my $blistbackup='';
  56
  57 my $changed = 'no';
  58 my $tcfile = "${General::swroot}/urlfilter/timeconst";
  59 my $uqfile = "${General::swroot}/urlfilter/userquota";
  60 my $dbdir = "${General::swroot}/urlfilter/blacklists";
  61 my $editdir = "${General::swroot}/urlfilter/editor";
  62 my $templatedir = "/srv/web/ipfire/html/redirect-templates";
  63 my $repository = "/var/urlrepo";
  64 my $hintcolour = '#FFFFCC';
  65
  66 my $sourceurlfile = "${General::swroot}/urlfilter/autoupdate/autoupdate.urls";
  67 my $updconffile = "${General::swroot}/urlfilter/autoupdate/autoupdate.conf";
  68 my $updflagfile = "${General::swroot}/urlfilter/blacklists/.autoupdate.last";
  69
  70 my $errormessage='';
  71 my $updatemessage='';
  72 my $restoremessage='';
  73 my $buttontext='';
  74 my $source_name='';
  75 my $source_url='';
  76 my $blacklistage=0;
  77
  78 my @repositorylist=();
  79 my @repositoryfiles=();
  80 my @categories=();
  81 my @selectedcategories=();
  82 my @filtergroups=();
  83 my @tclist=();
  84 my @uqlist=();
  85 my @source_urllist=();
  86 my @clients=();
  87 my @temp=();
  88
  89 my $lastslashpos=0;
  90
  91 my $toggle='';
  92 my $gif='';
  93 my $led='';
  94 my $ldesc='';
  95 my $gdesc='';
  96
  97 if (! -d $dbdir) { mkdir("$dbdir"); }
  98 if (! -e $tcfile) { system("touch $tcfile"); }
  99 if (! -e $uqfile) { system("touch $uqfile"); }
 100 if (! -e $sourceurlfile) { system("touch $sourceurlfile"); }
 101
 102 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
 103 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
 104 &General::readhash("${General::swroot}/proxy/settings", \%proxysettings);
 105
 106 &readblockcategories;
 107
 108 open(FILE, $tcfile);
 109 @tclist = <FILE>;
 110 close(FILE);
 111 open(FILE, $uqfile);
 112 @uqlist = <FILE>;
 113 close(FILE);
 114 open(FILE, $sourceurlfile);
 115 @source_urllist = <FILE>;
 116 close(FILE);
 117
 118 $filtersettings{'ENABLE_CUSTOM_BLACKLIST'} = 'off';
 119 $filtersettings{'ENABLE_CUSTOM_WHITELIST'} = 'off';
 120 $filtersettings{'ENABLE_CUSTOM_EXPRESSIONS'} = 'off';
 121 $filtersettings{'BLOCK_EXECUTABLES'} = 'off';
 122 $filtersettings{'BLOCK_AUDIO-VIDEO'} = 'off';
 123 $filtersettings{'BLOCK_ARCHIVES'} = 'off';
 124 $filtersettings{'ENABLE_REWRITE'} = 'off';
 125 $filtersettings{'UNFILTERED_CLIENTS'} = '';
 126 $filtersettings{'BANNED_CLIENTS'} = '';
 127 $filtersettings{'SHOW_CATEGORY'} = 'off';
 128 $filtersettings{'SHOW_URL'} = 'off';
 129 $filtersettings{'SHOW_IP'} = 'off';
 130 $filtersettings{'ENABLE_DNSERROR'} = 'off';
 131 $filtersettings{'ENABLE_JPEG'} = 'off';
 132 $filtersettings{'REDIRECT_PAGE'} = '';
 133 $filtersettings{'MSG_TEXT_1'} = '';
 134 $filtersettings{'MSG_TEXT_2'} = '';
 135 $filtersettings{'MSG_TEXT_3'} = '';
 136 $filtersettings{'ENABLE_EXPR_LISTS'} = 'off';
 137 $filtersettings{'BLOCK_IP_ADDR'} = 'off';
 138 $filtersettings{'BLOCK_ALL'} = 'off';
 139 $filtersettings{'ENABLE_EMPTY_ADS'} = 'off';
 140 $filtersettings{'ENABLE_GLOBAL_WHITELIST'} = 'off';
 141 $filtersettings{'ENABLE_SAFESEARCH'} = 'off';
 142 $filtersettings{'ENABLE_LOG'} = 'off';
 143 $filtersettings{'ENABLE_USERNAME_LOG'} = 'off';
 144 $filtersettings{'ENABLE_CATEGORY_LOG'} = 'off';
 145 $filtersettings{'ENABLE_AUTOUPDATE'} = 'off';
 146 $filtersettings{'REDIRECT_TEMPLATE'} = 'legacy';
 147
 148 $filtersettings{'ACTION'} = '';
 149 $filtersettings{'VALID'} = '';
 150
 151 &Header::getcgihash(\%filtersettings);
 152 &Header::getcgihash(\%tcsettings);
 153 &Header::getcgihash(\%uqsettings);
 154 &Header::getcgihash(\%besettings);
 155
 156 if (($filtersettings{'ACTION'} eq $Lang::tr{'save'}) ||
 157     ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter save and restart'}) ||
 158     ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload file'}) ||
 159     ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter remove file'}) ||
 160     ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload blacklist'}) ||
 161     ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter backup'}) ||
 162     ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter restore'}))
 163 {
 164
 165         @clients = split(/\n/,$filtersettings{'UNFILTERED_CLIENTS'});
 166         foreach (@clients)
 167         {
 168                 s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
 169                 if (/.*-.*-.*/) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; }
 170                 @temp = split(/-/);
 171                 foreach (@temp) { unless ((&General::validipormask($_)) || (&General::validipandmask($_))) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; } }
 172         }
 173         @clients = split(/\n/,$filtersettings{'BANNED_CLIENTS'});
 174         foreach (@clients)
 175         {
 176                 s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
 177                 if (/.*-.*-.*/) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; }
 178                 @temp = split(/-/);
 179                 foreach (@temp) { unless ((&General::validipormask($_)) || (&General::validipandmask($_))) { $errormessage = $Lang::tr{'urlfilter invalid ip or mask error'}; } }
 180         }
 181         if ($errormessage) { goto ERROR; }
 182
 183         if ((!($filtersettings{'REDIRECT_PAGE'} eq '')) && (!($filtersettings{'REDIRECT_PAGE'} =~ /^https?:\/\//)))
 184         {
 185                 $filtersettings{'REDIRECT_PAGE'} = "http://".$filtersettings{'REDIRECT_PAGE'};
 186         }
 187
 188         if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter remove file'})
 189         {
 190                 if (-e "$repository/$filtersettings{'ID'}") { unlink("$repository/$filtersettings{'ID'}"); }
 191                 $filtersettings{'ACTION'} = $Lang::tr{'urlfilter manage repository'};
 192         }
 193
 194         if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload file'})
 195         {
 196                 &Header::getcgihash(\%filtersettings, {'wantfile' => 1, 'filevar' => 'UPLOADFILE'});
 197
 198                 $filtersettings{'ACTION'} = $Lang::tr{'urlfilter manage repository'};
 199                 $_ = $filtersettings{'UPLOADFILE'};
 200                 tr/\\/\//;
 201                 $_ = substr($_,rindex($_,"/")+1);
 202                 if ($_) {
 203                         if (copy($filtersettings{'UPLOADFILE'}, "$repository/$_") != 1)
 204                         {
 205                                 $errormessage = $!;
 206                                 goto ERROR;
 207                         }
 208                 }
 209
 210         }
 211
 212         if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter upload blacklist'})
 213         {
 214                 &Header::getcgihash(\%filtersettings, {'wantfile' => 1, 'filevar' => 'UPDATEFILE'});
 215
 216                 if (!($filtersettings{'UPDATEFILE'} =~ /.tar.gz$/))
 217                 {
 218                         $errormessage = $Lang::tr{'urlfilter wrong filetype'};
 219                         goto ERROR;
 220                 }
 221
 222                 if (copy($filtersettings{'UPDATEFILE'}, "${General::swroot}/urlfilter/blacklists.tar.gz") != 1)
 223                 {
 224                         $errormessage = $!;
 225                         goto ERROR;
 226                 }
 227
 228                 if (!(-d "${General::swroot}/urlfilter/update")) { mkdir("${General::swroot}/urlfilter/update"); }
 229
 230                 my $exitcode = system("/bin/tar --no-same-owner -xzf ${General::swroot}/urlfilter/blacklists.tar.gz -C ${General::swroot}/urlfilter/update");
 231
 232                 if ($exitcode > 0)
 233                 {
 234                         $errormessage = $Lang::tr{'urlfilter tar error'};
 235                 } else {
 236
 237                         if (-d "${General::swroot}/urlfilter/update/BL")
 238                         {
 239                                 system("mv ${General::swroot}/urlfilter/update/BL ${General::swroot}/urlfilter/update/blacklists");
 240                         }
 241
 242                         if (-d "${General::swroot}/urlfilter/update/category")
 243                         {
 244                                 system("mv ${General::swroot}/urlfilter/update/category ${General::swroot}/urlfilter/update/blacklists");
 245                         }
 246
 247                         if (!(-d "${General::swroot}/urlfilter/update/blacklists"))
 248                         {
 249                                 $errormessage = $Lang::tr{'urlfilter invalid content'};
 250                         } else {
 251                                 system("cp -r ${General::swroot}/urlfilter/update/blacklists/* $dbdir");
 252
 253                                 &readblockcategories;
 254                                 &readcustomlists;
 255
 256                                 &writeconfigfile;
 257
 258                                 $updatemessage = $Lang::tr{'urlfilter upload success'};
 259                                 system("${General::swroot}/urlfilter/bin/prebuild.pl &");
 260                                 system("logger -t installpackage[urlfilter] \"URL filter blacklist - Blacklist update from local source completed\"");
 261                         }
 262                 }
 263                 if (-d "${General::swroot}/urlfilter/update") { system("rm -rf ${General::swroot}/urlfilter/update"); }
 264                 if (-e "${General::swroot}/urlfilter/blacklists.tar.gz") { unlink("${General::swroot}/urlfilter/blacklists.tar.gz"); }
 265                 if ($errormessage) { goto ERROR; }
 266         }
 267
 268         if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter backup'})
 269         {
 270                 $blistbackup = ($filtersettings{'ENABLE_FULLBACKUP'} eq 'on') ? "blacklists" : "blacklists/custom";
 271                 if (system("/bin/tar -C ${General::swroot}/urlfilter -czf ${General::swroot}/urlfilter/backup.tar.gz settings timeconst userquota autoupdate $blistbackup"))
 272                 {
 273                         $errormessage = $Lang::tr{'urlfilter backup error'};
 274                         goto ERROR;
 275                 }
 276                 else
 277                 {
 278                         print "Content-type: application/gzip\n";
 279                         print "Content-length: ";
 280                         print (-s "${General::swroot}/urlfilter/backup.tar.gz");
 281                         print "\n";
 282                         print "Content-disposition: attachment; filename=urlfilter-backup.tar.gz\n\n";
 283
 284                         open (FILE, "${General::swroot}/urlfilter/backup.tar.gz");
 285                         while (<FILE>) { print; }
 286                         close (FILE);
 287
 288                         if (-e "${General::swroot}/urlfilter/backup.tar.gz") { unlink("${General::swroot}/urlfilter/backup.tar.gz"); }
 289                         exit;
 290                 }
 291         }
 292
 293         if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter restore'})
 294         {
 295                 &Header::getcgihash(\%filtersettings, {'wantfile' => 1, 'filevar' => 'UPDATEFILE'});
 296
 297                 if (!($filtersettings{'UPDATEFILE'} =~ /.tar.gz$/))
 298                 {
 299                         $errormessage = $Lang::tr{'urlfilter wrong filetype'};
 300                         goto ERROR;
 301                 }
 302
 303                 if (!(-d "${General::swroot}/urlfilter/restore")) { mkdir("${General::swroot}/urlfilter/restore"); }
 304
 305                 if (copy($filtersettings{'UPDATEFILE'}, "${General::swroot}/urlfilter/backup.tar.gz") != 1)
 306                 {
 307                         $errormessage = $!;
 308                 }
 309
 310                 my $exitcode = system("/bin/tar --no-same-owner --preserve-permissions -xzf ${General::swroot}/urlfilter/backup.tar.gz -C ${General::swroot}/urlfilter/restore");
 311                 if ($exitcode > 0)
 312                 {
 313                         $errormessage = $Lang::tr{'urlfilter tar error'};
 314                 } else {
 315                         if (!(-e "${General::swroot}/urlfilter/restore/settings"))
 316                         {
 317                                 $errormessage = $Lang::tr{'urlfilter invalid restore file'};
 318                         } else {
 319                                 system("cp -rp ${General::swroot}/urlfilter/restore/* ${General::swroot}/urlfilter/");
 320                                 &readblockcategories;
 321                                 &readcustomlists;
 322                                 &writeconfigfile;
 323
 324                                 $restoremessage = $Lang::tr{'urlfilter restore success'};
 325                         }
 326                 }
 327
 328                 if (-e "${General::swroot}/urlfilter/backup.tar.gz") { unlink("${General::swroot}/urlfilter/backup.tar.gz"); }
 329                 if (-d "${General::swroot}/urlfilter/restore") { system("rm -rf ${General::swroot}/urlfilter/restore"); }
 330                 if ($errormessage) { goto ERROR; }
 331         }
 332
 333         if ($filtersettings{'ACTION'} eq $Lang::tr{'save'})
 334         {
 335                 $filtersettings{'VALID'} = 'yes';
 336                 &savesettings;
 337         }
 338
 339         if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter save and restart'})
 340         {
 341                 if ((!(-e "${General::swroot}/proxy/enable")) && (!(-e "${General::swroot}/proxy/enable_blue")))
 342                 {
 343                         $errormessage = $Lang::tr{'urlfilter web proxy service required'};
 344                         goto ERROR;
 345                 }
 346                 if (!($proxysettings{'ENABLE_FILTER'} eq 'on'))
 347                 {
 348                         $errormessage = $Lang::tr{'urlfilter not enabled'};
 349                         goto ERROR;
 350                 }
 351
 352                 $filtersettings{'VALID'} = 'yes';
 353                 &savesettings;
 354
 355                 system('/usr/local/bin/squidctrl restart >/dev/null 2>&1');
 356         }
 357 }
 358
 359 if ($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter set time constraints'}) { $tcsettings{'TCMODE'} = 'on'}
 360
 361 if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'add'}))
 362 {
 363         $tcsettings{'TCMODE'}='on';
 364
 365         if (!$tcsettings{'DST'})
 366         {
 367                 $errormessage=$Lang::tr{'urlfilter dst error'};
 368         }
 369
 370         if (!$tcsettings{'SRC'})
 371         {
 372                 $errormessage=$Lang::tr{'urlfilter src error'};
 373         }
 374
 375         if (!($tcsettings{'TO_HOUR'}.$tcsettings{'TO_MINUTE'} gt $tcsettings{'FROM_HOUR'}.$tcsettings{'FROM_MINUTE'}))
 376         {
 377                 $errormessage=$Lang::tr{'urlfilter timespace error'};
 378         }
 379
 380         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')))
 381         {
 382                 $errormessage=$Lang::tr{'urlfilter weekday error'};
 383         }
 384
 385         if (!$errormessage)
 386         {
 387                 # transform to pre1.8 client definitions
 388                 @clients = split(/\n/,$tcsettings{'SRC'});
 389                 undef $tcsettings{'SRC'};
 390                 foreach(@clients)
 391                 {
 392                         s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
 393                         $tcsettings{'SRC'} .= "$_ ";
 394                 }
 395                 $tcsettings{'SRC'} =~ s/\s+$//;
 396
 397                 if ($tcsettings{'DST'} =~ /^any/) { $tcsettings{'DST'} = 'any'; }
 398                 if ($tcsettings{'ENABLERULE'} eq 'on') { $tcsettings{'ACTIVE'} = $tcsettings{'ENABLERULE'}; } else { $tcsettings{'ACTIVE'} = 'off'}
 399
 400                 $tcsettings{'ENABLERULE'} = 'on';
 401                 if($tcsettings{'EDITING'} eq 'no') {
 402                         open(FILE,">>$tcfile");
 403                         flock FILE, 2;
 404                         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";
 405                 } else {
 406                         open(FILE, ">$tcfile");
 407                         flock FILE, 2;
 408                         $id = 0;
 409                         foreach $line (@tclist)
 410                         {
 411                                 $id++;
 412                                 if ($tcsettings{'EDITING'} eq $id) {
 413                                         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";
 414                                 } else { print FILE "$line"; }
 415                         }
 416                 }
 417                 close(FILE);
 418                 undef %tcsettings;
 419                 $tcsettings{'CHANGED'}='yes';
 420                 $tcsettings{'TCMODE'}='on';
 421                 $changed = 'yes';
 422         } else {
 423                 if ($tcsettings{'EDITING'} ne 'no')
 424                 {
 425                         $tcsettings{'ACTION'} = $Lang::tr{'edit'};
 426                         $tcsettings{'ID'} = $tcsettings{'EDITING'};
 427                 }
 428         }
 429 }
 430
 431 if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter copy rule'}) && (!$errormessage))
 432 {
 433         $id = 0;
 434         foreach $line (@tclist)
 435         {
 436                 $id++;
 437                 if ($tcsettings{'ID'} eq $id)
 438                 {
 439                         chomp($line);
 440                         @temp = split(/\,/,$line);
 441                         $tcsettings{'DEFINITION'} = $temp[0];
 442                         $tcsettings{'MON'} = $temp[1];
 443                         $tcsettings{'TUE'} = $temp[2];
 444                         $tcsettings{'WED'} = $temp[3];
 445                         $tcsettings{'THU'} = $temp[4];
 446                         $tcsettings{'FRI'} = $temp[5];
 447                         $tcsettings{'SAT'} = $temp[6];
 448                         $tcsettings{'SUN'} = $temp[7];
 449                         $tcsettings{'FROM_HOUR'} = $temp[8];
 450                         $tcsettings{'FROM_MINUTE'} = $temp[9];
 451                         $tcsettings{'TO_HOUR'} = $temp[10];
 452                         $tcsettings{'TO_MINUTE'} = $temp[11];
 453                         $tcsettings{'SRC'} = $temp[12];
 454                         $tcsettings{'DST'} = $temp[13];
 455                         $tcsettings{'ACCESS'} = $temp[14];
 456                         $tcsettings{'ENABLERULE'} = $temp[15];
 457                         $tcsettings{'COMMENT'} = $temp[16];
 458                 }
 459         }
 460         $tcsettings{'TCMODE'}='on';
 461 }
 462
 463 if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'remove'}))
 464 {
 465         $id = 0;
 466         open(FILE, ">$tcfile");
 467         flock FILE, 2;
 468         foreach $line (@tclist)
 469         {
 470                 $id++;
 471                 unless ($tcsettings{'ID'} eq $id) { print FILE "$line"; }
 472         }
 473         close(FILE);
 474         $tcsettings{'CHANGED'}='yes';
 475         $tcsettings{'TCMODE'}='on';
 476 }
 477
 478 if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter restart'}))
 479 {
 480         if (!($proxysettings{'ENABLE_FILTER'} eq 'on'))
 481         {
 482                 $errormessage = $Lang::tr{'urlfilter not enabled'};
 483         }
 484         if ((!(-e "${General::swroot}/proxy/enable")) && (!(-e "${General::swroot}/proxy/enable_blue")))
 485         {
 486                 $errormessage = $Lang::tr{'urlfilter web proxy service required'};
 487         }
 488
 489         if (!$errormessage) { system('/usr/local/bin/squidctrl restart >/dev/null 2>&1'); }
 490         $tcsettings{'TCMODE'}='on';
 491 }
 492
 493 if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'}))
 494 {
 495         open(FILE, ">$tcfile");
 496         flock FILE, 2;
 497         $id = 0;
 498         foreach $line (@tclist)
 499         {
 500                 $id++;
 501                 unless ($tcsettings{'ID'} eq $id) { print FILE "$line"; }
 502                 else
 503                 {
 504                         chomp($line);
 505                         @temp = split(/\,/,$line);
 506                         if ($temp[15] eq 'on') { $temp[15] = 'off'; } else { $temp[15] = 'on' }
 507                         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";
 508                 }
 509         }
 510         close(FILE);
 511         $tcsettings{'CHANGED'}='yes';
 512         $tcsettings{'TCMODE'}='on';
 513 }
 514
 515 if (($tcsettings{'MODE'} eq 'TIMECONSTRAINT') && ($tcsettings{'ACTION'} eq $Lang::tr{'edit'}) && (!$errormessage))
 516 {
 517         $id = 0;
 518         foreach $line (@tclist)
 519         {
 520                 $id++;
 521                 if ($tcsettings{'ID'} eq $id)
 522                 {
 523                         chomp($line);
 524                         @temp = split(/\,/,$line);
 525                         $tcsettings{'DEFINITION'} = $temp[0];
 526                         $tcsettings{'MON'} = $temp[1];
 527                         $tcsettings{'TUE'} = $temp[2];
 528                         $tcsettings{'WED'} = $temp[3];
 529                         $tcsettings{'THU'} = $temp[4];
 530                         $tcsettings{'FRI'} = $temp[5];
 531                         $tcsettings{'SAT'} = $temp[6];
 532                         $tcsettings{'SUN'} = $temp[7];
 533                         $tcsettings{'FROM_HOUR'} = $temp[8];
 534                         $tcsettings{'FROM_MINUTE'} = $temp[9];
 535                         $tcsettings{'TO_HOUR'} = $temp[10];
 536                         $tcsettings{'TO_MINUTE'} = $temp[11];
 537                         $tcsettings{'SRC'} = $temp[12];
 538                         $tcsettings{'DST'} = $temp[13];
 539                         $tcsettings{'ACCESS'} = $temp[14];
 540                         $tcsettings{'ENABLERULE'} = $temp[15];
 541                         $tcsettings{'COMMENT'} = $temp[16];
 542                 }
 543         }
 544         $tcsettings{'TCMODE'}='on';
 545 }
 546
 547 if ((!$errormessage) && (!($tcsettings{'ACTION'} eq $Lang::tr{'urlfilter copy rule'})) && (!($tcsettings{'ACTION'} eq $Lang::tr{'edit'}))) {
 548         $tcsettings{'ENABLERULE'}='on';
 549         $tcsettings{'TO_HOUR'}='24';
 550 }
 551
 552 if ($uqsettings{'ACTION'} eq $Lang::tr{'urlfilter set user quota'}) { $uqsettings{'UQMODE'} = 'on'}
 553
 554 if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'add'}))
 555 {
 556         $uqsettings{'UQMODE'}='on';
 557
 558         if ((!($uqsettings{'TIME_QUOTA'} =~ /^\d+/)) || ($uqsettings{'TIME_QUOTA'} < '1'))
 559         {
 560                 $errormessage=$Lang::tr{'urlfilter quota time error'};
 561         }
 562
 563         @temp = split(/\n/,$uqsettings{'QUOTA_USERS'});
 564         undef $uqsettings{'QUOTA_USERS'};
 565         foreach (@temp)
 566         {
 567                 s/^\s+//g; s/\s+$//g;
 568                 if ($_) { $uqsettings{'QUOTA_USERS'} .= $_."\n"; }
 569         }
 570
 571         if ($uqsettings{'QUOTA_USERS'} eq '')
 572         {
 573                 $errormessage=$Lang::tr{'urlfilter quota user error'};
 574         }
 575
 576         $_  = $uqsettings{'QUOTA_USERS'};
 577         chomp; s/\n/|/g;
 578         my $quota_users = $_;
 579
 580         if ($uqsettings{'QUOTA_USERS'} =~ /\\/)
 581         {
 582                 $errormessage=$Lang::tr{'urlfilter invalid user error'};
 583         }
 584
 585         if (!$errormessage) {
 586                 if ($uqsettings{'ENABLEQUOTA'} eq 'on') { $uqsettings{'ACTIVE'} = $uqsettings{'ENABLEQUOTA'}; } else { $uqsettings{'ACTIVE'} = 'off'}
 587
 588                 $uqsettings{'ENABLERULE'} = 'on';
 589                 if($uqsettings{'EDITING'} eq 'no') {
 590                         open(FILE,">>$uqfile");
 591                         flock FILE, 2;
 592                         print FILE "$uqsettings{'TIME_QUOTA'},$uqsettings{'SPORADIC'},$uqsettings{'RENEWAL'},$quota_users,$uqsettings{'ACTIVE'}\n";
 593                 } else {
 594                         open(FILE, ">$uqfile");
 595                         flock FILE, 2;
 596                         $id = 0;
 597                         foreach $line (@uqlist)
 598                         {
 599                                 $id++;
 600                                 if ($uqsettings{'EDITING'} eq $id) {
 601                                         print FILE "$uqsettings{'TIME_QUOTA'},$uqsettings{'SPORADIC'},$uqsettings{'RENEWAL'},$quota_users,$uqsettings{'ACTIVE'}\n";
 602                                 } else { print FILE "$line"; }
 603                         }
 604                 }
 605                 close(FILE);
 606                 undef %uqsettings;
 607                 $uqsettings{'CHANGED'}='yes';
 608                 $uqsettings{'MODE'}='USERQUOTA';
 609                 $uqsettings{'UQMODE'}='on';
 610                 $changed = 'yes';
 611         } else {
 612                 if ($uqsettings{'EDITING'} ne 'no')
 613                 {
 614                         $uqsettings{'ACTION'} = $Lang::tr{'edit'};
 615                         $uqsettings{'ID'} = $uqsettings{'EDITING'};
 616                 }
 617         }
 618 }
 619
 620 if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'remove'}))
 621 {
 622         $id = 0;
 623         open(FILE, ">$uqfile");
 624         flock FILE, 2;
 625         foreach $line (@uqlist)
 626         {
 627                 $id++;
 628                 unless ($uqsettings{'ID'} eq $id) { print FILE "$line"; }
 629         }
 630         close(FILE);
 631         $uqsettings{'CHANGED'}='yes';
 632         $uqsettings{'UQMODE'}='on';
 633 }
 634
 635 if (!$errormessage) {
 636         $uqsettings{'ENABLEQUOTA'}='on';
 637 }
 638
 639 if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'edit'}) && (!$errormessage))
 640 {
 641         $id = 0;
 642         foreach $line (@uqlist)
 643         {
 644                 $id++;
 645                 if ($uqsettings{'ID'} eq $id)
 646                 {
 647                         chomp($line);
 648                         @temp = split(/\,/,$line);
 649                         $uqsettings{'TIME_QUOTA'} = $temp[0];
 650                         $uqsettings{'SPORADIC'} = $temp[1];
 651                         $uqsettings{'RENEWAL'} = $temp[2];
 652                         $uqsettings{'QUOTA_USERS'} = $temp[3];
 653                         $uqsettings{'ENABLEQUOTA'} = $temp[4];
 654                 }
 655         }
 656         $uqsettings{'UQMODE'}='on';
 657 }
 658
 659 if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'toggle enable disable'}))
 660 {
 661         open(FILE, ">$uqfile");
 662         flock FILE, 2;
 663         $id = 0;
 664         foreach $line (@uqlist)
 665         {
 666                 $id++;
 667                 unless ($uqsettings{'ID'} eq $id) { print FILE "$line"; }
 668                 else
 669                 {
 670                         chomp($line);
 671                         @temp = split(/\,/,$line);
 672                         if ($temp[4] eq 'on') { $temp[4] = 'off'; } else { $temp[4] = 'on' }
 673                         print FILE "$temp[0],$temp[1],$temp[2],$temp[3],$temp[4]\n";
 674                 }
 675         }
 676         close(FILE);
 677         $uqsettings{'CHANGED'}='yes';
 678         $uqsettings{'UQMODE'}='on';
 679 }
 680
 681 if (($uqsettings{'MODE'} eq 'USERQUOTA') && ($uqsettings{'ACTION'} eq $Lang::tr{'urlfilter restart'}))
 682 {
 683         if (!($proxysettings{'ENABLE_FILTER'} eq 'on'))
 684         {
 685                 $errormessage = $Lang::tr{'urlfilter not enabled'};
 686         }
 687         if ((!(-e "${General::swroot}/proxy/enable")) && (!(-e "${General::swroot}/proxy/enable_blue")))
 688         {
 689                 $errormessage = $Lang::tr{'urlfilter web proxy service required'};
 690         }
 691
 692         if (!$errormessage) { system('/usr/local/bin/squidctrl restart >/dev/null 2>&1'); }
 693         $uqsettings{'UQMODE'}='on';
 694 }
 695
 696 if ($besettings{'ACTION'} eq $Lang::tr{'urlfilter blacklist editor'}) { $besettings{'BEMODE'} = 'on'; }
 697
 698 if ($besettings{'MODE'} eq 'BLACKLIST_EDITOR')
 699 {
 700         @temp = split(/\n/,$besettings{'BE_DOMAINS'});
 701         undef $besettings{'BE_DOMAINS'};
 702         foreach (@temp)
 703         {
 704                 s/^\s+//g; s/\s+$//g;
 705                 if ($_) { $besettings{'BE_DOMAINS'} .= $_."\n"; }
 706         }
 707         chomp($besettings{'BE_DOMAINS'});
 708         @temp = split(/\n/,$besettings{'BE_URLS'});
 709         undef $besettings{'BE_URLS'};
 710         foreach (@temp)
 711         {
 712                 s/^\s+//g; s/\s+$//g;
 713                 if ($_) { $besettings{'BE_URLS'} .= $_."\n"; }
 714         }
 715         chomp($besettings{'BE_URLS'});
 716         @temp = split(/\n/,$besettings{'BE_EXPRESSIONS'});
 717         undef $besettings{'BE_EXPRESSIONS'};
 718         foreach (@temp)
 719         {
 720                 s/^\s+//g; s/\s+$//g;
 721                 if ($_) { $besettings{'BE_EXPRESSIONS'} .= $_."\n"; }
 722         }
 723         chomp($besettings{'BE_EXPRESSIONS'});
 724 }
 725
 726 if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter load blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
 727 {
 728         $besettings{'BEMODE'} = 'on';
 729
 730         $besettings{'BE_NAME'} = $besettings{'BE_BLACKLIST'};
 731
 732         delete $besettings{'BE_DOMAINS'};
 733         delete $besettings{'BE_URLS'};
 734         delete $besettings{'BE_EXPRESSIONS'};
 735
 736         if (-e "$dbdir/$besettings{'BE_NAME'}/domains")
 737         {
 738                 open(FILE, "$dbdir/$besettings{'BE_NAME'}/domains");
 739                 while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_DOMAINS'} .= $_ } };
 740                 close FILE;
 741                 chomp($besettings{'BE_DOMAINS'});
 742         }
 743         if (-e "$dbdir/$besettings{'BE_NAME'}/urls")
 744         {
 745                 open(FILE, "$dbdir/$besettings{'BE_NAME'}/urls");
 746                 while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_URLS'} .= $_ } };
 747                 close FILE;
 748                 chomp($besettings{'BE_URLS'});
 749         }
 750         if (-e "$dbdir/$besettings{'BE_NAME'}/expressions")
 751         {
 752                 open(FILE, "$dbdir/$besettings{'BE_NAME'}/expressions");
 753                 while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_EXPRESSIONS'} .= $_ } };
 754                 close FILE;
 755                 chomp($besettings{'BE_EXPRESSIONS'});
 756         }
 757 }
 758
 759 if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter import blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
 760 {
 761         $besettings{'BEMODE'} = 'on';
 762
 763         &Header::getcgihash(\%besettings, {'wantfile' => 1, 'filevar' => 'IMPORTFILE'});
 764
 765         if (!($besettings{'IMPORTFILE'} =~ /.tar.gz$/))
 766         {
 767                 $errormessage = $Lang::tr{'urlfilter wrong filetype'};
 768         } else {
 769                 if (!-d "$editdir") { mkdir("$editdir"); }
 770
 771                 if (copy($besettings{'IMPORTFILE'}, "$editdir/blacklist.tar.gz") != 1)
 772                 {
 773                         $errormessage = $!;
 774                 } else {
 775
 776                         my $exitcode = system("/bin/tar --no-same-owner --preserve-permissions -xzf $editdir/blacklist.tar.gz -C $editdir");
 777                         if ($exitcode > 0)
 778                         {
 779                                 $errormessage = $Lang::tr{'urlfilter tar error'};
 780                         } else {
 781                                 $i = 0;
 782                                 foreach (<$editdir/blacklists/*>)
 783                                 {
 784                                         if (-d)
 785                                         {
 786                                                 $i++;
 787                                                 $besettings{'BE_NAME'} = substr($_, rindex($_,"/")+1);
 788                                         }
 789                                 }
 790
 791                                 if (!($i == 1))
 792                                 {
 793                                         $errormessage = $Lang::tr{'urlfilter invalid import file'};
 794                                 } else {
 795                                         delete $besettings{'BE_DOMAINS'};
 796                                         delete $besettings{'BE_URLS'};
 797                                         delete $besettings{'BE_EXPRESSIONS'};
 798
 799                                         if (-e "$editdir/blacklists/$besettings{'BE_NAME'}/domains")
 800                                         {
 801                                                 open(FILE, "$editdir/blacklists/$besettings{'BE_NAME'}/domains");
 802                                                 while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_DOMAINS'} .= $_ } };
 803                                                 close FILE;
 804                                                 chomp($besettings{'BE_DOMAINS'});
 805                                         }
 806                                         if (-e "$editdir/blacklists/$besettings{'BE_NAME'}/urls")
 807                                         {
 808                                                 open(FILE, "$editdir/blacklists/$besettings{'BE_NAME'}/urls");
 809                                                 while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_URLS'} .= $_ } };
 810                                                 close FILE;
 811                                                 chomp($besettings{'BE_URLS'});
 812                                         }
 813                                         if (-e "$editdir/blacklists/$besettings{'BE_NAME'}/expressions")
 814                                         {
 815                                                 open(FILE, "$editdir/blacklists/$besettings{'BE_NAME'}/expressions");
 816                                                 while (<FILE>) { unless ($_ eq '\n') { $besettings{'BE_EXPRESSIONS'} .= $_ } };
 817                                                 close FILE;
 818                                                 chomp($besettings{'BE_EXPRESSIONS'});
 819                                         }
 820                                 }
 821                         }
 822
 823                 if (-d $editdir) { system("rm -rf $editdir"); }
 824
 825                 }
 826         }
 827 }
 828
 829 if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter export blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
 830 {
 831         $besettings{'BEMODE'} = 'on';
 832
 833         if ($besettings{'BE_NAME'} eq '')
 834         {
 835                 $errormessage = $Lang::tr{'urlfilter category name error'};
 836         } elsif ($besettings{'BE_DOMAINS'} || $besettings{'BE_URLS'} || $besettings{'BE_EXPRESSIONS'}) {
 837
 838                 $_ = $besettings{'BE_NAME'}; tr/A-Z/a-z/; $besettings{'BE_NAME'} = $_;
 839
 840                 if (!(-d "$editdir")) { mkdir("$editdir"); }
 841                 if (!(-d "$editdir/blacklists")) { mkdir("$editdir/blacklists"); }
 842                 if (!(-d "$editdir/blacklists/$besettings{'BE_NAME'}")) { mkdir("$editdir/blacklists/$besettings{'BE_NAME'}"); }
 843
 844                 open(FILE, ">$editdir/blacklists/$besettings{'BE_NAME'}/domains");
 845                 flock FILE, 2;
 846                 print FILE "$besettings{'BE_DOMAINS'}\n";
 847                 close FILE;
 848                 open(FILE, ">$editdir/blacklists/$besettings{'BE_NAME'}/urls");
 849                 flock FILE, 2;
 850                 print FILE "$besettings{'BE_URLS'}\n";
 851                 close FILE;
 852                 open(FILE, ">$editdir/blacklists/$besettings{'BE_NAME'}/expressions");
 853                 flock FILE, 2;
 854                 print FILE "$besettings{'BE_EXPRESSIONS'}\n";
 855                 close FILE;
 856
 857                 if (system("/bin/tar -C $editdir -czf $editdir/$besettings{'BE_NAME'}.tar.gz blacklists"))
 858                 {
 859                         $errormessage = $Lang::tr{'urlfilter export error'};
 860                 }
 861                 else
 862                 {
 863                         print "Content-type: application/gzip\n";
 864                         print "Content-length: ";
 865                         print (-s "$editdir/$besettings{'BE_NAME'}.tar.gz");
 866                         print "\n";
 867                         print "Content-disposition: attachment; filename=$besettings{'BE_NAME'}.tar.gz\n\n";
 868
 869                         open (FILE, "$editdir/$besettings{'BE_NAME'}.tar.gz");
 870                         while (<FILE>) { print; }
 871                         close (FILE);
 872
 873                         if (-d $editdir) { system("rm -rf $editdir"); }
 874                         exit;
 875                 }
 876         } else {
 877                 $errormessage = $Lang::tr{'urlfilter category data error'};
 878         }
 879 }
 880
 881 if (($besettings{'ACTION'} eq $Lang::tr{'urlfilter install blacklist'}) && ($besettings{'MODE'} = 'BLACKLIST_EDITOR'))
 882 {
 883         $besettings{'BEMODE'} = 'on';
 884
 885         if ($besettings{'BE_NAME'} eq '')
 886         {
 887                 $errormessage = $Lang::tr{'urlfilter category name error'};
 888         } elsif ($besettings{'BE_DOMAINS'} || $besettings{'BE_URLS'} || $besettings{'BE_EXPRESSIONS'}) {
 889
 890                 $_ = $besettings{'BE_NAME'}; tr/A-Z/a-z/; $besettings{'BE_NAME'} = $_;
 891
 892                 if (!-d "$editdir") { mkdir("$editdir"); }
 893
 894                 if (!-d "$dbdir/$besettings{'BE_NAME'}") { mkdir("$dbdir/$besettings{'BE_NAME'}"); }
 895
 896                 if (-e "$dbdir/$besettings{'BE_NAME'}/domains") { unlink("$dbdir/$besettings{'BE_NAME'}/domains"); }
 897                 if ($besettings{'BE_DOMAINS'})
 898                 {
 899                         open(FILE, ">$dbdir/$besettings{'BE_NAME'}/domains");
 900                         flock FILE, 2;
 901                         print FILE "$besettings{'BE_DOMAINS'}\n";
 902                         close FILE;
 903                 }
 904                 if (-e "$dbdir/$besettings{'BE_NAME'}/urls") { unlink("$dbdir/$besettings{'BE_NAME'}/urls"); }
 905                 if ($besettings{'BE_URLS'})
 906                 {
 907                         open(FILE, ">$dbdir/$besettings{'BE_NAME'}/urls");
 908                         flock FILE, 2;
 909                         print FILE "$besettings{'BE_URLS'}\n";
 910                         close FILE;
 911                 }
 912                 if (-e "$dbdir/$besettings{'BE_NAME'}/expressions") { unlink("$dbdir/$besettings{'BE_NAME'}/expressions"); }
 913                 if ($besettings{'BE_EXPRESSIONS'})
 914                 {
 915                         open(FILE, ">$dbdir/$besettings{'BE_NAME'}/expressions");
 916                         flock FILE, 2;
 917                         print FILE "$besettings{'BE_EXPRESSIONS'}\n";
 918                         close FILE;
 919                 }
 920
 921                 open(FILE, ">$editdir/install.conf");
 922                 flock FILE, 2;
 923                 print FILE "logdir /var/log/squidGuard\n";
 924                 print FILE "dbhome $dbdir/$besettings{'BE_NAME'}\n\n";
 925                 print FILE "dest $besettings{'BE_NAME'} {\n";
 926                 if ($besettings{'BE_DOMAINS'})     { print FILE "    domainlist  domains\n"; }
 927                 if ($besettings{'BE_URLS'})        { print FILE "    urllist     urls\n"; }
 928                 if ($besettings{'BE_EXPRESSIONS'}) { print FILE "    expressions expressions\n"; }
 929                 print FILE "}\n\n";
 930                 print FILE "acl {\n";
 931                 print FILE "    default {\n";
 932                 print FILE "        pass none\n";
 933                 print FILE "    }\n";
 934                 print FILE "}\n";
 935                 close FILE;
 936
 937                 system("rm -f $dbdir/$besettings{'BE_NAME'}/*.db");
 938                 system("/usr/sbin/squidGuard -c $editdir/install.conf -C all");
 939                 system("chmod a+w $dbdir/$besettings{'BE_NAME'}/*.db");
 940
 941                 &readblockcategories;
 942                 &readcustomlists;
 943
 944                 &writeconfigfile;
 945
 946                 system('/usr/local/bin/squidctrl restart >/dev/null 2>&1') unless ($besettings{'NORESTART'} eq 'on');
 947
 948                 if (-d $editdir) { system("rm -rf $editdir"); }
 949         } else {
 950                 $errormessage = $Lang::tr{'urlfilter category data error'};
 951         }
 952 }
 953
 954 if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter save schedule'})
 955 {
 956         if (($filtersettings{'UPDATE_SOURCE'} eq 'custom') && ($filtersettings{'CUSTOM_UPDATE_URL'} eq ''))
 957         {
 958                 $errormessage = $Lang::tr{'urlfilter custom url required'};
 959         } else {
 960                 open (FILE, ">$updconffile");
 961                 print FILE "ENABLE_AUTOUPDATE=$filtersettings{'ENABLE_AUTOUPDATE'}\n";
 962                 print FILE "UPDATE_SCHEDULE=$filtersettings{'UPDATE_SCHEDULE'}\n";
 963                 print FILE "UPDATE_SOURCE=$filtersettings{'UPDATE_SOURCE'}\n";
 964                 print FILE "CUSTOM_UPDATE_URL=$filtersettings{'CUSTOM_UPDATE_URL'}\n";
 965                 close FILE;
 966
 967
 968                 if (($filtersettings{'ENABLE_AUTOUPDATE'} eq 'on') && ($filtersettings{'UPDATE_SCHEDULE'} eq 'daily'))
 969                 {
 970                         system('/usr/local/bin/urlfilterctrl cron daily >/dev/null 2>&1');
 971                 }
 972
 973                 if (($filtersettings{'ENABLE_AUTOUPDATE'} eq 'on') && ($filtersettings{'UPDATE_SCHEDULE'} eq 'weekly'))
 974                 {
 975                         system('/usr/local/bin/urlfilterctrl cron weekly >/dev/null 2>&1');
 976                 }
 977
 978                 if (($filtersettings{'ENABLE_AUTOUPDATE'} eq 'on') && ($filtersettings{'UPDATE_SCHEDULE'} eq 'monthly'))
 979                 {
 980                         system('/usr/local/bin/urlfilterctrl cron monthly >/dev/null 2>&1');
 981                 }
 982         }
 983 }
 984
 985 if ($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter update now'})
 986 {
 987         if ($filtersettings{'UPDATE_SOURCE'} eq 'custom')
 988         {
 989                 if ($filtersettings{'CUSTOM_UPDATE_URL'} eq '')
 990                 {
 991                         $errormessage = $Lang::tr{'urlfilter custom url required'};
 992                 } else {
 993                         system("${General::swroot}/urlfilter/bin/autoupdate.pl $filtersettings{'CUSTOM_UPDATE_URL'} &");
 994                 }
 995         } else {
 996                 system("${General::swroot}/urlfilter/bin/autoupdate.pl $filtersettings{'UPDATE_SOURCE'} &");
 997         }
 998 }
 999
1000
1001 if (-e "${General::swroot}/urlfilter/settings") { &General::readhash("${General::swroot}/urlfilter/settings", \%filtersettings); }
1002
1003 &readcustomlists;
1004
1005 ERROR:
1006
1007 if ($errormessage) { $filtersettings{'VALID'} = 'no'; }
1008
1009 $checked{'ENABLE_CUSTOM_BLACKLIST'}{'off'} = '';
1010 $checked{'ENABLE_CUSTOM_BLACKLIST'}{'on'} = '';
1011 $checked{'ENABLE_CUSTOM_BLACKLIST'}{$filtersettings{'ENABLE_CUSTOM_BLACKLIST'}} = "checked='checked'";
1012 $checked{'ENABLE_CUSTOM_WHITELIST'}{'off'} = '';
1013 $checked{'ENABLE_CUSTOM_WHITELIST'}{'on'} = '';
1014 $checked{'ENABLE_CUSTOM_WHITELIST'}{$filtersettings{'ENABLE_CUSTOM_WHITELIST'}} = "checked='checked'";
1015 $checked{'ENABLE_CUSTOM_EXPRESSIONS'}{'off'} = '';
1016 $checked{'ENABLE_CUSTOM_EXPRESSIONS'}{'on'} = '';
1017 $checked{'ENABLE_CUSTOM_EXPRESSIONS'}{$filtersettings{'ENABLE_CUSTOM_EXPRESSIONS'}} = "checked='checked'";
1018 $checked{'BLOCK_EXECUTABLES'}{'off'} = '';
1019 $checked{'BLOCK_EXECUTABLES'}{'on'} = '';
1020 $checked{'BLOCK_EXECUTABLES'}{$filtersettings{'BLOCK_EXECUTABLES'}} = "checked='checked'";
1021 $checked{'BLOCK_AUDIO-VIDEO'}{'off'} = '';
1022 $checked{'BLOCK_AUDIO-VIDEO'}{'on'} = '';
1023 $checked{'BLOCK_AUDIO-VIDEO'}{$filtersettings{'BLOCK_AUDIO-VIDEO'}} = "checked='checked'";
1024 $checked{'BLOCK_ARCHIVES'}{'off'} = '';
1025 $checked{'BLOCK_ARCHIVES'}{'on'} = '';
1026 $checked{'BLOCK_ARCHIVES'}{$filtersettings{'BLOCK_ARCHIVES'}} = "checked='checked'";
1027 $checked{'ENABLE_REWRITE'}{'off'} = '';
1028 $checked{'ENABLE_REWRITE'}{'on'} = '';
1029 $checked{'ENABLE_REWRITE'}{$filtersettings{'ENABLE_REWRITE'}} = "checked='checked'";
1030 $checked{'SHOW_CATEGORY'}{'off'} = '';
1031 $checked{'SHOW_CATEGORY'}{'on'} = '';
1032 $checked{'SHOW_CATEGORY'}{$filtersettings{'SHOW_CATEGORY'}} = "checked='checked'";
1033 $checked{'SHOW_URL'}{'off'} = '';
1034 $checked{'SHOW_URL'}{'on'} = '';
1035 $checked{'SHOW_URL'}{$filtersettings{'SHOW_URL'}} = "checked='checked'";
1036 $checked{'SHOW_IP'}{'off'} = '';
1037 $checked{'SHOW_IP'}{'on'} = '';
1038 $checked{'SHOW_IP'}{$filtersettings{'SHOW_IP'}} = "checked='checked'";
1039 $checked{'ENABLE_DNSERROR'}{'off'} = '';
1040 $checked{'ENABLE_DNSERROR'}{'on'} = '';
1041 $checked{'ENABLE_DNSERROR'}{$filtersettings{'ENABLE_DNSERROR'}} = "checked='checked'";
1042 $checked{'ENABLE_JPEG'}{'off'} = '';
1043 $checked{'ENABLE_JPEG'}{'on'} = '';
1044 $checked{'ENABLE_JPEG'}{$filtersettings{'ENABLE_JPEG'}} = "checked='checked'";
1045 $checked{'ENABLE_EXPR_LISTS'}{'off'} = '';
1046 $checked{'ENABLE_EXPR_LISTS'}{'on'} = '';
1047 $checked{'ENABLE_EXPR_LISTS'}{$filtersettings{'ENABLE_EXPR_LISTS'}} = "checked='checked'";
1048 $checked{'BLOCK_IP_ADDR'}{'off'} = '';
1049 $checked{'BLOCK_IP_ADDR'}{'on'} = '';
1050 $checked{'BLOCK_IP_ADDR'}{$filtersettings{'BLOCK_IP_ADDR'}} = "checked='checked'";
1051 $checked{'BLOCK_ALL'}{'off'} = '';
1052 $checked{'BLOCK_ALL'}{'on'} = '';
1053 $checked{'BLOCK_ALL'}{$filtersettings{'BLOCK_ALL'}} = "checked='checked'";
1054 $checked{'ENABLE_EMPTY_ADS'}{'off'} = '';
1055 $checked{'ENABLE_EMPTY_ADS'}{'on'} = '';
1056 $checked{'ENABLE_EMPTY_ADS'}{$filtersettings{'ENABLE_EMPTY_ADS'}} = "checked='checked'";
1057 $checked{'ENABLE_GLOBAL_WHITELIST'}{'off'} = '';
1058 $checked{'ENABLE_GLOBAL_WHITELIST'}{'on'} = '';
1059 $checked{'ENABLE_GLOBAL_WHITELIST'}{$filtersettings{'ENABLE_GLOBAL_WHITELIST'}} = "checked='checked'";
1060 $checked{'ENABLE_SAFESEARCH'}{'off'} = '';
1061 $checked{'ENABLE_SAFESEARCH'}{'on'} = '';
1062 $checked{'ENABLE_SAFESEARCH'}{$filtersettings{'ENABLE_SAFESEARCH'}} = "checked='checked'";
1063 $checked{'ENABLE_LOG'}{'off'} = '';
1064 $checked{'ENABLE_LOG'}{'on'} = '';
1065 $checked{'ENABLE_LOG'}{$filtersettings{'ENABLE_LOG'}} = "checked='checked'";
1066 $checked{'ENABLE_USERNAME_LOG'}{'off'} = '';
1067 $checked{'ENABLE_USERNAME_LOG'}{'on'} = '';
1068 $checked{'ENABLE_USERNAME_LOG'}{$filtersettings{'ENABLE_USERNAME_LOG'}} = "checked='checked'";
1069 $checked{'ENABLE_CATEGORY_LOG'}{'off'} = '';
1070 $checked{'ENABLE_CATEGORY_LOG'}{'on'} = '';
1071 $checked{'ENABLE_CATEGORY_LOG'}{$filtersettings{'ENABLE_CATEGORY_LOG'}} = "checked='checked'";
1072
1073 foreach $category (@filtergroups) {
1074         $checked{$category}{'off'} = '';
1075         $checked{$category}{'on'} = '';
1076         $checked{$category}{$filtersettings{$category}} = "checked='checked'";
1077 }
1078
1079 $selected{'REDIRECT_TEMPLATE'}{$filtersettings{'REDIRECT_TEMPLATE'}} = "selected='selected'";
1080
1081 $selected{'DEFINITION'}{$tcsettings{'DEFINITION'}} = "selected='selected'";
1082 $selected{'FROM_HOUR'}{$tcsettings{'FROM_HOUR'}} = "selected='selected'";
1083 $selected{'FROM_MINUTE'}{$tcsettings{'FROM_MINUTE'}} = "selected='selected'";
1084 $selected{'TO_HOUR'}{$tcsettings{'TO_HOUR'}} = "selected='selected'";
1085 $selected{'TO_MINUTE'}{$tcsettings{'TO_MINUTE'}} = "selected='selected'";
1086
1087 @selectedcategories = split(/\|/,$tcsettings{'DST'});
1088 foreach (@selectedcategories)
1089 {
1090         $selected{'DST'}{$_} = "selected='selected'";
1091 }
1092
1093 $selected{'ACCESS'}{$tcsettings{'ACCESS'}} = "selected='selected'";
1094
1095 $checked{'ENABLERULE'}{'off'} = '';
1096 $checked{'ENABLERULE'}{'on'} = '';
1097 $checked{'ENABLERULE'}{$tcsettings{'ENABLERULE'}} = "checked='checked'";
1098 $checked{'MON'}{'off'} = '';
1099 $checked{'MON'}{'on'} = '';
1100 $checked{'MON'}{$tcsettings{'MON'}} = "checked='checked'";
1101 $checked{'TUE'}{'off'} = '';
1102 $checked{'TUE'}{'on'} = '';
1103 $checked{'TUE'}{$tcsettings{'TUE'}} = "checked='checked'";
1104 $checked{'WED'}{'off'} = '';
1105 $checked{'WED'}{'on'} = '';
1106 $checked{'WED'}{$tcsettings{'WED'}} = "checked='checked'";
1107 $checked{'THU'}{'off'} = '';
1108 $checked{'THU'}{'on'} = '';
1109 $checked{'THU'}{$tcsettings{'THU'}} = "checked='checked'";
1110 $checked{'FRI'}{'off'} = '';
1111 $checked{'FRI'}{'on'} = '';
1112 $checked{'FRI'}{$tcsettings{'FRI'}} = "checked='checked'";
1113 $checked{'SAT'}{'off'} = '';
1114 $checked{'SAT'}{'on'} = '';
1115 $checked{'SAT'}{$tcsettings{'SAT'}} = "checked='checked'";
1116 $checked{'SUN'}{'off'} = '';
1117 $checked{'SUN'}{'on'} = '';
1118 $checked{'SUN'}{$tcsettings{'SUN'}} = "checked='checked'";
1119
1120 $selected{'SPORADIC'}{$uqsettings{'SPORADIC'}} = "selected='selected'";
1121 $selected{'RENEWAL'} {$uqsettings{'RENEWAL'}}  = "selected='selected'";
1122
1123 $checked{'ENABLEQUOTA'}{'off'} = '';
1124 $checked{'ENABLEQUOTA'}{'on'} = '';
1125 $checked{'ENABLEQUOTA'}{$uqsettings{'ENABLEQUOTA'}} = "checked='checked'";
1126
1127 $selected{'BE_BLACKLIST'}{$besettings{'BE_BLACKLIST'}} = "selected='selected'";
1128
1129
1130 &Header::showhttpheaders();
1131
1132 &Header::openpage($Lang::tr{'urlfilter configuration'}, 1, '');
1133
1134 &Header::openbigbox('100%', 'left', '', $errormessage);
1135
1136 if ($errormessage) {
1137         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
1138         print "<font class='base'>$errormessage&nbsp;</font>\n";
1139         &Header::closebox();
1140 } elsif (($tcsettings{'CHANGED'} eq 'yes') || ($uqsettings{'CHANGED'} eq 'yes') ) {
1141         &writeconfigfile;
1142         print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
1143         &Header::openbox('100%', 'left', "$Lang::tr{'urlfilter restart notification'}:");
1144         print "<class name='base'>$Lang::tr{'urlfilter restart message'}\n";
1145         if ($uqsettings{'MODE'} eq 'USERQUOTA') { print "<p><class name='base'>$Lang::tr{'urlfilter quota restart message'}\n"; }
1146         print "</class>\n";
1147         print "<p><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter restart'}' />";
1148         if ($tcsettings{'MODE'} eq 'TIMECONSTRAINT') { print "<input type='hidden' name='MODE' value='TIMECONSTRAINT' />"; }
1149         if ($uqsettings{'MODE'} eq 'USERQUOTA') { print "<input type='hidden' name='MODE' value='USERQUOTA' />"; }
1150         &Header::closebox();
1151         print "</form>\n";
1152 }
1153
1154 if ($restoremessage) {
1155         &Header::openbox('100%', 'left', "$Lang::tr{'urlfilter restore results'}:");
1156         print "<class name='base'>$restoremessage\n";
1157         print "&nbsp;</class>\n";
1158         &Header::closebox();
1159 }
1160
1161 if ((!$tcsettings{'TCMODE'}) && (!$uqsettings{'UQMODE'}) && (!$besettings{'BEMODE'})) {
1162
1163 if (!($filtersettings{'ACTION'} eq $Lang::tr{'urlfilter manage repository'})) {
1164
1165 #==========================================================
1166 #
1167 # Section: Main Configuration
1168 #
1169 #==========================================================
1170
1171 print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
1172
1173 &Header::openbox('100%', 'left', "$Lang::tr{'urlfilter filter settings'}");
1174 print <<END
1175 <table width='100%'>
1176 <tr>
1177         <td colspan='4'><b>$Lang::tr{'urlfilter block categories'}</b></td>
1178 </tr>
1179 END
1180 ;
1181
1182 if (@categories == 0) {
1183 print <<END
1184 <tr>
1185         <td><i>$Lang::tr{'urlfilter no categories'}</i></td>
1186         <td>&nbsp;</td>
1187         <td>&nbsp;</td>
1188         <td>&nbsp;</td>
1189 </tr>
1190
1191 END
1192 ;
1193 }
1194
1195 for ($n=0; $n<=@categories; $n = $n + $i) {
1196         for ($i=0; $i<=3; $i++) {
1197                 if ($i eq 0) { print "<tr>\n"; }
1198                 if (($n+$i) < @categories) {
1199                         print "<td width='15%'>@categories[$n+$i]:<\/td>\n";
1200                         print "<td width='10%'><input type='checkbox' name=@filtergroups[$n+$i] $checked{@filtergroups[$n+$i]}{'on'} /></td>\n";
1201                 }
1202                 if ($i eq 3) { print "<\/tr>\n"; }
1203         }
1204 }
1205
1206 print <<END
1207 </table>
1208 <hr size='1'>
1209 <table width='100%'>
1210 <tr>
1211         <td><b>$Lang::tr{'urlfilter custom blacklist'}</b></td>
1212         <td>&nbsp;</td>
1213         <td>&nbsp;</td>
1214         <td>&nbsp;</td>
1215 </tr>
1216 <tr>
1217         <td colspan='2'>$Lang::tr{'urlfilter blocked domains'}&nbsp;<img src='/blob.gif' alt='*' /></td>
1218         <td colspan='2'>$Lang::tr{'urlfilter blocked urls'}&nbsp;<img src='/blob.gif' alt='*' /></td>
1219 </tr>
1220 <tr>
1221         <td colspan='2'>$Lang::tr{'urlfilter example'}</td>
1222         <td colspan='2'>$Lang::tr{'urlfilter example ads'}</td>
1223 </tr>
1224 <tr>
1225         <td colspan='2' width='50%'><textarea name='CUSTOM_BLACK_DOMAINS' cols='32' rows='6' wrap='off'>
1226 END
1227 ;
1228
1229 print $filtersettings{'CUSTOM_BLACK_DOMAINS'};
1230
1231 print <<END
1232 </textarea></td>
1233         <td colspan='2' width='50%'><textarea name='CUSTOM_BLACK_URLS' cols='32' rows='6' wrap='off'>
1234 END
1235 ;
1236
1237 print $filtersettings{'CUSTOM_BLACK_URLS'};
1238
1239 print <<END
1240 </textarea></td>
1241 </tr>
1242 </table>
1243 <table width='100%'>
1244 <tr>
1245         <td class='base' width='25%'>$Lang::tr{'urlfilter enable custom blacklist'}:</td>
1246         <td><input type='checkbox' name='ENABLE_CUSTOM_BLACKLIST' $checked{'ENABLE_CUSTOM_BLACKLIST'}{'on'} /></td>
1247         <td>&nbsp;</td>
1248         <td>&nbsp;</td>
1249 </tr>
1250 </table>
1251 <hr size='1'>
1252 <table width='100%'>
1253 <tr>
1254         <td><b>$Lang::tr{'urlfilter custom whitelist'}</b></td>
1255         <td>&nbsp;</td>
1256         <td>&nbsp;</td>
1257         <td>&nbsp;</td>
1258 </tr>
1259 <tr>
1260         <td colspan='2'>$Lang::tr{'urlfilter allowed domains'}&nbsp;<img src='/blob.gif' alt='*' /></td>
1261         <td colspan='2'>$Lang::tr{'urlfilter allowed urls'}&nbsp;<img src='/blob.gif' alt='*' /></td>
1262 </tr>
1263 <tr>
1264         <td colspan='2'>$Lang::tr{'urlfilter example'}</td>
1265         <td colspan='2'>$Lang::tr{'urlfilter example ads'}</td>
1266 </tr>
1267 <tr>
1268         <td colspan='2' width='50%'><textarea name='CUSTOM_WHITE_DOMAINS' cols='32' rows='6' wrap='off'>
1269 END
1270 ;
1271
1272 print $filtersettings{'CUSTOM_WHITE_DOMAINS'};
1273
1274 print <<END
1275 </textarea></td>
1276         <td colspan='2' width='50%'><textarea name='CUSTOM_WHITE_URLS' cols='32' rows='6' wrap='off'>
1277 END
1278 ;
1279
1280 print $filtersettings{'CUSTOM_WHITE_URLS'};
1281
1282 print <<END
1283 </textarea></td>
1284 </tr>
1285 </table>
1286 <table width='100%'>
1287 <tr>
1288         <td class='base' width='25%'>$Lang::tr{'urlfilter enable custom whitelist'}:</td>
1289         <td><input type='checkbox' name='ENABLE_CUSTOM_WHITELIST' $checked{'ENABLE_CUSTOM_WHITELIST'}{'on'} /></td>
1290         <td>&nbsp;</td>
1291         <td>&nbsp;</td>
1292 </tr>
1293 </table>
1294 <hr size='1'>
1295 <table width='100%'>
1296 <tr>
1297         <td colspan='4'><b>$Lang::tr{'urlfilter custom expression list'}</b></td>
1298 </tr>
1299 <tr>
1300         <td colspan='4'>$Lang::tr{'urlfilter blocked expressions'}&nbsp;<img src='/blob.gif' alt='*' /></td>
1301 </tr>
1302 <tr>
1303         <td colspan='4'><textarea name='CUSTOM_EXPRESSIONS' cols='70' rows='3' wrap='off'>
1304 END
1305 ;
1306
1307 print $filtersettings{'CUSTOM_EXPRESSIONS'};
1308
1309 print <<END
1310 </textarea></td>
1311 </tr>
1312 <tr>
1313         <td class='base' width='25%'>$Lang::tr{'urlfilter enable custom expression list'}:</td>
1314         <td><input type='checkbox' name='ENABLE_CUSTOM_EXPRESSIONS' $checked{'ENABLE_CUSTOM_EXPRESSIONS'}{'on'} /></td>
1315         <td>&nbsp;</td>
1316         <td>&nbsp;</td>
1317 </tr>
1318 </table>
1319 <hr size='1'>
1320 <table width='100%'>
1321 <tr>
1322         <td colspan='4'><b>$Lang::tr{'urlfilter file ext block'}</b></td>
1323 </tr>
1324 <tr>
1325         <td width='25%' class='base'>$Lang::tr{'urlfilter block executables'}:</td>
1326         <td width='12%'><input type='checkbox' name='BLOCK_EXECUTABLES' $checked{'BLOCK_EXECUTABLES'}{'on'} /></td>
1327         <td width='25%'  class='base'>$Lang::tr{'urlfilter block audio-video'}:</td>
1328         <td><input type='checkbox' name='BLOCK_AUDIO-VIDEO' $checked{'BLOCK_AUDIO-VIDEO'}{'on'} /></td>
1329 </tr>
1330 <tr>
1331         <td class='base'>$Lang::tr{'urlfilter block archives'}:</td>
1332         <td><input type='checkbox' name='BLOCK_ARCHIVES' $checked{'BLOCK_ARCHIVES'}{'on'} /></td>
1333         <td>&nbsp;</td>
1334         <td>&nbsp;</td>
1335 </tr>
1336 </table>
1337 <hr size='1'>
1338 <table width='100%'>
1339 <tr>
1340         <td colspan='4'><b>$Lang::tr{'urlfilter local file redirection'}</b></td>
1341 </tr>
1342 <tr>
1343         <td width='25%' class='base'>$Lang::tr{'urlfilter enable rewrite rules'}:</td>
1344         <td width='12%'><input type='checkbox' name='ENABLE_REWRITE' $checked{'ENABLE_REWRITE'}{'on'} /></td>
1345         <td>&nbsp;</td>
1346         <td>&nbsp;</td>
1347 </tr>
1348 <tr>
1349         <td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter manage repository'}'></td>
1350         <td>&nbsp;</td>
1351         <td>&nbsp;</td>
1352         <td>&nbsp;</td>
1353 </tr>
1354 </table>
1355 <hr size='1'>
1356 <table width='100%'>
1357 <tr>
1358         <td colspan='2'><b>$Lang::tr{'urlfilter network access control'}</b></td>
1359         <td>&nbsp;</td>
1360         <td>&nbsp;</td>
1361 </tr>
1362 <tr>
1363         <td colspan='2'>$Lang::tr{'urlfilter unfiltered clients'}&nbsp;<img src='/blob.gif' alt='*' /></td>
1364         <td colspan='2'>$Lang::tr{'urlfilter banned clients'}&nbsp;<img src='/blob.gif' alt='*' /></td>
1365 </tr>
1366 <tr>
1367         <td colspan='2' width='50%'><textarea name='UNFILTERED_CLIENTS' cols='32' rows='6' wrap='off'>
1368 END
1369 ;
1370
1371 # transform from pre1.8 client definitions
1372 $filtersettings{'UNFILTERED_CLIENTS'} =~ s/^\s+//g;
1373 $filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+$//g;
1374 $filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+-\s+/-/g;
1375 $filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+/ /g;
1376
1377 @clients = split(/ /,$filtersettings{'UNFILTERED_CLIENTS'});
1378 undef $filtersettings{'UNFILTERED_CLIENTS'};
1379 foreach (@clients) { $filtersettings{'UNFILTERED_CLIENTS'} .= "$_\n"; }
1380
1381 print $filtersettings{'UNFILTERED_CLIENTS'};
1382
1383 print <<END
1384 </textarea></td>
1385         <td colspan='2' width='50%'><textarea name='BANNED_CLIENTS' cols='32' rows='6' wrap='off'>
1386 END
1387 ;
1388
1389 # transform from pre1.8 client definitions
1390 $filtersettings{'BANNED_CLIENTS'} =~ s/^\s+//g;
1391 $filtersettings{'BANNED_CLIENTS'} =~ s/\s+$//g;
1392 $filtersettings{'BANNED_CLIENTS'} =~ s/\s+-\s+/-/g;
1393 $filtersettings{'BANNED_CLIENTS'} =~ s/\s+/ /g;
1394
1395 @clients = split(/ /,$filtersettings{'BANNED_CLIENTS'});
1396 undef $filtersettings{'BANNED_CLIENTS'};
1397 foreach (@clients) { $filtersettings{'BANNED_CLIENTS'} .= "$_\n"; }
1398
1399 print $filtersettings{'BANNED_CLIENTS'};
1400
1401 print <<END
1402 </textarea></td>
1403 </tr>
1404 </table>
1405 <hr size='1'>
1406 <table width='100%'>
1407 <tr>
1408         <td colspan='4'><b>$Lang::tr{'urlfilter timebased access control'}</b></td>
1409 </tr>
1410 <tr>
1411         <td width='25%'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter set time constraints'}'></td>
1412         <td width='25%'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter set user quota'}'></td>
1413         <td>&nbsp;</td>
1414         <td>&nbsp;</td>
1415 </tr>
1416 </table>
1417 <hr size='1'>
1418 <table width='100%'>
1419 <tr>
1420         <td colspan='4'><b>$Lang::tr{'urlfilter block settings'}</b></td>
1421 </tr>
1422 <tr>
1423         <td width='25%' class='base'>$Lang::tr{'urlfilter redirect template'}</td>
1424         <td width='75%' colspan='2'>
1425                 <select name='REDIRECT_TEMPLATE'>
1426 END
1427 ;
1428
1429         foreach (<$templatedir/*>) {
1430                 if ((-d "$_") && (-e "$_/template.html")) {
1431                         my $template = substr($_,rindex($_,"/")+1);
1432                         print "<option value='$template' $selected{'REDIRECT_TEMPLATE'}{$template}>$template</option>\n";
1433                 }
1434         }
1435
1436 print <<END
1437                 </select>
1438         </td>
1439 </tr>
1440 <tr>
1441         <td width='25%' class='base'>$Lang::tr{'urlfilter show category'}:</td>
1442         <td width='12%'><input type='checkbox' name='SHOW_CATEGORY' $checked{'SHOW_CATEGORY'}{'on'} /></td>
1443         <td width='25%' class='base'>$Lang::tr{'urlfilter redirectpage'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
1444         <td><input type='text' name='REDIRECT_PAGE' value='$filtersettings{'REDIRECT_PAGE'}' size='40' /></td>
1445 </tr>
1446 <tr>
1447         <td class='base'>$Lang::tr{'urlfilter show url'}:</td>
1448         <td><input type='checkbox' name='SHOW_URL' $checked{'SHOW_URL'}{'on'} /></td>
1449         <td class='base'>$Lang::tr{'urlfilter msg text 1'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
1450         <td><input type='text' name='MSG_TEXT_1' value='$filtersettings{'MSG_TEXT_1'}' size='40' /></td>
1451 </tr>
1452 <tr>
1453         <td class='base'>$Lang::tr{'urlfilter show ip'}:</td>
1454         <td><input type='checkbox' name='SHOW_IP' $checked{'SHOW_IP'}{'on'} /></td>
1455         <td class='base'>$Lang::tr{'urlfilter msg text 2'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
1456         <td><input type='text' name='MSG_TEXT_2' value='$filtersettings{'MSG_TEXT_2'}' size='40' /></td>
1457 </tr>
1458 <tr>
1459         <td class='base'>$Lang::tr{'urlfilter show dnserror'}:</td>
1460         <td><input type='checkbox' name='ENABLE_DNSERROR' $checked{'ENABLE_DNSERROR'}{'on'} /></td>
1461         <td class='base'>$Lang::tr{'urlfilter msg text 3'}:&nbsp;<img src='/blob.gif' alt='*' /></td>
1462         <td><input type='text' name='MSG_TEXT_3' value='$filtersettings{'MSG_TEXT_3'}' size='40' /></td>
1463 </tr>
1464 </table>
1465 <hr size='1'>
1466 <table width='100%'>
1467 <tr>
1468         <td colspan='4'><b>$Lang::tr{'urlfilter advanced settings'}</b></td>
1469 </tr>
1470 <tr>
1471         <td width='25%' class='base'>$Lang::tr{'urlfilter enable expression lists'}:</td>
1472         <td width='12%'><input type='checkbox' name='ENABLE_EXPR_LISTS' $checked{'ENABLE_EXPR_LISTS'}{'on'} /></td>
1473         <td width='25%' class='base'>$Lang::tr{'urlfilter enable log'}:</td>
1474         <td><input type='checkbox' name='ENABLE_LOG' $checked{'ENABLE_LOG'}{'on'} /></td>
1475 </tr>
1476 <tr>
1477         <td class='base'>$Lang::tr{'urlfilter safesearch'}:</td>
1478         <td><input type='checkbox' name='ENABLE_SAFESEARCH' $checked{'ENABLE_SAFESEARCH'}{'on'} /></td>
1479         <td class='base'>$Lang::tr{'urlfilter username log'}:</td>
1480         <td><input type='checkbox' name='ENABLE_USERNAME_LOG' $checked{'ENABLE_USERNAME_LOG'}{'on'} /></td>
1481 </tr>
1482 <tr>
1483         <td class='base'>$Lang::tr{'urlfilter empty ads'}:</td>
1484         <td><input type='checkbox' name='ENABLE_EMPTY_ADS' $checked{'ENABLE_EMPTY_ADS'}{'on'} /></td>
1485         <td class='base'>$Lang::tr{'urlfilter category log'}:</td>
1486         <td><input type='checkbox' name='ENABLE_CATEGORY_LOG' $checked{'ENABLE_CATEGORY_LOG'}{'on'} /></td>
1487 </tr>
1488 <tr>
1489         <td class='base'>$Lang::tr{'urlfilter block ip'}:</td>
1490         <td><input type='checkbox' name='BLOCK_IP_ADDR' $checked{'BLOCK_IP_ADDR'}{'on'} /></td>
1491 </tr>
1492 <tr>
1493         <td class='base'>$Lang::tr{'urlfilter block all'}:</td>
1494         <td><input type='checkbox' name='BLOCK_ALL' $checked{'BLOCK_ALL'}{'on'} /></td>
1495         <td class='base'>$Lang::tr{'urlfilter whitelist always allowed'}:</td>
1496         <td><input type='checkbox' name='ENABLE_GLOBAL_WHITELIST' $checked{'ENABLE_GLOBAL_WHITELIST'}{'on'} /></td>
1497 </tr>
1498 </table>
1499 <hr size='1'>
1500 <table width='100%'>
1501 <tr>
1502         <td>
1503         <img src='/blob.gif' align='top' alt='*' />&nbsp;
1504         <font class='base'>$Lang::tr{'this field may be blank'}</font>
1505         </td>
1506         <td align='right'>&nbsp;
1507         </td>
1508 </tr>
1509 </table>
1510 <table width='100%'>
1511 <tr>
1512 <td>&nbsp;</td>
1513 <td align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
1514 <td align='center'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter save and restart'}' /></td>
1515 <td>&nbsp;</td>
1516 </tr>
1517 </table>
1518 END
1519 ;
1520
1521 &Header::closebox();
1522
1523 print "</form>\n";
1524
1525 print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
1526
1527 &Header::openbox('100%', 'left', "$Lang::tr{'urlfilter maintenance'}");
1528
1529 print <<END
1530 <table width='100%'>
1531 <tr>
1532 <td class='base'><b>$Lang::tr{'urlfilter blacklist update'}</b></td>
1533 </tr>
1534 <tr>
1535 <td>$Lang::tr{'urlfilter upload information'}<p>$Lang::tr{'urlfilter upload text'}:</td>
1536 </tr>
1537 <tr>
1538 <td><input type='file' name='UPDATEFILE' size='40' /> &nbsp; <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter upload blacklist'}' /></td>
1539 </tr>
1540 </table>
1541
1542 <hr size='1'>
1543
1544 <table width='100%'>
1545 <tr>
1546         <td colspan='2' class='base'><b>$Lang::tr{'urlfilter automatic blacklist update'}</b>
1547 END
1548 ;
1549 if (-e "$updflagfile")
1550 {
1551 $blacklistage = int(-M "$updflagfile");
1552 print "&nbsp; <b>[</b> <small><i>$Lang::tr{'urlfilter blacklist age 1'} <b>$blacklistage</b> $Lang::tr{'urlfilter blacklist age 2'}</i></small> <b>]</b>";
1553 }
1554
1555 $updatesettings{'UPDATE_SCHEDULE'} = 'monthly';
1556 $updatesettings{'CUSTOM_UPDATE_URL'} = '';
1557
1558 if (-e "$updconffile") { &General::readhash("$updconffile", \%updatesettings); }
1559
1560 $checked{'ENABLE_AUTOUPDATE'}{'off'} = '';
1561 $checked{'ENABLE_AUTOUPDATE'}{'on'} = '';
1562 $checked{'ENABLE_AUTOUPDATE'}{$updatesettings{'ENABLE_AUTOUPDATE'}} = "checked='checked'";
1563
1564 $selected{'UPDATE_SCHEDULE'}{$updatesettings{'UPDATE_SCHEDULE'}} = "selected='selected'";
1565
1566 $selected{'UPDATE_SOURCE'}{$updatesettings{'UPDATE_SOURCE'}} = "selected='selected'";
1567
1568 print <<END
1569         </td>
1570 </tr>
1571 <tr>
1572         <td width='25%' class='base'>$Lang::tr{'urlfilter enable automatic blacklist update'}:</td>
1573         <td width='75%' class='base'><input type='checkbox' name='ENABLE_AUTOUPDATE' $checked{'ENABLE_AUTOUPDATE'}{'on'} /></td>
1574 </tr>
1575 <tr>
1576         <td class='base'>$Lang::tr{'urlfilter automatic update schedule'}:</td>
1577         <td class='base'>
1578         <select name='UPDATE_SCHEDULE'>
1579         <option value='daily' $selected{'UPDATE_SCHEDULE'}{'daily'}>$Lang::tr{'urlfilter daily'}</option>
1580         <option value='weekly' $selected{'UPDATE_SCHEDULE'}{'weekly'}>$Lang::tr{'urlfilter weekly'}</option>
1581         <option value='monthly' $selected{'UPDATE_SCHEDULE'}{'monthly'}>$Lang::tr{'urlfilter monthly'}</option>
1582         </select>
1583         </td>
1584 </tr>
1585 <tr>
1586         <td class='base'>$Lang::tr{'urlfilter select source'}:</td>
1587         <td class='base' colspan='2'>
1588         <select name='UPDATE_SOURCE'>
1589 END
1590 ;
1591
1592 foreach (@source_urllist) {
1593         chomp;
1594         $source_name = substr($_,0,rindex($_,","));
1595         $source_url = substr($_,index($_,",")+1);
1596         print "\t<option value='$source_url' $selected{'UPDATE_SOURCE'}{$source_url}>$source_name</option>\n";
1597 }
1598
1599 print <<END
1600         <option value='custom' $selected{'UPDATE_SOURCE'}{'custom'}>$Lang::tr{'urlfilter custom url'}</option>
1601         </select>
1602         </td>
1603 </tr>
1604 <tr>
1605         <td>$Lang::tr{'urlfilter custom url'}:</td>
1606         <td><input type='text' name='CUSTOM_UPDATE_URL' value='$updatesettings{'CUSTOM_UPDATE_URL'}' size='72' /></td>
1607 </tr>
1608 </table>
1609 <table width='100%'>
1610 <tr>
1611         <td width='25%'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter save schedule'}'>&nbsp;&nbsp;&nbsp;<input type='submit' name='ACTION' value='$Lang::tr{'urlfilter update now'}'></td>
1612 </tr>
1613 </table>
1614
1615 <hr size='1'>
1616
1617 <table width='100%'>
1618 <tr>
1619         <td class='base'><b>$Lang::tr{'urlfilter blacklist editor'}</b></td>
1620 </tr>
1621 <tr>
1622         <td>$Lang::tr{'urlfilter blacklist editor info'}</td>
1623 </tr>
1624 <tr>
1625         <td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter blacklist editor'}' /></td>
1626 </tr>
1627 </table>
1628
1629 <hr size='1'>
1630
1631 <table width='100%'>
1632 <tr>
1633         <td colspan='4' class='base'><b>$Lang::tr{'urlfilter backup settings'}</b></td>
1634 </tr>
1635 <tr>
1636         <td width='25%' class='base'>$Lang::tr{'urlfilter enable full backup'}:</td>
1637         <td width='12%' class='base'><input type='checkbox' name='ENABLE_FULLBACKUP' $checked{'ENABLE_FULLBACKUP'}{'on'} /></td>
1638         <td>&nbsp;</td>
1639         <td>&nbsp;</td>
1640 </tr>
1641 <tr>
1642         <td colspan='4' class='base'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter backup'}' /></td>
1643 </tr>
1644 </table>
1645
1646 <hr size='1'>
1647
1648 <table width='100%'>
1649 <tr>
1650         <td class='base'><b>$Lang::tr{'urlfilter restore settings'}</b></td>
1651 </tr>
1652 <tr>
1653         <td>$Lang::tr{'urlfilter restore text'}:</td>
1654 </tr>
1655 <tr>
1656         <td><input type='file' name='UPDATEFILE' size='40' /> &nbsp; <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter restore'}' /></td>
1657 </tr>
1658 </table>
1659 </form>
1660 END
1661 ;
1662
1663 &Header::closebox();
1664
1665 } else {
1666
1667 #==========================================================
1668 #
1669 # Section: Manage Repository
1670 #
1671 #==========================================================
1672
1673 print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
1674
1675 &Header::openbox('100%', 'left', "$Lang::tr{'urlfilter manage local file repository'}:");
1676 print <<END
1677 <table width='100%'>
1678 <tr>
1679         <td>$Lang::tr{'urlfilter repository information'}<br><br></td>
1680 </tr>
1681 <tr>
1682         <td>$Lang::tr{'urlfilter upload file text'}:</td>
1683 </tr>
1684 <tr>
1685         <td><input type='file' name='UPLOADFILE' size='50' /> &nbsp; <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter upload file'}' /></td>
1686 </tr>
1687 <tr>
1688         <td><br><b>$Lang::tr{'urlfilter upload file information 1'}:</b> $Lang::tr{'urlfilter upload file information 2'}</td>
1689 </tr>
1690 </table>
1691 <hr size='1'>
1692 <table width='100%'>
1693 <tr>
1694         <td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
1695 </tr>
1696 </table>
1697 </form>
1698 END
1699 ;
1700
1701 &Header::closebox();
1702
1703 &Header::openbox('100%', 'left', "$Lang::tr{'urlfilter current files'}: </b>[$repository]");
1704
1705 @repositorylist = <$repository/*>;
1706
1707 undef @repositoryfiles;
1708 foreach (@repositorylist)
1709 {
1710         if (!-d) { push(@repositoryfiles,substr($_,rindex($_,"/")+1));  }
1711 }
1712
1713 if (@repositoryfiles)
1714 {
1715         print <<END
1716 <table width='100%'>
1717 <tr>
1718         <td align='center'><b>$Lang::tr{'urlfilter filename'}</b></td>
1719         <td width='15%' align='center'><b>$Lang::tr{'urlfilter filesize'}</b></td>
1720         <td width='10%'></td>
1721 </tr>
1722 END
1723 ;
1724         $id = 0;
1725         foreach $line (@repositoryfiles)
1726         {
1727                 $id++;
1728                 if ($id % 2) {
1729                         print "<tr bgcolor='$Header::table1colour'>\n"; }
1730                 else {
1731                         print "<tr bgcolor='$Header::table2colour'>\n"; }
1732                 $filesize = (-s "$repository/$line");
1733                 1 while $filesize =~ s/^(-?\d+)(\d{3})/$1.$2/;
1734
1735 print <<END
1736                 <td>&nbsp; &nbsp;$line</td>
1737                 <td align='right'>$filesize&nbsp; &nbsp;</td>
1738
1739                 <td align='center'>
1740                 <form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
1741                 <input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
1742                 <input type='hidden' name='ID' value='$line' />
1743                 <input type='hidden' name='ACTION' value='$Lang::tr{'urlfilter remove file'}' />
1744                 </form>
1745                 </td>
1746
1747         </tr>
1748 END
1749 ;
1750         }
1751
1752 print <<END
1753 </table>
1754 <table>
1755         <tr>
1756         </tr>
1757 </table>
1758 <table>
1759         <tr>
1760                 <td class='boldbase'>&nbsp; <b>$Lang::tr{'legend'}:</b></td>
1761                 <td>&nbsp; &nbsp; <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
1762                 <td class='base'>$Lang::tr{'remove'}</td>
1763         </tr>
1764 </table>
1765 END
1766 ;
1767 } else {
1768
1769         print "<i>$Lang::tr{'urlfilter empty repository'}</i>\n";
1770 }
1771
1772 &Header::closebox();
1773
1774 }
1775
1776 } elsif ($tcsettings{'TCMODE'}) {
1777
1778 #==========================================================
1779 #
1780 # Section: Set Time Constraints
1781 #
1782 #==========================================================
1783
1784 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
1785
1786 $buttontext = $Lang::tr{'urlfilter add rule'};
1787 if ($tcsettings{'ACTION'} eq $Lang::tr{'edit'}) {
1788 &Header::openbox('100%', 'left', $Lang::tr{'urlfilter edit time constraint rule'}.':');
1789 $buttontext = $Lang::tr{'urlfilter update rule'};
1790 } else {
1791 &Header::openbox('100%', 'left', $Lang::tr{'urlfilter add new time constraint rule'}.':');
1792 }
1793 print <<END
1794
1795 <table width='100%'>
1796 <tr>
1797         <td width='2%'>$Lang::tr{'urlfilter constraint definition'}</td>
1798         <td width='1%'>&nbsp;&nbsp;</td>
1799         <td width='2%' align='center'>$Lang::tr{'urlfilter monday'}</td>
1800         <td width='2%' align='center'>$Lang::tr{'urlfilter tuesday'}</td>
1801         <td width='2%' align='center'>$Lang::tr{'urlfilter wednesday'}</td>
1802         <td width='2%' align='center'>$Lang::tr{'urlfilter thursday'}</td>
1803         <td width='2%' align='center'>$Lang::tr{'urlfilter friday'}</td>
1804         <td width='2%' align='center'>$Lang::tr{'urlfilter saturday'}</td>
1805         <td width='2%' align='center'>$Lang::tr{'urlfilter sunday'}</td>
1806         <td width='1%'>&nbsp;&nbsp;</td>
1807         <td width='7%' colspan=3>$Lang::tr{'urlfilter from'}</td>
1808         <td width='1%'>&nbsp;</td>
1809         <td width='7%' colspan=3>$Lang::tr{'urlfilter to'}</td>
1810         <td>&nbsp;</td>
1811 </tr>
1812 <tr>
1813         <td class='base'>
1814         <select name='DEFINITION'>
1815         <option value='within' $selected{'DEFINITION'}{'within'}>$Lang::tr{'urlfilter constraint within'}</option>
1816         <option value='outside' $selected{'DEFINITION'}{'outside'}>$Lang::tr{'urlfilter constraint outside'}</option>
1817         </select>
1818         </td>
1819         <td>&nbsp;</td>
1820         <td class='base'><input type='checkbox' name='MON' $checked{'MON'}{'on'} /></td>
1821         <td class='base'><input type='checkbox' name='TUE' $checked{'TUE'}{'on'} /></td>
1822         <td class='base'><input type='checkbox' name='WED' $checked{'WED'}{'on'} /></td>
1823         <td class='base'><input type='checkbox' name='THU' $checked{'THU'}{'on'} /></td>
1824         <td class='base'><input type='checkbox' name='FRI' $checked{'FRI'}{'on'} /></td>
1825         <td class='base'><input type='checkbox' name='SAT' $checked{'SAT'}{'on'} /></td>
1826         <td class='base'><input type='checkbox' name='SUN' $checked{'SUN'}{'on'} /></td>
1827         <td>&nbsp;</td>
1828         <td class='base'>
1829         <select name='FROM_HOUR'>
1830 END
1831 ;
1832 for ($i=0;$i<=24;$i++) {
1833 $_ = sprintf("%02s",$i);
1834 print "<option $selected{'FROM_HOUR'}{$_}>$_</option>\n";
1835 }
1836 print <<END
1837         </select>
1838         </td>
1839         <td>:</td>
1840         <td class='base'>
1841         <select name='FROM_MINUTE'>
1842 END
1843 ;
1844 for ($i=0;$i<=45;$i+=15) {
1845 $_ = sprintf("%02s",$i);
1846 print "<option $selected{'FROM_MINUTE'}{$_}>$_</option>\n";
1847 }
1848 print <<END
1849         </select>
1850         <td> - </td>
1851         </td>
1852         <td class='base'>
1853         <select name='TO_HOUR'>
1854 END
1855 ;
1856 for ($i=0;$i<=24;$i++) {
1857 $_ = sprintf("%02s",$i);
1858 print "<option $selected{'TO_HOUR'}{$_}>$_</option>\n";
1859 }
1860 print <<END
1861         </select>
1862         </td>
1863         <td>:</td>
1864         <td class='base'>
1865         <select name='TO_MINUTE'>
1866 END
1867 ;
1868 for ($i=0;$i<=45;$i+=15) {
1869 $_ = sprintf("%02s",$i);
1870 print "<option $selected{'TO_MINUTE'}{$_}>$_</option>\n";
1871 }
1872 print <<END
1873         </select>
1874         </td>
1875         <td>&nbsp;</td>
1876 </tr>
1877 </table>
1878
1879 <br>
1880
1881 <table width='100%'>
1882         <tr>
1883                 <td width='5%'>$Lang::tr{'urlfilter source'}</td>
1884                 <td width='1%'>&nbsp;&nbsp;</td>
1885                 <td width='5%'>$Lang::tr{'urlfilter dst'}&nbsp;<img src='/blob.gif' alt='*'><img src='/blob.gif' alt='*'></td>
1886                 <td width='1%'>&nbsp;&nbsp;</td>
1887                 <td width='5%'>$Lang::tr{'urlfilter access'}</td>
1888                 <td>&nbsp;</td>
1889         </tr>
1890         <tr>
1891         <td rowspan='2'><textarea name='SRC' cols='28' rows='5' wrap='off'>
1892 END
1893 ;
1894
1895 # transform from pre1.8 client definitions
1896 $tcsettings{'SRC'} =~ s/^\s+//g;
1897 $tcsettings{'SRC'} =~ s/\s+$//g;
1898 $tcsettings{'SRC'} =~ s/\s+-\s+/-/g;
1899 $tcsettings{'SRC'} =~ s/\s+/ /g;
1900
1901 @clients = split(/ /,$tcsettings{'SRC'});
1902 undef $tcsettings{'SRC'};
1903 foreach (@clients) { $tcsettings{'SRC'} .= "$_\n"; }
1904
1905 print $tcsettings{'SRC'};
1906
1907 print <<END
1908 </textarea></td>
1909
1910                 <td>&nbsp;</td>
1911                 <td class='base' rowspan='2' valign='top'>
1912                 <select name='DST' size='6' multiple>
1913                 <option value='any' $selected{'DST'}{'any'} = "selected='selected'">$Lang::tr{'urlfilter category all'}</option>
1914                 <option value='in-addr' $selected{'DST'}{'in-addr'} = "selected='selected'">in-addr</option>
1915 END
1916 ;
1917
1918 &readblockcategories;
1919 foreach (@categories)
1920 {
1921         print "<option value='$_' $selected{'DST'}{$_}>$_</option>\n";
1922 }
1923
1924 print <<END
1925                 <option value='files' $selected{'DST'}{'files'} = "selected='selected'">files</option>
1926                 <option value='custom-blocked' $selected{'DST'}{'custom-blocked'} = "selected='selected'">custom-blocked</option>
1927                 <option value='custom-expressions' $selected{'DST'}{'custom-expressions'} = "selected='selected'">custom-expressions</option>
1928                 </select>
1929                 </td>
1930                 <td>&nbsp;</td>
1931                 <td class='base' valign='top'>
1932                 <select name='ACCESS'>
1933                 <option value='block' $selected{'ACCESS'}{'block'}>$Lang::tr{'urlfilter mode block'}</option>
1934                 <option value='allow' $selected{'ACCESS'}{'allow'}>$Lang::tr{'urlfilter mode allow'}</option>
1935                 </select>
1936                 </td>
1937                 <td>&nbsp;</td>
1938         </tr>
1939         <tr>
1940                 <td>&nbsp;</td>
1941                 <td>&nbsp;</td>
1942                 <td>&nbsp;</td>
1943                 <td>&nbsp;</td>
1944         </tr>
1945         <tr>
1946                 <td>$Lang::tr{'remark'}&nbsp;<img src='/blob.gif' alt='*'></td>
1947                 <td>&nbsp;</td>
1948                 <td>&nbsp;</td>
1949                 <td>&nbsp;</td>
1950                 <td>&nbsp;</td>
1951                 <td>&nbsp;</td>
1952         </tr>
1953         <tr>
1954                 <td><input type='text' name='COMMENT' value='$tcsettings{'COMMENT'}' size='32' /></td>
1955                 <td>&nbsp;</td>
1956                 <td>&nbsp;</td>
1957                 <td>&nbsp;</td>
1958                 <td>&nbsp;</td>
1959                 <td>&nbsp;</td>
1960         </tr>
1961 </table>
1962
1963 <table width='100%'>
1964         <tr>
1965                 <td class='base'>$Lang::tr{'urlfilter enabled'}<input type='checkbox' name='ENABLERULE' $checked{'ENABLERULE'}{'on'} /></td>
1966         </tr>
1967 </table>
1968
1969 <p>
1970
1971 <table width='50%'>
1972         <tr>
1973                 <td><input type='hidden' name='ACTION' value='$Lang::tr{'add'}' /></td>
1974                 <td><input type='hidden' name='MODE' value='TIMECONSTRAINT' /></td>
1975                 <td><input type='submit' name='SUBMIT' value='$buttontext' /></td>
1976                 <td><input type='reset' name='ACTION' value='$Lang::tr{'urlfilter reset'}' /></td>
1977                 <td>&nbsp;</td>
1978                 <td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
1979         </tr>
1980 </table>
1981 <p>
1982 <table width='100%'>
1983         <tr>
1984                 <td width='1%' align='right'> <img src='/blob.gif' align='top' alt='*' />&nbsp;</td>
1985                 <td><font class='base'>$Lang::tr{'this field may be blank'}</font></td>
1986         </tr>
1987         <tr>
1988                 <td width='1%' align='right'><img src='/blob.gif' align='top' alt='*' /><img src='/blob.gif' align='top' alt='*' />&nbsp;</td>
1989                 <td><font class='base'>$Lang::tr{'urlfilter select multi'}</font></td>
1990         </tr>
1991 </table>
1992 END
1993 ;
1994
1995 if ($tcsettings{'ACTION'} eq $Lang::tr{'edit'}) {
1996         print "<input type='hidden' name='EDITING' value='$tcsettings{'ID'}' />\n";
1997 } else {
1998         print "<input type='hidden' name='EDITING' value='no' />\n";
1999 }
2000
2001 &Header::closebox();
2002 print "</form>\n";
2003
2004 &Header::openbox('100%', 'left', $Lang::tr{'current rules'});
2005 print <<END
2006 <table width='100%'>
2007         <tr>
2008                 <td width='5%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter constraint definition'}</b></td>
2009                 <td width='10%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter time space'}</b></td>
2010                 <td width='15%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter src'}</b></td>
2011                 <td width='5%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter dst'}</b></td>
2012                 <td width='10%' class='boldbase' colspan='5' align='center'>&nbsp;</td>
2013         </tr>
2014 END
2015 ;
2016
2017 if ($tcsettings{'ACTION'} ne '' or $changed ne 'no')
2018 {
2019         open(FILE, $tcfile);
2020         @tclist = <FILE>;
2021         close(FILE);
2022 }
2023
2024 $id = 0;
2025 foreach $line (@tclist)
2026 {
2027         $id++;
2028         chomp($line);
2029         @temp = split(/\,/,$line);
2030         if($tcsettings{'ACTION'} eq $Lang::tr{'edit'} && $tcsettings{'ID'} eq $id) {
2031                 print "<tr bgcolor='$Header::colouryellow'>\n"; }
2032         elsif ($id % 2) {
2033                 print "<tr bgcolor='$Header::table1colour'>\n"; }
2034         else {
2035                 print "<tr bgcolor='$Header::table2colour'>\n"; }
2036         if ($temp[0] eq 'within') { $temp[0]=$Lang::tr{'urlfilter constraint within'}; } else { $temp[0]=$Lang::tr{'urlfilter constraint outside'}; }
2037         if ($temp[13] eq 'any') { $temp[13]=$Lang::tr{'urlfilter category all'}; }
2038         if ($temp[15] eq 'on') { $gif='on.gif'; $toggle='off'; $gdesc=$Lang::tr{'click to disable'};}
2039         else { $gif='off.gif'; $toggle='on'; $gdesc=$Lang::tr{'click to enable'}; }
2040         if ($temp[14] eq 'block') { $led='led-red.gif'; $ldesc=$Lang::tr{'urlfilter block access'};}
2041         else { $led='led-green.gif'; $ldesc=$Lang::tr{'urlfilter allow access'}; }
2042
2043         undef $time;
2044         if ($temp[1] eq 'on') { $time.=$Lang::tr{'urlfilter mon'}; } else { $time.='='; }
2045         if ($temp[2] eq 'on') { $time.=$Lang::tr{'urlfilter tue'}; } else { $time.='='; }
2046         if ($temp[3] eq 'on') { $time.=$Lang::tr{'urlfilter wed'}; } else { $time.='='; }
2047         if ($temp[4] eq 'on') { $time.=$Lang::tr{'urlfilter thu'}; } else { $time.='='; }
2048         if ($temp[5] eq 'on') { $time.=$Lang::tr{'urlfilter fri'}; } else { $time.='='; }
2049         if ($temp[6] eq 'on') { $time.=$Lang::tr{'urlfilter sat'}; } else { $time.='='; }
2050         if ($temp[7] eq 'on') { $time.=$Lang::tr{'urlfilter sun'}; } else { $time.='='; }
2051         $time=$time.' &nbsp; '.$temp[8].':'.$temp[9].' to '.$temp[10].':'.$temp[11];
2052
2053 print <<END
2054                 <td align='center'>$temp[0]</td>
2055                 <td align='center' nowrap>$time</td>
2056                 <td align='center'>$temp[12]</td>
2057                 <td align='center'>$temp[13]</td>
2058                 <td align='center'><image src='/images/urlfilter/$led' alt='$ldesc'></td>
2059
2060                 <td align='center'>
2061                 <form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
2062                 <input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' title='$gdesc' alt='$gdesc' />
2063                 <input type='hidden' name='MODE' value='TIMECONSTRAINT' />
2064                 <input type='hidden' name='ID' value='$id' />
2065                 <input type='hidden' name='ACTIVE' value='$toggle' />
2066                 <input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />
2067                 </form>
2068                 </td>
2069
2070                 <td align='center'>
2071                 <form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>
2072                 <input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />
2073                 <input type='hidden' name='MODE' value='TIMECONSTRAINT' />
2074                 <input type='hidden' name='ID' value='$id' />
2075                 <input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
2076                 </form>
2077                 </td>
2078
2079                 <td align='center'>
2080                 <form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>
2081                 <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'}' />
2082                 <input type='hidden' name='MODE' value='TIMECONSTRAINT' />
2083                 <input type='hidden' name='ID' value='$id' />
2084                 <input type='hidden' name='ACTION' value='$Lang::tr{'urlfilter copy rule'}' />
2085                 </form>
2086                 </td>
2087
2088                 <td align='center'>
2089                 <form method='post' name='frmd$id' action='$ENV{'SCRIPT_NAME'}'>
2090                 <input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
2091                 <input type='hidden' name='MODE' value='TIMECONSTRAINT' />
2092                 <input type='hidden' name='ID' value='$id' />
2093                 <input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />
2094                 </form>
2095                 </td>
2096
2097         </tr>
2098 END
2099 ;
2100         if($tcsettings{'ACTION'} eq $Lang::tr{'edit'} && $tcsettings{'ID'} eq $id) {
2101                 print "<tr bgcolor='$Header::colouryellow'>\n"; }
2102         elsif ($id % 2) {
2103                 print "<tr bgcolor='$Header::table1colour'>\n"; }
2104         else {
2105                 print "<tr bgcolor='$Header::table2colour'>\n"; }
2106 print <<END
2107                 <td align='center' colspan='4'>$temp[16]
2108                 </td>
2109                 <td align='center' colspan='5'>
2110                 </td>
2111         </tr>
2112 END
2113 ;
2114 }
2115
2116 print "</table>\n";
2117
2118 # If the time constraint file contains entries, print entries and action icons
2119 if (! -z "$tcfile") {
2120 print <<END
2121
2122 <table>
2123         <tr>
2124                 <td class='boldbase'>&nbsp; <b>$Lang::tr{'legend'}:</b></td>
2125                 <td>&nbsp; &nbsp; <img src='/images/urlfilter/led-green.gif' alt='$Lang::tr{'urlfilter allow access'}' /></td>
2126                 <td class='base'>$Lang::tr{'urlfilter allow'}</td>
2127                 <td>&nbsp; &nbsp; <img src='/images/urlfilter/led-red.gif' alt='$Lang::tr{'urlfilter block access'}' /></td>
2128                 <td class='base'>$Lang::tr{'urlfilter block'}</td>
2129                 <td>&nbsp; <img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>
2130                 <td class='base'>$Lang::tr{'click to disable'}</td>
2131                 <td>&nbsp; &nbsp; <img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>
2132                 <td class='base'>$Lang::tr{'click to enable'}</td>
2133                 <td>&nbsp; &nbsp; <img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
2134                 <td class='base'>$Lang::tr{'edit'}</td>
2135                 <td>&nbsp; &nbsp; <img src='/images/urlfilter/copy.gif' alt='$Lang::tr{'urlfilter copy rule'}' /></td>
2136                 <td class='base'>$Lang::tr{'urlfilter copy rule'}</td>
2137                 <td>&nbsp; &nbsp; <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
2138                 <td class='base'>$Lang::tr{'remove'}</td>
2139         </tr>
2140 </table>
2141 END
2142 ;
2143 }
2144
2145 &Header::closebox();
2146
2147 } elsif ($uqsettings{'UQMODE'}) {
2148
2149 #==========================================================
2150 #
2151 # Section: Set User Quota
2152 #
2153 #==========================================================
2154
2155 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
2156
2157 $buttontext = $Lang::tr{'urlfilter add rule'};
2158 if ($uqsettings{'ACTION'} eq $Lang::tr{'edit'}) {
2159 &Header::openbox('100%', 'left', $Lang::tr{'urlfilter edit user quota rule'}.':');
2160 $buttontext = $Lang::tr{'urlfilter update rule'};
2161 } else {
2162 &Header::openbox('100%', 'left', $Lang::tr{'urlfilter add new user quota rule'}.':');
2163 }
2164 print <<END
2165
2166 <table width='100%'>
2167 <tr>
2168         <td width='25%'></td> <td width='20%'> </td><td width='25%'> </td><td width='30%'></td>
2169 </tr>
2170 <tr>
2171         <td class='base'>$Lang::tr{'urlfilter user time quota'}:</td>
2172         <td><input type='text' name='TIME_QUOTA' value='$uqsettings{'TIME_QUOTA'}' size='5' /></td>
2173         <td colspan='2' rowspan= '5' valign='top' class='base'>
2174                 <table cellpadding='0' cellspacing='0'>
2175                         <tr>
2176                                 <!-- intentionally left empty -->
2177                         </tr>
2178                         <tr>
2179                         <td>$Lang::tr{'urlfilter assigned quota users'}:</td>
2180                         </tr>
2181                         <tr>
2182                                 <!-- intentionally left empty -->
2183                         </tr>
2184                         <tr>
2185                                 <!-- intentionally left empty -->
2186                         </tr>
2187                         <tr>
2188                         <td><textarea name='QUOTA_USERS' cols='32' rows='6' wrap='off'>
2189 END
2190 ;
2191
2192 $uqsettings{'QUOTA_USERS'} =~ s/\|/\n/g;
2193 print $uqsettings{'QUOTA_USERS'};
2194
2195 print <<END
2196 </textarea></td>
2197                 </tr>
2198                 </table>
2199         </td>
2200 </tr>
2201 <tr>
2202         <td class='base'>$Lang::tr{'urlfilter activity detection'}:</td>
2203         <td class='base'><select name='SPORADIC'>
2204                 <option value='0'   $selected{'SPORADIC'}{'0'}>$Lang::tr{'urlfilter disabled'}</option>
2205                 <option value='300' $selected{'SPORADIC'}{'300'}>5 $Lang::tr{'urlfilter minutes'}</option>
2206                 <option value='900' $selected{'SPORADIC'}{'900'}>15 $Lang::tr{'urlfilter minutes'}</option>
2207         </select></td>
2208 </tr>
2209 <tr>
2210         <td class='base'>$Lang::tr{'urlfilter renewal period'}:</td>
2211         <td class='base'><select name='RENEWAL'>
2212                 <option value='hourly' $selected{'RENEWAL'}{'hourly'}>$Lang::tr{'urlfilter hourly'}</option>
2213                 <option value='daily'  $selected{'RENEWAL'}{'daily'}>$Lang::tr{'urlfilter daily'}</option>
2214                 <option value='weekly' $selected{'RENEWAL'}{'weekly'}>$Lang::tr{'urlfilter weekly'}</option>
2215         </select></td>
2216 </tr>
2217 <tr>
2218         <td colspan='2'>&nbsp;</td>
2219 </tr>
2220 <tr>
2221         <td class='base'>$Lang::tr{'urlfilter enabled'}</td>
2222         <td class='base'><input type='checkbox' name='ENABLEQUOTA' $checked{'ENABLEQUOTA'}{'on'} /></td>
2223 </tr>
2224
2225 </table>
2226 <p>
2227
2228 <table width='50%'>
2229         <tr>
2230                 <td><input type='hidden' name='ACTION' value='$Lang::tr{'add'}' /></td>
2231                 <td><input type='hidden' name='MODE' value='USERQUOTA' /></td>
2232                 <td><input type='submit' name='SUBMIT' value='$buttontext' /></td>
2233                 <td><input type='reset'  name='ACTION' value='$Lang::tr{'urlfilter reset'}' /></td>
2234                 <td>&nbsp;</td>
2235                 <td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
2236         </tr>
2237 </table>
2238
2239 <p>
2240 END
2241 ;
2242
2243 if ($uqsettings{'ACTION'} eq $Lang::tr{'edit'}) {
2244         print "<input type='hidden' name='EDITING' value='$uqsettings{'ID'}' />\n";
2245 } else {
2246         print "<input type='hidden' name='EDITING' value='no' />\n";
2247 }
2248
2249 &Header::closebox();
2250 print "</form>\n";
2251
2252 &Header::openbox('100%', 'left', $Lang::tr{'current rules'});
2253 print <<END
2254 <table width='100%'>
2255         <tr>
2256                 <td width='15%' class='boldbase' align='center'><b><nobr>$Lang::tr{'urlfilter time quota'}</nobr></b></td>
2257                 <td width='15%' class='boldbase' align='center'><b><nobr>$Lang::tr{'urlfilter activity detection'}</nobr></b></td>
2258                 <td width='10%' class='boldbase' align='center'><b>$Lang::tr{'urlfilter renewal'}</b></td>
2259                 <td class='boldbase' align='center'><b>$Lang::tr{'urlfilter assigned users'}</b></td>
2260                 <td width='20%' class='boldbase' colspan='4' align='center'>&nbsp;</td>
2261         </tr>
2262 END
2263 ;
2264
2265 if ($uqsettings{'ACTION'} ne '' or $changed ne 'no')
2266 {
2267         open(FILE, $uqfile);
2268         @uqlist = <FILE>;
2269         close(FILE);
2270 }
2271
2272 $id = 0;
2273 foreach $line (@uqlist)
2274 {
2275         $id++;
2276         chomp($line);
2277         @temp = split(/\,/,$line);
2278         if($uqsettings{'ACTION'} eq $Lang::tr{'edit'} && $uqsettings{'ID'} eq $id) {
2279                 print "<tr bgcolor='$Header::colouryellow'>\n"; }
2280         elsif ($id % 2) {
2281                 print "<tr bgcolor='$Header::table1colour'>\n"; }
2282         else {
2283                 print "<tr bgcolor='$Header::table2colour'>\n"; }
2284         if ($temp[4] eq 'on') { $gif='on.gif'; $toggle='off'; $gdesc=$Lang::tr{'click to disable'};}
2285         else { $gif='off.gif'; $toggle='on'; $gdesc=$Lang::tr{'click to enable'}; }
2286
2287         $temp[5] = $temp[1];
2288         if ($temp[1] eq '0') { $temp[5] = $Lang::tr{'urlfilter disabled'} } else { $temp[5] = ($temp[5]/60).' '.$Lang::tr{'urlfilter minutes'} }
2289         $_ = $temp[3]; s/\|/, /g; $temp[6] = $_;
2290
2291 print <<END
2292                 <td align='center'>$temp[0] $Lang::tr{'urlfilter minutes'}</td>
2293                 <td align='center'>$temp[5]</td>
2294                 <td align='center'>$Lang::tr{'urlfilter '.$temp[2]}</td>
2295                 <td align='center'>$temp[6]</td>
2296
2297                 <td align='center'>
2298                 <form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
2299                 <input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' title='$gdesc' alt='$gdesc' />
2300                 <input type='hidden' name='MODE' value='USERQUOTA' />
2301                 <input type='hidden' name='ID' value='$id' />
2302                 <input type='hidden' name='ACTIVE' value='$toggle' />
2303                 <input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />
2304                 </form>
2305                 </td>
2306
2307                 <td align='center'>
2308                 <form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>
2309                 <input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />
2310                 <input type='hidden' name='MODE' value='USERQUOTA' />
2311                 <input type='hidden' name='ID' value='$id' />
2312                 <input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
2313                 </form>
2314                 </td>
2315
2316                 <td align='center'>
2317                 <form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>
2318                 <input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
2319                 <input type='hidden' name='MODE' value='USERQUOTA' />
2320                 <input type='hidden' name='ID' value='$id' />
2321                 <input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />
2322                 </form>
2323                 </td>
2324
2325         </tr>
2326 END
2327 ;
2328 }
2329
2330 print "</table>\n";
2331
2332 # If the user quota file contains entries, print entries and action icons
2333 if (! -z "$uqfile") {
2334 print <<END
2335
2336 <table>
2337         <tr>
2338                 <td class='boldbase'>&nbsp; <b>$Lang::tr{'legend'}:</b></td>
2339                 <td>&nbsp; <img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>
2340                 <td class='base'>$Lang::tr{'click to disable'}</td>
2341                 <td>&nbsp; &nbsp; <img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>
2342                 <td class='base'>$Lang::tr{'click to enable'}</td>
2343                 <td>&nbsp; &nbsp; <img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
2344                 <td class='base'>$Lang::tr{'edit'}</td>
2345                 <td>&nbsp; &nbsp; <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
2346                 <td class='base'>$Lang::tr{'remove'}</td>
2347         </tr>
2348 </table>
2349 END
2350 ;
2351 }
2352
2353 &Header::closebox();
2354
2355 } else {
2356
2357 #==========================================================
2358 #
2359 # Section: Blacklist editor
2360 #
2361 #==========================================================
2362
2363 print "<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>\n";
2364
2365 &Header::openbox('100%', 'left', $Lang::tr{'urlfilter urlfilter blacklist editor'}.':');
2366
2367 print <<END
2368
2369 <table width='100%'>
2370 <tr>
2371         <td width='25%'></td> <td width='20%'> </td><td width='25%'> </td><td width='30%'></td>
2372 </tr>
2373 <tr>
2374         <td class='base'><b>$Lang::tr{'urlfilter blacklist name'}</b></td>
2375 </tr>
2376 <tr>
2377         <td class='base'>$Lang::tr{'urlfilter blacklist category name'}:</td>
2378         <td><input type='text' name='BE_NAME' value='$besettings{'BE_NAME'}' size='12' /></td>
2379 </tr>
2380 </table>
2381 <hr size='1'>
2382 <table width='100%'>
2383 <tr>
2384         <td width='25%'></td> <td width='20%'> </td><td width='25%'> </td><td width='20%'></td>
2385 </tr>
2386 <tr>
2387         <td class='base' colspan='4'><b>$Lang::tr{'urlfilter edit domains urls expressions'}</b></td>
2388 </tr>
2389 <tr>
2390         <td colspan='2'>$Lang::tr{'urlfilter domains'}</td>
2391         <td colspan='2'>$Lang::tr{'urlfilter urls'}</td>
2392 </tr>
2393 <tr>
2394         <td colspan='2'><textarea name='BE_DOMAINS' cols='38' rows='10' wrap='off'>
2395 END
2396 ;
2397
2398 print $besettings{'BE_DOMAINS'};
2399
2400 print <<END
2401 </textarea></td>
2402         <td colspan='2'><textarea name='BE_URLS' cols='38' rows='10' wrap='off'>
2403 END
2404 ;
2405
2406 print $besettings{'BE_URLS'};
2407
2408 print <<END
2409 </textarea></td>
2410 </tr>
2411 <tr>
2412         <td colspan='4'>$Lang::tr{'urlfilter expressions'}</td>
2413 </tr>
2414 <tr>
2415         <td colspan='4'><textarea name='BE_EXPRESSIONS' cols='80' rows='3' wrap='off'>
2416 END
2417 ;
2418
2419 print $besettings{'BE_EXPRESSIONS'};
2420
2421 print <<END
2422 </textarea></td>
2423 </tr>
2424 </table>
2425 <hr size='1'>
2426 <table width='100%'>
2427 <tr>
2428         <td class='base' colspan='4'><b>$Lang::tr{'urlfilter load blacklist'}</b></td>
2429 </tr>
2430 <tr>
2431         <td width='25%' class='base'>$Lang::tr{'urlfilter select blacklist'}:</td>
2432         <td width='20%' class='base'>
2433         <select name='BE_BLACKLIST'>
2434 END
2435 ;
2436
2437 &readblockcategories;
2438 foreach (@categories)
2439 {
2440         print "<option value='$_' $selected{'BE_BLACKLIST'}{$_}>$_</option>\n";
2441 }
2442
2443 print <<END
2444         </select>
2445         </td>
2446         <td>&nbsp;</td>
2447         <td>&nbsp;</td>
2448 <tr>
2449         <td colpsan='4'><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter load blacklist'}' /></td>
2450 </tr>
2451 </tr>
2452 </table>
2453 <hr size='1'>
2454 <table width='100%'>
2455 <tr>
2456         <td class='base' colspan='4'><b>$Lang::tr{'urlfilter import blacklist'}</b></td>
2457 </tr>
2458 <tr>
2459         <td colspan='4'>$Lang::tr{'urlfilter import text'}:</td>
2460 </tr>
2461 <tr>
2462         <td nowrap><input type='file' name='IMPORTFILE' size='40' /> &nbsp; <input type='submit' name='ACTION' value='$Lang::tr{'urlfilter import blacklist'}' /></td>
2463         <td><input type='hidden' name='MODE' value='BLACKLIST_EDITOR' /></td>
2464 </tr>
2465 </table>
2466 <hr size='1'>
2467 <table width='100%'>
2468 <tr>
2469         <td class='base' colspan='4'><b>$Lang::tr{'urlfilter export blacklist'}</b></td>
2470 </tr>
2471 <tr>
2472         <td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter export blacklist'}' /></td>
2473 </tr>
2474 </table>
2475 <hr size='1'>
2476 <table width='100%'>
2477 <tr>
2478         <td class='base' colspan='4'><b>$Lang::tr{'urlfilter install blacklist'}</b></td>
2479 </tr>
2480 <tr>
2481         <td width='25%' class='base'>$Lang::tr{'urlfilter dont restart urlfilter'}:</td>
2482         <td width='20%' class='base'><input type='checkbox' name='NORESTART' $checked{'NORESTART'}{'on'} /></td>
2483         <td>&nbsp;</td>
2484         <td>&nbsp;</td>
2485 </tr>
2486 <tr>
2487         <td><input type='submit' name='ACTION' value='$Lang::tr{'urlfilter install blacklist'}' /></td>
2488 </tr>
2489 <tr>
2490         <td class='base' colspan='4'><br>$Lang::tr{'urlfilter install information'}</td>
2491 </tr>
2492 </table>
2493 <hr size='1'>
2494 <table width='20%'>
2495 <tr>
2496         <td><input type='reset' name='ACTION' value='$Lang::tr{'urlfilter reset'}' /></td>
2497         <td>&nbsp;</td>
2498         <td><input type='button' name='return2main' value='$Lang::tr{'urlfilter back to main page'}' onClick='self.location.href="$ENV{'SCRIPT_NAME'}"'></td>
2499 </tr>
2500 </table>
2501
2502 END
2503 ;
2504
2505 &Header::closebox();
2506 print "</form>\n";
2507
2508 }
2509
2510 &Header::closebigbox();
2511
2512 &Header::closepage();
2513
2514 # -------------------------------------------------------------------
2515
2516 sub savesettings
2517 {
2518         # transform to pre1.8 client definitions
2519         @clients = split(/\n/,$filtersettings{'UNFILTERED_CLIENTS'});
2520         undef $filtersettings{'UNFILTERED_CLIENTS'};
2521         foreach(@clients)
2522         {
2523                 s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
2524                 $filtersettings{'UNFILTERED_CLIENTS'} .= "$_ ";
2525         }
2526         $filtersettings{'UNFILTERED_CLIENTS'} =~ s/\s+$//;
2527
2528         # transform to pre1.8 client definitions
2529         @clients = split(/\n/,$filtersettings{'BANNED_CLIENTS'});
2530         undef $filtersettings{'BANNED_CLIENTS'};
2531         foreach(@clients)
2532         {
2533                 s/^\s+//g; s/\s+$//g; s/\s+-\s+/-/g; s/\s+/ /g; s/\n//g;
2534                 $filtersettings{'BANNED_CLIENTS'} .= "$_ ";
2535         }
2536         $filtersettings{'BANNED_CLIENTS'} =~ s/\s+$//;
2537
2538         &writeconfigfile;
2539
2540         delete $filtersettings{'CUSTOM_BLACK_DOMAINS'};
2541         delete $filtersettings{'CUSTOM_BLACK_URLS'};
2542         delete $filtersettings{'CUSTOM_WHITE_DOMAINS'};
2543         delete $filtersettings{'CUSTOM_WHITE_URLS'};
2544         delete $filtersettings{'CUSTOM_EXPRESSIONS'};
2545         delete $filtersettings{'BACKGROUND'};
2546         delete $filtersettings{'UPDATEFILE'};
2547
2548         system("chown -R nobody.nobody $dbdir");
2549         system('/usr/bin/squidGuard -C custom/allowed/domains >/dev/null 2>&1');
2550         system('/usr/bin/squidGuard -C custom/allowed/urls >/dev/null 2>&1');
2551         system('/usr/bin/squidGuard -C custom/blocked/domains >/dev/null 2>&1');
2552         system('/usr/bin/squidGuard -C custom/blocked/urls >/dev/null 2>&1 ');
2553         &setpermissions ($dbdir);
2554
2555         &General::writehash("${General::swroot}/urlfilter/settings", \%filtersettings);
2556 }
2557
2558 # -------------------------------------------------------------------
2559
2560 sub readblockcategories
2561 {
2562         undef(@categories);
2563
2564         &getblockcategory ($dbdir);
2565
2566         foreach (@categories) { $_ = substr($_,length($dbdir)+1); }
2567
2568         @filtergroups = @categories;
2569
2570         foreach (@filtergroups) {
2571                 s/\//_/g;
2572                 tr/a-z/A-Z/;
2573                 $_ = "FILTER_".$_;
2574         }
2575 }
2576
2577 # -------------------------------------------------------------------
2578
2579 sub getblockcategory
2580 {
2581         foreach $category (<$_[0]/*>)
2582         {
2583                 if (-d $category)
2584                 {
2585                         if ((-e "$category/domains") || (-e "$category/urls"))
2586                         {
2587                                 unless ($category =~ /\bcustom\b/) { push(@categories,$category); }
2588                         }
2589                         &getblockcategory ($category);
2590                 }
2591         }
2592 }
2593
2594 # -------------------------------------------------------------------
2595
2596 sub readcustomlists
2597 {
2598         if (-e "$dbdir/custom/blocked/domains") {
2599                 open(FILE,"$dbdir/custom/blocked/domains");
2600                 delete $filtersettings{'CUSTOM_BLACK_DOMAINS'};
2601                 while (<FILE>) { $filtersettings{'CUSTOM_BLACK_DOMAINS'} .= $_ };
2602                 close(FILE);
2603         }
2604
2605         if (-e "$dbdir/custom/blocked/urls") {
2606                 open(FILE,"$dbdir/custom/blocked/urls");
2607                 delete $filtersettings{'CUSTOM_BLACK_URLS'};
2608                 while (<FILE>) { $filtersettings{'CUSTOM_BLACK_URLS'} .= $_ };
2609                 close(FILE);
2610         }
2611
2612         if (-e "$dbdir/custom/blocked/expressions") {
2613                 open(FILE,"$dbdir/custom/blocked/expressions");
2614                 delete $filtersettings{'CUSTOM_EXPRESSIONS'};
2615                 while (<FILE>) { $filtersettings{'CUSTOM_EXPRESSIONS'} .= $_ };
2616                 close(FILE);
2617         }
2618
2619         if (-e "$dbdir/custom/allowed/domains") {
2620                 open(FILE,"$dbdir/custom/allowed/domains");
2621                 delete $filtersettings{'CUSTOM_WHITE_DOMAINS'};
2622                 while (<FILE>) { $filtersettings{'CUSTOM_WHITE_DOMAINS'} .= $_ };
2623                 close(FILE);
2624         }
2625         if (-e "$dbdir/custom/allowed/urls") {
2626                 open(FILE,"$dbdir/custom/allowed/urls");
2627                 delete $filtersettings{'CUSTOM_WHITE_URLS'};
2628                 while (<FILE>) { $filtersettings{'CUSTOM_WHITE_URLS'} .= $_ };
2629                 close(FILE);
2630         }
2631 }
2632
2633 # -------------------------------------------------------------------
2634
2635 sub aggregatedconstraints
2636 {
2637         my $aggregated;
2638         my @old;
2639         my @new;
2640         my @tmp1;
2641         my @tmp2;
2642         my $x;
2643
2644         if (-e $tcfile)
2645         {
2646                 open(TC, $tcfile);
2647                 @old = <TC>;
2648                 close(TC);
2649
2650                 while (@old > 0)
2651                 {
2652                         $aggregated = 0;
2653                         $x = shift(@old);
2654                         chomp($x);
2655                         @tmp1 = split(/\,/,$x);
2656                         $tmp1[16] = '';
2657                         foreach (@new)
2658                         {
2659                                 @tmp2 = split(/\,/);
2660                                 if (($tmp1[15] eq 'on') && ($tmp2[15] eq 'on'))
2661                                 {
2662                                         if (($tmp1[0] eq $tmp2[0]) && ($tmp1[12] eq $tmp2[12]) && ($tmp1[13] eq $tmp2[13]) && ($tmp1[14] eq $tmp2[14]))
2663                                         {
2664                                                 $aggregated = 1;
2665                                                 $tmp2[16] .= "    weekly ";
2666                                                 if ($tmp1[1] eq 'on') { $tmp2[16] .= "m"; }
2667                                                 if ($tmp1[2] eq 'on') { $tmp2[16] .= "t"; }
2668                                                 if ($tmp1[3] eq 'on') { $tmp2[16] .= "w"; }
2669                                                 if ($tmp1[4] eq 'on') { $tmp2[16] .= "h"; }
2670                                                 if ($tmp1[5] eq 'on') { $tmp2[16] .= "f"; }
2671                                                 if ($tmp1[6] eq 'on') { $tmp2[16] .= "a"; }
2672                                                 if ($tmp1[7] eq 'on') { $tmp2[16] .= "s"; }
2673                                                 $tmp2[16] .= " $tmp1[8]:$tmp1[9]-$tmp1[10]:$tmp1[11]\n";
2674                                                 $_ = join(",",@tmp2);
2675                                         }
2676
2677                                 }
2678                         }
2679                         if (!$aggregated)
2680                         {
2681                                 $tmp1[16] .= "    weekly ";
2682                                 if ($tmp1[1] eq 'on') { $tmp1[16] .= "m"; }
2683                                 if ($tmp1[2] eq 'on') { $tmp1[16] .= "t"; }
2684                                 if ($tmp1[3] eq 'on') { $tmp1[16] .= "w"; }
2685                                 if ($tmp1[4] eq 'on') { $tmp1[16] .= "h"; }
2686                                 if ($tmp1[5] eq 'on') { $tmp1[16] .= "f"; }
2687                                 if ($tmp1[6] eq 'on') { $tmp1[16] .= "a"; }
2688                                 if ($tmp1[7] eq 'on') { $tmp1[16] .= "s"; }
2689                                 $tmp1[16] .= " $tmp1[8]:$tmp1[9]-$tmp1[10]:$tmp1[11]\n";
2690                                 $x = join(",",@tmp1);
2691                                 push(@new,$x);
2692                         }
2693                 }
2694         }
2695
2696         return @new;
2697
2698 }
2699
2700 # -------------------------------------------------------------------
2701
2702 sub setpermissions
2703 {
2704         my $bldir = $_[0];
2705
2706         foreach $category (<$bldir/*>)
2707         {
2708                  if (-d $category){
2709                         system("chmod 755 $category &> /dev/null");
2710                         foreach $blacklist (<$category/*>)
2711                         {
2712                                 if (-f $blacklist) { system("chmod 644 $blacklist &> /dev/null"); }
2713                                 if (-d $blacklist) { system("chmod 755 $blacklist &> /dev/null"); }
2714                         }
2715                         system("chmod 666 $category/*.db &> /dev/null");
2716                         &setpermissions ($category);
2717                 }
2718          }
2719 }
2720
2721 # -------------------------------------------------------------------
2722
2723 sub writeconfigfile
2724 {
2725         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\)\$";
2726         my $audiovideo = "\\.\(aiff|asf|avi|dif|divx|mov|movie|mp3|mpe?g?|mpv2|ogg|ra?m|snd|qt|wav|wma|wmf|wmv\)\$";
2727         my $archives = "\\.\(bin|bz2|cab|cdr|dmg|gz|hqx|rar|smi|sit|sea|tar|tgz|zip\)\$";
2728
2729         my $ident = " anonymous";
2730
2731         my $defaultrule='';
2732         my $tcrule='';
2733         my $redirect='';
2734         my $qredirect='';
2735
2736         my $idx;
2737
2738         my @ec=();
2739         my @tc=();
2740         my @uq=();
2741
2742         if (!(-d "$dbdir/custom"))         { mkdir("$dbdir/custom") }
2743         if (!(-d "$dbdir/custom/blocked")) { mkdir("$dbdir/custom/blocked") }
2744         if (!(-d "$dbdir/custom/allowed")) { mkdir("$dbdir/custom/allowed") }
2745
2746         open(FILE, ">/$dbdir/custom/blocked/domains");
2747         print FILE $filtersettings{'CUSTOM_BLACK_DOMAINS'};
2748         close(FILE);
2749         open(FILE, ">/$dbdir/custom/blocked/urls");
2750         print FILE $filtersettings{'CUSTOM_BLACK_URLS'};
2751         close(FILE);
2752         open(FILE, ">/$dbdir/custom/blocked/expressions");
2753         print FILE $filtersettings{'CUSTOM_EXPRESSIONS'};
2754         close(FILE);
2755         open(FILE, ">/$dbdir/custom/blocked/files");
2756         if ($filtersettings{'BLOCK_EXECUTABLES'} eq 'on') { print FILE "$executables\n"; }
2757         if ($filtersettings{'BLOCK_AUDIO-VIDEO'} eq 'on') { print FILE "$audiovideo\n"; }
2758         if ($filtersettings{'BLOCK_ARCHIVES'} eq 'on') { print FILE "$archives\n"; }
2759         close(FILE);
2760         open(FILE, ">/$dbdir/custom/allowed/domains");
2761         print FILE $filtersettings{'CUSTOM_WHITE_DOMAINS'};
2762         close(FILE);
2763         open(FILE, ">/$dbdir/custom/allowed/urls");
2764         print FILE $filtersettings{'CUSTOM_WHITE_URLS'};
2765         close(FILE);
2766
2767         if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { $ident = ""; }
2768
2769         if ($filtersettings{'REDIRECT_PAGE'} eq '')
2770         {
2771                 if (($filtersettings{'SHOW_CATEGORY'} eq 'on') || ($filtersettings{'SHOW_URL'} eq 'on') || ($filtersettings{'SHOW_IP'} eq 'on')) {
2772                         if ($filtersettings{'SHOW_CATEGORY'} eq 'on') { $redirect .= "&category=%t"; }
2773                         if ($filtersettings{'SHOW_URL'} eq 'on') { $redirect .= "&url=%u"; }
2774                         if ($filtersettings{'SHOW_IP'} eq 'on') { $redirect .= "&ip=%a"; }
2775                         $redirect  =~ s/^&/?/;
2776                         $redirect = "http:\/\/$netsettings{'GREEN_ADDRESS'}:$http_port\/redirect.cgi".$redirect;
2777                 } else {
2778                         $redirect="http:\/\/$netsettings{'GREEN_ADDRESS'}:$http_port\/redirect.cgi";
2779                 }
2780         } else { $redirect=$filtersettings{'REDIRECT_PAGE'}; }
2781
2782         if ($filtersettings{'ENABLE_DNSERROR'} eq 'on') { $redirect  = "302:http://0.0.0.0"; }
2783
2784         undef $defaultrule;
2785
2786         if ($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on')
2787         {
2788                 $defaultrule .= "custom-allowed ";
2789         }
2790         if ($filtersettings{'BLOCK_ALL'} eq 'on')
2791         {
2792                 $defaultrule .= "none";
2793         }
2794         else
2795         {
2796                 if ($filtersettings{'BLOCK_IP_ADDR'} eq 'on')
2797                 {
2798                         $defaultrule .= "!in-addr ";
2799                 }
2800                 for ($i=0; $i<=@filtergroups; $i++) {
2801                         if ($filtersettings{@filtergroups[$i]} eq 'on')
2802                         {
2803                                 $defaultrule .= "!@categories[$i] ";
2804                         }
2805                 }
2806                 if ($filtersettings{'ENABLE_CUSTOM_BLACKLIST'} eq 'on')
2807                 {
2808                         $defaultrule .= "!custom-blocked ";
2809                 }
2810                 if ($filtersettings{'ENABLE_CUSTOM_EXPRESSIONS'} eq 'on')
2811                 {
2812                         $defaultrule .= "!custom-expressions ";
2813                 }
2814                 if (($filtersettings{'BLOCK_EXECUTABLES'} eq 'on') ||
2815                     ($filtersettings{'BLOCK_AUDIO-VIDEO'} eq 'on') ||
2816                     ($filtersettings{'BLOCK_ARCHIVES'} eq 'on'))
2817                 {
2818                         $defaultrule .= "!files ";
2819                 }
2820                 $defaultrule .= "any";
2821         }
2822
2823         $defaultrule =~ s/\//_/g;
2824
2825         open(FILE, ">${General::swroot}/urlfilter/squidGuard.conf") or die "Unable to write squidGuard.conf file";
2826         flock(FILE, 2);
2827
2828         print FILE "logdir /var/log/squidGuard\n";
2829         print FILE "dbhome $dbdir\n\n";
2830
2831         undef @repositoryfiles;
2832         if ($filtersettings{'ENABLE_REWRITE'} eq 'on')
2833         {
2834                 @repositorylist = <$repository/*>;
2835                 foreach (@repositorylist)
2836                 {
2837                         if (!-d) { push(@repositoryfiles,substr($_,rindex($_,"/")+1));  }
2838                 }
2839         }
2840
2841         if ((($filtersettings{'ENABLE_REWRITE'} eq 'on') && (@repositoryfiles)) || ($filtersettings{'ENABLE_SAFESEARCH'} eq 'on'))
2842         {
2843                 print FILE "rewrite rew-rule-1 {\n";
2844
2845                 if (($filtersettings{'ENABLE_REWRITE'} eq 'on') && (@repositoryfiles))
2846                 {
2847                         print FILE "    # rewrite localfiles\n";
2848                         foreach (@repositoryfiles)
2849                         {
2850                                 print FILE "    s@.*/$_\$\@http://$netsettings{'GREEN_ADDRESS'}:$http_port/repository/$_\@i\n";
2851                         }
2852                 }
2853
2854                 if ($filtersettings{'ENABLE_SAFESEARCH'} eq 'on')
2855                 {
2856                         print FILE "    # rewrite safesearch\n";
2857                         print FILE "    s@(.*\\Wgoogle\\.\\w+/(webhp|search|imghp|images|grphp|groups|frghp|froogle)\\?)(.*)(\\bsafe=\\w+)(.*)\@\\1\\3safe=strict\\5\@i\n";
2858                         print FILE "    s@(.*\\Wgoogle\\.\\w+/(webhp|search|imghp|images|grphp|groups|frghp|froogle)\\?)(.*)\@\\1safe=strict\\\&\\3\@i\n";
2859                         print FILE "    s@(.*\\Wsearch\\.yahoo\\.\\w+/search\\W)(.*)(\\bvm=\\w+)(.*)\@\\1\\2vm=r\\4\@i\n";
2860                         print FILE "    s@(.*\\Wsearch\\.yahoo\\.\\w+/search\\W.*)\@\\1\\\&vm=r\@i\n";
2861                         print FILE "    s@(.*\\Walltheweb\\.com/customize\\?)(.*)(\\bcopt_offensive=\\w+)(.*)\@\\1\\2copt_offensive=on\\4\@i\n";
2862                 }
2863
2864                 print FILE "}\n\n";
2865
2866                 if ((!($filtersettings{'UNFILTERED_CLIENTS'} eq '')) && ($filtersettings{'ENABLE_SAFESEARCH'} eq 'on')) {
2867                         print FILE "rewrite rew-rule-2 {\n";
2868                         if (($filtersettings{'ENABLE_REWRITE'} eq 'on') && (@repositoryfiles))
2869                         {
2870                                 print FILE "    # rewrite localfiles\n";
2871                                 foreach (@repositoryfiles)
2872                                 {
2873                                         print FILE "    s@.*/$_\$\@http://$netsettings{'GREEN_ADDRESS'}:$http_port/repository/$_\@i\n";
2874                                 }
2875                         } else {
2876                                 print FILE "    # rewrite nothing\n";
2877                         }
2878                         print FILE "}\n\n";
2879                 }
2880         }
2881
2882         if (!($filtersettings{'UNFILTERED_CLIENTS'} eq '')) {
2883                 print FILE "src unfiltered {\n";
2884                 print FILE "    ip $filtersettings{'UNFILTERED_CLIENTS'}\n";
2885                 print FILE "}\n\n";
2886         }
2887         if (!($filtersettings{'BANNED_CLIENTS'} eq '')) {
2888                 print FILE "src banned {\n";
2889                 print FILE "    ip $filtersettings{'BANNED_CLIENTS'}\n";
2890                 if ($filtersettings{'ENABLE_LOG'} eq 'on')
2891                 {
2892                         if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
2893                         {
2894                                 print FILE "    logfile       ".$ident." banned.log\n";
2895                         } else {
2896                                 print FILE "    logfile       ".$ident." urlfilter.log\n";
2897                         }
2898                 }
2899                 print FILE "}\n\n";
2900         }
2901
2902         if (-e $uqfile)
2903         {
2904                 open(UQ, $uqfile);
2905                 @uqlist = <UQ>;
2906                 close(UQ);
2907
2908                 if (@uqlist > 0)
2909                 {
2910                         $idx=0;
2911                         foreach (@uqlist)
2912                         {
2913                                 chomp;
2914                                 @uq = split(/\,/);
2915                                 if ($uq[4] eq 'on')
2916                                 {
2917                                         $idx++;
2918                                         $uq[0] = $uq[0] * 60;
2919                                         if ($uq[1] eq '0') {
2920                                                 if ($uq[2] eq 'hourly') { $uq[1] = 3600 }
2921                                                 if ($uq[2] eq 'daily')  { $uq[1] = 86400 }
2922                                                 if ($uq[2] eq 'weekly') { $uq[1] = 604800 }
2923                                         }
2924                                         $uq[3] =~ s/\|/ /g;
2925                                         print FILE "src quota-$idx {\n";
2926                                         print FILE "    user $uq[3]\n";
2927                                         print FILE "    userquota $uq[0] $uq[1] $uq[2]\n";
2928                                         print FILE "}\n\n";
2929                                 }
2930                         }
2931
2932                 }
2933         }
2934
2935         @tclist = &aggregatedconstraints;
2936
2937         if (@tclist > 0)
2938         {
2939                 $idx=0;
2940                 foreach (@tclist)
2941                 {
2942                         chomp;
2943                         @tc = split(/\,/);
2944                         if ($tc[15] eq 'on')
2945                         {
2946                                 $idx++;
2947                                 print FILE "src network-$idx {\n";
2948                                 @clients = split(/ /,$tc[12]);
2949                                 @temp = split(/-/,$clients[0]);
2950                                 if ( (&General::validipormask($temp[0])) || (&General::validipandmask($temp[0])))
2951                                 {
2952                                         print FILE "    ip $tc[12]\n";
2953                                 } else {
2954                                         print FILE "    user";
2955                                         @clients = split(/ /,$tc[12]);
2956                                         foreach $line (@clients)
2957                                         {
2958                                                 $line =~ s/(^\w+)\\(\w+$)/$1%5c$2/;
2959                                                 print FILE " $line";
2960                                         }
2961                                         print FILE "\n";
2962                                 }
2963                                 if (($filtersettings{'ENABLE_LOG'} eq 'on') && ($tc[14] eq 'block') && ($tc[13] eq 'any'))
2964                                 {
2965                                         if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
2966                                         {
2967                                                 print FILE "    logfile       ".$ident." timeconst.log\n";
2968                                         } else {
2969                                                 print FILE "    logfile       ".$ident." urlfilter.log\n";
2970                                         }
2971                                 }
2972                                 print FILE "}\n\n";
2973                         }
2974                 }
2975
2976                 $idx=0;
2977                 foreach (@tclist)
2978                 {
2979                         chomp;
2980                         @tc = split(/\,/);
2981                         if ($tc[15] eq 'on')
2982                         {
2983                                 $idx++;
2984                                 print FILE "time constraint-$idx {\n";
2985                                 print FILE "$tc[16]\n";
2986                                 print FILE "}\n\n";
2987                         }
2988                 }
2989         }
2990
2991         foreach $category (@categories) {
2992                 $blacklist = $category;
2993                 $category =~ s/\//_/g;
2994
2995                 if ( $filtersettings{"FILTER_".uc($category)} ne "on" ){
2996                         my $constraintrule = "false";
2997
2998                         foreach (@tclist){
2999                                 chomp;
3000                                 @tc = split(/\,/);
3001                                 $tc[13] =~ s/\//_/g;
3002                                 if ($tc[15] eq 'on' && $tc[13] =~ $category){
3003                                         $constraintrule = "true";
3004                                 }
3005                         }
3006
3007                         if ( $constraintrule eq "false"){
3008                                 next;
3009                         }
3010                 }
3011
3012                 print FILE "dest $category {\n";
3013                 if (-e "$dbdir/$blacklist/domains") {
3014                         print FILE "    domainlist     $blacklist\/domains\n";
3015                 }
3016                 if (-e "$dbdir/$blacklist/urls") {
3017                         print FILE "    urllist        $blacklist\/urls\n";
3018                 }
3019                 if ((-e "$dbdir/$blacklist/expressions") && ($filtersettings{'ENABLE_EXPR_LISTS'} eq 'on')) {
3020                         print FILE "    expressionlist $blacklist\/expressions\n";
3021                 }
3022                 if ((($category eq 'ads') || ($category eq 'adv')) && ($filtersettings{'ENABLE_EMPTY_ADS'} eq 'on'))
3023                 {
3024                         print FILE "    redirect       http:\/\/$netsettings{'GREEN_ADDRESS'}:$http_port\/images/urlfilter/1x1.gif\n";
3025                 }
3026                 if ($filtersettings{'ENABLE_LOG'} eq 'on')
3027                 {
3028                         if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
3029                         {
3030                                 print FILE "    logfile       $ident $category.log\n";
3031                         } else {
3032                                 print FILE "    logfile       $ident urlfilter.log\n";
3033                         }
3034                 }
3035                 print FILE "}\n\n";
3036                 $category = $blacklist;
3037         }
3038
3039         print FILE "dest files {\n";
3040         print FILE "    expressionlist custom\/blocked\/files\n";
3041         if ($filtersettings{'ENABLE_LOG'} eq 'on')
3042         {
3043                 if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
3044                 {
3045                         print FILE "    logfile       $ident files.log\n";
3046                 } else {
3047                         print FILE "    logfile       $ident urlfilter.log\n";
3048                 }
3049         }
3050         print FILE "}\n\n";
3051
3052         print FILE "dest custom-allowed {\n";
3053         print FILE "    domainlist     custom\/allowed\/domains\n";
3054         print FILE "    urllist        custom\/allowed\/urls\n";
3055         print FILE "}\n\n";
3056
3057         print FILE "dest custom-blocked {\n";
3058         print FILE "    domainlist     custom\/blocked\/domains\n";
3059         print FILE "    urllist        custom\/blocked\/urls\n";
3060         if ($filtersettings{'ENABLE_LOG'} eq 'on')
3061         {
3062                 if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
3063                 {
3064                         print FILE "    logfile       $ident custom.log\n";
3065                 } else {
3066                         print FILE "    logfile       $ident urlfilter.log\n";
3067                 }
3068         }
3069         print FILE "}\n\n";
3070
3071         print FILE "dest custom-expressions {\n";
3072         print FILE "    expressionlist custom\/blocked\/expressions\n";
3073         if ($filtersettings{'ENABLE_LOG'} eq 'on')
3074         {
3075                 if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
3076                 {
3077                         print FILE "    logfile       $ident custom.log\n";
3078                 } else {
3079                         print FILE "    logfile       $ident urlfilter.log\n";
3080                 }
3081         }
3082         print FILE "}\n\n";
3083
3084         print FILE "acl {\n";
3085         if (!($filtersettings{'UNFILTERED_CLIENTS'} eq '')) {
3086                 print FILE "    unfiltered {\n";
3087                 print FILE "        pass all\n";
3088                 if ($filtersettings{'ENABLE_SAFESEARCH'} eq 'on')
3089                 {
3090                         print FILE "        rewrite rew-rule-2\n";
3091                 }
3092                 print FILE "    }\n\n";
3093         }
3094         if (!($filtersettings{'BANNED_CLIENTS'} eq '')) {
3095                 print FILE "    banned {\n";
3096                 print FILE "        pass ";
3097                 if (($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'on'))
3098                 {
3099                         print FILE "custom-allowed ";
3100                 }
3101                 print FILE "none\n";
3102                 print FILE "    }\n\n";
3103         }
3104
3105         if (-s $uqfile)
3106         {
3107                 open(UQ, $uqfile);
3108                 @uqlist = <UQ>;
3109                 close(UQ);
3110
3111                 $idx=0;
3112                 foreach (@uqlist)
3113                 {
3114                         chomp;
3115                         @uq = split(/\,/);
3116                         if ($uq[4] eq 'on')
3117                         {
3118                                 $idx++;
3119                                 $qredirect = $redirect;
3120                                 $qredirect =~ s/\%t/\%q\%20-\%20\%i/;
3121                                 print FILE "    quota-$idx {\n";
3122                                 print FILE "        pass ";
3123                                 if (($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'on'))
3124                                 {
3125                                         print FILE "custom-allowed ";
3126                                 }
3127                                 print FILE "none\n";
3128                                 unless ($redirect eq $qredirect) { print FILE "        redirect $qredirect\n"; }
3129                                 print FILE "    }\n\n";
3130                         }
3131                 }
3132         }
3133
3134         if (@tclist > 0)
3135         {
3136                 $idx=0;
3137                 foreach (@tclist)
3138                 {
3139                         chomp;
3140                         @tc = split(/\,/);
3141                         @ec = split(/\|/,$tc[13]);
3142                         foreach (@ec) { s/\//_/g; }
3143                         if ($tc[15] eq 'on')
3144                         {
3145                                 $idx++;
3146                                 print FILE "    network-$idx $tc[0] constraint-$idx {\n";
3147                                 print FILE "        pass ";
3148
3149                                 if ($filtersettings{'BLOCK_ALL'} eq 'on')
3150                                 {
3151                                         if ($tc[14] eq 'block')
3152                                         {
3153                                                 if ((@ec == 1) && ($ec[0] eq 'any')) {
3154                                                         if (($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'on'))
3155                                                         {
3156                                                                 print FILE "custom-allowed ";
3157                                                         }
3158                                                         print FILE "none";
3159                                                 } else {
3160                                                         print FILE $defaultrule;
3161                                                 }
3162                                         } else {
3163                                                 foreach (@ec)
3164                                                 {
3165                                                         print FILE "$_ ";
3166                                                 }
3167                                                 print FILE $defaultrule unless ((@ec == 1) && ($ec[0] eq 'any'));
3168                                         }
3169                                 } else {
3170                                         if ($tc[14] eq 'block')
3171                                         {
3172                                                 $tcrule = $defaultrule;
3173                                                 if ($filtersettings{'ENABLE_CUSTOM_WHITELIST'} eq 'on') {
3174                                                         $tcrule =~ s/custom-allowed //;
3175                                                         print FILE "custom-allowed " unless ((@ec == 1) && ($ec[0] eq 'any') && ($filtersettings{'ENABLE_GLOBAL_WHITELIST'} eq 'off'));
3176                                                 }
3177                                                 if ((@ec == 1) && ($ec[0] eq 'any')) {
3178                                                         print FILE "none";
3179                                                 } else {
3180                                                         foreach (@ec)
3181                                                         {
3182                                                                 print FILE "!$_ " unless (index($defaultrule,"!".$_." ") ge 0);
3183                                                         }
3184                                                 }
3185                                                 print FILE $tcrule unless ((@ec == 1) && ($ec[0] eq 'any'));
3186                                         } else {
3187                                                 $tcrule = $defaultrule;
3188                                                 if ((@ec == 1) && ($ec[0] eq 'any'))
3189                                                 {
3190                                                         print FILE "any";
3191                                                 } else {
3192                                                         foreach (@ec)
3193                                                         {
3194                                                                 $tcrule = "$_ ".$tcrule unless (index($defaultrule,"!".$_." ") ge 0);
3195                                                                 $tcrule =~ s/!$_ //;
3196                                                         }
3197                                                         print FILE $tcrule;
3198                                                 }
3199                                         }
3200                                 }
3201
3202                                 print FILE "\n";
3203
3204                                 print FILE "    }\n\n";
3205                         }
3206                 }
3207         }
3208
3209         print FILE "    default {\n";
3210         print FILE "        pass $defaultrule\n";
3211         if (($filtersettings{'ENABLE_LOG'} eq 'on') && ($filtersettings{'BLOCK_ALL'} eq 'on'))
3212         {
3213                 if ($filtersettings{'ENABLE_CATEGORY_LOG'} eq 'on')
3214                 {
3215                         print FILE "        logfile".$ident." default.log\n";
3216                 } else {
3217                         print FILE "        logfile".$ident." urlfilter.log\n";
3218                 }
3219         }
3220         if ((($filtersettings{'ENABLE_REWRITE'} eq 'on') && (@repositoryfiles)) || ($filtersettings{'ENABLE_SAFESEARCH'} eq 'on'))
3221         {
3222                 print FILE "        rewrite rew-rule-1\n";
3223         }
3224         print FILE "        redirect $redirect\n";
3225         print FILE "    }\n";
3226         print FILE "}\n";
3227
3228         close FILE;
3229 }
3230
3231 # -------------------------------------------------------------------