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