}
# -------------------------------------------------------------------
-#!/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>";
-}
-
-# -------------------------------------------------------------------
projects / ipfire-2.x.git / blobdiff