require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
-my $advproxyversion = `cat ${General::swroot}/proxy/advanced/version`;
-my $sysupdflagfile = "${General::swroot}/proxy/advanced/.up2date";
-
my %proxysettings=();
my %netsettings=();
my %filtersettings=();
@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'};
&Header::closebox();
}
-if (($advproxyversion lt $latest) && (-e $sysupdflagfile)) { unlink($sysupdflagfile); }
-
-if (!-e $sysupdflagfile) {
- &Header::openbox('100%', 'left', $Lang::tr{'advproxy update notification'});
- print "<table width='100%' cellpadding='5'>\n";
- print "<tr>\n";
- print "<td bgcolor='$hintcolour' class='base'>$Lang::tr{'advproxy update information'}</td>";
- print "</tr>\n";
- print "</table>\n";
- &Header::closebox();
-}
-
# ===================================================================
# Main settings
# ===================================================================
</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%'>
<font class='base'>$Lang::tr{'this field may be blank'}</font>
</td>
<td align='right'>
- <sup><small><a href='http://www.advproxy.net' target='_blank'>Advanced Proxy $advproxyversion</a></small></sup>
+
</td>
</tr>
</table>
if ($proxysettings{'ENABLE_FILTER'} eq 'on')
{
print FILE <<END
-redirect_program /usr/sbin/squidGuard
+redirect_program /usr/bin/squidGuard
redirect_children $filtersettings{'CHILDREN'}
END