mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-05-09 08:48:27 +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>";
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------
|
||||
|
||||
Reference in New Issue
Block a user