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

vpn-statistics: change graphs and datatypes of rrd

Browse Source
This commit is contained in:
Alexander Marx
2014-09-26 13:18:45 +02:00
committed by Alexander Marx
parent 0d0ee70f3b
commit c9ac8b8052
5 changed files with 105 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
html/cgi-bin/netovpnrw.cgi Normal file → Executable file
View File

@@ -50,17 +50,21 @@ if ( $querry[0] ne "" && $querry[0] ne "UNDEF"){
&Header::openpage($Lang::tr{'host to net vpn'}, 1, '');
&Header::openbigbox('100%', 'left');
my @vpngraphs = `find /var/log/rrd/collectd/localhost/openvpn-*/ -not -path *openvpn-UNDEF* -name *.rrd|sort`;
my @vpngraphs = `find /var/log/rrd/collectd/localhost/openvpn-*/ -not -path *openvpn-UNDEF* -not -path *openvpn-*n2n* -name *.rrd|sort`;
foreach (@vpngraphs){
$_ =~ /(.*)\/openvpn-(.*)\/if_octets.rrd/;
push(@vpns,$2);
if($_ =~ /(.*)\/openvpn-(.*)\/if_octets_derive.rrd/){
push(@vpns,$2);
}
}
foreach (@vpns) {
&Header::openbox('100%', 'center', "$_ $Lang::tr{'graph'}");
&Graphs::makegraphbox("netovpnrw.cgi",$_,"week");
&Header::closebox();
if(@vpns){
foreach (@vpns) {
&Header::openbox('100%', 'center', "$_ $Lang::tr{'graph'}");
&Graphs::makegraphbox("netovpnrw.cgi",$_,"week");
&Header::closebox();
}
}else{
print "<center>".$Lang::tr{'no data'}."</center>";
}
my $output = '';
&Header::closebigbox();

18
html/cgi-bin/netovpnsrv.cgi
View File

@@ -52,15 +52,19 @@ if ( $querry[0] ne ""){
my @vpngraphs = `find /var/log/rrd/collectd/localhost/openvpn-*-n2n/ -not -path *openvpn-UNDEF* -name *traffic.rrd|sort`;
foreach (@vpngraphs){
$_ =~ /(.*)\/openvpn-(.*)\/if_octets-traffic.rrd/;
push(@vpns,$2);
if($_ =~ /(.*)\/openvpn-(.*)\/if_octets_derive-traffic.rrd/){
push(@vpns,$2);
}
}
foreach (@vpns) {
&Header::openbox('100%', 'center', "$_ $Lang::tr{'graph'}");
&Graphs::makegraphbox("netovpnsrv.cgi",$_,"week");
&Header::closebox();
if (@vpns){
foreach (@vpns) {
&Header::openbox('100%', 'center', "$_ $Lang::tr{'graph'}");
&Graphs::makegraphbox("netovpnsrv.cgi",$_,"week");
&Header::closebox();
}
}else{
print "<center>".$Lang::tr{'no data'}."</center>";
}
my $output = '';
&Header::closebigbox();