/[smecontribs]/rpms/smeserver-dansguardian-panel/contribs9/smeserver-dansguardian-panel-2.11-newPerlModulesPath.patch
ViewVC logotype

Annotation of /rpms/smeserver-dansguardian-panel/contribs9/smeserver-dansguardian-panel-2.11-newPerlModulesPath.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Thu May 26 16:59:10 2016 UTC (8 years, 5 months ago) by unnilennium
Branch: MAIN
CVS Tags: smeserver-dansguardian-panel-2_11-15, smeserver-dansguardian-panel-2_11-14, smeserver-dansguardian-panel-2_11-17, smeserver-dansguardian-panel-2_11-16, smeserver-dansguardian-panel-2_11-10, smeserver-dansguardian-panel-2_11-13, smeserver-dansguardian-panel-2_11-12, smeserver-dansguardian-panel-2_11-9, smeserver-dansguardian-panel-2_11-8, smeserver-dansguardian-panel--, HEAD 
* Thu May 26 2016 Jean-Philipe Pialasse <tests@pialasse.com> 2.11-8.sme
- fix wrong path to module [SME: 9526]
1 unnilennium 1.1 diff -Nur smeserver-dansguardian-panel-2.11-old/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/dungogdansguardian.pm smeserver-dansguardian-panel-2.11/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/dungogdansguardian.pm
2     --- smeserver-dansguardian-panel-2.11-old/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/dungogdansguardian.pm 2009-03-13 22:23:20.000000000 -0400
3     +++ smeserver-dansguardian-panel-2.11/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/dungogdansguardian.pm 1969-12-31 19:00:00.000000000 -0500
4     @@ -1,1236 +0,0 @@
5     -#----------------------------------------------------------------------
6     -# dungogdansguardian.pm
7     -# support@dungog.net
8     -#----------------------------------------------------------------------
9     -
10     -package esmith::FormMagick::Panel::dungogdansguardian;
11     -
12     -use strict;
13     -use warnings;
14     -
15     -use esmith::FormMagick;
16     -use esmith::ConfigDB;
17     -use esmith::AccountsDB;
18     -use esmith::cgi;
19     -
20     -use Exporter;
21     -use Carp qw(verbose);
22     -
23     -use HTML::Tabulate;
24     -
25     -our @ISA = qw(esmith::FormMagick Exporter);
26     -
27     -our @EXPORT = qw();
28     -
29     -our $db = esmith::ConfigDB->open();
30     -our $adb = esmith::AccountsDB->open();
31     -our $ddb = esmith::ConfigDB->open('dungog') or die "Could not open dungog DB\n";
32     -our $bdb = esmith::ConfigDB->open('blacklist') or die "Could not open blacklist DB\n";
33     -our $pdb = esmith::ConfigDB->open('phraselist') or die "Could not open phraselist DB\n";
34     -
35     -
36     -sub new {
37     - shift;
38     - my $self = esmith::FormMagick->new();
39     - $self->{calling_package} = (caller)[0];
40     - bless $self;
41     - return $self;
42     -}
43     -
44     -sub get_loglevel
45     -{
46     - return $ddb->get_prop('dansguardian', 'loglevel');
47     -}
48     -sub get_logfileformat
49     -{
50     - return $ddb->get_prop('dansguardian', 'logfileformat');
51     -}
52     -sub get_proxyaccess
53     -{
54     - return $db->get_prop('squid', 'RequireAuth');
55     -}
56     -sub get_portblocking
57     -{
58     - return $db->get_prop('dansguardian', 'portblocking');
59     -}
60     -sub get_port
61     -{
62     - return $ddb->get_prop('dansguardian', 'port');
63     -}
64     -sub get_status
65     -{
66     - return $db->get_prop('dansguardian', 'status');
67     -}
68     -sub get_bypassproxyto
69     -{
70     - return $db->get_prop('squid', 'BypassProxyTo');
71     -}
72     -sub get_bypassproxyfrom
73     -{
74     - return $db->get_prop('squid', 'BypassProxyFrom');
75     -}
76     -sub get_TCPBlocks
77     -{
78     - return $db->get_prop('masq', 'TCPBlocks');
79     -}
80     -sub get_UDPBlocks
81     -{
82     - return $db->get_prop('masq', 'UDPBlocks');
83     -}
84     -sub get_mode
85     -{
86     - my $self = shift;
87     - my $q = $self->{cgi};
88     - my $g = $q->param('g') ||'';
89     - return $ddb->get_prop("dansguardian$g", 'mode');
90     -}
91     -sub get_bypass
92     -{
93     - my $self = shift;
94     - my $q = $self->{cgi};
95     - my $g = $q->param('g') ||'';
96     - return $ddb->get_prop("dansguardian$g", 'bypass');
97     -}
98     -sub get_reportinglevel
99     -{
100     - my $self = shift;
101     - my $q = $self->{cgi};
102     - my $g = $q->param('g') ||'';
103     - return $ddb->get_prop("dansguardian$g", 'reportinglevel');
104     -}
105     -sub get_deniedpage
106     -{
107     - my $self = shift;
108     - my $q = $self->{cgi};
109     - my $g = $q->param('g') ||'';
110     - return $ddb->get_prop("dansguardian$g", 'deniedpage');
111     -}
112     -sub get_deniedurl
113     -{
114     - my $self = shift;
115     - my $q = $self->{cgi};
116     - my $g = $q->param('g') ||'';
117     - return $ddb->get_prop("dansguardian$g", 'deniedurl');
118     -}
119     -sub get_scan
120     -{
121     - my $self = shift;
122     - my $q = $self->{cgi};
123     - my $g = $q->param('g') ||'';
124     - return $ddb->get_prop("dansguardian$g", 'scan');
125     -}
126     -sub get_weight
127     -{
128     - my $self = shift;
129     - my $q = $self->{cgi};
130     - my $g = $q->param('g') ||'';
131     - return $ddb->get_prop("dansguardian$g", 'weight');
132     -}
133     -sub get_pics
134     -{
135     - my $self = shift;
136     - my $q = $self->{cgi};
137     - my $g = $q->param('g' ||'');
138     - return $ddb->get_prop("dansguardian$g", 'pics');
139     -}
140     -sub get_regexpurl
141     -{
142     - my $self = shift;
143     - my $q = $self->{cgi};
144     - my $g = $q->param('g') ||'';
145     - return $ddb->get_prop("dansguardian$g", 'regexpurl');
146     -}
147     -sub get_regexpsearch
148     -{
149     - my $self = shift;
150     - my $q = $self->{cgi};
151     - my $g = $q->param('g') ||'';
152     - return $ddb->get_prop("dansguardian$g", 'regexpsearch');
153     -}
154     -sub get_regexpurlads
155     -{
156     - my $self = shift;
157     - my $q = $self->{cgi};
158     - my $g = $q->param('g') ||'';
159     - return $ddb->get_prop("dansguardian$g", 'regexpurlads');
160     -}
161     -sub get_regexpurlproxy
162     -{
163     - my $self = shift;
164     - my $q = $self->{cgi};
165     - my $g = $q->param('g') ||'';
166     - return $ddb->get_prop("dansguardian$g", 'regexpurlproxy');
167     -}
168     -sub get_blanketban
169     -{
170     - my $self = shift;
171     - my $q = $self->{cgi};
172     - my $g = $q->param('g') ||'';
173     - return $ddb->get_prop("dansguardian$g", 'blanketban');
174     -}
175     -sub get_ipban
176     -{
177     - my $self = shift;
178     - my $q = $self->{cgi};
179     - my $g = $q->param('g') ||'';
180     - return $ddb->get_prop("dansguardian$g", 'ipban');
181     -}
182     -sub get_https
183     -{
184     - my $self = shift;
185     - my $q = $self->{cgi};
186     - my $g = $q->param('g') ||'';
187     - return $ddb->get_prop("dansguardian$g", 'https');
188     -}
189     -sub get_file
190     -{
191     - my $self = shift;
192     - my $q = $self->{cgi};
193     - my $g = $q->param('g') ||'';
194     - return $ddb->get_prop("dansguardian$g", 'file');
195     -}
196     -sub get_criterion
197     -{
198     - my $self = shift;
199     - my $q = $self->{cgi};
200     - my $key = $q->param('key') ||'';
201     - return $ddb->get_prop($key, 'criterion') || '';
202     -}
203     -
204     -sub get_status_summary
205     -{
206     - my $self = shift;
207     - my $q = $self->{cgi};
208     -
209     - my $status = $db->get_prop('dansguardian', "status");
210     - my $Auth = $db->get_prop('squid', "RequireAuth");
211     - my $port = $ddb->get_prop('dansguardian', "port");
212     - my $block = $db->get_prop('dansguardian', "portblocking");
213     -
214     - my $STATUS = $self->localise('STATUS');
215     - my $PORT = $self->localise('PORT');
216     - my $PROXYACCESS = $self->localise('PROXYACCESS');
217     - my $BLOCKING = $self->localise('PORTBLOCKING');
218     -
219     - my $status2;
220     - if ($status eq 'enabled')
221     - { $status2 = $self->localise('ENABLED'); } else { $status2 = $self->localise('DISABLED'); }
222     -
223     - my $block2;
224     - if ($block eq 'yes')
225     - { $block2 = $self->localise('ENABLED'); } else { $block2 = $self->localise('DISABLED'); }
226     -
227     - return "$STATUS : <b>$status2</b>, $PORT : <b>$port</b>, $PROXYACCESS : <b>$Auth</b>, $BLOCKING : <b>$block2</b>";
228     -}
229     -
230     -sub get_custom_denied
231     -{
232     - my $self = shift;
233     - my $q = $self->{cgi};
234     - my $g = $q->param('g') ||'';
235     - my $Ldefault = $self->localise('Ldefault');
236     -
237     - my $defaults = $ddb->get_prop("dansguardian", "deniedurl") || 'dansguardian.pl';
238     -
239     - my $deniedurl = $ddb->get_prop("dansguardian$g", "deniedurl") || 'nul';
240     - if (($deniedurl eq 'nul') && (-e "/home/e-smith/files/ibays/Primary/cgi-bin/dansguardian$g.pl"))
241     - { $deniedurl = "dansguardian$g.pl"; }
242     -
243     - my $language = $ddb->get_prop('dansguardian', "language") || 'ukenglish';
244     - my $customhtml = 'nul';
245     - if (-e "/etc/dansguardian/languages/$language/template$g.html")
246     - { $customhtml = "$language/template$g.html"; }
247     -
248     - return "$Ldefault = $defaults, html = $customhtml, cgi = $deniedurl";
249     -}
250     -
251     -sub print_global_table
252     -{
253     - my $self = shift;
254     - my $q = $self->{cgi};
255     -
256     - my $description = $self->localise('DESCRIPTION');
257     - my $Lf2 = $self->localise('Lf2');
258     - my $Lf3 = $self->localise('Lf3');
259     - my $Lf4 = $self->localise('Lf4');
260     - my $Lf5 = $self->localise('Lf5');
261     -
262     - my @groups = $adb->get_all_by_prop(type => "group");
263     - my @gnames = '';
264     - foreach my $g (@groups)
265     - {
266     - my $groupname = $g->key();
267     - push (@gnames, $groupname)
268     - }
269     -
270     - print $q->start_table({-CLASS => "sme-border"}),"\n";
271     - print $q->Tr (
272     - esmith::cgi::genSmallCell($q, $description,"header"),
273     - esmith::cgi::genSmallCell($q, '',"header")),"\n";
274     -
275     -
276     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf2),
277     - esmith::cgi::genSmallCell ($q,
278     - $q->popup_menu (-name => "f2",
279     - -values => [ sort @gnames ],
280     - -default => $ddb->get_prop('dansguardian', "f2") || '')));
281     -
282     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf3),
283     - esmith::cgi::genSmallCell ($q,
284     - $q->popup_menu (-name => "f3",
285     - -values => [ sort @gnames ],
286     - -default => $ddb->get_prop('dansguardian', "f3") || '')));
287     -
288     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf4),
289     - esmith::cgi::genSmallCell ($q,
290     - $q->popup_menu (-name => "f4",
291     - -values => [ sort @gnames ],
292     - -default => $ddb->get_prop('dansguardian', "f4") || '')));
293     -
294     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf5),
295     - esmith::cgi::genSmallCell ($q,
296     - $q->popup_menu (-name => "f5",
297     - -values => [ sort @gnames ],
298     - -default => $ddb->get_prop('dansguardian', "f5") || '')));
299     -
300     - print $q->end_table;
301     -
302     - return "";
303     -}
304     -
305     -sub print_summary
306     -{
307     - my $self = shift;
308     - my $q = $self->{cgi};
309     -
310     - my $description = $self->localise('DESCRIPTION');
311     - my $LAllow = $self->localise('LAllow');
312     - my $LClient_IP = $self->localise('LClient_IP');
313     - my $LDeny = $self->localise('LDeny');
314     - my $modify = $self->localise('MODIFY');
315     - my $Lcommon = $self->localise('Lcommon');
316     - my $Ldefault = $self->localise('Ldefault');
317     - my $Lf0 = $self->localise('Lf0');
318     - my $Lf1 = $self->localise('Lf1');
319     - my $Lf2 = $self->localise('Lf2');
320     - my $Lf3 = $self->localise('Lf3');
321     - my $Lf4 = $self->localise('Lf4');
322     - my $Lf5 = $self->localise('Lf5');
323     - my $GROUP = $self->localise('GROUP');
324     - my $Lmode = $self->localise('Lmode');
325     - my $LURLban = $self->localise('LURLban');
326     - my $Lscan = $self->localise('Lscan');
327     - my $Lbypass = $self->localise('Lbypass');
328     - my $Llists = $self->localise('Llists');
329     - my $Lsettings = $self->localise('Lsettings');
330     -
331     - my @groups = $adb->get_all_by_prop(type => "group");
332     - my @gnames = '';
333     - foreach my $g (@groups)
334     - {
335     - my $groupname = $g->key();
336     - push (@gnames, $groupname)
337     - }
338     -
339     - print $q->start_table({-CLASS => "sme-border"}),"\n";
340     - print $q->Tr (
341     - esmith::cgi::genSmallCell($q, $description,"header"),
342     - esmith::cgi::genSmallCell($q, $GROUP,"header"),
343     - esmith::cgi::genSmallCell($q, $Lmode,"header"),
344     - esmith::cgi::genSmallCell($q, $LURLban,"header"),
345     - esmith::cgi::genSmallCell($q, $Lscan,"header"),
346     - esmith::cgi::genSmallCell($q, $Lbypass,"header"),
347     - esmith::cgi::genSmallCell($q, $Lsettings,"header"),
348     - esmith::cgi::genSmallCell($q, $Llists,"header")),"\n";
349     -
350     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf0),
351     - esmith::cgi::genSmallCell ($q, ''),
352     - esmith::cgi::genSmallCell ($q, ''),
353     - esmith::cgi::genSmallCell ($q, ''),
354     - esmith::cgi::genSmallCell ($q, ''),
355     - esmith::cgi::genSmallCell ($q, ''),
356     - esmith::cgi::genSmallCell ($q, ''),
357     - esmith::cgi::genSmallCell ($q,
358     - $q->a ({href => $q->url (-absolute => 1)
359     - . "?page=0&page_stack=&g=f0&gname=$Lcommon&wherenext=GroupLists"}, $modify)));
360     -
361     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf1),
362     - esmith::cgi::genSmallCell ($q, ''),
363     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "mode") || ''),
364     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "blanketban") . " / " .
365     - $ddb->get_prop('dansguardianf1', "https") . " / " .
366     - $ddb->get_prop('dansguardianf1', "ipban") . " / " .
367     - $ddb->get_prop('dansguardianf1', "file") . " - " .
368     - $ddb->get_prop('dansguardianf1', "regexpurl") . " / " .
369     - $ddb->get_prop('dansguardianf1', "regexpurlads") . " / " .
370     - $ddb->get_prop('dansguardianf1', "regexpurlproxy")),
371     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "scan") || ''),
372     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "bypass") || ''),
373     - esmith::cgi::genSmallCell ($q,
374     - $q->a ({href => $q->url (-absolute => 1)
375     - . "?page=0&page_stack=&g=f1&gname=$Ldefault&wherenext=GroupSettings"}, $modify)),
376     - esmith::cgi::genSmallCell ($q,
377     - $q->a ({href => $q->url (-absolute => 1)
378     - . "?page=0&page_stack=&g=f1&gname=$Ldefault&wherenext=GroupLists"}, $modify)));
379     -
380     - my $gname = $ddb->get_prop('dansguardian', "f2");
381     - if ($gname) {
382     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf2),
383     - esmith::cgi::genSmallCell ($q, $gname ),
384     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "mode") || ''),
385     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "blanketban") . " / " .
386     - $ddb->get_prop('dansguardianf2', "https") . " / " .
387     - $ddb->get_prop('dansguardianf2', "ipban") . " / " .
388     - $ddb->get_prop('dansguardianf2', "file") . " - " .
389     - $ddb->get_prop('dansguardianf2', "regexpurl") . " / " .
390     - $ddb->get_prop('dansguardianf2', "regexpurlads") . " / " .
391     - $ddb->get_prop('dansguardianf2', "regexpurlproxy")),
392     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "scan") || ''),
393     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "bypass") || ''),
394     - esmith::cgi::genSmallCell ($q,
395     - $q->a ({href => $q->url (-absolute => 1)
396     - . "?page=0&page_stack=&g=f2&gname=$gname&wherenext=GroupSettings"}, $modify)),
397     - esmith::cgi::genSmallCell ($q,
398     - $q->a ({href => $q->url (-absolute => 1)
399     - . "?page=0&page_stack=&g=f2&gname=$gname&wherenext=GroupLists"}, $modify)));
400     - }
401     -
402     - $gname = $ddb->get_prop('dansguardian', "f3");
403     - if ($gname) {
404     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf3),
405     - esmith::cgi::genSmallCell ($q, $gname ),
406     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "mode") || ''),
407     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "blanketban") . " / " .
408     - $ddb->get_prop('dansguardianf3', "https") . " / " .
409     - $ddb->get_prop('dansguardianf3', "ipban") . " / " .
410     - $ddb->get_prop('dansguardianf3', "file") . " - " .
411     - $ddb->get_prop('dansguardianf3', "regexpurl") . " / " .
412     - $ddb->get_prop('dansguardianf3', "regexpurlads") . " / " .
413     - $ddb->get_prop('dansguardianf3', "regexpurlproxy")),
414     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "scan") || ''),
415     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "bypass") || ''),
416     - esmith::cgi::genSmallCell ($q,
417     - $q->a ({href => $q->url (-absolute => 1)
418     - . "?page=0&page_stack=&g=f3&gname=$gname&wherenext=GroupSettings"}, $modify)),
419     - esmith::cgi::genSmallCell ($q,
420     - $q->a ({href => $q->url (-absolute => 1)
421     - . "?page=0&page_stack=&g=f3&gname=$gname&wherenext=GroupLists"}, $modify)));
422     - }
423     -
424     - $gname = $ddb->get_prop('dansguardian', "f4");
425     - if ($gname) {
426     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf4),
427     - esmith::cgi::genSmallCell ($q, $gname ),
428     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "mode") || ''),
429     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "blanketban") . " / " .
430     - $ddb->get_prop('dansguardianf4', "https") . " / " .
431     - $ddb->get_prop('dansguardianf4', "ipban") . " / " .
432     - $ddb->get_prop('dansguardianf4', "file") . " - " .
433     - $ddb->get_prop('dansguardianf4', "regexpurl") . " / " .
434     - $ddb->get_prop('dansguardianf4', "regexpurlads") . " / " .
435     - $ddb->get_prop('dansguardianf4', "regexpurlproxy")),
436     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "scan") || ''),
437     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "bypass") || ''),
438     - esmith::cgi::genSmallCell ($q,
439     - $q->a ({href => $q->url (-absolute => 1)
440     - . "?page=0&page_stack=&g=f4&gname=$gname&wherenext=GroupSettings"}, $modify)),
441     - esmith::cgi::genSmallCell ($q,
442     - $q->a ({href => $q->url (-absolute => 1)
443     - . "?page=0&page_stack=&g=f4&gname=$gname&wherenext=GroupLists"}, $modify)));
444     - }
445     -
446     - $gname = $ddb->get_prop('dansguardian', "f5");
447     - if ($gname) {
448     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf5),
449     - esmith::cgi::genSmallCell ($q, $gname ),
450     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "mode") || ''),
451     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "blanketban") . " / " .
452     - $ddb->get_prop('dansguardianf5', "https") . " / " .
453     - $ddb->get_prop('dansguardianf5', "ipban") . " / " .
454     - $ddb->get_prop('dansguardianf5', "file") . " - " .
455     - $ddb->get_prop('dansguardianf5', "regexpurl") . " / " .
456     - $ddb->get_prop('dansguardianf5', "regexpurlads") . " / " .
457     - $ddb->get_prop('dansguardianf5', "regexpurlproxy")),
458     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "scan") || ''),
459     - esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "bypass") || ''),
460     - esmith::cgi::genSmallCell ($q,
461     - $q->a ({href => $q->url (-absolute => 1)
462     - . "?page=0&page_stack=&g=f5&gname=$gname&wherenext=GroupSettings"}, $modify)),
463     - esmith::cgi::genSmallCell ($q,
464     - $q->a ({href => $q->url (-absolute => 1)
465     - . "?page=0&page_stack=&g=f5&gname=$gname&wherenext=GroupLists"}, $modify)));
466     - }
467     -
468     - print $q->end_table;
469     -
470     - return "";
471     -}
472     -
473     -sub save_reload
474     -{
475     - my $self = shift;
476     - my $q = $self->{cgi};
477     -
478     - foreach ('loglevel','logfileformat','f2','f3','f4','f5','deniedurl')
479     - { $ddb->set_prop('dansguardian', "$_", $q->param("$_")); }
480     -
481     - unless ( system ("/sbin/e-smith/signal-event", "dansguardian-reload") == 0 )
482     - { return $self->error('ERROR'); }
483     -
484     - return $self->success("SUCCESS");
485     -}
486     -
487     -sub save_group_settings
488     -{
489     - my $self = shift;
490     - my $q = $self->{cgi};
491     - my $g = $q->param ('g') ||'';
492     -
493     - foreach ('mode','bypass','reportinglevel','scan','weight','pics','deniedpage','deniedurl',
494     - 'regexpurl','regexpsearch','regexpurlads','regexpurlproxy','blanketban','https','ipban','file')
495     - { $ddb->set_prop("dansguardian$g", "$_", $q->param("$_")); }
496     -
497     - unless ( system ("/sbin/e-smith/signal-event", "dansguardian-reload") == 0 )
498     - { return $self->error('ERROR'); }
499     -
500     - return $self->success("SUCCESS");
501     -}
502     -
503     -sub save_proxy
504     -{
505     - my $self = shift;
506     - my $q = $self->{cgi} ||'';
507     -
508     - my $status = $q->param ('status') || '';
509     - my $proxyaccess = $q->param ('proxyaccess') || '';
510     - my $portblocking = $q->param ('portblocking') || '';
511     - my $port = $q->param ('port') || '';
512     -
513     - $db->set_prop('squid', "RequireAuth", $proxyaccess);
514     - $ddb->set_prop('dansguardian', "port", $port);
515     -
516     - my $bypassproxyfrom = $q->param ('bypassproxyfrom') || '';
517     - my $bypassproxyto = $q->param ('bypassproxyto') || '';
518     - my $TCPBlocks = $q->param ('TCPBlocks') || '';
519     - my $UDPBlocks = $q->param ('UDPBlocks') || '';
520     -
521     - $db->set_prop('squid', "BypassProxyFrom", $bypassproxyfrom);
522     - $db->set_prop('squid', "BypassProxyTo", $bypassproxyto);
523     - $db->set_prop('masq', "UDPBlocks", $UDPBlocks);
524     - $db->set_prop('masq', "TCPBlocks", $TCPBlocks);
525     -
526     - if ($status eq 'disabled')
527     - {
528     - $db->set_prop('squid', "TransparentPort", '3128');
529     - $db->set_prop('dansguardian', "status", 'disabled');
530     - $db->set_prop('dansguardian', "portblocking", 'no');
531     -
532     - unless ( system ("/sbin/e-smith/signal-event", "dansguardian-save") == 0 )
533     - { return $self->error('ERROR'); }
534     -
535     - return $self->success("SUCCESS_STOP");
536     - }
537     - else
538     - {
539     - $db->set_prop('squid', "TransparentPort", $port);
540     - $db->set_prop('dansguardian', "status", 'enabled');
541     - $db->set_prop('dansguardian', "portblocking", $portblocking);
542     - }
543     -
544     - unless ( system ("/sbin/e-smith/signal-event", "dansguardian-save") == 0 )
545     - { return $self->error('ERROR'); }
546     -
547     - return $self->success("SUCCESS_PROMPT");
548     -}
549     -
550     -sub portentry
551     -{
552     - my ($fm, $port) = @_;
553     - if (not $port)
554     - {
555     - return "FM_NONBLANK";
556     - }
557     - elsif ($port =~ /^(\d{4})$/)
558     - {
559     - return "OK";
560     - }
561     - else
562     - {
563     - return "ERROR_PORT";
564     - }
565     -}
566     -
567     -sub print_list_table
568     -{
569     - my $self = shift;
570     - my $q = $self->{cgi};
571     - my $g = $q->param('g') || '';
572     - my $gname = $q->param('gname') || '';
573     -
574     - my $description = $self->localise('DESCRIPTION');
575     - my $Lasite = $self->localise('Lasite');
576     - my $Laurl = $self->localise('Laurl');
577     - my $Lphrases = $self->localise('Lphrases');
578     - my $Lregexp = $self->localise('Lregexp');
579     - my $Lfileext = $self->localise('Lfileext');
580     - my $Lmimetype = $self->localise('Lmimetype');
581     - my $ALLlists = $self->localise('LALLlists');
582     - my $ENABLED = $self->localise('ENABLED');
583     -
584     - my $Lgrey = $self->localise('Lgrey');
585     - my $Lweighted = $self->localise('Lweighted');
586     - my $Lmodifyurl = $self->localise('Lmodifyurl');
587     - my $LAllow = $self->localise('LAllow');
588     - my $LDeny = $self->localise('LDeny');
589     - my $LAVexcept = $self->localise('LAVexcept');
590     - my $Lexception = $self->localise('Lexception');
591     - my $Lblacklist = $self->localise('Lblacklist');
592     - my $Lphraselist = $self->localise('Lphraselist');
593     - my $Lrepcon = $self->localise('Lrepcon');
594     - my $Lallowurl = $self->localise('Lallowurl');
595     - my $Lallowsite = $self->localise('Lallowsite');
596     - my $LClientIP = $self->localise('LClientIP');
597     - my $Lcommon = $self->localise('Lcommon');
598     - my $Commonlists = $self->localise('LCommonlists');
599     -
600     - print $q->start_table({-CLASS => "sme-border"}),"\n";
601     - print $q->Tr (
602     - esmith::cgi::genSmallCell($q, $description,"header"),
603     - esmith::cgi::genSmallCell($q, $q->a ({href => $q->url (-absolute => 1)
604     - . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ShowAllLists"}, $ALLlists),"header"),
605     - esmith::cgi::genSmallCell($q, '',"header"),
606     - esmith::cgi::genSmallCell($q, '',"header"),
607     - esmith::cgi::genSmallCell($q, '',"header"),
608     - esmith::cgi::genSmallCell($q, $q->a ({href => $q->url (-absolute => 1)
609     - . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ShowCommonLists"}, $Commonlists),"header"));
610     -
611     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lasite),
612     - esmith::cgi::genSmallCell ($q,
613     - $q->a ({href => $q->url (-absolute => 1)
614     - . "?page=0&page_stack=&g=$g&list=greysitelist$g&wherenext=ViewList"}, $Lgrey)),
615     - esmith::cgi::genSmallCell ($q,
616     - $q->a ({href => $q->url (-absolute => 1)
617     - . "?page=0&page_stack=&g=$g&list=exceptionsitelist$g&wherenext=ViewList"}, $LAllow)),
618     - esmith::cgi::genSmallCell ($q,
619     - $q->a ({href => $q->url (-absolute => 1)
620     - . "?page=0&page_stack=&g=$g&list=bannedsitelist$g&wherenext=ViewList"}, $LDeny)),
621     - esmith::cgi::genSmallCell ($q,''),
622     - esmith::cgi::genSmallCell ($q,
623     - $q->a ({href => $q->url (-absolute => 1)
624     - . "?page=0&page_stack=&g=f0&list=exceptionvirussitelist&wherenext=ViewList"}, $LAVexcept)));
625     -
626     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Laurl),
627     - esmith::cgi::genSmallCell ($q,
628     - $q->a ({href => $q->url (-absolute => 1)
629     - . "?page=0&page_stack=&g=$g&list=greyurllist$g&wherenext=ViewList"}, $Lgrey)),
630     - esmith::cgi::genSmallCell ($q,
631     - $q->a ({href => $q->url (-absolute => 1)
632     - . "?page=0&page_stack=&g=$g&list=exceptionurllist$g&wherenext=ViewList"}, $LAllow)),
633     - esmith::cgi::genSmallCell ($q,
634     - $q->a ({href => $q->url (-absolute => 1)
635     - . "?page=0&page_stack=&g=$g&list=bannedurllist$g&wherenext=ViewList"}, $LDeny)),
636     - esmith::cgi::genSmallCell ($q,''),
637     - esmith::cgi::genSmallCell ($q,
638     - $q->a ({href => $q->url (-absolute => 1)
639     - . "?page=0&page_stack=&g=f0&list=exceptionvirusurllist&wherenext=ViewList"}, $LAVexcept)));
640     -
641     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lphrases),
642     - esmith::cgi::genSmallCell ($q,
643     - $q->a ({href => $q->url (-absolute => 1)
644     - . "?page=0&page_stack=&g=$g&list=weightedphraselist$g&wherenext=ViewList"}, $Lweighted)),
645     - esmith::cgi::genSmallCell ($q,
646     - $q->a ({href => $q->url (-absolute => 1)
647     - . "?page=0&page_stack=&g=$g&list=exceptionphraselist$g&wherenext=ViewList"}, $LAllow)),
648     - esmith::cgi::genSmallCell ($q,
649     - $q->a ({href => $q->url (-absolute => 1)
650     - . "?page=0&page_stack=&g=$g&list=bannedphraselist$g&wherenext=ViewList"}, $LDeny)),
651     - esmith::cgi::genSmallCell ($q, ''),
652     - esmith::cgi::genSmallCell ($q,''));
653     -
654     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lregexp),
655     - esmith::cgi::genSmallCell ($q,
656     - $q->a ({href => $q->url (-absolute => 1)
657     - . "?page=0&page_stack=&g=$g&list=urlregexplist$g&wherenext=ViewList"}, $Lmodifyurl)),
658     - esmith::cgi::genSmallCell ($q,
659     - $q->a ({href => $q->url (-absolute => 1)
660     - . "?page=0&page_stack=&g=$g&list=exceptionregexpurllist$g&wherenext=ViewList"}, $LAllow)),
661     - esmith::cgi::genSmallCell ($q,
662     - $q->a ({href => $q->url (-absolute => 1)
663     - . "?page=0&page_stack=&g=$g&list=bannedregexpurllist$g&wherenext=ViewList"}, $LDeny)),
664     - esmith::cgi::genSmallCell ($q,
665     - $q->a ({href => $q->url (-absolute => 1)
666     - . "?page=0&page_stack=&g=$g&list=contentregexplist$g&wherenext=ViewList"}, $Lrepcon)),
667     - esmith::cgi::genSmallCell ($q, ''));
668     -
669     -
670     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lfileext),
671     - esmith::cgi::genSmallCell ($q, ''),
672     - esmith::cgi::genSmallCell ($q,
673     - $q->a ({href => $q->url (-absolute => 1)
674     - . "?page=0&page_stack=&g=$g&list=exceptionextensionlist$g&wherenext=ViewList"}, $Lexception)),
675     - esmith::cgi::genSmallCell ($q,
676     - $q->a ({href => $q->url (-absolute => 1)
677     - . "?page=0&page_stack=&g=$g&list=bannedextensionlist$g&wherenext=ViewList"}, $LDeny)),
678     - esmith::cgi::genSmallCell ($q,
679     - $q->a ({href => $q->url (-absolute => 1)
680     - . "?page=0&page_stack=&g=$g&list=exceptionfileurllist$g&wherenext=ViewList"}, $Lallowurl)),
681     - esmith::cgi::genSmallCell ($q,
682     - $q->a ({href => $q->url (-absolute => 1)
683     - . "?page=0&page_stack=&g=f0&list=exceptionvirusextensionlist&wherenext=ViewList"}, $LAVexcept)));
684     -
685     - print $q->Tr (esmith::cgi::genSmallCell ($q, $Lmimetype),
686     - esmith::cgi::genSmallCell ($q, ''),
687     - esmith::cgi::genSmallCell ($q,
688     - $q->a ({href => $q->url (-absolute => 1)
689     - . "?page=0&page_stack=&g=$g&list=exceptionmimetypelist$g&wherenext=ViewList"}, $Lexception)),
690     - esmith::cgi::genSmallCell ($q,
691     - $q->a ({href => $q->url (-absolute => 1)
692     - . "?page=0&page_stack=&g=$g&list=bannedmimetypelist$g&wherenext=ViewList"}, $LDeny)),
693     - esmith::cgi::genSmallCell ($q,
694     - $q->a ({href => $q->url (-absolute => 1)
695     - . "?page=0&page_stack=&g=$g&list=exceptionfilesitelist$g&wherenext=ViewList"}, $Lallowsite)),
696     - esmith::cgi::genSmallCell ($q,
697     - $q->a ({href => $q->url (-absolute => 1)
698     - . "?page=0&page_stack=&g=f0&list=exceptionvirusmimetypelist&wherenext=ViewList"}, $LAVexcept)));
699     -
700     - #Client IP
701     - if ($g eq 'f0')
702     - {
703     - print $q->Tr (esmith::cgi::genSmallCell ($q, $LClientIP),
704     - esmith::cgi::genSmallCell ($q, ''),
705     - esmith::cgi::genSmallCell ($q,
706     - $q->a ({href => $q->url (-absolute => 1)
707     - . "?page=0&page_stack=&g=$g&list=exceptioniplist&wherenext=ViewList"}, $Lexception)),
708     - esmith::cgi::genSmallCell ($q,
709     - $q->a ({href => $q->url (-absolute => 1)
710     - . "?page=0&page_stack=&g=$g&list=bannediplist&wherenext=ViewList"}, $LDeny)),
711     - esmith::cgi::genSmallCell ($q, ''),
712     - esmith::cgi::genSmallCell ($q, ''));
713     - }
714     -
715     - #prepared lists
716     - unless ($g eq 'f0')
717     - {
718     - print $q->Tr (esmith::cgi::genSmallCell ($q, $ENABLED),
719     - esmith::cgi::genSmallCell ($q, ''),
720     - esmith::cgi::genSmallCell ($q,
721     - $q->a ({href => $q->url (-absolute => 1)
722     - . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ViewPhraseList"}, $Lphraselist)),
723     - esmith::cgi::genSmallCell ($q,
724     - $q->a ({href => $q->url (-absolute => 1)
725     - . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ViewBlackList"}, $Lblacklist)),
726     - esmith::cgi::genSmallCell ($q, ''),
727     - esmith::cgi::genSmallCell ($q, ''));
728     - }
729     -
730     - print $q->end_table;
731     - return "";
732     -}
733     -
734     -sub print_list_description
735     -{
736     - my $self = shift;
737     - my $q = $self->{cgi};
738     - my $g = $q->param ('g') ||'';
739     - my $desc = $self->localise('MODIFY_LIST_SETTINGS');
740     -
741     - if ($g eq 'f0')
742     - {
743     - $desc = $self->localise('MODIFY_GLOBAL_LIST_SETTINGS');
744     - }
745     -
746     - return "$desc";
747     -}
748     -
749     -sub print_record_table
750     -{
751     - my $self = shift;
752     - my $q = $self->{cgi};
753     - my $g = $q->param ('g') ||'';
754     - my $list = $q->param('list') ||'';
755     -
756     - my $record = $self->localise('RECORD');
757     - my $modify = $self->localise('MODIFY');
758     - my $remove = $self->localise('REMOVE');
759     - my $new = $self->localise('NEW');
760     -
761     -
762     - print $q->start_table({-CLASS => "sme-border"}),"\n";
763     - print $q->Tr (
764     - esmith::cgi::genSmallCell($q, $record,"header"),
765     - esmith::cgi::genSmallCell($q, '',"header"),
766     - esmith::cgi::genSmallCell($q, '',"header")),"\n";
767     -
768     - print $q->Tr (esmith::cgi::genSmallCell ($q, ''),
769     - esmith::cgi::genSmallCell ($q, ''),
770     - esmith::cgi::genSmallCell ($q,
771     - $q->a ({href => $q->url (-absolute => 1)
772     - . "?page=0&page_stack=&g=$g&list=$list&key=new&wherenext=Edit"}, $new)));
773     -
774     - foreach my $hash ($ddb->get_all_by_prop(type => $list))
775     - {
776     - my $key = $hash->key;
777     - my $criterion = $hash->prop("criterion") || '';
778     -
779     - #allows for three sets of bracketed words
780     - #$record =~ s/</&lt\;/g; ??
781     - #$record =~ s/>/&gt\;/g;
782     - $criterion =~ s/</&lt\;/;
783     - $criterion =~ s/>/&gt\;/;
784     - $criterion =~ s/</&lt\;/;
785     - $criterion =~ s/>/&gt\;/;
786     - $criterion =~ s/</&lt\;/;
787     - $criterion =~ s/>/&gt\;/;
788     -
789     - print $q->Tr (esmith::cgi::genSmallCell ($q, $criterion),
790     - esmith::cgi::genSmallCell ($q,
791     - $q->a ({href => $q->url (-absolute => 1)
792     - . "?page=0&page_stack=&g=$g&list=$list&key=$key&wherenext=Edit"}, $modify)),
793     - esmith::cgi::genSmallCell ($q,
794     - $q->a ({href => $q->url (-absolute => 1)
795     - . "?page=0&page_stack=&g=$g&criterion=$criterion&key=$key&wherenext=Delete"}, $remove)));
796     - }
797     -
798     - print $q->end_table;
799     -
800     - return "";
801     -}
802     -
803     -sub print_all_lists
804     -{
805     - my $self = shift;
806     - my $q = $self->{cgi};
807     - my $g = $q->param ('g') ||'';
808     - my $all = ();
809     -
810     - if ($g =~ /^(f\d{1})$/)
811     - {
812     - $g = $1;
813     - }
814     -
815     - print $q->start_table({-CLASS => "sme-border"}),"\n";
816     -
817     - $all .= "<code>\n";
818     -
819     - my @files = ('bannedextensionlist','bannedsitelist','exceptionfilesitelist','exceptionregexpurllist',
820     - 'greysitelist','weightedphraselist','bannedmimetypelist','bannedurllist','exceptionfileurllist',
821     - 'exceptionsitelist','greyurllist','bannedphraselist','contentregexplist','exceptionmimetypelist','exceptionurllist','pics',
822     - 'bannedregexpurllist','exceptionextensionlist','exceptionphraselist','greyregexpurllist','urlregexplist');
823     -
824     - foreach (@files)
825     - {
826     -
827     - if ( -e "/etc/dansguardian/lists/$g/$_" )
828     - {
829     - open (INF,"/etc/dansguardian/lists/$g/$_")
830     - or die ("can't open /etc/dansguardian/lists/$g/$_ to read. ");
831     -
832     - $all .= "<br>\n";
833     - $all .= "<b> /etc/dansguardian/lists/$g/$_ </b><br>\n";
834     -
835     - while (<INF>)
836     - {
837     - # allow for 4 sets
838     - $_ =~ s/</&lt\;/;
839     - $_ =~ s/>/&gt\;/;
840     - $_ =~ s/</&lt\;/;
841     - $_ =~ s/>/&gt\;/;
842     - $_ =~ s/</&lt\;/;
843     - $_ =~ s/>/&gt\;/;
844     - $_ =~ s/</&lt\;/;
845     - $_ =~ s/>/&gt\;/;
846     -
847     - $all .= "$_<br>\n";
848     - }
849     - close INF;
850     - }
851     - }
852     -
853     - $all .= "<\code>\n";
854     -
855     - print $q->end_table;
856     -
857     - return "$all";
858     -}
859     -
860     -sub print_common_lists
861     -{
862     - my $self = shift;
863     - my $q = $self->{cgi};
864     - my $g = $q->param ('g') ||'';
865     - my $all = ();
866     -
867     - if ($g =~ /^(f\d{1})$/)
868     - {
869     - $g = $1;
870     - }
871     -
872     - print $q->start_table({-CLASS => "sme-border"}),"\n";
873     -
874     - $all .= "<code>\n";
875     -
876     - my @files = ('exceptioniplist','bannediplist','contentscanners/exceptionvirusextensionlist',
877     - 'contentscanners/exceptionvirusmimetypelist','contentscanners/exceptionvirussitelist','contentscanners/exceptionvirusurllist');
878     -
879     - foreach (@files)
880     - {
881     -
882     - if ( -e "/etc/dansguardian/lists/$_" )
883     - {
884     - open (INF,"/etc/dansguardian/lists/$_")
885     - or die ("can't open /etc/dansguardian/lists/$_ to read. ");
886     -
887     - $all .= "<br>\n";
888     - $all .= "<b> /etc/dansguardian/lists/$_ </b><br>\n";
889     -
890     - while (<INF>)
891     - {
892     - # allow for 4 sets
893     - $_ =~ s/</&lt\;/;
894     - $_ =~ s/>/&gt\;/;
895     - $_ =~ s/</&lt\;/;
896     - $_ =~ s/>/&gt\;/;
897     - $_ =~ s/</&lt\;/;
898     - $_ =~ s/>/&gt\;/;
899     - $_ =~ s/</&lt\;/;
900     - $_ =~ s/>/&gt\;/;
901     -
902     - $all .= "$_<br>\n";
903     - }
904     - close INF;
905     - }
906     - }
907     -
908     - $all .= "<\code>\n";
909     -
910     - print $q->end_table;
911     -
912     - return "$all";
913     -}
914     -
915     -sub print_phraselist_head
916     -{
917     - my $self = shift;
918     - my $q = $self->{cgi} ||'';
919     - my $all = ();
920     -
921     - print $q->start_table({-CLASS => "sme-border"}),"\n";
922     -
923     - $all .= "<code>\n";
924     -
925     - system ("/usr/bin/head /etc/dansguardian/lists/phraselists/*/* > /tmp/lists") == 0
926     - or die ("Error occurred reading phraselists\n");
927     -
928     - if ( -e "/tmp/lists" )
929     - {
930     - open (INF,"/tmp/lists")
931     - or die ("can't open /tmp/lists read. ");
932     -
933     - $all .= "<br><b> head /etc/dansguardian/lists/phraselists/* </b><br>\n";
934     -
935     - while (<INF>)
936     - {
937     - # allow for 4 sets
938     - $_ =~ s/</&lt\;/;
939     - $_ =~ s/>/&gt\;/;
940     - $_ =~ s/</&lt\;/;
941     - $_ =~ s/>/&gt\;/;
942     - $_ =~ s/</&lt\;/;
943     - $_ =~ s/>/&gt\;/;
944     - $_ =~ s/</&lt\;/;
945     - $_ =~ s/>/&gt\;/;
946     -
947     - $all .= "$_<br>\n";
948     - }
949     - close INF;
950     - }
951     -
952     - $all .= "<\code>\n";
953     - print $q->end_table;
954     - return "$all";
955     -}
956     -sub print_blacklist_head
957     -{
958     - my $self = shift;
959     - my $q = $self->{cgi};
960     - my $all = ();
961     -
962     - print $q->start_table({-CLASS => "sme-border"}),"\n";
963     -
964     - $all .= "<code>\n";
965     -
966     - system ("/usr/bin/head /etc/dansguardian/blacklists/*/* > /tmp/lists") == 0
967     - or die ("Error occurred reading phraselists\n");
968     -
969     - if ( -e "/tmp/lists" )
970     - {
971     - open (INF,"/tmp/lists")
972     - or die ("can't open /tmp/lists read. ");
973     -
974     - $all .= "<br><b> head /etc/dansguardian/blacklists/* </b><br>\n";
975     -
976     - while (<INF>)
977     - {
978     - # allow for 4 sets
979     - $_ =~ s/</&lt\;/;
980     - $_ =~ s/>/&gt\;/;
981     - $_ =~ s/</&lt\;/;
982     - $_ =~ s/>/&gt\;/;
983     - $_ =~ s/</&lt\;/;
984     - $_ =~ s/>/&gt\;/;
985     - $_ =~ s/</&lt\;/;
986     - $_ =~ s/>/&gt\;/;
987     -
988     - $all .= "$_<br>\n";
989     - }
990     - close INF;
991     - }
992     -
993     - $all .= "<\code>\n";
994     - print $q->end_table;
995     - return "$all";
996     -}
997     -
998     -sub save_record
999     -{
1000     - my $self = shift;
1001     - my $q = $self->{cgi};
1002     - my $g = $q->param ('g') ||'';
1003     - my $key = $q->param ('key') ||'';
1004     - my $list = $q->param ('list') ||'';
1005     - my $criterion = $q->param ('criterion');
1006     -
1007     - if ($key eq 'new')
1008     - {
1009     - my $random = int(rand(999999));
1010     - $key = $list.$random;
1011     - $ddb->new_record($key, { type => "$list" });
1012     - }
1013     - $ddb->set_prop($key, 'criterion', $criterion);
1014     -
1015     - return $self->success("SUCCESS_STORED");
1016     -}
1017     -sub delete_record
1018     -{
1019     - my $self = shift;
1020     - my $q = $self->{cgi} ||'';
1021     - my $key = $q->param('key') ||'';
1022     -
1023     - my $rec = $ddb->get($key);
1024     - $rec->delete;
1025     -
1026     - return $self->success("SUCCESS_STORED");
1027     -}
1028     -
1029     -sub print_phraselist_table
1030     -{
1031     - my $self = shift;
1032     - my $q = $self->{cgi};
1033     - my $g = $q->param ('g') ||'';
1034     -
1035     - my $Llist = $self->localise('LIST');
1036     -
1037     - my @lists = $pdb->get_all_by_prop(type => "list");
1038     - my @gnames = '';
1039     - foreach my $g (@lists)
1040     - {
1041     - my $groupname = $g->key();
1042     - push (@gnames, $groupname)
1043     - }
1044     -
1045     - my @installed = ('badwords','googlesearches');
1046     - foreach (@gnames)
1047     - {
1048     - push (@installed, $_)
1049     - if (-e "/etc/dansguardian/lists/phraselists/$_/weighted");
1050     - }
1051     -
1052     - #hide table if you have no rules
1053     - my $installed = @installed || 'no lists';
1054     - if ($installed eq 'no lists')
1055     - {
1056     - return "$self->localise('ERROR');"
1057     - }
1058     - else
1059     - {
1060     -
1061     - print $q->start_table({-CLASS => "sme-border"}),"\n";
1062     -
1063     - print $q->Tr ( esmith::cgi::genSmallCell($q, $Llist,"header"),
1064     - esmith::cgi::genSmallCell($q, '',"header")),"\n";
1065     -
1066     - #checkboxes
1067     - my ($a, $aa) = '';
1068     - foreach (sort @installed)
1069     - {
1070     - $a = $_;
1071     - $aa = $pdb->get_prop($_, $g) || '';
1072     - if ($aa eq 'on') { $aa = "checked"; }
1073     -
1074     - print $q->Tr (esmith::cgi::genSmallCell ($q, $_),
1075     - esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$a\" $aa>")));
1076     - }
1077     - }
1078     -
1079     - print $q->end_table;
1080     -
1081     - return "";
1082     -}
1083     -sub save_phrase
1084     -{
1085     - my $self = shift;
1086     - my $q = $self->{cgi};
1087     - my $g = $q->param ('g') ||'';
1088     -
1089     - my @lists = $pdb->get_all_by_prop(type => "list");
1090     - my @gnames = '';
1091     - foreach my $g (@lists)
1092     - {
1093     - my $groupname = $g->key();
1094     - push (@gnames, $groupname)
1095     - }
1096     -
1097     - my @installed = ();
1098     - foreach (@gnames)
1099     - {
1100     - push (@installed, $_)
1101     - if (-e "/etc/dansguardian/lists/phraselists/$_/weighted");
1102     - }
1103     -
1104     - #skip if you have nothing
1105     - my $installed = @installed || 'no lists';
1106     - unless ($installed eq 'no lists')
1107     - {
1108     - #from checkboxes
1109     - my ($a, $aa) = '';
1110     - foreach (@installed)
1111     - {
1112     - my $a = $_;
1113     - my $aa = $q->param ($a) || '';
1114     - $pdb->set_prop($_, $g, $aa);
1115     - }
1116     - }
1117     -
1118     - return $self->success("SUCCESS_STORED");
1119     -}
1120     -
1121     -
1122     -sub print_blacklist_table
1123     -{
1124     - my $self = shift;
1125     - my $q = $self->{cgi};
1126     - my $g = $q->param ('g') ||'';
1127     -
1128     - my $Llist = $self->localise('LIST');
1129     - my $LWhite = $self->localise('LWhite');
1130     - my $LGrey = $self->localise('Lgrey');
1131     - my $LBlack = $self->localise('LBlack');
1132     -
1133     - my @lists = $bdb->get_all_by_prop(type => "list");
1134     - my @gnames = '';
1135     - foreach my $g (@lists)
1136     - {
1137     - my $groupname = $g->key();
1138     - push (@gnames, $groupname)
1139     - }
1140     -
1141     - my @installed = ();
1142     - foreach (@gnames)
1143     - {
1144     - push (@installed, $_)
1145     - if (-e "/etc/dansguardian/blacklists/$_/domains");
1146     - }
1147     -
1148     - #hide table if you have no rules
1149     - my $installed = @installed || 'no lists';
1150     - if ($installed eq 'no lists')
1151     - {
1152     - return "$self->localise('NO_BLACK');"
1153     - }
1154     - else
1155     - {
1156     - print $q->start_table({-CLASS => "sme-border"}),"\n";
1157     - print $q->Tr (
1158     - esmith::cgi::genSmallCell($q, $Llist,"header"),
1159     - esmith::cgi::genSmallCell($q, $LWhite,"header"),
1160     - esmith::cgi::genSmallCell($q, $LGrey,"header"),
1161     - esmith::cgi::genSmallCell($q, $LBlack,"header")),"\n";
1162     -
1163     - #checkboxes
1164     - my ($a, $b, $c, $aa, $bb, $cc) = '';
1165     - foreach (sort @installed)
1166     - {
1167     - $a = $_.'white';
1168     - $aa = $bdb->get_prop($_, "white$g") || '';
1169     - if ($aa eq 'on') { $aa = "checked"; }
1170     -
1171     - my $b = $_.'grey';
1172     - $bb = $bdb->get_prop($_, "grey$g") || '';
1173     - if ($bb eq 'on') { $bb = "checked"; }
1174     -
1175     - my $c = $_.'black';
1176     - $cc= $bdb->get_prop($_, "black$g") || '';
1177     - if ($cc eq 'on') { $cc = "checked"; }
1178     -
1179     - #todo
1180     - my $listname = $self->localise($_);
1181     -
1182     - print $q->Tr
1183     - (esmith::cgi::genSmallCell ($q, $listname),
1184     - esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$a\" $aa>")),
1185     - esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$b\" $bb>")),
1186     - esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$c\" $cc>")));
1187     - }
1188     - }
1189     -
1190     - print $q->end_table;
1191     -
1192     - return "";
1193     -}
1194     -sub save_black
1195     -{
1196     - my $self = shift;
1197     - my $q = $self->{cgi};
1198     - my $g = $q->param ('g') ||'';
1199     -
1200     - my @lists = $bdb->get_all_by_prop(type => "list");
1201     - my @gnames = '';
1202     - foreach my $g (@lists)
1203     - {
1204     - my $groupname = $g->key();
1205     - push (@gnames, $groupname)
1206     - }
1207     -
1208     - my @installed = ();
1209     - foreach (@gnames)
1210     - {
1211     - push (@installed, $_)
1212     - if (-e "/etc/dansguardian/blacklists/$_/domains");
1213     - }
1214     -
1215     - #skip if you have nothing
1216     - my $installed = @installed || 'no lists';
1217     - unless ($installed eq 'no lists')
1218     - {
1219     - #from checkboxes
1220     - my ($a, $b, $c, $aa, $bb, $cc,) = '';
1221     - foreach (@installed)
1222     - {
1223     - my $a = $_.'white';
1224     - my $aa = $q->param ("$a") || '';
1225     - $bdb->set_prop($_, "white$g", $aa);
1226     -
1227     - my $b = $_.'grey';
1228     - my $bb = $q->param ("$b") || '';
1229     - $bdb->set_prop($_, "grey$g", $bb);
1230     -
1231     - my $c = $_.'black';
1232     - my $cc = $q->param ("$c") || '';
1233     - $bdb->set_prop($_, "black$g", $cc);
1234     - }
1235     - }
1236     -
1237     - return $self->success("SUCCESS_STORED");
1238     -}
1239     -
1240     -1;
1241     diff -Nur smeserver-dansguardian-panel-2.11-old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/dungogdansguardian.pm smeserver-dansguardian-panel-2.11/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/dungogdansguardian.pm
1242     --- smeserver-dansguardian-panel-2.11-old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/dungogdansguardian.pm 1969-12-31 19:00:00.000000000 -0500
1243     +++ smeserver-dansguardian-panel-2.11/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/dungogdansguardian.pm 2009-03-13 22:23:20.000000000 -0400
1244     @@ -0,0 +1,1236 @@
1245     +#----------------------------------------------------------------------
1246     +# dungogdansguardian.pm
1247     +# support@dungog.net
1248     +#----------------------------------------------------------------------
1249     +
1250     +package esmith::FormMagick::Panel::dungogdansguardian;
1251     +
1252     +use strict;
1253     +use warnings;
1254     +
1255     +use esmith::FormMagick;
1256     +use esmith::ConfigDB;
1257     +use esmith::AccountsDB;
1258     +use esmith::cgi;
1259     +
1260     +use Exporter;
1261     +use Carp qw(verbose);
1262     +
1263     +use HTML::Tabulate;
1264     +
1265     +our @ISA = qw(esmith::FormMagick Exporter);
1266     +
1267     +our @EXPORT = qw();
1268     +
1269     +our $db = esmith::ConfigDB->open();
1270     +our $adb = esmith::AccountsDB->open();
1271     +our $ddb = esmith::ConfigDB->open('dungog') or die "Could not open dungog DB\n";
1272     +our $bdb = esmith::ConfigDB->open('blacklist') or die "Could not open blacklist DB\n";
1273     +our $pdb = esmith::ConfigDB->open('phraselist') or die "Could not open phraselist DB\n";
1274     +
1275     +
1276     +sub new {
1277     + shift;
1278     + my $self = esmith::FormMagick->new();
1279     + $self->{calling_package} = (caller)[0];
1280     + bless $self;
1281     + return $self;
1282     +}
1283     +
1284     +sub get_loglevel
1285     +{
1286     + return $ddb->get_prop('dansguardian', 'loglevel');
1287     +}
1288     +sub get_logfileformat
1289     +{
1290     + return $ddb->get_prop('dansguardian', 'logfileformat');
1291     +}
1292     +sub get_proxyaccess
1293     +{
1294     + return $db->get_prop('squid', 'RequireAuth');
1295     +}
1296     +sub get_portblocking
1297     +{
1298     + return $db->get_prop('dansguardian', 'portblocking');
1299     +}
1300     +sub get_port
1301     +{
1302     + return $ddb->get_prop('dansguardian', 'port');
1303     +}
1304     +sub get_status
1305     +{
1306     + return $db->get_prop('dansguardian', 'status');
1307     +}
1308     +sub get_bypassproxyto
1309     +{
1310     + return $db->get_prop('squid', 'BypassProxyTo');
1311     +}
1312     +sub get_bypassproxyfrom
1313     +{
1314     + return $db->get_prop('squid', 'BypassProxyFrom');
1315     +}
1316     +sub get_TCPBlocks
1317     +{
1318     + return $db->get_prop('masq', 'TCPBlocks');
1319     +}
1320     +sub get_UDPBlocks
1321     +{
1322     + return $db->get_prop('masq', 'UDPBlocks');
1323     +}
1324     +sub get_mode
1325     +{
1326     + my $self = shift;
1327     + my $q = $self->{cgi};
1328     + my $g = $q->param('g') ||'';
1329     + return $ddb->get_prop("dansguardian$g", 'mode');
1330     +}
1331     +sub get_bypass
1332     +{
1333     + my $self = shift;
1334     + my $q = $self->{cgi};
1335     + my $g = $q->param('g') ||'';
1336     + return $ddb->get_prop("dansguardian$g", 'bypass');
1337     +}
1338     +sub get_reportinglevel
1339     +{
1340     + my $self = shift;
1341     + my $q = $self->{cgi};
1342     + my $g = $q->param('g') ||'';
1343     + return $ddb->get_prop("dansguardian$g", 'reportinglevel');
1344     +}
1345     +sub get_deniedpage
1346     +{
1347     + my $self = shift;
1348     + my $q = $self->{cgi};
1349     + my $g = $q->param('g') ||'';
1350     + return $ddb->get_prop("dansguardian$g", 'deniedpage');
1351     +}
1352     +sub get_deniedurl
1353     +{
1354     + my $self = shift;
1355     + my $q = $self->{cgi};
1356     + my $g = $q->param('g') ||'';
1357     + return $ddb->get_prop("dansguardian$g", 'deniedurl');
1358     +}
1359     +sub get_scan
1360     +{
1361     + my $self = shift;
1362     + my $q = $self->{cgi};
1363     + my $g = $q->param('g') ||'';
1364     + return $ddb->get_prop("dansguardian$g", 'scan');
1365     +}
1366     +sub get_weight
1367     +{
1368     + my $self = shift;
1369     + my $q = $self->{cgi};
1370     + my $g = $q->param('g') ||'';
1371     + return $ddb->get_prop("dansguardian$g", 'weight');
1372     +}
1373     +sub get_pics
1374     +{
1375     + my $self = shift;
1376     + my $q = $self->{cgi};
1377     + my $g = $q->param('g' ||'');
1378     + return $ddb->get_prop("dansguardian$g", 'pics');
1379     +}
1380     +sub get_regexpurl
1381     +{
1382     + my $self = shift;
1383     + my $q = $self->{cgi};
1384     + my $g = $q->param('g') ||'';
1385     + return $ddb->get_prop("dansguardian$g", 'regexpurl');
1386     +}
1387     +sub get_regexpsearch
1388     +{
1389     + my $self = shift;
1390     + my $q = $self->{cgi};
1391     + my $g = $q->param('g') ||'';
1392     + return $ddb->get_prop("dansguardian$g", 'regexpsearch');
1393     +}
1394     +sub get_regexpurlads
1395     +{
1396     + my $self = shift;
1397     + my $q = $self->{cgi};
1398     + my $g = $q->param('g') ||'';
1399     + return $ddb->get_prop("dansguardian$g", 'regexpurlads');
1400     +}
1401     +sub get_regexpurlproxy
1402     +{
1403     + my $self = shift;
1404     + my $q = $self->{cgi};
1405     + my $g = $q->param('g') ||'';
1406     + return $ddb->get_prop("dansguardian$g", 'regexpurlproxy');
1407     +}
1408     +sub get_blanketban
1409     +{
1410     + my $self = shift;
1411     + my $q = $self->{cgi};
1412     + my $g = $q->param('g') ||'';
1413     + return $ddb->get_prop("dansguardian$g", 'blanketban');
1414     +}
1415     +sub get_ipban
1416     +{
1417     + my $self = shift;
1418     + my $q = $self->{cgi};
1419     + my $g = $q->param('g') ||'';
1420     + return $ddb->get_prop("dansguardian$g", 'ipban');
1421     +}
1422     +sub get_https
1423     +{
1424     + my $self = shift;
1425     + my $q = $self->{cgi};
1426     + my $g = $q->param('g') ||'';
1427     + return $ddb->get_prop("dansguardian$g", 'https');
1428     +}
1429     +sub get_file
1430     +{
1431     + my $self = shift;
1432     + my $q = $self->{cgi};
1433     + my $g = $q->param('g') ||'';
1434     + return $ddb->get_prop("dansguardian$g", 'file');
1435     +}
1436     +sub get_criterion
1437     +{
1438     + my $self = shift;
1439     + my $q = $self->{cgi};
1440     + my $key = $q->param('key') ||'';
1441     + return $ddb->get_prop($key, 'criterion') || '';
1442     +}
1443     +
1444     +sub get_status_summary
1445     +{
1446     + my $self = shift;
1447     + my $q = $self->{cgi};
1448     +
1449     + my $status = $db->get_prop('dansguardian', "status");
1450     + my $Auth = $db->get_prop('squid', "RequireAuth");
1451     + my $port = $ddb->get_prop('dansguardian', "port");
1452     + my $block = $db->get_prop('dansguardian', "portblocking");
1453     +
1454     + my $STATUS = $self->localise('STATUS');
1455     + my $PORT = $self->localise('PORT');
1456     + my $PROXYACCESS = $self->localise('PROXYACCESS');
1457     + my $BLOCKING = $self->localise('PORTBLOCKING');
1458     +
1459     + my $status2;
1460     + if ($status eq 'enabled')
1461     + { $status2 = $self->localise('ENABLED'); } else { $status2 = $self->localise('DISABLED'); }
1462     +
1463     + my $block2;
1464     + if ($block eq 'yes')
1465     + { $block2 = $self->localise('ENABLED'); } else { $block2 = $self->localise('DISABLED'); }
1466     +
1467     + return "$STATUS : <b>$status2</b>, $PORT : <b>$port</b>, $PROXYACCESS : <b>$Auth</b>, $BLOCKING : <b>$block2</b>";
1468     +}
1469     +
1470     +sub get_custom_denied
1471     +{
1472     + my $self = shift;
1473     + my $q = $self->{cgi};
1474     + my $g = $q->param('g') ||'';
1475     + my $Ldefault = $self->localise('Ldefault');
1476     +
1477     + my $defaults = $ddb->get_prop("dansguardian", "deniedurl") || 'dansguardian.pl';
1478     +
1479     + my $deniedurl = $ddb->get_prop("dansguardian$g", "deniedurl") || 'nul';
1480     + if (($deniedurl eq 'nul') && (-e "/home/e-smith/files/ibays/Primary/cgi-bin/dansguardian$g.pl"))
1481     + { $deniedurl = "dansguardian$g.pl"; }
1482     +
1483     + my $language = $ddb->get_prop('dansguardian', "language") || 'ukenglish';
1484     + my $customhtml = 'nul';
1485     + if (-e "/etc/dansguardian/languages/$language/template$g.html")
1486     + { $customhtml = "$language/template$g.html"; }
1487     +
1488     + return "$Ldefault = $defaults, html = $customhtml, cgi = $deniedurl";
1489     +}
1490     +
1491     +sub print_global_table
1492     +{
1493     + my $self = shift;
1494     + my $q = $self->{cgi};
1495     +
1496     + my $description = $self->localise('DESCRIPTION');
1497     + my $Lf2 = $self->localise('Lf2');
1498     + my $Lf3 = $self->localise('Lf3');
1499     + my $Lf4 = $self->localise('Lf4');
1500     + my $Lf5 = $self->localise('Lf5');
1501     +
1502     + my @groups = $adb->get_all_by_prop(type => "group");
1503     + my @gnames = '';
1504     + foreach my $g (@groups)
1505     + {
1506     + my $groupname = $g->key();
1507     + push (@gnames, $groupname)
1508     + }
1509     +
1510     + print $q->start_table({-CLASS => "sme-border"}),"\n";
1511     + print $q->Tr (
1512     + esmith::cgi::genSmallCell($q, $description,"header"),
1513     + esmith::cgi::genSmallCell($q, '',"header")),"\n";
1514     +
1515     +
1516     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf2),
1517     + esmith::cgi::genSmallCell ($q,
1518     + $q->popup_menu (-name => "f2",
1519     + -values => [ sort @gnames ],
1520     + -default => $ddb->get_prop('dansguardian', "f2") || '')));
1521     +
1522     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf3),
1523     + esmith::cgi::genSmallCell ($q,
1524     + $q->popup_menu (-name => "f3",
1525     + -values => [ sort @gnames ],
1526     + -default => $ddb->get_prop('dansguardian', "f3") || '')));
1527     +
1528     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf4),
1529     + esmith::cgi::genSmallCell ($q,
1530     + $q->popup_menu (-name => "f4",
1531     + -values => [ sort @gnames ],
1532     + -default => $ddb->get_prop('dansguardian', "f4") || '')));
1533     +
1534     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf5),
1535     + esmith::cgi::genSmallCell ($q,
1536     + $q->popup_menu (-name => "f5",
1537     + -values => [ sort @gnames ],
1538     + -default => $ddb->get_prop('dansguardian', "f5") || '')));
1539     +
1540     + print $q->end_table;
1541     +
1542     + return "";
1543     +}
1544     +
1545     +sub print_summary
1546     +{
1547     + my $self = shift;
1548     + my $q = $self->{cgi};
1549     +
1550     + my $description = $self->localise('DESCRIPTION');
1551     + my $LAllow = $self->localise('LAllow');
1552     + my $LClient_IP = $self->localise('LClient_IP');
1553     + my $LDeny = $self->localise('LDeny');
1554     + my $modify = $self->localise('MODIFY');
1555     + my $Lcommon = $self->localise('Lcommon');
1556     + my $Ldefault = $self->localise('Ldefault');
1557     + my $Lf0 = $self->localise('Lf0');
1558     + my $Lf1 = $self->localise('Lf1');
1559     + my $Lf2 = $self->localise('Lf2');
1560     + my $Lf3 = $self->localise('Lf3');
1561     + my $Lf4 = $self->localise('Lf4');
1562     + my $Lf5 = $self->localise('Lf5');
1563     + my $GROUP = $self->localise('GROUP');
1564     + my $Lmode = $self->localise('Lmode');
1565     + my $LURLban = $self->localise('LURLban');
1566     + my $Lscan = $self->localise('Lscan');
1567     + my $Lbypass = $self->localise('Lbypass');
1568     + my $Llists = $self->localise('Llists');
1569     + my $Lsettings = $self->localise('Lsettings');
1570     +
1571     + my @groups = $adb->get_all_by_prop(type => "group");
1572     + my @gnames = '';
1573     + foreach my $g (@groups)
1574     + {
1575     + my $groupname = $g->key();
1576     + push (@gnames, $groupname)
1577     + }
1578     +
1579     + print $q->start_table({-CLASS => "sme-border"}),"\n";
1580     + print $q->Tr (
1581     + esmith::cgi::genSmallCell($q, $description,"header"),
1582     + esmith::cgi::genSmallCell($q, $GROUP,"header"),
1583     + esmith::cgi::genSmallCell($q, $Lmode,"header"),
1584     + esmith::cgi::genSmallCell($q, $LURLban,"header"),
1585     + esmith::cgi::genSmallCell($q, $Lscan,"header"),
1586     + esmith::cgi::genSmallCell($q, $Lbypass,"header"),
1587     + esmith::cgi::genSmallCell($q, $Lsettings,"header"),
1588     + esmith::cgi::genSmallCell($q, $Llists,"header")),"\n";
1589     +
1590     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf0),
1591     + esmith::cgi::genSmallCell ($q, ''),
1592     + esmith::cgi::genSmallCell ($q, ''),
1593     + esmith::cgi::genSmallCell ($q, ''),
1594     + esmith::cgi::genSmallCell ($q, ''),
1595     + esmith::cgi::genSmallCell ($q, ''),
1596     + esmith::cgi::genSmallCell ($q, ''),
1597     + esmith::cgi::genSmallCell ($q,
1598     + $q->a ({href => $q->url (-absolute => 1)
1599     + . "?page=0&page_stack=&g=f0&gname=$Lcommon&wherenext=GroupLists"}, $modify)));
1600     +
1601     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf1),
1602     + esmith::cgi::genSmallCell ($q, ''),
1603     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "mode") || ''),
1604     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "blanketban") . " / " .
1605     + $ddb->get_prop('dansguardianf1', "https") . " / " .
1606     + $ddb->get_prop('dansguardianf1', "ipban") . " / " .
1607     + $ddb->get_prop('dansguardianf1', "file") . " - " .
1608     + $ddb->get_prop('dansguardianf1', "regexpurl") . " / " .
1609     + $ddb->get_prop('dansguardianf1', "regexpurlads") . " / " .
1610     + $ddb->get_prop('dansguardianf1', "regexpurlproxy")),
1611     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "scan") || ''),
1612     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf1', "bypass") || ''),
1613     + esmith::cgi::genSmallCell ($q,
1614     + $q->a ({href => $q->url (-absolute => 1)
1615     + . "?page=0&page_stack=&g=f1&gname=$Ldefault&wherenext=GroupSettings"}, $modify)),
1616     + esmith::cgi::genSmallCell ($q,
1617     + $q->a ({href => $q->url (-absolute => 1)
1618     + . "?page=0&page_stack=&g=f1&gname=$Ldefault&wherenext=GroupLists"}, $modify)));
1619     +
1620     + my $gname = $ddb->get_prop('dansguardian', "f2");
1621     + if ($gname) {
1622     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf2),
1623     + esmith::cgi::genSmallCell ($q, $gname ),
1624     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "mode") || ''),
1625     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "blanketban") . " / " .
1626     + $ddb->get_prop('dansguardianf2', "https") . " / " .
1627     + $ddb->get_prop('dansguardianf2', "ipban") . " / " .
1628     + $ddb->get_prop('dansguardianf2', "file") . " - " .
1629     + $ddb->get_prop('dansguardianf2', "regexpurl") . " / " .
1630     + $ddb->get_prop('dansguardianf2', "regexpurlads") . " / " .
1631     + $ddb->get_prop('dansguardianf2', "regexpurlproxy")),
1632     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "scan") || ''),
1633     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf2', "bypass") || ''),
1634     + esmith::cgi::genSmallCell ($q,
1635     + $q->a ({href => $q->url (-absolute => 1)
1636     + . "?page=0&page_stack=&g=f2&gname=$gname&wherenext=GroupSettings"}, $modify)),
1637     + esmith::cgi::genSmallCell ($q,
1638     + $q->a ({href => $q->url (-absolute => 1)
1639     + . "?page=0&page_stack=&g=f2&gname=$gname&wherenext=GroupLists"}, $modify)));
1640     + }
1641     +
1642     + $gname = $ddb->get_prop('dansguardian', "f3");
1643     + if ($gname) {
1644     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf3),
1645     + esmith::cgi::genSmallCell ($q, $gname ),
1646     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "mode") || ''),
1647     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "blanketban") . " / " .
1648     + $ddb->get_prop('dansguardianf3', "https") . " / " .
1649     + $ddb->get_prop('dansguardianf3', "ipban") . " / " .
1650     + $ddb->get_prop('dansguardianf3', "file") . " - " .
1651     + $ddb->get_prop('dansguardianf3', "regexpurl") . " / " .
1652     + $ddb->get_prop('dansguardianf3', "regexpurlads") . " / " .
1653     + $ddb->get_prop('dansguardianf3', "regexpurlproxy")),
1654     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "scan") || ''),
1655     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf3', "bypass") || ''),
1656     + esmith::cgi::genSmallCell ($q,
1657     + $q->a ({href => $q->url (-absolute => 1)
1658     + . "?page=0&page_stack=&g=f3&gname=$gname&wherenext=GroupSettings"}, $modify)),
1659     + esmith::cgi::genSmallCell ($q,
1660     + $q->a ({href => $q->url (-absolute => 1)
1661     + . "?page=0&page_stack=&g=f3&gname=$gname&wherenext=GroupLists"}, $modify)));
1662     + }
1663     +
1664     + $gname = $ddb->get_prop('dansguardian', "f4");
1665     + if ($gname) {
1666     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf4),
1667     + esmith::cgi::genSmallCell ($q, $gname ),
1668     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "mode") || ''),
1669     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "blanketban") . " / " .
1670     + $ddb->get_prop('dansguardianf4', "https") . " / " .
1671     + $ddb->get_prop('dansguardianf4', "ipban") . " / " .
1672     + $ddb->get_prop('dansguardianf4', "file") . " - " .
1673     + $ddb->get_prop('dansguardianf4', "regexpurl") . " / " .
1674     + $ddb->get_prop('dansguardianf4', "regexpurlads") . " / " .
1675     + $ddb->get_prop('dansguardianf4', "regexpurlproxy")),
1676     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "scan") || ''),
1677     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf4', "bypass") || ''),
1678     + esmith::cgi::genSmallCell ($q,
1679     + $q->a ({href => $q->url (-absolute => 1)
1680     + . "?page=0&page_stack=&g=f4&gname=$gname&wherenext=GroupSettings"}, $modify)),
1681     + esmith::cgi::genSmallCell ($q,
1682     + $q->a ({href => $q->url (-absolute => 1)
1683     + . "?page=0&page_stack=&g=f4&gname=$gname&wherenext=GroupLists"}, $modify)));
1684     + }
1685     +
1686     + $gname = $ddb->get_prop('dansguardian', "f5");
1687     + if ($gname) {
1688     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lf5),
1689     + esmith::cgi::genSmallCell ($q, $gname ),
1690     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "mode") || ''),
1691     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "blanketban") . " / " .
1692     + $ddb->get_prop('dansguardianf5', "https") . " / " .
1693     + $ddb->get_prop('dansguardianf5', "ipban") . " / " .
1694     + $ddb->get_prop('dansguardianf5', "file") . " - " .
1695     + $ddb->get_prop('dansguardianf5', "regexpurl") . " / " .
1696     + $ddb->get_prop('dansguardianf5', "regexpurlads") . " / " .
1697     + $ddb->get_prop('dansguardianf5', "regexpurlproxy")),
1698     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "scan") || ''),
1699     + esmith::cgi::genSmallCell ($q, $ddb->get_prop('dansguardianf5', "bypass") || ''),
1700     + esmith::cgi::genSmallCell ($q,
1701     + $q->a ({href => $q->url (-absolute => 1)
1702     + . "?page=0&page_stack=&g=f5&gname=$gname&wherenext=GroupSettings"}, $modify)),
1703     + esmith::cgi::genSmallCell ($q,
1704     + $q->a ({href => $q->url (-absolute => 1)
1705     + . "?page=0&page_stack=&g=f5&gname=$gname&wherenext=GroupLists"}, $modify)));
1706     + }
1707     +
1708     + print $q->end_table;
1709     +
1710     + return "";
1711     +}
1712     +
1713     +sub save_reload
1714     +{
1715     + my $self = shift;
1716     + my $q = $self->{cgi};
1717     +
1718     + foreach ('loglevel','logfileformat','f2','f3','f4','f5','deniedurl')
1719     + { $ddb->set_prop('dansguardian', "$_", $q->param("$_")); }
1720     +
1721     + unless ( system ("/sbin/e-smith/signal-event", "dansguardian-reload") == 0 )
1722     + { return $self->error('ERROR'); }
1723     +
1724     + return $self->success("SUCCESS");
1725     +}
1726     +
1727     +sub save_group_settings
1728     +{
1729     + my $self = shift;
1730     + my $q = $self->{cgi};
1731     + my $g = $q->param ('g') ||'';
1732     +
1733     + foreach ('mode','bypass','reportinglevel','scan','weight','pics','deniedpage','deniedurl',
1734     + 'regexpurl','regexpsearch','regexpurlads','regexpurlproxy','blanketban','https','ipban','file')
1735     + { $ddb->set_prop("dansguardian$g", "$_", $q->param("$_")); }
1736     +
1737     + unless ( system ("/sbin/e-smith/signal-event", "dansguardian-reload") == 0 )
1738     + { return $self->error('ERROR'); }
1739     +
1740     + return $self->success("SUCCESS");
1741     +}
1742     +
1743     +sub save_proxy
1744     +{
1745     + my $self = shift;
1746     + my $q = $self->{cgi} ||'';
1747     +
1748     + my $status = $q->param ('status') || '';
1749     + my $proxyaccess = $q->param ('proxyaccess') || '';
1750     + my $portblocking = $q->param ('portblocking') || '';
1751     + my $port = $q->param ('port') || '';
1752     +
1753     + $db->set_prop('squid', "RequireAuth", $proxyaccess);
1754     + $ddb->set_prop('dansguardian', "port", $port);
1755     +
1756     + my $bypassproxyfrom = $q->param ('bypassproxyfrom') || '';
1757     + my $bypassproxyto = $q->param ('bypassproxyto') || '';
1758     + my $TCPBlocks = $q->param ('TCPBlocks') || '';
1759     + my $UDPBlocks = $q->param ('UDPBlocks') || '';
1760     +
1761     + $db->set_prop('squid', "BypassProxyFrom", $bypassproxyfrom);
1762     + $db->set_prop('squid', "BypassProxyTo", $bypassproxyto);
1763     + $db->set_prop('masq', "UDPBlocks", $UDPBlocks);
1764     + $db->set_prop('masq', "TCPBlocks", $TCPBlocks);
1765     +
1766     + if ($status eq 'disabled')
1767     + {
1768     + $db->set_prop('squid', "TransparentPort", '3128');
1769     + $db->set_prop('dansguardian', "status", 'disabled');
1770     + $db->set_prop('dansguardian', "portblocking", 'no');
1771     +
1772     + unless ( system ("/sbin/e-smith/signal-event", "dansguardian-save") == 0 )
1773     + { return $self->error('ERROR'); }
1774     +
1775     + return $self->success("SUCCESS_STOP");
1776     + }
1777     + else
1778     + {
1779     + $db->set_prop('squid', "TransparentPort", $port);
1780     + $db->set_prop('dansguardian', "status", 'enabled');
1781     + $db->set_prop('dansguardian', "portblocking", $portblocking);
1782     + }
1783     +
1784     + unless ( system ("/sbin/e-smith/signal-event", "dansguardian-save") == 0 )
1785     + { return $self->error('ERROR'); }
1786     +
1787     + return $self->success("SUCCESS_PROMPT");
1788     +}
1789     +
1790     +sub portentry
1791     +{
1792     + my ($fm, $port) = @_;
1793     + if (not $port)
1794     + {
1795     + return "FM_NONBLANK";
1796     + }
1797     + elsif ($port =~ /^(\d{4})$/)
1798     + {
1799     + return "OK";
1800     + }
1801     + else
1802     + {
1803     + return "ERROR_PORT";
1804     + }
1805     +}
1806     +
1807     +sub print_list_table
1808     +{
1809     + my $self = shift;
1810     + my $q = $self->{cgi};
1811     + my $g = $q->param('g') || '';
1812     + my $gname = $q->param('gname') || '';
1813     +
1814     + my $description = $self->localise('DESCRIPTION');
1815     + my $Lasite = $self->localise('Lasite');
1816     + my $Laurl = $self->localise('Laurl');
1817     + my $Lphrases = $self->localise('Lphrases');
1818     + my $Lregexp = $self->localise('Lregexp');
1819     + my $Lfileext = $self->localise('Lfileext');
1820     + my $Lmimetype = $self->localise('Lmimetype');
1821     + my $ALLlists = $self->localise('LALLlists');
1822     + my $ENABLED = $self->localise('ENABLED');
1823     +
1824     + my $Lgrey = $self->localise('Lgrey');
1825     + my $Lweighted = $self->localise('Lweighted');
1826     + my $Lmodifyurl = $self->localise('Lmodifyurl');
1827     + my $LAllow = $self->localise('LAllow');
1828     + my $LDeny = $self->localise('LDeny');
1829     + my $LAVexcept = $self->localise('LAVexcept');
1830     + my $Lexception = $self->localise('Lexception');
1831     + my $Lblacklist = $self->localise('Lblacklist');
1832     + my $Lphraselist = $self->localise('Lphraselist');
1833     + my $Lrepcon = $self->localise('Lrepcon');
1834     + my $Lallowurl = $self->localise('Lallowurl');
1835     + my $Lallowsite = $self->localise('Lallowsite');
1836     + my $LClientIP = $self->localise('LClientIP');
1837     + my $Lcommon = $self->localise('Lcommon');
1838     + my $Commonlists = $self->localise('LCommonlists');
1839     +
1840     + print $q->start_table({-CLASS => "sme-border"}),"\n";
1841     + print $q->Tr (
1842     + esmith::cgi::genSmallCell($q, $description,"header"),
1843     + esmith::cgi::genSmallCell($q, $q->a ({href => $q->url (-absolute => 1)
1844     + . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ShowAllLists"}, $ALLlists),"header"),
1845     + esmith::cgi::genSmallCell($q, '',"header"),
1846     + esmith::cgi::genSmallCell($q, '',"header"),
1847     + esmith::cgi::genSmallCell($q, '',"header"),
1848     + esmith::cgi::genSmallCell($q, $q->a ({href => $q->url (-absolute => 1)
1849     + . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ShowCommonLists"}, $Commonlists),"header"));
1850     +
1851     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lasite),
1852     + esmith::cgi::genSmallCell ($q,
1853     + $q->a ({href => $q->url (-absolute => 1)
1854     + . "?page=0&page_stack=&g=$g&list=greysitelist$g&wherenext=ViewList"}, $Lgrey)),
1855     + esmith::cgi::genSmallCell ($q,
1856     + $q->a ({href => $q->url (-absolute => 1)
1857     + . "?page=0&page_stack=&g=$g&list=exceptionsitelist$g&wherenext=ViewList"}, $LAllow)),
1858     + esmith::cgi::genSmallCell ($q,
1859     + $q->a ({href => $q->url (-absolute => 1)
1860     + . "?page=0&page_stack=&g=$g&list=bannedsitelist$g&wherenext=ViewList"}, $LDeny)),
1861     + esmith::cgi::genSmallCell ($q,''),
1862     + esmith::cgi::genSmallCell ($q,
1863     + $q->a ({href => $q->url (-absolute => 1)
1864     + . "?page=0&page_stack=&g=f0&list=exceptionvirussitelist&wherenext=ViewList"}, $LAVexcept)));
1865     +
1866     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Laurl),
1867     + esmith::cgi::genSmallCell ($q,
1868     + $q->a ({href => $q->url (-absolute => 1)
1869     + . "?page=0&page_stack=&g=$g&list=greyurllist$g&wherenext=ViewList"}, $Lgrey)),
1870     + esmith::cgi::genSmallCell ($q,
1871     + $q->a ({href => $q->url (-absolute => 1)
1872     + . "?page=0&page_stack=&g=$g&list=exceptionurllist$g&wherenext=ViewList"}, $LAllow)),
1873     + esmith::cgi::genSmallCell ($q,
1874     + $q->a ({href => $q->url (-absolute => 1)
1875     + . "?page=0&page_stack=&g=$g&list=bannedurllist$g&wherenext=ViewList"}, $LDeny)),
1876     + esmith::cgi::genSmallCell ($q,''),
1877     + esmith::cgi::genSmallCell ($q,
1878     + $q->a ({href => $q->url (-absolute => 1)
1879     + . "?page=0&page_stack=&g=f0&list=exceptionvirusurllist&wherenext=ViewList"}, $LAVexcept)));
1880     +
1881     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lphrases),
1882     + esmith::cgi::genSmallCell ($q,
1883     + $q->a ({href => $q->url (-absolute => 1)
1884     + . "?page=0&page_stack=&g=$g&list=weightedphraselist$g&wherenext=ViewList"}, $Lweighted)),
1885     + esmith::cgi::genSmallCell ($q,
1886     + $q->a ({href => $q->url (-absolute => 1)
1887     + . "?page=0&page_stack=&g=$g&list=exceptionphraselist$g&wherenext=ViewList"}, $LAllow)),
1888     + esmith::cgi::genSmallCell ($q,
1889     + $q->a ({href => $q->url (-absolute => 1)
1890     + . "?page=0&page_stack=&g=$g&list=bannedphraselist$g&wherenext=ViewList"}, $LDeny)),
1891     + esmith::cgi::genSmallCell ($q, ''),
1892     + esmith::cgi::genSmallCell ($q,''));
1893     +
1894     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lregexp),
1895     + esmith::cgi::genSmallCell ($q,
1896     + $q->a ({href => $q->url (-absolute => 1)
1897     + . "?page=0&page_stack=&g=$g&list=urlregexplist$g&wherenext=ViewList"}, $Lmodifyurl)),
1898     + esmith::cgi::genSmallCell ($q,
1899     + $q->a ({href => $q->url (-absolute => 1)
1900     + . "?page=0&page_stack=&g=$g&list=exceptionregexpurllist$g&wherenext=ViewList"}, $LAllow)),
1901     + esmith::cgi::genSmallCell ($q,
1902     + $q->a ({href => $q->url (-absolute => 1)
1903     + . "?page=0&page_stack=&g=$g&list=bannedregexpurllist$g&wherenext=ViewList"}, $LDeny)),
1904     + esmith::cgi::genSmallCell ($q,
1905     + $q->a ({href => $q->url (-absolute => 1)
1906     + . "?page=0&page_stack=&g=$g&list=contentregexplist$g&wherenext=ViewList"}, $Lrepcon)),
1907     + esmith::cgi::genSmallCell ($q, ''));
1908     +
1909     +
1910     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lfileext),
1911     + esmith::cgi::genSmallCell ($q, ''),
1912     + esmith::cgi::genSmallCell ($q,
1913     + $q->a ({href => $q->url (-absolute => 1)
1914     + . "?page=0&page_stack=&g=$g&list=exceptionextensionlist$g&wherenext=ViewList"}, $Lexception)),
1915     + esmith::cgi::genSmallCell ($q,
1916     + $q->a ({href => $q->url (-absolute => 1)
1917     + . "?page=0&page_stack=&g=$g&list=bannedextensionlist$g&wherenext=ViewList"}, $LDeny)),
1918     + esmith::cgi::genSmallCell ($q,
1919     + $q->a ({href => $q->url (-absolute => 1)
1920     + . "?page=0&page_stack=&g=$g&list=exceptionfileurllist$g&wherenext=ViewList"}, $Lallowurl)),
1921     + esmith::cgi::genSmallCell ($q,
1922     + $q->a ({href => $q->url (-absolute => 1)
1923     + . "?page=0&page_stack=&g=f0&list=exceptionvirusextensionlist&wherenext=ViewList"}, $LAVexcept)));
1924     +
1925     + print $q->Tr (esmith::cgi::genSmallCell ($q, $Lmimetype),
1926     + esmith::cgi::genSmallCell ($q, ''),
1927     + esmith::cgi::genSmallCell ($q,
1928     + $q->a ({href => $q->url (-absolute => 1)
1929     + . "?page=0&page_stack=&g=$g&list=exceptionmimetypelist$g&wherenext=ViewList"}, $Lexception)),
1930     + esmith::cgi::genSmallCell ($q,
1931     + $q->a ({href => $q->url (-absolute => 1)
1932     + . "?page=0&page_stack=&g=$g&list=bannedmimetypelist$g&wherenext=ViewList"}, $LDeny)),
1933     + esmith::cgi::genSmallCell ($q,
1934     + $q->a ({href => $q->url (-absolute => 1)
1935     + . "?page=0&page_stack=&g=$g&list=exceptionfilesitelist$g&wherenext=ViewList"}, $Lallowsite)),
1936     + esmith::cgi::genSmallCell ($q,
1937     + $q->a ({href => $q->url (-absolute => 1)
1938     + . "?page=0&page_stack=&g=f0&list=exceptionvirusmimetypelist&wherenext=ViewList"}, $LAVexcept)));
1939     +
1940     + #Client IP
1941     + if ($g eq 'f0')
1942     + {
1943     + print $q->Tr (esmith::cgi::genSmallCell ($q, $LClientIP),
1944     + esmith::cgi::genSmallCell ($q, ''),
1945     + esmith::cgi::genSmallCell ($q,
1946     + $q->a ({href => $q->url (-absolute => 1)
1947     + . "?page=0&page_stack=&g=$g&list=exceptioniplist&wherenext=ViewList"}, $Lexception)),
1948     + esmith::cgi::genSmallCell ($q,
1949     + $q->a ({href => $q->url (-absolute => 1)
1950     + . "?page=0&page_stack=&g=$g&list=bannediplist&wherenext=ViewList"}, $LDeny)),
1951     + esmith::cgi::genSmallCell ($q, ''),
1952     + esmith::cgi::genSmallCell ($q, ''));
1953     + }
1954     +
1955     + #prepared lists
1956     + unless ($g eq 'f0')
1957     + {
1958     + print $q->Tr (esmith::cgi::genSmallCell ($q, $ENABLED),
1959     + esmith::cgi::genSmallCell ($q, ''),
1960     + esmith::cgi::genSmallCell ($q,
1961     + $q->a ({href => $q->url (-absolute => 1)
1962     + . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ViewPhraseList"}, $Lphraselist)),
1963     + esmith::cgi::genSmallCell ($q,
1964     + $q->a ({href => $q->url (-absolute => 1)
1965     + . "?page=0&page_stack=&g=$g&gname=$gname&wherenext=ViewBlackList"}, $Lblacklist)),
1966     + esmith::cgi::genSmallCell ($q, ''),
1967     + esmith::cgi::genSmallCell ($q, ''));
1968     + }
1969     +
1970     + print $q->end_table;
1971     + return "";
1972     +}
1973     +
1974     +sub print_list_description
1975     +{
1976     + my $self = shift;
1977     + my $q = $self->{cgi};
1978     + my $g = $q->param ('g') ||'';
1979     + my $desc = $self->localise('MODIFY_LIST_SETTINGS');
1980     +
1981     + if ($g eq 'f0')
1982     + {
1983     + $desc = $self->localise('MODIFY_GLOBAL_LIST_SETTINGS');
1984     + }
1985     +
1986     + return "$desc";
1987     +}
1988     +
1989     +sub print_record_table
1990     +{
1991     + my $self = shift;
1992     + my $q = $self->{cgi};
1993     + my $g = $q->param ('g') ||'';
1994     + my $list = $q->param('list') ||'';
1995     +
1996     + my $record = $self->localise('RECORD');
1997     + my $modify = $self->localise('MODIFY');
1998     + my $remove = $self->localise('REMOVE');
1999     + my $new = $self->localise('NEW');
2000     +
2001     +
2002     + print $q->start_table({-CLASS => "sme-border"}),"\n";
2003     + print $q->Tr (
2004     + esmith::cgi::genSmallCell($q, $record,"header"),
2005     + esmith::cgi::genSmallCell($q, '',"header"),
2006     + esmith::cgi::genSmallCell($q, '',"header")),"\n";
2007     +
2008     + print $q->Tr (esmith::cgi::genSmallCell ($q, ''),
2009     + esmith::cgi::genSmallCell ($q, ''),
2010     + esmith::cgi::genSmallCell ($q,
2011     + $q->a ({href => $q->url (-absolute => 1)
2012     + . "?page=0&page_stack=&g=$g&list=$list&key=new&wherenext=Edit"}, $new)));
2013     +
2014     + foreach my $hash ($ddb->get_all_by_prop(type => $list))
2015     + {
2016     + my $key = $hash->key;
2017     + my $criterion = $hash->prop("criterion") || '';
2018     +
2019     + #allows for three sets of bracketed words
2020     + #$record =~ s/</&lt\;/g; ??
2021     + #$record =~ s/>/&gt\;/g;
2022     + $criterion =~ s/</&lt\;/;
2023     + $criterion =~ s/>/&gt\;/;
2024     + $criterion =~ s/</&lt\;/;
2025     + $criterion =~ s/>/&gt\;/;
2026     + $criterion =~ s/</&lt\;/;
2027     + $criterion =~ s/>/&gt\;/;
2028     +
2029     + print $q->Tr (esmith::cgi::genSmallCell ($q, $criterion),
2030     + esmith::cgi::genSmallCell ($q,
2031     + $q->a ({href => $q->url (-absolute => 1)
2032     + . "?page=0&page_stack=&g=$g&list=$list&key=$key&wherenext=Edit"}, $modify)),
2033     + esmith::cgi::genSmallCell ($q,
2034     + $q->a ({href => $q->url (-absolute => 1)
2035     + . "?page=0&page_stack=&g=$g&criterion=$criterion&key=$key&wherenext=Delete"}, $remove)));
2036     + }
2037     +
2038     + print $q->end_table;
2039     +
2040     + return "";
2041     +}
2042     +
2043     +sub print_all_lists
2044     +{
2045     + my $self = shift;
2046     + my $q = $self->{cgi};
2047     + my $g = $q->param ('g') ||'';
2048     + my $all = ();
2049     +
2050     + if ($g =~ /^(f\d{1})$/)
2051     + {
2052     + $g = $1;
2053     + }
2054     +
2055     + print $q->start_table({-CLASS => "sme-border"}),"\n";
2056     +
2057     + $all .= "<code>\n";
2058     +
2059     + my @files = ('bannedextensionlist','bannedsitelist','exceptionfilesitelist','exceptionregexpurllist',
2060     + 'greysitelist','weightedphraselist','bannedmimetypelist','bannedurllist','exceptionfileurllist',
2061     + 'exceptionsitelist','greyurllist','bannedphraselist','contentregexplist','exceptionmimetypelist','exceptionurllist','pics',
2062     + 'bannedregexpurllist','exceptionextensionlist','exceptionphraselist','greyregexpurllist','urlregexplist');
2063     +
2064     + foreach (@files)
2065     + {
2066     +
2067     + if ( -e "/etc/dansguardian/lists/$g/$_" )
2068     + {
2069     + open (INF,"/etc/dansguardian/lists/$g/$_")
2070     + or die ("can't open /etc/dansguardian/lists/$g/$_ to read. ");
2071     +
2072     + $all .= "<br>\n";
2073     + $all .= "<b> /etc/dansguardian/lists/$g/$_ </b><br>\n";
2074     +
2075     + while (<INF>)
2076     + {
2077     + # allow for 4 sets
2078     + $_ =~ s/</&lt\;/;
2079     + $_ =~ s/>/&gt\;/;
2080     + $_ =~ s/</&lt\;/;
2081     + $_ =~ s/>/&gt\;/;
2082     + $_ =~ s/</&lt\;/;
2083     + $_ =~ s/>/&gt\;/;
2084     + $_ =~ s/</&lt\;/;
2085     + $_ =~ s/>/&gt\;/;
2086     +
2087     + $all .= "$_<br>\n";
2088     + }
2089     + close INF;
2090     + }
2091     + }
2092     +
2093     + $all .= "<\code>\n";
2094     +
2095     + print $q->end_table;
2096     +
2097     + return "$all";
2098     +}
2099     +
2100     +sub print_common_lists
2101     +{
2102     + my $self = shift;
2103     + my $q = $self->{cgi};
2104     + my $g = $q->param ('g') ||'';
2105     + my $all = ();
2106     +
2107     + if ($g =~ /^(f\d{1})$/)
2108     + {
2109     + $g = $1;
2110     + }
2111     +
2112     + print $q->start_table({-CLASS => "sme-border"}),"\n";
2113     +
2114     + $all .= "<code>\n";
2115     +
2116     + my @files = ('exceptioniplist','bannediplist','contentscanners/exceptionvirusextensionlist',
2117     + 'contentscanners/exceptionvirusmimetypelist','contentscanners/exceptionvirussitelist','contentscanners/exceptionvirusurllist');
2118     +
2119     + foreach (@files)
2120     + {
2121     +
2122     + if ( -e "/etc/dansguardian/lists/$_" )
2123     + {
2124     + open (INF,"/etc/dansguardian/lists/$_")
2125     + or die ("can't open /etc/dansguardian/lists/$_ to read. ");
2126     +
2127     + $all .= "<br>\n";
2128     + $all .= "<b> /etc/dansguardian/lists/$_ </b><br>\n";
2129     +
2130     + while (<INF>)
2131     + {
2132     + # allow for 4 sets
2133     + $_ =~ s/</&lt\;/;
2134     + $_ =~ s/>/&gt\;/;
2135     + $_ =~ s/</&lt\;/;
2136     + $_ =~ s/>/&gt\;/;
2137     + $_ =~ s/</&lt\;/;
2138     + $_ =~ s/>/&gt\;/;
2139     + $_ =~ s/</&lt\;/;
2140     + $_ =~ s/>/&gt\;/;
2141     +
2142     + $all .= "$_<br>\n";
2143     + }
2144     + close INF;
2145     + }
2146     + }
2147     +
2148     + $all .= "<\code>\n";
2149     +
2150     + print $q->end_table;
2151     +
2152     + return "$all";
2153     +}
2154     +
2155     +sub print_phraselist_head
2156     +{
2157     + my $self = shift;
2158     + my $q = $self->{cgi} ||'';
2159     + my $all = ();
2160     +
2161     + print $q->start_table({-CLASS => "sme-border"}),"\n";
2162     +
2163     + $all .= "<code>\n";
2164     +
2165     + system ("/usr/bin/head /etc/dansguardian/lists/phraselists/*/* > /tmp/lists") == 0
2166     + or die ("Error occurred reading phraselists\n");
2167     +
2168     + if ( -e "/tmp/lists" )
2169     + {
2170     + open (INF,"/tmp/lists")
2171     + or die ("can't open /tmp/lists read. ");
2172     +
2173     + $all .= "<br><b> head /etc/dansguardian/lists/phraselists/* </b><br>\n";
2174     +
2175     + while (<INF>)
2176     + {
2177     + # allow for 4 sets
2178     + $_ =~ s/</&lt\;/;
2179     + $_ =~ s/>/&gt\;/;
2180     + $_ =~ s/</&lt\;/;
2181     + $_ =~ s/>/&gt\;/;
2182     + $_ =~ s/</&lt\;/;
2183     + $_ =~ s/>/&gt\;/;
2184     + $_ =~ s/</&lt\;/;
2185     + $_ =~ s/>/&gt\;/;
2186     +
2187     + $all .= "$_<br>\n";
2188     + }
2189     + close INF;
2190     + }
2191     +
2192     + $all .= "<\code>\n";
2193     + print $q->end_table;
2194     + return "$all";
2195     +}
2196     +sub print_blacklist_head
2197     +{
2198     + my $self = shift;
2199     + my $q = $self->{cgi};
2200     + my $all = ();
2201     +
2202     + print $q->start_table({-CLASS => "sme-border"}),"\n";
2203     +
2204     + $all .= "<code>\n";
2205     +
2206     + system ("/usr/bin/head /etc/dansguardian/blacklists/*/* > /tmp/lists") == 0
2207     + or die ("Error occurred reading phraselists\n");
2208     +
2209     + if ( -e "/tmp/lists" )
2210     + {
2211     + open (INF,"/tmp/lists")
2212     + or die ("can't open /tmp/lists read. ");
2213     +
2214     + $all .= "<br><b> head /etc/dansguardian/blacklists/* </b><br>\n";
2215     +
2216     + while (<INF>)
2217     + {
2218     + # allow for 4 sets
2219     + $_ =~ s/</&lt\;/;
2220     + $_ =~ s/>/&gt\;/;
2221     + $_ =~ s/</&lt\;/;
2222     + $_ =~ s/>/&gt\;/;
2223     + $_ =~ s/</&lt\;/;
2224     + $_ =~ s/>/&gt\;/;
2225     + $_ =~ s/</&lt\;/;
2226     + $_ =~ s/>/&gt\;/;
2227     +
2228     + $all .= "$_<br>\n";
2229     + }
2230     + close INF;
2231     + }
2232     +
2233     + $all .= "<\code>\n";
2234     + print $q->end_table;
2235     + return "$all";
2236     +}
2237     +
2238     +sub save_record
2239     +{
2240     + my $self = shift;
2241     + my $q = $self->{cgi};
2242     + my $g = $q->param ('g') ||'';
2243     + my $key = $q->param ('key') ||'';
2244     + my $list = $q->param ('list') ||'';
2245     + my $criterion = $q->param ('criterion');
2246     +
2247     + if ($key eq 'new')
2248     + {
2249     + my $random = int(rand(999999));
2250     + $key = $list.$random;
2251     + $ddb->new_record($key, { type => "$list" });
2252     + }
2253     + $ddb->set_prop($key, 'criterion', $criterion);
2254     +
2255     + return $self->success("SUCCESS_STORED");
2256     +}
2257     +sub delete_record
2258     +{
2259     + my $self = shift;
2260     + my $q = $self->{cgi} ||'';
2261     + my $key = $q->param('key') ||'';
2262     +
2263     + my $rec = $ddb->get($key);
2264     + $rec->delete;
2265     +
2266     + return $self->success("SUCCESS_STORED");
2267     +}
2268     +
2269     +sub print_phraselist_table
2270     +{
2271     + my $self = shift;
2272     + my $q = $self->{cgi};
2273     + my $g = $q->param ('g') ||'';
2274     +
2275     + my $Llist = $self->localise('LIST');
2276     +
2277     + my @lists = $pdb->get_all_by_prop(type => "list");
2278     + my @gnames = '';
2279     + foreach my $g (@lists)
2280     + {
2281     + my $groupname = $g->key();
2282     + push (@gnames, $groupname)
2283     + }
2284     +
2285     + my @installed = ('badwords','googlesearches');
2286     + foreach (@gnames)
2287     + {
2288     + push (@installed, $_)
2289     + if (-e "/etc/dansguardian/lists/phraselists/$_/weighted");
2290     + }
2291     +
2292     + #hide table if you have no rules
2293     + my $installed = @installed || 'no lists';
2294     + if ($installed eq 'no lists')
2295     + {
2296     + return "$self->localise('ERROR');"
2297     + }
2298     + else
2299     + {
2300     +
2301     + print $q->start_table({-CLASS => "sme-border"}),"\n";
2302     +
2303     + print $q->Tr ( esmith::cgi::genSmallCell($q, $Llist,"header"),
2304     + esmith::cgi::genSmallCell($q, '',"header")),"\n";
2305     +
2306     + #checkboxes
2307     + my ($a, $aa) = '';
2308     + foreach (sort @installed)
2309     + {
2310     + $a = $_;
2311     + $aa = $pdb->get_prop($_, $g) || '';
2312     + if ($aa eq 'on') { $aa = "checked"; }
2313     +
2314     + print $q->Tr (esmith::cgi::genSmallCell ($q, $_),
2315     + esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$a\" $aa>")));
2316     + }
2317     + }
2318     +
2319     + print $q->end_table;
2320     +
2321     + return "";
2322     +}
2323     +sub save_phrase
2324     +{
2325     + my $self = shift;
2326     + my $q = $self->{cgi};
2327     + my $g = $q->param ('g') ||'';
2328     +
2329     + my @lists = $pdb->get_all_by_prop(type => "list");
2330     + my @gnames = '';
2331     + foreach my $g (@lists)
2332     + {
2333     + my $groupname = $g->key();
2334     + push (@gnames, $groupname)
2335     + }
2336     +
2337     + my @installed = ();
2338     + foreach (@gnames)
2339     + {
2340     + push (@installed, $_)
2341     + if (-e "/etc/dansguardian/lists/phraselists/$_/weighted");
2342     + }
2343     +
2344     + #skip if you have nothing
2345     + my $installed = @installed || 'no lists';
2346     + unless ($installed eq 'no lists')
2347     + {
2348     + #from checkboxes
2349     + my ($a, $aa) = '';
2350     + foreach (@installed)
2351     + {
2352     + my $a = $_;
2353     + my $aa = $q->param ($a) || '';
2354     + $pdb->set_prop($_, $g, $aa);
2355     + }
2356     + }
2357     +
2358     + return $self->success("SUCCESS_STORED");
2359     +}
2360     +
2361     +
2362     +sub print_blacklist_table
2363     +{
2364     + my $self = shift;
2365     + my $q = $self->{cgi};
2366     + my $g = $q->param ('g') ||'';
2367     +
2368     + my $Llist = $self->localise('LIST');
2369     + my $LWhite = $self->localise('LWhite');
2370     + my $LGrey = $self->localise('Lgrey');
2371     + my $LBlack = $self->localise('LBlack');
2372     +
2373     + my @lists = $bdb->get_all_by_prop(type => "list");
2374     + my @gnames = '';
2375     + foreach my $g (@lists)
2376     + {
2377     + my $groupname = $g->key();
2378     + push (@gnames, $groupname)
2379     + }
2380     +
2381     + my @installed = ();
2382     + foreach (@gnames)
2383     + {
2384     + push (@installed, $_)
2385     + if (-e "/etc/dansguardian/blacklists/$_/domains");
2386     + }
2387     +
2388     + #hide table if you have no rules
2389     + my $installed = @installed || 'no lists';
2390     + if ($installed eq 'no lists')
2391     + {
2392     + return "$self->localise('NO_BLACK');"
2393     + }
2394     + else
2395     + {
2396     + print $q->start_table({-CLASS => "sme-border"}),"\n";
2397     + print $q->Tr (
2398     + esmith::cgi::genSmallCell($q, $Llist,"header"),
2399     + esmith::cgi::genSmallCell($q, $LWhite,"header"),
2400     + esmith::cgi::genSmallCell($q, $LGrey,"header"),
2401     + esmith::cgi::genSmallCell($q, $LBlack,"header")),"\n";
2402     +
2403     + #checkboxes
2404     + my ($a, $b, $c, $aa, $bb, $cc) = '';
2405     + foreach (sort @installed)
2406     + {
2407     + $a = $_.'white';
2408     + $aa = $bdb->get_prop($_, "white$g") || '';
2409     + if ($aa eq 'on') { $aa = "checked"; }
2410     +
2411     + my $b = $_.'grey';
2412     + $bb = $bdb->get_prop($_, "grey$g") || '';
2413     + if ($bb eq 'on') { $bb = "checked"; }
2414     +
2415     + my $c = $_.'black';
2416     + $cc= $bdb->get_prop($_, "black$g") || '';
2417     + if ($cc eq 'on') { $cc = "checked"; }
2418     +
2419     + #todo
2420     + my $listname = $self->localise($_);
2421     +
2422     + print $q->Tr
2423     + (esmith::cgi::genSmallCell ($q, $listname),
2424     + esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$a\" $aa>")),
2425     + esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$b\" $bb>")),
2426     + esmith::cgi::genSmallCell ($q, ("<input type=\"checkbox\" name=\"$c\" $cc>")));
2427     + }
2428     + }
2429     +
2430     + print $q->end_table;
2431     +
2432     + return "";
2433     +}
2434     +sub save_black
2435     +{
2436     + my $self = shift;
2437     + my $q = $self->{cgi};
2438     + my $g = $q->param ('g') ||'';
2439     +
2440     + my @lists = $bdb->get_all_by_prop(type => "list");
2441     + my @gnames = '';
2442     + foreach my $g (@lists)
2443     + {
2444     + my $groupname = $g->key();
2445     + push (@gnames, $groupname)
2446     + }
2447     +
2448     + my @installed = ();
2449     + foreach (@gnames)
2450     + {
2451     + push (@installed, $_)
2452     + if (-e "/etc/dansguardian/blacklists/$_/domains");
2453     + }
2454     +
2455     + #skip if you have nothing
2456     + my $installed = @installed || 'no lists';
2457     + unless ($installed eq 'no lists')
2458     + {
2459     + #from checkboxes
2460     + my ($a, $b, $c, $aa, $bb, $cc,) = '';
2461     + foreach (@installed)
2462     + {
2463     + my $a = $_.'white';
2464     + my $aa = $q->param ("$a") || '';
2465     + $bdb->set_prop($_, "white$g", $aa);
2466     +
2467     + my $b = $_.'grey';
2468     + my $bb = $q->param ("$b") || '';
2469     + $bdb->set_prop($_, "grey$g", $bb);
2470     +
2471     + my $c = $_.'black';
2472     + my $cc = $q->param ("$c") || '';
2473     + $bdb->set_prop($_, "black$g", $cc);
2474     + }
2475     + }
2476     +
2477     + return $self->success("SUCCESS_STORED");
2478     +}
2479     +
2480     +1;
admin@koozali.org
 ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed