mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-12 20:16:49 +02:00
fifteen-theme: made all log tables themeable
With this commit it is possible to make css designs to all tables in the logs.
This commit is contained in:
Alexander Marx
@@ -308,16 +308,16 @@ if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @log = reverse @log; }
|
||||
if ($lines != 0) { &oldernewer(); }
|
||||
|
||||
print <<END
|
||||
<table width='100%'>
|
||||
<table width='100%' class='tbl'>
|
||||
<tr>
|
||||
<td align='center' class='boldbase'><b>$Lang::tr{'time'}</b></td>
|
||||
<td align='center' class='boldbase'><b>$Lang::tr{'chain'}</b></td>
|
||||
<td align='center' class='boldbase'><b>$Lang::tr{'iface'}</b></td>
|
||||
<td align='center' class='boldbase'><b>$Lang::tr{'proto'}</b></td>
|
||||
<td align='center' class='boldbase'><b>$Lang::tr{'source'}<br/>$Lang::tr{'destination'}</b></td>
|
||||
<td align='center' class='boldbase'><b>$Lang::tr{'src port'}<br />$Lang::tr{'dst port'}</b></td>
|
||||
<td align='center' class='boldbase'><b>Flag</b></td>
|
||||
<td align='center' class='boldbase'><b>$Lang::tr{'mac address'}</b></td>
|
||||
<th align='center' class='boldbase'><b>$Lang::tr{'time'}</b></th>
|
||||
<th align='center' class='boldbase'><b>$Lang::tr{'chain'}</b></th>
|
||||
<th align='center' class='boldbase'><b>$Lang::tr{'iface'}</b></th>
|
||||
<th align='center' class='boldbase'><b>$Lang::tr{'proto'}</b></th>
|
||||
<th align='center' class='boldbase'><b>$Lang::tr{'source'}<br/>$Lang::tr{'destination'}</b></th>
|
||||
<th align='center' class='boldbase'><b>$Lang::tr{'src port'}<br />$Lang::tr{'dst port'}</b></th>
|
||||
<th align='center' class='boldbase'><b>Flag</b></th>
|
||||
<th align='center' class='boldbase'><b>$Lang::tr{'mac address'}</b></th>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
@@ -353,26 +353,29 @@ foreach $_ (@log)
|
||||
$dstport = "$dstport($servi)";}
|
||||
my @mactemp = split(/:/,$macaddr);
|
||||
$macaddr = "$mactemp[6]:$mactemp[7]:$mactemp[8]:$mactemp[9]:$mactemp[10]:$mactemp[11]";
|
||||
my $col="";
|
||||
if ($lines % 2) {
|
||||
print "<tr bgcolor='$color{'color20'}'>\n"; }
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color20'}'"; }
|
||||
else {
|
||||
print "<tr bgcolor='$color{'color22'}'>\n"; }
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color22'}'"; }
|
||||
print <<END
|
||||
|
||||
<td align='center'>$time</td>
|
||||
<td align='center'>$comment</td>
|
||||
<td align='center'>$iface</td>
|
||||
<td align='center'>$proto</td>
|
||||
<td align='center'><a href='/cgi-bin/ipinfo.cgi?ip=$srcaddr'>$srcaddr</a><br /><a href='/cgi-bin/ipinfo.cgi?ip=$dstaddr'>$dstaddr</a></td>
|
||||
<td align='center'>$srcport<br/>$dstport</td>
|
||||
<td align='center' $col>$time</td>
|
||||
<td align='center' $col>$comment</td>
|
||||
<td align='center' $col>$iface</td>
|
||||
<td align='center' $col>$proto</td>
|
||||
<td align='center' $col><a href='/cgi-bin/ipinfo.cgi?ip=$srcaddr'>$srcaddr</a><br /><a href='/cgi-bin/ipinfo.cgi?ip=$dstaddr'>$dstaddr</a></td>
|
||||
<td align='center' $col>$srcport<br/>$dstport</td>
|
||||
END
|
||||
;
|
||||
if ( $fcode ne "" ){
|
||||
print "<td align='center'><a href='../country.cgi#$fcode'><img src='/images/flags/$fcode.png' border='0' align='absmiddle' alt='$ccode'></a></td>";}
|
||||
print "<td align='center' $col><a href='../country.cgi#$fcode'><img src='/images/flags/$fcode.png' border='0' align='absmiddle' alt='$ccode'></a></td>";}
|
||||
else {
|
||||
print "<td align='center'></td>";}
|
||||
print "<td align='center' $col></td>";}
|
||||
print <<END
|
||||
<td align='center'>$macaddr</td>
|
||||
<td align='center' $col>$macaddr</td>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
|
||||
@@ -403,13 +403,13 @@ if ($showpie != 2 && $pienumber <= 50 && $pienumber != 0) {
|
||||
}
|
||||
|
||||
print <<END
|
||||
<TABLE WIDTH='100%'>
|
||||
<TABLE WIDTH='100%' class='tbl'>
|
||||
<TR>
|
||||
<TD WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'></TD>
|
||||
<TD WIDTH='30%' ALIGN='CENTER' CLASS='boldbase'><B>IP</B></TD>
|
||||
<TD WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'><B>Flag</B></TD>
|
||||
<TD WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'><B>Count</B></TD>
|
||||
<TD WIDTH='30%' ALIGN='CENTER' CLASS='boldbase'><B>Percent</B></TD>
|
||||
<TH WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'></TH>
|
||||
<TH WIDTH='30%' ALIGN='CENTER' CLASS='boldbase'><B>IP</B></TH>
|
||||
<TH WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'><B>Flag</B></TH>
|
||||
<TH WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'><B>Count</B></TH>
|
||||
<TH WIDTH='30%' ALIGN='CENTER' CLASS='boldbase'><B>Percent</B></TH>
|
||||
</TR>
|
||||
END
|
||||
;
|
||||
@@ -419,6 +419,7 @@ my $show=0;
|
||||
|
||||
my $s;
|
||||
my $percent;
|
||||
my $col="";
|
||||
|
||||
for($s=0;$s<$lines;$s++)
|
||||
{
|
||||
@@ -426,45 +427,45 @@ for($s=0;$s<$lines;$s++)
|
||||
$percent = $value[$s] * 100 / $linesjc;
|
||||
$percent = sprintf("%.f", $percent);
|
||||
$total = $total + $value[$s];
|
||||
if ( ($color % 10) == 1 ){print "<TR BGCOLOR='$color{'color1'}'>\n";}
|
||||
if ( ($color % 10) == 2 ){print "<TR BGCOLOR='$color{'color2'}'>\n";}
|
||||
if ( ($color % 10) == 3 ){print "<TR BGCOLOR='$color{'color3'}'>\n";}
|
||||
if ( ($color % 10) == 4 ){print "<TR BGCOLOR='$color{'color4'}'>\n";}
|
||||
if ( ($color % 10) == 5 ){print "<TR BGCOLOR='$color{'color5'}'>\n";}
|
||||
if ( ($color % 10) == 6 ){print "<TR BGCOLOR='$color{'color6'}'>\n";}
|
||||
if ( ($color % 10) == 7 ){print "<TR BGCOLOR='$color{'color7'}'>\n";}
|
||||
if ( ($color % 10) == 8 ){print "<TR BGCOLOR='$color{'color8'}'>\n";}
|
||||
if ( ($color % 10) == 9 ){print "<TR BGCOLOR='$color{'color9'}'>\n";}
|
||||
if ( ($color % 10) == 0 ){print "<TR BGCOLOR='$color{'color10'}'>\n";}
|
||||
if ( ($color % 10) == 1 ){print "<TR>"; $col="BGCOLOR='$color{'color1'}'";}
|
||||
if ( ($color % 10) == 2 ){print "<TR>"; $col="BGCOLOR='$color{'color2'}'";}
|
||||
if ( ($color % 10) == 3 ){print "<TR>"; $col="BGCOLOR='$color{'color3'}'";}
|
||||
if ( ($color % 10) == 4 ){print "<TR>"; $col="BGCOLOR='$color{'color4'}'";}
|
||||
if ( ($color % 10) == 5 ){print "<TR>"; $col="BGCOLOR='$color{'color5'}'";}
|
||||
if ( ($color % 10) == 6 ){print "<TR>"; $col="BGCOLOR='$color{'color6'}'";}
|
||||
if ( ($color % 10) == 7 ){print "<TR>"; $col="BGCOLOR='$color{'color7'}'";}
|
||||
if ( ($color % 10) == 8 ){print "<TR>"; $col="BGCOLOR='$color{'color8'}'";}
|
||||
if ( ($color % 10) == 9 ){print "<TR>"; $col="BGCOLOR='$color{'color9'}'";}
|
||||
if ( ($color % 10) == 0 ){print "<TR>"; $col="BGCOLOR='$color{'color10'}'";}
|
||||
|
||||
my $gi = Geo::IP::PurePerl->new();
|
||||
my $ccode = $gi->country_code_by_name($key[$s]);
|
||||
my $fcode = lc($ccode);
|
||||
|
||||
$color++;
|
||||
print "<TD ALIGN='CENTER'><form method='post' action='showrequestfromip.dat'><input type='hidden' name='MONTH' value='$cgiparams{'MONTH'}'> <input type='hidden' name='DAY' value='$cgiparams{'DAY'}'> <input type='hidden' name='ip' value='$key[$s]'> <input type='submit' value='details'></form></TD>";
|
||||
print "<TD ALIGN='CENTER'><a href='/cgi-bin/ipinfo.cgi?ip=$key[$s]'>$key[$s]</a></TD>";
|
||||
print "<TD ALIGN='CENTER' $col><form method='post' action='showrequestfromip.dat'><input type='hidden' name='MONTH' value='$cgiparams{'MONTH'}'> <input type='hidden' name='DAY' value='$cgiparams{'DAY'}'> <input type='hidden' name='ip' value='$key[$s]'> <input type='submit' value='details'></form></TD>";
|
||||
print "<TD ALIGN='CENTER' $col><a href='/cgi-bin/ipinfo.cgi?ip=$key[$s]'>$key[$s]</a></TD>";
|
||||
if ( $fcode ne "" ){
|
||||
print "<TD ALIGN='CENTER'><a href='/cgi-bin/country.cgi#$fcode'><img src='/images/flags/$fcode.png' border='0' align='absmiddle' alt='$ccode'></a></TD>";}
|
||||
print "<TD ALIGN='CENTER' $col><a href='/cgi-bin/country.cgi#$fcode'><img src='/images/flags/$fcode.png' border='0' align='absmiddle' alt='$ccode'></a></TD>";}
|
||||
else {
|
||||
print "<TD ALIGN='CENTER'></TD>";}
|
||||
print "<TD ALIGN='CENTER'>$value[$s]</TD>";
|
||||
print "<TD ALIGN='CENTER'>$percent</TD>";
|
||||
print "<TD ALIGN='CENTER' $col></TD>";}
|
||||
print "<TD ALIGN='CENTER' $col>$value[$s]</TD>";
|
||||
print "<TD ALIGN='CENTER' $col>$percent</TD>";
|
||||
print "</TR>";
|
||||
}
|
||||
|
||||
if($cgiparams{'otherspie'} == 2 ){}
|
||||
else{
|
||||
if ( ($color % 10) == 1 ){print "<TR BGCOLOR='$color{'color1'}'>\n";}
|
||||
if ( ($color % 10) == 2 ){print "<TR BGCOLOR='$color{'color2'}'>\n";}
|
||||
if ( ($color % 10) == 3 ){print "<TR BGCOLOR='$color{'color3'}'>\n";}
|
||||
if ( ($color % 10) == 4 ){print "<TR BGCOLOR='$color{'color4'}'>\n";}
|
||||
if ( ($color % 10) == 5 ){print "<TR BGCOLOR='$color{'color5'}'>\n";}
|
||||
if ( ($color % 10) == 6 ){print "<TR BGCOLOR='$color{'color6'}'>\n";}
|
||||
if ( ($color % 10) == 7 ){print "<TR BGCOLOR='$color{'color7'}'>\n";}
|
||||
if ( ($color % 10) == 8 ){print "<TR BGCOLOR='$color{'color8'}'>\n";}
|
||||
if ( ($color % 10) == 9 ){print "<TR BGCOLOR='$color{'color9'}'>\n";}
|
||||
if ( ($color % 10) == 0 ){print "<TR BGCOLOR='$color{'color10'}'>\n";}
|
||||
if ( ($color % 10) == 1 ){print "<TR>"; $col="BGCOLOR='$color{'color1'}'";}
|
||||
if ( ($color % 10) == 2 ){print "<TR>"; $col="BGCOLOR='$color{'color2'}'";}
|
||||
if ( ($color % 10) == 3 ){print "<TR>"; $col="BGCOLOR='$color{'color3'}'";}
|
||||
if ( ($color % 10) == 4 ){print "<TR>"; $col="BGCOLOR='$color{'color4'}'";}
|
||||
if ( ($color % 10) == 5 ){print "<TR>"; $col="BGCOLOR='$color{'color5'}'";}
|
||||
if ( ($color % 10) == 6 ){print "<TR>"; $col="BGCOLOR='$color{'color6'}'";}
|
||||
if ( ($color % 10) == 7 ){print "<TR>"; $col="BGCOLOR='$color{'color7'}'";}
|
||||
if ( ($color % 10) == 8 ){print "<TR>"; $col="BGCOLOR='$color{'color8'}'";}
|
||||
if ( ($color % 10) == 9 ){print "<TR>"; $col="BGCOLOR='$color{'color9'}'";}
|
||||
if ( ($color % 10) == 0 ){print "<TR>"; $col="BGCOLOR='$color{'color10'}'";}
|
||||
|
||||
if ( $linesjc ne "0")
|
||||
{
|
||||
@@ -473,11 +474,11 @@ $dif = $linesjc - $total;
|
||||
$percent = $dif * 100 / $linesjc;
|
||||
$percent = sprintf("%.f", $percent);
|
||||
print <<END
|
||||
<TD ALIGN='CENTER'></TD>
|
||||
<TD ALIGN='CENTER'>$Lang::tr{'otherip'}</TD>
|
||||
<TD ALIGN='CENTER'></TD>
|
||||
<TD ALIGN='CENTER'>$dif</TD>
|
||||
<TD ALIGN='CENTER'>$percent</TD>
|
||||
<TD ALIGN='CENTER' $col></TD>
|
||||
<TD ALIGN='CENTER' $col>$Lang::tr{'otherip'}</TD>
|
||||
<TD ALIGN='CENTER' $col></TD>
|
||||
<TD ALIGN='CENTER' $col>$dif</TD>
|
||||
<TD ALIGN='CENTER' $col>$percent</TD>
|
||||
</TR>
|
||||
END
|
||||
;
|
||||
|
||||
@@ -406,12 +406,12 @@ if ($showpie != 2 && $pienumber <= 50 && $pienumber != 0) {
|
||||
}
|
||||
|
||||
print <<END
|
||||
<TABLE WIDTH='100%'>
|
||||
<TABLE WIDTH='100%' CLASS='tbl'>
|
||||
<TR>
|
||||
<TD WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'></TD>
|
||||
<TD WIDTH='33%' ALIGN='CENTER' CLASS='boldbase'><B>Port</B></TD>
|
||||
<TD WIDTH='33%' ALIGN='CENTER' CLASS='boldbase'><B>Count</B></TD>
|
||||
<TD WIDTH='33%' ALIGN='CENTER' CLASS='boldbase'><B>Percent</B></TD>
|
||||
<TH WIDTH='10%' ALIGN='CENTER' CLASS='boldbase'></TH>
|
||||
<TH WIDTH='33%' ALIGN='CENTER' CLASS='boldbase'><B>Port</B></TH>
|
||||
<TH WIDTH='33%' ALIGN='CENTER' CLASS='boldbase'><B>Count</B></TH>
|
||||
<TH WIDTH='33%' ALIGN='CENTER' CLASS='boldbase'><B>Percent</B></TH>
|
||||
</TR>
|
||||
END
|
||||
;
|
||||
@@ -421,43 +421,45 @@ my $show=0;
|
||||
|
||||
my $s;
|
||||
my $percent;
|
||||
my $col="";
|
||||
|
||||
for($s=0;$s<$lines;$s++)
|
||||
{
|
||||
$show++;
|
||||
$percent = $value[$s] * 100 / $linesjc;
|
||||
$percent = sprintf("%.f", $percent);
|
||||
$total = $total + $value[$s];
|
||||
if ( ($color % 10) == 1 ){print "<TR BGCOLOR='$color{'color1'}'>\n";}
|
||||
if ( ($color % 10) == 2 ){print "<TR BGCOLOR='$color{'color2'}'>\n";}
|
||||
if ( ($color % 10) == 3 ){print "<TR BGCOLOR='$color{'color3'}'>\n";}
|
||||
if ( ($color % 10) == 4 ){print "<TR BGCOLOR='$color{'color4'}'>\n";}
|
||||
if ( ($color % 10) == 5 ){print "<TR BGCOLOR='$color{'color5'}'>\n";}
|
||||
if ( ($color % 10) == 6 ){print "<TR BGCOLOR='$color{'color6'}'>\n";}
|
||||
if ( ($color % 10) == 7 ){print "<TR BGCOLOR='$color{'color7'}'>\n";}
|
||||
if ( ($color % 10) == 8 ){print "<TR BGCOLOR='$color{'color8'}'>\n";}
|
||||
if ( ($color % 10) == 9 ){print "<TR BGCOLOR='$color{'color9'}'>\n";}
|
||||
if ( ($color % 10) == 0 ){print "<TR BGCOLOR='$color{'color10'}'>\n";}
|
||||
if ( ($color % 10) == 1 ){print "<TR>"; $col="BGCOLOR='$color{'color1'}'";}
|
||||
if ( ($color % 10) == 2 ){print "<TR>"; $col="BGCOLOR='$color{'color2'}'";}
|
||||
if ( ($color % 10) == 3 ){print "<TR>"; $col="BGCOLOR='$color{'color3'}'";}
|
||||
if ( ($color % 10) == 4 ){print "<TR>"; $col="BGCOLOR='$color{'color4'}'";}
|
||||
if ( ($color % 10) == 5 ){print "<TR>"; $col="BGCOLOR='$color{'color5'}'";}
|
||||
if ( ($color % 10) == 6 ){print "<TR>"; $col="BGCOLOR='$color{'color6'}'";}
|
||||
if ( ($color % 10) == 7 ){print "<TR>"; $col="BGCOLOR='$color{'color7'}'";}
|
||||
if ( ($color % 10) == 8 ){print "<TR>"; $col="BGCOLOR='$color{'color8'}'";}
|
||||
if ( ($color % 10) == 9 ){print "<TR>"; $col="BGCOLOR='$color{'color9'}'";}
|
||||
if ( ($color % 10) == 0 ){print "<TR>"; $col="BGCOLOR='$color{'color10'}'";}
|
||||
|
||||
$color++;
|
||||
print "<TD ALIGN='CENTER'><form method='post' action='showrequestfromport.dat'><input type='hidden' name='MONTH' value='$cgiparams{'MONTH'}'> <input type='hidden' name='DAY' value='$cgiparams{'DAY'}'> <input type='hidden' name='port' value='$key[$s]'> <input type='submit' value='details'></form></TD>";
|
||||
print "<TD ALIGN='CENTER'>$key[$s]</TD>";
|
||||
print "<TD ALIGN='CENTER'>$value[$s]</TD>";
|
||||
print "<TD ALIGN='CENTER'>$percent</TD>";
|
||||
print "<TD ALIGN='CENTER' $col><form method='post' action='showrequestfromport.dat'><input type='hidden' name='MONTH' value='$cgiparams{'MONTH'}'> <input type='hidden' name='DAY' value='$cgiparams{'DAY'}'> <input type='hidden' name='port' value='$key[$s]'> <input type='submit' value='details'></form></TD>";
|
||||
print "<TD ALIGN='CENTER' $col>$key[$s]</TD>";
|
||||
print "<TD ALIGN='CENTER' $col>$value[$s]</TD>";
|
||||
print "<TD ALIGN='CENTER' $col>$percent</TD>";
|
||||
print "</TR>";
|
||||
}
|
||||
|
||||
if($cgiparams{'otherspie'} == 2 ){}
|
||||
else{
|
||||
if ( ($color % 10) == 1 ){print "<TR BGCOLOR='$color{'color1'}'>\n";}
|
||||
if ( ($color % 10) == 2 ){print "<TR BGCOLOR='$color{'color2'}'>\n";}
|
||||
if ( ($color % 10) == 3 ){print "<TR BGCOLOR='$color{'color3'}'>\n";}
|
||||
if ( ($color % 10) == 4 ){print "<TR BGCOLOR='$color{'color4'}'>\n";}
|
||||
if ( ($color % 10) == 5 ){print "<TR BGCOLOR='$color{'color5'}'>\n";}
|
||||
if ( ($color % 10) == 6 ){print "<TR BGCOLOR='$color{'color6'}'>\n";}
|
||||
if ( ($color % 10) == 7 ){print "<TR BGCOLOR='$color{'color7'}'>\n";}
|
||||
if ( ($color % 10) == 8 ){print "<TR BGCOLOR='$color{'color8'}'>\n";}
|
||||
if ( ($color % 10) == 9 ){print "<TR BGCOLOR='$color{'color9'}'>\n";}
|
||||
if ( ($color % 10) == 0 ){print "<TR BGCOLOR='$color{'color10'}'>\n";}
|
||||
if ( ($color % 10) == 1 ){print "<TR>"; $col="BGCOLOR='$color{'color1'}'";}
|
||||
if ( ($color % 10) == 2 ){print "<TR>"; $col="BGCOLOR='$color{'color2'}'";}
|
||||
if ( ($color % 10) == 3 ){print "<TR>"; $col="BGCOLOR='$color{'color3'}'";}
|
||||
if ( ($color % 10) == 4 ){print "<TR>"; $col="BGCOLOR='$color{'color4'}'";}
|
||||
if ( ($color % 10) == 5 ){print "<TR>"; $col="BGCOLOR='$color{'color5'}'";}
|
||||
if ( ($color % 10) == 6 ){print "<TR>"; $col="BGCOLOR='$color{'color6'}'";}
|
||||
if ( ($color % 10) == 7 ){print "<TR>"; $col="BGCOLOR='$color{'color7'}'";}
|
||||
if ( ($color % 10) == 8 ){print "<TR>"; $col="BGCOLOR='$color{'color8'}'";}
|
||||
if ( ($color % 10) == 9 ){print "<TR>"; $col="BGCOLOR='$color{'color9'}'";}
|
||||
if ( ($color % 10) == 0 ){print "<TR>"; $col="BGCOLOR='$color{'color10'}'";}
|
||||
|
||||
if ( $linesjc ne "0")
|
||||
{
|
||||
@@ -466,10 +468,10 @@ $dif = $linesjc - $total;
|
||||
$percent = $dif * 100 / $linesjc;
|
||||
$percent = sprintf("%.f", $percent);
|
||||
print <<END
|
||||
<TD ALIGN='CENTER'></TD>
|
||||
<TD ALIGN='CENTER'>$Lang::tr{'otherport'}</TD>
|
||||
<TD ALIGN='CENTER'>$dif</TD>
|
||||
<TD ALIGN='CENTER'>$percent</TD>
|
||||
<TD ALIGN='CENTER' $col></TD>
|
||||
<TD ALIGN='CENTER' $col>$Lang::tr{'otherport'}</TD>
|
||||
<TD ALIGN='CENTER' $col>$dif</TD>
|
||||
<TD ALIGN='CENTER' $col>$percent</TD>
|
||||
</TR>
|
||||
END
|
||||
;
|
||||
|
||||
@@ -354,11 +354,11 @@ if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @log = reverse @log; }
|
||||
if ($lines != 0) { &oldernewer(); }
|
||||
|
||||
print <<END
|
||||
<table width='100%'>
|
||||
<table width='100%' class='tbl'>
|
||||
<tr>
|
||||
<td width='10%' align='center' class='boldbase'><b>$Lang::tr{'time'}</b></td>
|
||||
<td width='10%' align='center' class='boldbase'><b>$Lang::tr{'section'}</b></td>
|
||||
<td width='80%'> </td>
|
||||
<th width='10%' align='center' class='boldbase'><b>$Lang::tr{'time'}</b></th>
|
||||
<th width='10%' align='center' class='boldbase'><b>$Lang::tr{'section'}</b></th>
|
||||
<th width='80%'> </th>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
@@ -383,13 +383,15 @@ foreach $_ (@log)
|
||||
$data = substr ($data,80); #permit correct display in table cell
|
||||
$d .= ' ' . substr ($data,0,80);
|
||||
}
|
||||
|
||||
my $col="";
|
||||
|
||||
if ($lines % 2) {
|
||||
print "<tr bgcolor='$color{'color20'}'>"; }
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color20'}'"; }
|
||||
else {
|
||||
print "<tr bgcolor='$color{'color22'}'>"; }
|
||||
print "<td>$time<td>$sec<td>" .&Header::cleanhtml ("$d", 'y') . "</td></tr>\n";
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color22'}'"; }
|
||||
print "<td $col>$time<td $col>$sec<td $col>" .&Header::cleanhtml ("$d", 'y') . "</td></tr>\n";
|
||||
$lines++;
|
||||
}
|
||||
#print '</tt>';
|
||||
|
||||
@@ -437,22 +437,25 @@ if ($logsettings{'LOGVIEW_REVERSE'} eq 'on') { @log = reverse @log; }
|
||||
print "<p><b>$Lang::tr{'web hits'} $daystr: $lines</b></p>";
|
||||
if ($lines != 0) { &oldernewer(); }
|
||||
print <<END
|
||||
<table width='100%'>
|
||||
<table width='100%' class='tbl'>
|
||||
<tr>
|
||||
<td width='10%' align='center' class='boldbase'><b>$Lang::tr{'time'}</b></td>
|
||||
<td width='15%' align='center' class='boldbase'><b>$Lang::tr{'source ip'}</b></td>
|
||||
<td width='12%' align='center' class='boldbase'><b>$Lang::tr{'advproxy NCSA username'}</b></td>
|
||||
<td width='63%' align='center' class='boldbase'><b>$Lang::tr{'website'}</b></td>
|
||||
<th width='10%' align='center' class='boldbase'><b>$Lang::tr{'time'}</b></th>
|
||||
<th width='15%' align='center' class='boldbase'><b>$Lang::tr{'source ip'}</b></th>
|
||||
<th width='12%' align='center' class='boldbase'><b>$Lang::tr{'advproxy NCSA username'}</b></th>
|
||||
<th width='63%' align='center' class='boldbase'><b>$Lang::tr{'website'}</b></th>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
my $ll = 0;
|
||||
my $col='';
|
||||
foreach $_ (@log)
|
||||
{
|
||||
if ($ll % 2) {
|
||||
print "<tr bgcolor='$color{'color20'}'>\n"; }
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color20'}'"; }
|
||||
else {
|
||||
print "<tr bgcolor='$color{'color20'}'>\n"; }
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color22'}'"; }
|
||||
my ($datetime,$ip,$so,$url) = split;
|
||||
my ($SECdt, $MINdt, $HOURdt, $DAYdt, $MONTHdt, $YEARdt) = localtime($datetime);
|
||||
$SECdt = sprintf ("%.02d",$SECdt);
|
||||
@@ -470,10 +473,10 @@ foreach $_ (@log)
|
||||
$DAYdt='';
|
||||
}
|
||||
print <<END
|
||||
<td align='center'>$DAYdt$HOURdt:$MINdt:$SECdt</td>
|
||||
<td align='center'>$ip</td>
|
||||
<td align='center'>$so</td>
|
||||
<td align='left'><a href='$url' title='$url' target='_new'>$part</a></td>
|
||||
<td align='center' $col>$DAYdt$HOURdt:$MINdt:$SECdt</td>
|
||||
<td align='center' $col>$ip</td>
|
||||
<td align='center' $col>$so</td>
|
||||
<td align='left' $col><a href='$url' title='$url' target='_new'>$part</a></td>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
|
||||
@@ -309,18 +309,19 @@ if ($lines)
|
||||
|
||||
$lines = 0;
|
||||
|
||||
print "<table width='100%'>\n";
|
||||
print "<table width='100%' class='tbl'>";
|
||||
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 "<th align='center'><b>$Lang::tr{'urlfilter time'}</b></th>\n";
|
||||
print "<th align='center'><b>$Lang::tr{'urlfilter category'}</b></th>\n";
|
||||
print "<th align='center'><b>$Lang::tr{'urlfilter client'}</b></th>\n";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on') { print "<th align='center'><b>$Lang::tr{'urlfilter username'}</b></th>\n"; }
|
||||
print "<th align='center'><b>$Lang::tr{'urlfilter dst'}</b></th>\n";
|
||||
print "</tr>\n";
|
||||
}
|
||||
|
||||
my $col="";
|
||||
foreach (@slice)
|
||||
{
|
||||
undef $attr1; undef $attr2;
|
||||
@@ -336,17 +337,23 @@ if ($lines)
|
||||
if (@loginfo[2] =~ /emergency/) { $attr1 .= "<b><font color='$Header::colourerr'>"; $attr2 .= "</font></b>"; }
|
||||
print "<tr>\n";
|
||||
} else {
|
||||
if ($lines % 2) { print "<tr bgcolor='$color{'color20'}'>\n"; } else { print "<tr bgcolor='$color{'color22'}'>\n"; }
|
||||
if ($lines % 2) {
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color22'}'";
|
||||
}else {
|
||||
print "<tr>";
|
||||
$col="bgcolor='$color{'color20'}'";
|
||||
}
|
||||
}
|
||||
if ($cgiparams{'LOGTYPE'} eq 'squidGuard') {
|
||||
print "<td nowrap>$time $pid $attr1@loginfo$attr2</td>\n";
|
||||
print "<td nowrap $col>$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";
|
||||
print "<td width='10%' align='center' nowrap $col>$time</td>\n";
|
||||
print "<td width='11%' align='center' nowrap $col>$category[1]</td>\n";
|
||||
print "<td width='15%' align='center' nowrap $col>$ip[0]</td>\n";
|
||||
if ($filtersettings{'ENABLE_USERNAME_LOG'} eq 'on')
|
||||
{
|
||||
print "<td width='12%' align='center' nowrap>$loginfo[3]</td>\n";
|
||||
print "<td width='12%' align='center' nowrap $col>$loginfo[3]</td>\n";
|
||||
$site = substr($dsturl,0,55);
|
||||
if (length($dsturl) > 55) { $site .= "..."; }
|
||||
} else {
|
||||
@@ -354,7 +361,7 @@ if ($lines)
|
||||
if (length($dsturl) > 69) { $site .= "..."; }
|
||||
}
|
||||
#print "<td>$site</td>\n";
|
||||
print "<td><a href='$dsturl' title='$dsturl' target='_blank'>$site</a></td>\n";
|
||||
print "<td $col><a href='$dsturl' title='$dsturl' target='_blank'>$site</a></td>\n";
|
||||
}
|
||||
print "</tr>\n";
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user