@useragentlist = sort { reverse(substr(reverse(substr($a,index($a,',')+1)),index(reverse(substr($a,index($a,','))),',')+1)) cmp reverse(substr(reverse(substr($b,index($b,',')+1)),index(reverse(substr($b,index($b,','))),',')+1))} grep !/(^$)|(^\s*#)/,<FILE>;
close(FILE);
+my %filtersettings=();
+$filtersettings{'CHILDREN'} = '5';
+if (-e "${General::swroot}/urlfilter/settings") {
+ &General::readhash("${General::swroot}/urlfilter/settings", \%filtersettings);
+}
+
&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
&Header::showhttpheaders();
+$proxysettings{'ENABLE_FILTER'} = 'off';
$proxysettings{'ACTION'} = '';
$proxysettings{'VALID'} = '';
$errormessage = $Lang::tr{'invalid maximum outgoing size'};
goto ERROR;
}
+ if ($proxysettings{'ENABLE_FILTER'} eq 'on')
+ {
+ print FILE <<END
+redirect_program /usr/bin/squidGuard
+redirect_children $filtersettings{'CHILDREN'}
+
+END
+ ;
+ }
if (!($proxysettings{'TIME_TO_HOUR'}.$proxysettings{'TIME_TO_MINUTE'} gt $proxysettings{'TIME_FROM_HOUR'}.$proxysettings{'TIME_FROM_MINUTE'}))
{
$errormessage = $Lang::tr{'advproxy errmsg time restriction'};
</select>
</td>
</tr>
+<tr>
+ <td colspan='4'><hr /><b>$Lang::tr{'urlfilter url filter'}</b></td>
+</tr>
+<tr>
+ <td width='25%' class='base'>$Lang::tr{'urlfilter enabled'}</td>
+ <td><input type='checkbox' name='ENABLE_FILTER' $checked{'ENABLE_FILTER'}{'on'} /></td>
+ <td colspan='2'> </td>
+</tr>
</table>
<hr size='1'>
<table width='100%'>
END
;
-if ($urlfilter_addon) {
- print <<END
-<table width='100%'>
-<tr>
- <td colspan='4'><b>$Lang::tr{'advproxy url filter'}</b></td>
-</tr>
-<tr>
- <td class='base' width='25%'>$Lang::tr{'advproxy enabled'}:</td>
- <td><input type='checkbox' name='ENABLE_FILTER' $checked{'ENABLE_FILTER'}{'on'} /></td>
- <td> </td>
- <td> </td>
-</tr>
-</table>
-<hr size='1'>
-END
-; }
-
if (($updacclrtr_addon) && (!($urlfilter_addon))) {
print <<END
<table width='100%'>
if ($proxysettings{'ENABLE_FILTER'} eq 'on')
{
print FILE <<END
-redirect_program /usr/sbin/squidGuard
+redirect_program /usr/bin/squidGuard
redirect_children $filtersettings{'CHILDREN'}
END