webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 11:13:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add links to sarg reports on the proxy reports page.

Browse Source
This commit is contained in:
Michael Tremer
2012-11-26 12:18:54 +01:00
parent f87161948c
commit 3ef99ad95a
3 changed files with 91 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
html/cgi-bin/logs.cgi/calamaris.dat
View File

@@ -24,6 +24,7 @@ my $unique=time;
my $squidlogdir = "/var/log/squid";
my $reportdir = "${General::swroot}/proxy/calamaris/reports";
my $sargdir = "/var/log/sarg";
unless (-e $reportdir) { mkdir($reportdir) }
@@ -241,6 +242,86 @@ if ($errormessage) {
&Header::closebox();
}
# Link sarg reports.
if (-e $sargdir) {
&Header::openbox('100%', 'left', "$Lang::tr{'proxy reports'}:");
print <<END;
<table width="100%">
<tr>
END
# Today.
if (-e "$sargdir/today") {
print <<END;
<td width="25%" align="center">
<a href="/proxy-reports/today" target="_blank">$Lang::tr{'proxy reports today'}</a>
</td>
END
} else {
print <<END;
<td width="25%" align="center">
$Lang::tr{'proxy reports today'}
</td>
END
}
# Daily.
if (-e "$sargdir/daily") {
print <<END;
<td width="25%" align="center">
<a href="/proxy-reports/daily" target="_blank">$Lang::tr{'proxy reports daily'}</a>
</td>
END
} else {
print <<END;
<td width="25%" align="center">
$Lang::tr{'proxy reports daily'}
</td>
END
}
# Weekly.
if (-e "$sargdir/weekly") {
print <<END;
<td width="25%" align="center">
<a href="/proxy-reports/weekly" target="_blank">$Lang::tr{'proxy reports weekly'}</a>
</td>
END
} else {
print <<END;
<td width="25%" align="center">
$Lang::tr{'proxy reports weekly'}
</td>
END
}
# Monthly.
if (-e "$sargdir/monthly") {
print <<END;
<td width="25%" align="center">
<a href="/proxy-reports/monthly" target="_blank">$Lang::tr{'proxy reports monthly'}</a>
</td>
END
} else {
print <<END;
<td width="25%" align="center">
$Lang::tr{'proxy reports monthly'}
</td>
END
}
print <<END;
</tr>
</table>
<br><br>
END
&Header::closebox();
}
&Header::openbox('100%', 'left', "$Lang::tr{'settings'}:");
print <<END