mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
Geändert:
* Leider wurden die CGIs 3x hintereinander in die Datei geschrieben. :( git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@186 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
ms
@@ -449,905 +449,3 @@ sub oldernewer
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
# SmoothWall CGIs
|
||||
#
|
||||
# This code is distributed under the terms of the GPL
|
||||
#
|
||||
# (c) The SmoothWall Team
|
||||
#
|
||||
# $Id: urlfilter.dat,v 1.4 2005/05/15 00:00:00 marco Exp $
|
||||
#
|
||||
|
||||
use strict;
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
#use warnings;
|
||||
#use CGI::Carp 'fatalsToBrowser';
|
||||
|
||||
use POSIX();
|
||||
|
||||
require '/var/ipfire/general-functions.pl';
|
||||
require "${General::swroot}/lang.pl";
|
||||
require "${General::swroot}/header.pl";
|
||||
|
||||
my $dbdir = "${General::swroot}/urlfilter/blacklists";
|
||||
my $logdir = "/var/log/squidGuard";
|
||||
|
||||
my %cgiparams=();
|
||||
my %logsettings=();
|
||||
my %filtersettings=();
|
||||
my %selected=();
|
||||
|
||||
my $errormessage='';
|
||||
|
||||
my @log=();
|
||||
my $logarch='';
|
||||
my $date='';
|
||||
my $time='';
|
||||
my $pid='';
|
||||
my @loginfo=();
|
||||
my @ip=();
|
||||
my @category=();
|
||||
my $dsturl='';
|
||||
my $site='';
|
||||
my $attr1='';
|
||||
my $attr2='';
|
||||
|
||||
my $start=0;
|
||||
my $prev=0;
|
||||
my $next=0;
|
||||
my $lines=0;
|
||||
my @slice=();
|
||||
|
||||
my @then=();
|
||||
my @temp=();
|
||||
my @temp_then=();
|
||||
my @temp_now=();
|
||||
my $lastleap='';
|
||||
|
||||
my $day='';
|
||||
my $daystr='';
|
||||
my $month='';
|
||||
my $monthstr='';
|
||||
my $longmonthstr='';
|
||||
my $year='';
|
||||
|
||||
my $logday='';
|
||||
my $logmonth='';
|
||||
my $logyear='';
|
||||
|
||||
my @shortmonths = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug',
|
||||
'Sep', 'Oct', 'Nov', 'Dec' );
|
||||
my @longmonths = ( $Lang::tr{'january'}, $Lang::tr{'february'}, $Lang::tr{'march'},
|
||||
$Lang::tr{'april'}, $Lang::tr{'may'}, $Lang::tr{'june'}, $Lang::tr{'july'}, $Lang::tr{'august'},
|
||||
$Lang::tr{'september'}, $Lang::tr{'october'}, $Lang::tr{'november'},
|
||||
$Lang::tr{'december'} );
|
||||
|
||||
my @now = localtime(time);
|
||||
my $doy = $now[7];
|
||||
my $tdoy = $now[7];
|
||||
my $year = $now[5]+1900;
|
||||
|
||||
$cgiparams{'DAY'} = $now[3];
|
||||
$cgiparams{'MONTH'} = $now[4];
|
||||
$cgiparams{'LOGTYPE'} = 'urlfilter';
|
||||
|
||||
&Header::getcgihash(\%cgiparams);
|
||||
$logsettings{'LOGVIEW_REVERSE'} = 'off';
|
||||
&General::readhash("${General::swroot}/logging/settings", \%logsettings);
|
||||
if (-e "${General::swroot}/urlfilter/settings")
|
||||
{
|
||||
&General::readhash("${General::swroot}/urlfilter/settings", \%filtersettings);
|
||||
}
|
||||
|
||||
$now[4] = $cgiparams{'MONTH'}+1;
|
||||
if($now[4] < 10) {
|
||||
$now[4] = "0$now[4]"; }
|
||||
|
||||
$start = -1;
|
||||
|
||||
if ($ENV{'QUERY_STRING'} && $cgiparams{'ACTION'} ne $Lang::tr{'update'})
|
||||
{
|
||||
@temp = split(',',$ ENV{'QUERY_STRING'});
|
||||
$start = $temp[0];
|
||||
$cgiparams{'MONTH'} = $temp[1];
|
||||
$cgiparams{'DAY'} = $temp[2];
|
||||
$cgiparams{'LOGTYPE'} = $temp[3];
|
||||
}
|
||||
|
||||
if (!($cgiparams{'MONTH'} =~ /^(0|1|2|3|4|5|6|7|8|9|10|11)$/) ||
|
||||
!($cgiparams{'DAY'} =~ /^(1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31)$/))
|
||||
{
|
||||
$cgiparams{'DAY'} = $now[3];
|
||||
$cgiparams{'MONTH'} = $now[4];
|
||||
}
|
||||
elsif($cgiparams{'ACTION'} eq '>>')
|
||||
{
|
||||
@temp_now = localtime(time);
|
||||
$temp_now[4] = $cgiparams{'MONTH'};
|
||||
$temp_now[3] = $cgiparams{'DAY'};
|
||||
@temp_then = localtime(POSIX::mktime(@temp_now) + 86400);
|
||||
## Retrieve the same time on the next day -
|
||||
## 86400 seconds in a day
|
||||
$cgiparams{'MONTH'} = $temp_then[4];
|
||||
$cgiparams{'DAY'} = $temp_then[3];
|
||||
}
|
||||
elsif($cgiparams{'ACTION'} eq '<<')
|
||||
{
|
||||
@temp_now = localtime(time);
|
||||
$temp_now[4] = $cgiparams{'MONTH'};
|
||||
$temp_now[3] = $cgiparams{'DAY'};
|
||||
@temp_then = localtime(POSIX::mktime(@temp_now) - 86400);
|
||||
## Retrieve the same time on the previous day -
|
||||
## 86400 seconds in a day
|
||||
$cgiparams{'MONTH'} = $temp_then[4];
|
||||
$cgiparams{'DAY'} = $temp_then[3];
|
||||
}
|
||||
|
||||
$monthstr = $shortmonths[$cgiparams{'MONTH'}];
|
||||
$longmonthstr = $longmonths[$cgiparams{'MONTH'}];
|
||||
|
||||
if (($cgiparams{'DAY'} ne $now[3]) || ($cgiparams{'MONTH'} ne $now[4]))
|
||||
{
|
||||
@then = ();
|
||||
if ( ( $cgiparams{'MONTH'} eq $now[4]) && ($cgiparams{'DAY'} > $now[3]) ||
|
||||
( $cgiparams{'MONTH'} > $now[4] ) ) {
|
||||
@then = localtime(POSIX::mktime( 0, 0, 0, $cgiparams{'DAY'}, $cgiparams{'MONTH'}, $year - 1901 ));
|
||||
} else {
|
||||
@then = localtime(POSIX::mktime( 0, 0, 0, $cgiparams{'DAY'}, $cgiparams{'MONTH'}, $year - 1900 ));
|
||||
}
|
||||
$tdoy = $then[7];
|
||||
$lastleap=($year-1)%4;
|
||||
if ($tdoy>$doy) {
|
||||
if ($lastleap == 0 && $tdoy < 60) {
|
||||
$doy=$tdoy+366;
|
||||
} else {
|
||||
$doy=$doy+365;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$day = $cgiparams{'DAY'};
|
||||
if ($day <= 9) {
|
||||
$daystr = " $day";
|
||||
} else {
|
||||
$daystr = $day;
|
||||
}
|
||||
if ($day < 10) {
|
||||
$day = "0$day";
|
||||
}
|
||||
|
||||
&processevent;
|
||||
|
||||
if ($cgiparams{'ACTION'} eq $Lang::tr{'export'})
|
||||
{
|
||||
print "Content-type: text/plain\n\n";
|
||||
print "IPCop URL filter log\r\n";
|
||||
print "Section: $cgiparams{'LOGTYPE'}\r\n";
|
||||
print "Date: $daystr $longmonthstr\r\n";
|
||||
print "\r\n";
|
||||
|
||||
if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @log = reverse @log; }
|
||||
|
||||
foreach (@log)
|
||||
{
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
@ip = split(/\//,$loginfo[2]);
|
||||
@category = split(/\//,$loginfo[0]);
|
||||
$dsturl = $loginfo[1];
|
||||
$loginfo[3] =~ s/\%5c/\\/;
|
||||
print "$date ";
|
||||
print "$time ";
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard')
|
||||
{
|
||||
print "$pid ";
|
||||
print "@loginfo";
|
||||
} else {
|
||||
print "$category[1] ";
|
||||
print "$ip[0] ";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { print "$loginfo[3] "; }
|
||||
print "$dsturl";
|
||||
print "\n";
|
||||
}
|
||||
}
|
||||
|
||||
exit;
|
||||
}
|
||||
|
||||
&Header::showhttpheaders();
|
||||
|
||||
&Header::openpage($Lang::tr{'urlfilter log viewer'}, 1, '');
|
||||
|
||||
&Header::openbigbox('100%', 'left', '', $errormessage);
|
||||
|
||||
if ($errormessage) {
|
||||
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
||||
print "<font class='base'>$errormessage </font>\n";
|
||||
&Header::closebox();
|
||||
}
|
||||
|
||||
&Header::openbox('100%', 'left', "$Lang::tr{'settings'}:");
|
||||
|
||||
$selected{'LOGTYPE'}{$cgiparams{'LOGTYPE'}} = "selected='selected'";
|
||||
|
||||
print <<END
|
||||
<form method='post' action="$ENV{'SCRIPT_NAME'}">
|
||||
<table width='100%'>
|
||||
<tr>
|
||||
<td width='8%' class='base'>$Lang::tr{'section'}</td>
|
||||
<td width='15%' class='base'>
|
||||
<select name='LOGTYPE' size='1'>
|
||||
<option value='urlfilter' $selected{'LOGTYPE'}{'urlfilter'} = "selected='selected'">$Lang::tr{'urlfilter url filter'}</option>
|
||||
<option value='squidGuard' $selected{'LOGTYPE'}{'squidGuard'} = "selected='selected'">squidGuard</option>
|
||||
</select>
|
||||
</td>
|
||||
|
||||
<td width='8%' class='base'>$Lang::tr{'month'}:</td>
|
||||
<td width='15%'>
|
||||
<select name='MONTH'>
|
||||
END
|
||||
;
|
||||
for ($month = 0; $month < 12; $month++)
|
||||
{
|
||||
print "\t<option ";
|
||||
if ($month == $cgiparams{'MONTH'}) {
|
||||
print 'selected="selected" '; }
|
||||
print "value='$month'>$longmonths[$month]</option>\n";
|
||||
}
|
||||
print <<END
|
||||
</select>
|
||||
</td>
|
||||
<td width='8%' class='base'>$Lang::tr{'day'}:</td>
|
||||
<td width='15%'>
|
||||
<select name='DAY'>
|
||||
END
|
||||
;
|
||||
for ($day = 1; $day <= 31; $day++)
|
||||
{
|
||||
print "\t<option ";
|
||||
if ($day == $cgiparams{'DAY'}) {
|
||||
print 'selected="selected" '; }
|
||||
print "value='$day'>$day</option>\n";
|
||||
}
|
||||
print <<END
|
||||
</select>
|
||||
</td>
|
||||
<td width='5%' align='center'><input type='submit' name='ACTION' title='$Lang::tr{'day before'}' value='<<' /></td>
|
||||
<td width='5%' align='center'><input type='submit' name='ACTION' title='$Lang::tr{'day after'}' value='>>' /></td>
|
||||
<td width='10%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'update'}' /></td>
|
||||
<td width='10%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'export'}' /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
END
|
||||
;
|
||||
|
||||
&Header::closebox();
|
||||
|
||||
&Header::openbox('100%', 'left', $Lang::tr{'log'});
|
||||
|
||||
$lines = @log;
|
||||
|
||||
if ($start == -1) { $start = $lines - $Header::viewsize; }
|
||||
if ($start >= $lines - $Header::viewsize) { $start = $lines - $Header::viewsize; };
|
||||
if ($start < 0) { $start = 0; }
|
||||
|
||||
$prev = $start - $Header::viewsize;
|
||||
$next = $start + $Header::viewsize;
|
||||
|
||||
if ($prev < 0) { $prev = 0; }
|
||||
if ($next >= $lines) { $next = -1 }
|
||||
if ($start == 0) { $prev = -1; }
|
||||
|
||||
if ($cgiparams{'LOGTYPE'} eq 'urlfilter')
|
||||
{
|
||||
print "<b>$Lang::tr{'urlfilter log summary'} $longmonthstr $daystr: $lines</b><p>\n";
|
||||
}
|
||||
|
||||
@slice = splice(@log, $start, $Header::viewsize);
|
||||
|
||||
if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @slice = reverse @slice; }
|
||||
|
||||
if ($lines)
|
||||
{
|
||||
|
||||
$lines = 0;
|
||||
|
||||
print "<table width='100%'>\n";
|
||||
unless ($cgiparams{'LOGTYPE'} eq 'squidGuard')
|
||||
{
|
||||
print "<tr>\n";
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter time'}</b></td>\n";
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter category'}</b></td>\n";
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter client'}</b></td>\n";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { print "<td align='center'><b>$Lang::tr{'urlfilter username'}</b></td>\n"; }
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter dst'}</b></td>\n";
|
||||
print "</tr>\n";
|
||||
}
|
||||
|
||||
foreach (@slice)
|
||||
{
|
||||
undef $attr1; undef $attr2;
|
||||
$lines++;
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
@ip = split(/\//,$loginfo[2]);
|
||||
@category = split(/\//,$loginfo[0]);
|
||||
$dsturl = $loginfo[1];
|
||||
$loginfo[3] =~ s/\%5c/\\/;
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard') {
|
||||
if (@loginfo[0] =~ /squidGuard/) { $attr1 .= "<b>"; $attr2 .= "</b>"; }
|
||||
if (@loginfo[1] =~ /ready/) { $attr1 .= "<b><font color='$Header::colourgreen'>"; $attr2 .= "</font></b>"; }
|
||||
if (@loginfo[2] =~ /emergency/) { $attr1 .= "<b><font color='$Header::colourerr'>"; $attr2 .= "</font></b>"; }
|
||||
print "<tr>\n";
|
||||
} else {
|
||||
if ($lines % 2) { print "<tr bgcolor='$Header::table1colour'>\n"; } else { print "<tr bgcolor='$Header::table2colour'>\n"; }
|
||||
}
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard') {
|
||||
print "<td nowrap>$time $pid $attr1@loginfo$attr2</td>\n";
|
||||
} else {
|
||||
print "<td width='10%' align='center' nowrap>$time</td>\n";
|
||||
print "<td width='11%' align='center' nowrap>$category[1]</td>\n";
|
||||
print "<td width='15%' align='center' nowrap>$ip[0]</td>\n";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on')
|
||||
{
|
||||
print "<td width='12%' align='center' nowrap>$loginfo[3]</td>\n";
|
||||
$site = substr($dsturl,0,55);
|
||||
if (length($dsturl) > 55) { $site .= "..."; }
|
||||
} else {
|
||||
$site = substr($dsturl,0,69);
|
||||
if (length($dsturl) > 69) { $site .= "..."; }
|
||||
}
|
||||
#print "<td>$site</td>\n";
|
||||
print "<td><a href='$dsturl' title='$dsturl' target='_blank'>$site</a></td>\n";
|
||||
}
|
||||
print "</tr>\n";
|
||||
}
|
||||
|
||||
print "</table><br>\n";
|
||||
|
||||
}
|
||||
|
||||
&oldernewer();
|
||||
|
||||
&Header::closebox();
|
||||
|
||||
&Header::closebigbox();
|
||||
|
||||
&Header::closepage();
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
|
||||
sub processevent
|
||||
{
|
||||
my $filestr='';
|
||||
|
||||
undef @log;
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard')
|
||||
{
|
||||
$filestr = "$logdir/squidGuard.log";
|
||||
foreach $logarch (<$filestr.*.gz>)
|
||||
{
|
||||
open (LOG,"gzip -dc $logarch |");
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
}
|
||||
open (LOG,$filestr);
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
} else {
|
||||
foreach $logarch (<$logdir/*.gz>)
|
||||
{
|
||||
if ($logarch !~ /squidGuard\.log/) {
|
||||
open (LOG,"gzip -dc $logarch |");
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
}
|
||||
}
|
||||
foreach $filestr (<$logdir/*.log>)
|
||||
{
|
||||
if ($filestr !~ /squidGuard\.log/) {
|
||||
open (LOG,$filestr);
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
}
|
||||
}
|
||||
@log = sort { substr($a,11,8) cmp substr($b,11,8) } @log;
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
|
||||
sub oldernewer
|
||||
{
|
||||
print "<table width='100%'>";
|
||||
print "<tr>";
|
||||
|
||||
print "<td align='center' width='50%'>";
|
||||
if ($prev != -1) {
|
||||
print "<a href='$ENV{'SCRIPT_NAME'}?$prev,$cgiparams{'MONTH'},$cgiparams{'DAY'},$cgiparams{'LOGTYPE'}'>$Lang::tr{'older'}</a>"; }
|
||||
else {
|
||||
print "$Lang::tr{'older'}"; }
|
||||
print "</td>\n";
|
||||
|
||||
print "<td align='center' width='50%'>";
|
||||
if ($next != -1) {
|
||||
print "<a href='$ENV{'SCRIPT_NAME'}?$next,$cgiparams{'MONTH'},$cgiparams{'DAY'},$cgiparams{'LOGTYPE'}'>$Lang::tr{'newer'}</a>"; }
|
||||
else {
|
||||
print "$Lang::tr{'newer'}"; }
|
||||
print "</td>\n";
|
||||
|
||||
print "</tr>";
|
||||
print "</table>";
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
# SmoothWall CGIs
|
||||
#
|
||||
# This code is distributed under the terms of the GPL
|
||||
#
|
||||
# (c) The SmoothWall Team
|
||||
#
|
||||
# $Id: urlfilter.dat,v 1.4 2005/05/15 00:00:00 marco Exp $
|
||||
#
|
||||
|
||||
use strict;
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
#use warnings;
|
||||
#use CGI::Carp 'fatalsToBrowser';
|
||||
|
||||
use POSIX();
|
||||
|
||||
require '/var/ipfire/general-functions.pl';
|
||||
require "${General::swroot}/lang.pl";
|
||||
require "${General::swroot}/header.pl";
|
||||
|
||||
my $dbdir = "${General::swroot}/urlfilter/blacklists";
|
||||
my $logdir = "/var/log/squidGuard";
|
||||
|
||||
my %cgiparams=();
|
||||
my %logsettings=();
|
||||
my %filtersettings=();
|
||||
my %selected=();
|
||||
|
||||
my $errormessage='';
|
||||
|
||||
my @log=();
|
||||
my $logarch='';
|
||||
my $date='';
|
||||
my $time='';
|
||||
my $pid='';
|
||||
my @loginfo=();
|
||||
my @ip=();
|
||||
my @category=();
|
||||
my $dsturl='';
|
||||
my $site='';
|
||||
my $attr1='';
|
||||
my $attr2='';
|
||||
|
||||
my $start=0;
|
||||
my $prev=0;
|
||||
my $next=0;
|
||||
my $lines=0;
|
||||
my @slice=();
|
||||
|
||||
my @then=();
|
||||
my @temp=();
|
||||
my @temp_then=();
|
||||
my @temp_now=();
|
||||
my $lastleap='';
|
||||
|
||||
my $day='';
|
||||
my $daystr='';
|
||||
my $month='';
|
||||
my $monthstr='';
|
||||
my $longmonthstr='';
|
||||
my $year='';
|
||||
|
||||
my $logday='';
|
||||
my $logmonth='';
|
||||
my $logyear='';
|
||||
|
||||
my @shortmonths = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug',
|
||||
'Sep', 'Oct', 'Nov', 'Dec' );
|
||||
my @longmonths = ( $Lang::tr{'january'}, $Lang::tr{'february'}, $Lang::tr{'march'},
|
||||
$Lang::tr{'april'}, $Lang::tr{'may'}, $Lang::tr{'june'}, $Lang::tr{'july'}, $Lang::tr{'august'},
|
||||
$Lang::tr{'september'}, $Lang::tr{'october'}, $Lang::tr{'november'},
|
||||
$Lang::tr{'december'} );
|
||||
|
||||
my @now = localtime(time);
|
||||
my $doy = $now[7];
|
||||
my $tdoy = $now[7];
|
||||
my $year = $now[5]+1900;
|
||||
|
||||
$cgiparams{'DAY'} = $now[3];
|
||||
$cgiparams{'MONTH'} = $now[4];
|
||||
$cgiparams{'LOGTYPE'} = 'urlfilter';
|
||||
|
||||
&Header::getcgihash(\%cgiparams);
|
||||
$logsettings{'LOGVIEW_REVERSE'} = 'off';
|
||||
&General::readhash("${General::swroot}/logging/settings", \%logsettings);
|
||||
if (-e "${General::swroot}/urlfilter/settings")
|
||||
{
|
||||
&General::readhash("${General::swroot}/urlfilter/settings", \%filtersettings);
|
||||
}
|
||||
|
||||
$now[4] = $cgiparams{'MONTH'}+1;
|
||||
if($now[4] < 10) {
|
||||
$now[4] = "0$now[4]"; }
|
||||
|
||||
$start = -1;
|
||||
|
||||
if ($ENV{'QUERY_STRING'} && $cgiparams{'ACTION'} ne $Lang::tr{'update'})
|
||||
{
|
||||
@temp = split(',',$ ENV{'QUERY_STRING'});
|
||||
$start = $temp[0];
|
||||
$cgiparams{'MONTH'} = $temp[1];
|
||||
$cgiparams{'DAY'} = $temp[2];
|
||||
$cgiparams{'LOGTYPE'} = $temp[3];
|
||||
}
|
||||
|
||||
if (!($cgiparams{'MONTH'} =~ /^(0|1|2|3|4|5|6|7|8|9|10|11)$/) ||
|
||||
!($cgiparams{'DAY'} =~ /^(1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31)$/))
|
||||
{
|
||||
$cgiparams{'DAY'} = $now[3];
|
||||
$cgiparams{'MONTH'} = $now[4];
|
||||
}
|
||||
elsif($cgiparams{'ACTION'} eq '>>')
|
||||
{
|
||||
@temp_now = localtime(time);
|
||||
$temp_now[4] = $cgiparams{'MONTH'};
|
||||
$temp_now[3] = $cgiparams{'DAY'};
|
||||
@temp_then = localtime(POSIX::mktime(@temp_now) + 86400);
|
||||
## Retrieve the same time on the next day -
|
||||
## 86400 seconds in a day
|
||||
$cgiparams{'MONTH'} = $temp_then[4];
|
||||
$cgiparams{'DAY'} = $temp_then[3];
|
||||
}
|
||||
elsif($cgiparams{'ACTION'} eq '<<')
|
||||
{
|
||||
@temp_now = localtime(time);
|
||||
$temp_now[4] = $cgiparams{'MONTH'};
|
||||
$temp_now[3] = $cgiparams{'DAY'};
|
||||
@temp_then = localtime(POSIX::mktime(@temp_now) - 86400);
|
||||
## Retrieve the same time on the previous day -
|
||||
## 86400 seconds in a day
|
||||
$cgiparams{'MONTH'} = $temp_then[4];
|
||||
$cgiparams{'DAY'} = $temp_then[3];
|
||||
}
|
||||
|
||||
$monthstr = $shortmonths[$cgiparams{'MONTH'}];
|
||||
$longmonthstr = $longmonths[$cgiparams{'MONTH'}];
|
||||
|
||||
if (($cgiparams{'DAY'} ne $now[3]) || ($cgiparams{'MONTH'} ne $now[4]))
|
||||
{
|
||||
@then = ();
|
||||
if ( ( $cgiparams{'MONTH'} eq $now[4]) && ($cgiparams{'DAY'} > $now[3]) ||
|
||||
( $cgiparams{'MONTH'} > $now[4] ) ) {
|
||||
@then = localtime(POSIX::mktime( 0, 0, 0, $cgiparams{'DAY'}, $cgiparams{'MONTH'}, $year - 1901 ));
|
||||
} else {
|
||||
@then = localtime(POSIX::mktime( 0, 0, 0, $cgiparams{'DAY'}, $cgiparams{'MONTH'}, $year - 1900 ));
|
||||
}
|
||||
$tdoy = $then[7];
|
||||
$lastleap=($year-1)%4;
|
||||
if ($tdoy>$doy) {
|
||||
if ($lastleap == 0 && $tdoy < 60) {
|
||||
$doy=$tdoy+366;
|
||||
} else {
|
||||
$doy=$doy+365;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$day = $cgiparams{'DAY'};
|
||||
if ($day <= 9) {
|
||||
$daystr = " $day";
|
||||
} else {
|
||||
$daystr = $day;
|
||||
}
|
||||
if ($day < 10) {
|
||||
$day = "0$day";
|
||||
}
|
||||
|
||||
&processevent;
|
||||
|
||||
if ($cgiparams{'ACTION'} eq $Lang::tr{'export'})
|
||||
{
|
||||
print "Content-type: text/plain\n\n";
|
||||
print "IPCop URL filter log\r\n";
|
||||
print "Section: $cgiparams{'LOGTYPE'}\r\n";
|
||||
print "Date: $daystr $longmonthstr\r\n";
|
||||
print "\r\n";
|
||||
|
||||
if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @log = reverse @log; }
|
||||
|
||||
foreach (@log)
|
||||
{
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
@ip = split(/\//,$loginfo[2]);
|
||||
@category = split(/\//,$loginfo[0]);
|
||||
$dsturl = $loginfo[1];
|
||||
$loginfo[3] =~ s/\%5c/\\/;
|
||||
print "$date ";
|
||||
print "$time ";
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard')
|
||||
{
|
||||
print "$pid ";
|
||||
print "@loginfo";
|
||||
} else {
|
||||
print "$category[1] ";
|
||||
print "$ip[0] ";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { print "$loginfo[3] "; }
|
||||
print "$dsturl";
|
||||
print "\n";
|
||||
}
|
||||
}
|
||||
|
||||
exit;
|
||||
}
|
||||
|
||||
&Header::showhttpheaders();
|
||||
|
||||
&Header::openpage($Lang::tr{'urlfilter log viewer'}, 1, '');
|
||||
|
||||
&Header::openbigbox('100%', 'left', '', $errormessage);
|
||||
|
||||
if ($errormessage) {
|
||||
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
||||
print "<font class='base'>$errormessage </font>\n";
|
||||
&Header::closebox();
|
||||
}
|
||||
|
||||
&Header::openbox('100%', 'left', "$Lang::tr{'settings'}:");
|
||||
|
||||
$selected{'LOGTYPE'}{$cgiparams{'LOGTYPE'}} = "selected='selected'";
|
||||
|
||||
print <<END
|
||||
<form method='post' action="$ENV{'SCRIPT_NAME'}">
|
||||
<table width='100%'>
|
||||
<tr>
|
||||
<td width='8%' class='base'>$Lang::tr{'section'}</td>
|
||||
<td width='15%' class='base'>
|
||||
<select name='LOGTYPE' size='1'>
|
||||
<option value='urlfilter' $selected{'LOGTYPE'}{'urlfilter'} = "selected='selected'">$Lang::tr{'urlfilter url filter'}</option>
|
||||
<option value='squidGuard' $selected{'LOGTYPE'}{'squidGuard'} = "selected='selected'">squidGuard</option>
|
||||
</select>
|
||||
</td>
|
||||
|
||||
<td width='8%' class='base'>$Lang::tr{'month'}:</td>
|
||||
<td width='15%'>
|
||||
<select name='MONTH'>
|
||||
END
|
||||
;
|
||||
for ($month = 0; $month < 12; $month++)
|
||||
{
|
||||
print "\t<option ";
|
||||
if ($month == $cgiparams{'MONTH'}) {
|
||||
print 'selected="selected" '; }
|
||||
print "value='$month'>$longmonths[$month]</option>\n";
|
||||
}
|
||||
print <<END
|
||||
</select>
|
||||
</td>
|
||||
<td width='8%' class='base'>$Lang::tr{'day'}:</td>
|
||||
<td width='15%'>
|
||||
<select name='DAY'>
|
||||
END
|
||||
;
|
||||
for ($day = 1; $day <= 31; $day++)
|
||||
{
|
||||
print "\t<option ";
|
||||
if ($day == $cgiparams{'DAY'}) {
|
||||
print 'selected="selected" '; }
|
||||
print "value='$day'>$day</option>\n";
|
||||
}
|
||||
print <<END
|
||||
</select>
|
||||
</td>
|
||||
<td width='5%' align='center'><input type='submit' name='ACTION' title='$Lang::tr{'day before'}' value='<<' /></td>
|
||||
<td width='5%' align='center'><input type='submit' name='ACTION' title='$Lang::tr{'day after'}' value='>>' /></td>
|
||||
<td width='10%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'update'}' /></td>
|
||||
<td width='10%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'export'}' /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
END
|
||||
;
|
||||
|
||||
&Header::closebox();
|
||||
|
||||
&Header::openbox('100%', 'left', $Lang::tr{'log'});
|
||||
|
||||
$lines = @log;
|
||||
|
||||
if ($start == -1) { $start = $lines - $Header::viewsize; }
|
||||
if ($start >= $lines - $Header::viewsize) { $start = $lines - $Header::viewsize; };
|
||||
if ($start < 0) { $start = 0; }
|
||||
|
||||
$prev = $start - $Header::viewsize;
|
||||
$next = $start + $Header::viewsize;
|
||||
|
||||
if ($prev < 0) { $prev = 0; }
|
||||
if ($next >= $lines) { $next = -1 }
|
||||
if ($start == 0) { $prev = -1; }
|
||||
|
||||
if ($cgiparams{'LOGTYPE'} eq 'urlfilter')
|
||||
{
|
||||
print "<b>$Lang::tr{'urlfilter log summary'} $longmonthstr $daystr: $lines</b><p>\n";
|
||||
}
|
||||
|
||||
@slice = splice(@log, $start, $Header::viewsize);
|
||||
|
||||
if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @slice = reverse @slice; }
|
||||
|
||||
if ($lines)
|
||||
{
|
||||
|
||||
$lines = 0;
|
||||
|
||||
print "<table width='100%'>\n";
|
||||
unless ($cgiparams{'LOGTYPE'} eq 'squidGuard')
|
||||
{
|
||||
print "<tr>\n";
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter time'}</b></td>\n";
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter category'}</b></td>\n";
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter client'}</b></td>\n";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { print "<td align='center'><b>$Lang::tr{'urlfilter username'}</b></td>\n"; }
|
||||
print "<td align='center'><b>$Lang::tr{'urlfilter dst'}</b></td>\n";
|
||||
print "</tr>\n";
|
||||
}
|
||||
|
||||
foreach (@slice)
|
||||
{
|
||||
undef $attr1; undef $attr2;
|
||||
$lines++;
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
@ip = split(/\//,$loginfo[2]);
|
||||
@category = split(/\//,$loginfo[0]);
|
||||
$dsturl = $loginfo[1];
|
||||
$loginfo[3] =~ s/\%5c/\\/;
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard') {
|
||||
if (@loginfo[0] =~ /squidGuard/) { $attr1 .= "<b>"; $attr2 .= "</b>"; }
|
||||
if (@loginfo[1] =~ /ready/) { $attr1 .= "<b><font color='$Header::colourgreen'>"; $attr2 .= "</font></b>"; }
|
||||
if (@loginfo[2] =~ /emergency/) { $attr1 .= "<b><font color='$Header::colourerr'>"; $attr2 .= "</font></b>"; }
|
||||
print "<tr>\n";
|
||||
} else {
|
||||
if ($lines % 2) { print "<tr bgcolor='$Header::table1colour'>\n"; } else { print "<tr bgcolor='$Header::table2colour'>\n"; }
|
||||
}
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard') {
|
||||
print "<td nowrap>$time $pid $attr1@loginfo$attr2</td>\n";
|
||||
} else {
|
||||
print "<td width='10%' align='center' nowrap>$time</td>\n";
|
||||
print "<td width='11%' align='center' nowrap>$category[1]</td>\n";
|
||||
print "<td width='15%' align='center' nowrap>$ip[0]</td>\n";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on')
|
||||
{
|
||||
print "<td width='12%' align='center' nowrap>$loginfo[3]</td>\n";
|
||||
$site = substr($dsturl,0,55);
|
||||
if (length($dsturl) > 55) { $site .= "..."; }
|
||||
} else {
|
||||
$site = substr($dsturl,0,69);
|
||||
if (length($dsturl) > 69) { $site .= "..."; }
|
||||
}
|
||||
#print "<td>$site</td>\n";
|
||||
print "<td><a href='$dsturl' title='$dsturl' target='_blank'>$site</a></td>\n";
|
||||
}
|
||||
print "</tr>\n";
|
||||
}
|
||||
|
||||
print "</table><br>\n";
|
||||
|
||||
}
|
||||
|
||||
&oldernewer();
|
||||
|
||||
&Header::closebox();
|
||||
|
||||
&Header::closebigbox();
|
||||
|
||||
&Header::closepage();
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
|
||||
sub processevent
|
||||
{
|
||||
my $filestr='';
|
||||
|
||||
undef @log;
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard')
|
||||
{
|
||||
$filestr = "$logdir/squidGuard.log";
|
||||
foreach $logarch (<$filestr.*.gz>)
|
||||
{
|
||||
open (LOG,"gzip -dc $logarch |");
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
}
|
||||
open (LOG,$filestr);
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
} else {
|
||||
foreach $logarch (<$logdir/*.gz>)
|
||||
{
|
||||
if ($logarch !~ /squidGuard\.log/) {
|
||||
open (LOG,"gzip -dc $logarch |");
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
}
|
||||
}
|
||||
foreach $filestr (<$logdir/*.log>)
|
||||
{
|
||||
if ($filestr !~ /squidGuard\.log/) {
|
||||
open (LOG,$filestr);
|
||||
foreach (<LOG>) {
|
||||
($date,$time,$pid,@loginfo) = split(/ /);
|
||||
($logyear,$logmonth,$logday) = split(/-/,$date);
|
||||
if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
|
||||
}
|
||||
close(LOG);
|
||||
}
|
||||
}
|
||||
@log = sort { substr($a,11,8) cmp substr($b,11,8) } @log;
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
|
||||
sub oldernewer
|
||||
{
|
||||
print "<table width='100%'>";
|
||||
print "<tr>";
|
||||
|
||||
print "<td align='center' width='50%'>";
|
||||
if ($prev != -1) {
|
||||
print "<a href='$ENV{'SCRIPT_NAME'}?$prev,$cgiparams{'MONTH'},$cgiparams{'DAY'},$cgiparams{'LOGTYPE'}'>$Lang::tr{'older'}</a>"; }
|
||||
else {
|
||||
print "$Lang::tr{'older'}"; }
|
||||
print "</td>\n";
|
||||
|
||||
print "<td align='center' width='50%'>";
|
||||
if ($next != -1) {
|
||||
print "<a href='$ENV{'SCRIPT_NAME'}?$next,$cgiparams{'MONTH'},$cgiparams{'DAY'},$cgiparams{'LOGTYPE'}'>$Lang::tr{'newer'}</a>"; }
|
||||
else {
|
||||
print "$Lang::tr{'newer'}"; }
|
||||
print "</td>\n";
|
||||
|
||||
print "</tr>";
|
||||
print "</table>";
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
|
||||
@@ -164,335 +164,3 @@ sub readhash
|
||||
close FILE;
|
||||
}
|
||||
}
|
||||
#!/usr/bin/perl
|
||||
|
||||
#
|
||||
# $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $
|
||||
#
|
||||
|
||||
use CGI qw(param);
|
||||
|
||||
$swroot="/var/ipfire";
|
||||
|
||||
my %netsettings;
|
||||
my %filtersettings;
|
||||
|
||||
&readhash("$swroot/ethernet/settings", \%netsettings);
|
||||
&readhash("$swroot/urlfilter/settings", \%filtersettings);
|
||||
|
||||
$category=param("category");
|
||||
$url=param("url");
|
||||
$ip=param("ip");
|
||||
|
||||
if ($filtersettings{'MSG_TEXT_1'} eq '') {
|
||||
$msgtext1 = "A C C E S S D E N I E D";
|
||||
} else { $msgtext1 = $filtersettings{'MSG_TEXT_1'}; }
|
||||
if ($filtersettings{'MSG_TEXT_2'} eq '') {
|
||||
$msgtext2 = "Access to the requested page has been denied";
|
||||
} else { $msgtext2 = $filtersettings{'MSG_TEXT_2'}; }
|
||||
if ($filtersettings{'MSG_TEXT_3'} eq '') {
|
||||
$msgtext3 = "Please contact the Network Administrator if you think there has been an error";
|
||||
} else { $msgtext3 = $filtersettings{'MSG_TEXT_3'}; }
|
||||
|
||||
if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; }
|
||||
|
||||
print "Pragma: no-cache\n";
|
||||
print "Cache-control: no-cache\n";
|
||||
print "Connection: close\n";
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
print <<END
|
||||
<html>
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||||
<title></title>
|
||||
</head>
|
||||
|
||||
END
|
||||
;
|
||||
|
||||
if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e "/home/httpd/html/images/urlfilter/background.jpg"))
|
||||
{
|
||||
print <<END
|
||||
<body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF">
|
||||
END
|
||||
;
|
||||
} else {
|
||||
print <<END
|
||||
<body bgcolor="#FFFFFF">
|
||||
END
|
||||
;
|
||||
}
|
||||
|
||||
print <<END
|
||||
|
||||
<center>
|
||||
|
||||
<table width="80%" cellspacing="10" cellpadding="5" border="0">
|
||||
|
||||
<tr>
|
||||
<td bgcolor="#C0C0C0" align="right">
|
||||
<font face="verdana, arial, sans serif" color="#000000" size="1">
|
||||
<b>$category</b>
|
||||
</font>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td bgcolor="#F4F4F4" align="center">
|
||||
<table width="100%" cellspacing="20" cellpadding="20" border="0">
|
||||
<tr>
|
||||
<td nowrap bgcolor="#FF0000" align="center">
|
||||
<font face="verdana, arial, sans serif" color="#FFFFFF" size="6">
|
||||
<b>$msgtext1</b>
|
||||
</font>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td bgcolor="#E2E2E2" align="center">
|
||||
<font face="verdana, arial, sans serif" color="#000000" size="4">
|
||||
<b>$msgtext2</b>
|
||||
</font>
|
||||
<font face="verdana,arial,sans serif" color="#000000" size="2">
|
||||
END
|
||||
;
|
||||
|
||||
if (!($url eq ""))
|
||||
{
|
||||
print <<END
|
||||
<p>URL: <a href="$url">$url</a>
|
||||
END
|
||||
;
|
||||
}
|
||||
|
||||
if (!($ip eq ""))
|
||||
{
|
||||
print <<END
|
||||
<p>Client IP address: <i>$ip</i>
|
||||
END
|
||||
;
|
||||
}
|
||||
|
||||
print <<END
|
||||
<br><p>$msgtext3
|
||||
</font>
|
||||
</td>
|
||||
</tr>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<tr>
|
||||
<td bgcolor="#C0C0C0" align="right">
|
||||
<font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by
|
||||
</font>
|
||||
<a href="http://www.ipcop.org" target="_blank"><b>
|
||||
<font face="verdana,arial,sans serif" color="#FFFFFF" size="1">IPCop</b></a> and
|
||||
<a href="http://www.squidguard.org" target="_blank"><b>
|
||||
<font face="verdana,arial,sans serif" color="#FFFFFF" size="1">SquidGuard
|
||||
</font></b></a>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
</table>
|
||||
|
||||
</center>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
END
|
||||
;
|
||||
|
||||
sub readhash
|
||||
{
|
||||
my $filename = $_[0];
|
||||
my $hash = $_[1];
|
||||
my ($var, $val);
|
||||
|
||||
if (-e $filename)
|
||||
{
|
||||
open(FILE, $filename) or die "Unable to read file $filename";
|
||||
while (<FILE>)
|
||||
{
|
||||
chop;
|
||||
($var, $val) = split /=/, $_, 2;
|
||||
if ($var)
|
||||
{
|
||||
$val =~ s/^\'//g;
|
||||
$val =~ s/\'$//g;
|
||||
|
||||
# Untaint variables read from hash
|
||||
$var =~ /([A-Za-z0-9_-]*)/; $var = $1;
|
||||
$val =~ /([\w\W]*)/; $val = $1;
|
||||
$hash->{$var} = $val;
|
||||
}
|
||||
}
|
||||
close FILE;
|
||||
}
|
||||
}
|
||||
#!/usr/bin/perl
|
||||
|
||||
#
|
||||
# $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $
|
||||
#
|
||||
|
||||
use CGI qw(param);
|
||||
|
||||
$swroot="/var/ipfire";
|
||||
|
||||
my %netsettings;
|
||||
my %filtersettings;
|
||||
|
||||
&readhash("$swroot/ethernet/settings", \%netsettings);
|
||||
&readhash("$swroot/urlfilter/settings", \%filtersettings);
|
||||
|
||||
$category=param("category");
|
||||
$url=param("url");
|
||||
$ip=param("ip");
|
||||
|
||||
if ($filtersettings{'MSG_TEXT_1'} eq '') {
|
||||
$msgtext1 = "A C C E S S D E N I E D";
|
||||
} else { $msgtext1 = $filtersettings{'MSG_TEXT_1'}; }
|
||||
if ($filtersettings{'MSG_TEXT_2'} eq '') {
|
||||
$msgtext2 = "Access to the requested page has been denied";
|
||||
} else { $msgtext2 = $filtersettings{'MSG_TEXT_2'}; }
|
||||
if ($filtersettings{'MSG_TEXT_3'} eq '') {
|
||||
$msgtext3 = "Please contact the Network Administrator if you think there has been an error";
|
||||
} else { $msgtext3 = $filtersettings{'MSG_TEXT_3'}; }
|
||||
|
||||
if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; }
|
||||
|
||||
print "Pragma: no-cache\n";
|
||||
print "Cache-control: no-cache\n";
|
||||
print "Connection: close\n";
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
print <<END
|
||||
<html>
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||||
<title></title>
|
||||
</head>
|
||||
|
||||
END
|
||||
;
|
||||
|
||||
if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e "/home/httpd/html/images/urlfilter/background.jpg"))
|
||||
{
|
||||
print <<END
|
||||
<body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF">
|
||||
END
|
||||
;
|
||||
} else {
|
||||
print <<END
|
||||
<body bgcolor="#FFFFFF">
|
||||
END
|
||||
;
|
||||
}
|
||||
|
||||
print <<END
|
||||
|
||||
<center>
|
||||
|
||||
<table width="80%" cellspacing="10" cellpadding="5" border="0">
|
||||
|
||||
<tr>
|
||||
<td bgcolor="#C0C0C0" align="right">
|
||||
<font face="verdana, arial, sans serif" color="#000000" size="1">
|
||||
<b>$category</b>
|
||||
</font>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td bgcolor="#F4F4F4" align="center">
|
||||
<table width="100%" cellspacing="20" cellpadding="20" border="0">
|
||||
<tr>
|
||||
<td nowrap bgcolor="#FF0000" align="center">
|
||||
<font face="verdana, arial, sans serif" color="#FFFFFF" size="6">
|
||||
<b>$msgtext1</b>
|
||||
</font>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td bgcolor="#E2E2E2" align="center">
|
||||
<font face="verdana, arial, sans serif" color="#000000" size="4">
|
||||
<b>$msgtext2</b>
|
||||
</font>
|
||||
<font face="verdana,arial,sans serif" color="#000000" size="2">
|
||||
END
|
||||
;
|
||||
|
||||
if (!($url eq ""))
|
||||
{
|
||||
print <<END
|
||||
<p>URL: <a href="$url">$url</a>
|
||||
END
|
||||
;
|
||||
}
|
||||
|
||||
if (!($ip eq ""))
|
||||
{
|
||||
print <<END
|
||||
<p>Client IP address: <i>$ip</i>
|
||||
END
|
||||
;
|
||||
}
|
||||
|
||||
print <<END
|
||||
<br><p>$msgtext3
|
||||
</font>
|
||||
</td>
|
||||
</tr>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<tr>
|
||||
<td bgcolor="#C0C0C0" align="right">
|
||||
<font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by
|
||||
</font>
|
||||
<a href="http://www.ipcop.org" target="_blank"><b>
|
||||
<font face="verdana,arial,sans serif" color="#FFFFFF" size="1">IPCop</b></a> and
|
||||
<a href="http://www.squidguard.org" target="_blank"><b>
|
||||
<font face="verdana,arial,sans serif" color="#FFFFFF" size="1">SquidGuard
|
||||
</font></b></a>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
</table>
|
||||
|
||||
</center>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
END
|
||||
;
|
||||
|
||||
sub readhash
|
||||
{
|
||||
my $filename = $_[0];
|
||||
my $hash = $_[1];
|
||||
my ($var, $val);
|
||||
|
||||
if (-e $filename)
|
||||
{
|
||||
open(FILE, $filename) or die "Unable to read file $filename";
|
||||
while (<FILE>)
|
||||
{
|
||||
chop;
|
||||
($var, $val) = split /=/, $_, 2;
|
||||
if ($var)
|
||||
{
|
||||
$val =~ s/^\'//g;
|
||||
$val =~ s/\'$//g;
|
||||
|
||||
# Untaint variables read from hash
|
||||
$var =~ /([A-Za-z0-9_-]*)/; $var = $1;
|
||||
$val =~ /([\w\W]*)/; $val = $1;
|
||||
$hash->{$var} = $val;
|
||||
}
|
||||
}
|
||||
close FILE;
|
||||
}
|
||||
}
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user