]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/logs.cgi/urlfilter.dat
5 # This code is distributed under the terms of the GPL
7 # (c) The SmoothWall Team
9 # $Id: urlfilter.dat,v 1.4 2005/05/15 00:00:00 marco Exp $
14 # enable only the following on debugging purpose
16 #use CGI::Carp 'fatalsToBrowser';
20 require '/var/ipfire/general-functions.pl';
21 require "${General::swroot}/lang.pl";
22 require "${General::swroot}/header.pl";
24 my $dbdir = "${General::swroot}/urlfilter/blacklists";
25 my $logdir = "/var/log/squidGuard";
29 my %filtersettings=();
70 my @shortmonths = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug',
71 'Sep', 'Oct', 'Nov', 'Dec' );
72 my @longmonths = ( $Lang::tr
{'january'}, $Lang::tr
{'february'}, $Lang::tr
{'march'},
73 $Lang::tr
{'april'}, $Lang::tr
{'may'}, $Lang::tr
{'june'}, $Lang::tr
{'july'}, $Lang::tr
{'august'},
74 $Lang::tr
{'september'}, $Lang::tr
{'october'}, $Lang::tr
{'november'},
75 $Lang::tr
{'december'} );
77 my @now = localtime(time);
80 my $year = $now[5]+1900;
82 $cgiparams{'DAY'} = $now[3];
83 $cgiparams{'MONTH'} = $now[4];
84 $cgiparams{'LOGTYPE'} = 'urlfilter';
86 &Header
::getcgihash
(\
%cgiparams);
87 $logsettings{'LOGVIEW_REVERSE'} = 'off';
88 &General
::readhash
("${General::swroot}/logging/settings", \
%logsettings);
89 if (-e
"${General::swroot}/urlfilter/settings")
91 &General
::readhash
("${General::swroot}/urlfilter/settings", \
%filtersettings);
94 $now[4] = $cgiparams{'MONTH'}+1;
96 $now[4] = "0$now[4]"; }
100 if ($ENV{'QUERY_STRING'} && $cgiparams{'ACTION'} ne $Lang::tr
{'update'})
102 @temp = split(',',$ ENV
{'QUERY_STRING'});
104 $cgiparams{'MONTH'} = $temp[1];
105 $cgiparams{'DAY'} = $temp[2];
106 $cgiparams{'LOGTYPE'} = $temp[3];
109 if (!($cgiparams{'MONTH'} =~ /^(0|1|2|3|4|5|6|7|8|9|10|11)$/) ||
110 !($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)$/))
112 $cgiparams{'DAY'} = $now[3];
113 $cgiparams{'MONTH'} = $now[4];
115 elsif($cgiparams{'ACTION'} eq '>>')
117 @temp_now = localtime(time);
118 $temp_now[4] = $cgiparams{'MONTH'};
119 $temp_now[3] = $cgiparams{'DAY'};
120 @temp_then = localtime(POSIX
::mktime
(@temp_now) + 86400);
121 ## Retrieve the same time on the next day -
122 ## 86400 seconds in a day
123 $cgiparams{'MONTH'} = $temp_then[4];
124 $cgiparams{'DAY'} = $temp_then[3];
126 elsif($cgiparams{'ACTION'} eq '<<')
128 @temp_now = localtime(time);
129 $temp_now[4] = $cgiparams{'MONTH'};
130 $temp_now[3] = $cgiparams{'DAY'};
131 @temp_then = localtime(POSIX
::mktime
(@temp_now) - 86400);
132 ## Retrieve the same time on the previous day -
133 ## 86400 seconds in a day
134 $cgiparams{'MONTH'} = $temp_then[4];
135 $cgiparams{'DAY'} = $temp_then[3];
138 $monthstr = $shortmonths[$cgiparams{'MONTH'}];
139 $longmonthstr = $longmonths[$cgiparams{'MONTH'}];
141 if (($cgiparams{'DAY'} ne $now[3]) || ($cgiparams{'MONTH'} ne $now[4]))
144 if ( ( $cgiparams{'MONTH'} eq $now[4]) && ($cgiparams{'DAY'} > $now[3]) ||
145 ( $cgiparams{'MONTH'} > $now[4] ) ) {
146 @then = localtime(POSIX
::mktime
( 0, 0, 0, $cgiparams{'DAY'}, $cgiparams{'MONTH'}, $year - 1901 ));
148 @then = localtime(POSIX
::mktime
( 0, 0, 0, $cgiparams{'DAY'}, $cgiparams{'MONTH'}, $year - 1900 ));
151 $lastleap=($year-1)%4;
153 if ($lastleap == 0 && $tdoy < 60) {
161 $day = $cgiparams{'DAY'};
173 if ($cgiparams{'ACTION'} eq $Lang::tr
{'export'})
175 print "Content-type: text/plain\n\n";
176 print "IPCop URL filter log\r\n";
177 print "Section: $cgiparams{'LOGTYPE'}\r\n";
178 print "Date: $daystr $longmonthstr\r\n";
181 if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @log = reverse @log; }
185 ($date,$time,$pid,@loginfo) = split(/ /);
186 @ip = split(/\//,$loginfo[2]);
187 @category = split(/\//,$loginfo[0]);
188 $dsturl = $loginfo[1];
189 $loginfo[3] =~ s/\%5c/\\/;
192 if ($cgiparams{'LOGTYPE'} eq 'squidGuard')
197 print "$category[1] ";
199 if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { print "$loginfo[3] "; }
208 &Header
::showhttpheaders
();
210 &Header
::openpage
($Lang::tr
{'urlfilter log viewer'}, 1, '');
212 &Header
::openbigbox
('100%', 'left', '', $errormessage);
215 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
216 print "<font class='base'>$errormessage </font>\n";
220 &Header
::openbox
('100%', 'left', "$Lang::tr{'settings'}:");
222 $selected{'LOGTYPE'}{$cgiparams{'LOGTYPE'}} = "selected='selected'";
225 <form method='post' action="$ENV{'SCRIPT_NAME'}">
228 <td width='8%' class='base'>$Lang::tr{'section'}</td>
229 <td width='15%' class='base'>
230 <select name='LOGTYPE' size='1'>
231 <option value='urlfilter' $selected{'LOGTYPE'}{'urlfilter'} = "selected='selected'">$Lang::tr{'urlfilter url filter'}</option>
232 <option value='squidGuard' $selected{'LOGTYPE'}{'squidGuard'} = "selected='selected'">squidGuard</option>
236 <td width='8%' class='base'>$Lang::tr{'month'}:</td>
238 <select name='MONTH'>
241 for ($month = 0; $month < 12; $month++)
244 if ($month == $cgiparams{'MONTH'}) {
245 print 'selected="selected" '; }
246 print "value='$month'>$longmonths[$month]</option>\n";
251 <td width='8%' class='base'>$Lang::tr{'day'}:</td>
256 for ($day = 1; $day <= 31; $day++)
259 if ($day == $cgiparams{'DAY'}) {
260 print 'selected="selected" '; }
261 print "value='$day'>$day</option>\n";
266 <td width='5%' align='center'><input type='submit' name='ACTION' title='$Lang::tr{'day before'}' value='<<' /></td>
267 <td width='5%' align='center'><input type='submit' name='ACTION' title='$Lang::tr{'day after'}' value='>>' /></td>
268 <td width='10%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'update'}' /></td>
269 <td width='10%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'export'}' /></td>
278 &Header
::openbox
('100%', 'left', $Lang::tr
{'log'});
282 if ($start == -1) { $start = $lines - $Header::viewsize
; }
283 if ($start >= $lines - $Header::viewsize
) { $start = $lines - $Header::viewsize
; };
284 if ($start < 0) { $start = 0; }
286 $prev = $start - $Header::viewsize
;
287 $next = $start + $Header::viewsize
;
289 if ($prev < 0) { $prev = 0; }
290 if ($next >= $lines) { $next = -1 }
291 if ($start == 0) { $prev = -1; }
293 if ($cgiparams{'LOGTYPE'} eq 'urlfilter')
295 print "<b>$Lang::tr{'urlfilter log summary'} $longmonthstr $daystr: $lines</b><p>\n";
298 @slice = splice(@log, $start, $Header::viewsize
);
300 if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @slice = reverse @slice; }
307 print "<table width='100%'>\n";
308 unless ($cgiparams{'LOGTYPE'} eq 'squidGuard')
311 print "<td align='center'><b>$Lang::tr{'urlfilter time'}</b></td>\n";
312 print "<td align='center'><b>$Lang::tr{'urlfilter category'}</b></td>\n";
313 print "<td align='center'><b>$Lang::tr{'urlfilter client'}</b></td>\n";
314 if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { print "<td align='center'><b>$Lang::tr{'urlfilter username'}</b></td>\n"; }
315 print "<td align='center'><b>$Lang::tr{'urlfilter dst'}</b></td>\n";
321 undef $attr1; undef $attr2;
323 ($date,$time,$pid,@loginfo) = split(/ /);
324 @ip = split(/\//,$loginfo[2]);
325 @category = split(/\//,$loginfo[0]);
326 $dsturl = $loginfo[1];
327 $loginfo[3] =~ s/\%5c/\\/;
328 if ($cgiparams{'LOGTYPE'} eq 'squidGuard') {
329 if (@loginfo[0] =~ /squidGuard/) { $attr1 .= "<b>"; $attr2 .= "</b>"; }
330 if (@loginfo[1] =~ /ready/) { $attr1 .= "<b><font color='$Header::colourgreen'>"; $attr2 .= "</font></b>"; }
331 if (@loginfo[2] =~ /emergency/) { $attr1 .= "<b><font color='$Header::colourerr'>"; $attr2 .= "</font></b>"; }
334 if ($lines % 2) { print "<tr bgcolor='$Header::table1colour'>\n"; } else { print "<tr bgcolor='$Header::table2colour'>\n"; }
336 if ($cgiparams{'LOGTYPE'} eq 'squidGuard') {
337 print "<td nowrap>$time $pid $attr1@loginfo$attr2</td>\n";
339 print "<td width='10%' align='center' nowrap>$time</td>\n";
340 print "<td width='11%' align='center' nowrap>$category[1]</td>\n";
341 print "<td width='15%' align='center' nowrap>$ip[0]</td>\n";
342 if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on')
344 print "<td width='12%' align='center' nowrap>$loginfo[3]</td>\n";
345 $site = substr($dsturl,0,55);
346 if (length($dsturl) > 55) { $site .= "..."; }
348 $site = substr($dsturl,0,69);
349 if (length($dsturl) > 69) { $site .= "..."; }
351 #print "<td>$site</td>\n";
352 print "<td><a href='$dsturl' title='$dsturl' target='_blank'>$site</a></td>\n";
357 print "</table><br>\n";
365 &Header
::closebigbox
();
367 &Header
::closepage
();
369 # -------------------------------------------------------------------
376 if ($cgiparams{'LOGTYPE'} eq 'squidGuard')
378 $filestr = "$logdir/squidGuard.log";
379 foreach $logarch (<$filestr.*.gz
>)
381 open (LOG
,"gzip -dc $logarch |");
383 ($date,$time,$pid,@loginfo) = split(/ /);
384 ($logyear,$logmonth,$logday) = split(/-/,$date);
385 if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
391 ($date,$time,$pid,@loginfo) = split(/ /);
392 ($logyear,$logmonth,$logday) = split(/-/,$date);
393 if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
397 foreach $logarch (<$logdir/*.gz
>)
399 if ($logarch !~ /squidGuard\.log/) {
400 open (LOG
,"gzip -dc $logarch |");
402 ($date,$time,$pid,@loginfo) = split(/ /);
403 ($logyear,$logmonth,$logday) = split(/-/,$date);
404 if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
409 foreach $filestr (<$logdir/*.log>)
411 if ($filestr !~ /squidGuard\.log/) {
414 ($date,$time,$pid,@loginfo) = split(/ /);
415 ($logyear,$logmonth,$logday) = split(/-/,$date);
416 if (($logyear == $year) && ($logmonth == $cgiparams{'MONTH'}+1) && ($logday == $day)) { push(@log,$_) }
421 @log = sort { substr($a,11,8) cmp substr($b,11,8) } @log;
426 # -------------------------------------------------------------------
430 print "<table width='100%'>";
433 print "<td align='center' width='50%'>";
435 print "<a href='$ENV{'SCRIPT_NAME'}?$prev,$cgiparams{'MONTH'},$cgiparams{'DAY'},$cgiparams{'LOGTYPE'}'>$Lang::tr{'older'}</a>"; }
437 print "$Lang::tr{'older'}"; }
440 print "<td align='center' width='50%'>";
442 print "<a href='$ENV{'SCRIPT_NAME'}?$next,$cgiparams{'MONTH'},$cgiparams{'DAY'},$cgiparams{'LOGTYPE'}'>$Lang::tr{'newer'}</a>"; }
444 print "$Lang::tr{'newer'}"; }
451 # -------------------------------------------------------------------