vpn-statistics: change graphs and datatypes of rrd

[ipfire-2.x.git] / html / cgi-bin / netovpnsrv.cgi

diff --git a/html/cgi-bin/netovpnsrv.cgi b/html/cgi-bin/netovpnsrv.cgi
index 9d5f29a76a1e5a1b34c6628d0b0e372b7cd46532..0ec9c679d519a8cc587dcaa3232f431872fc4f2e 100755 (executable)
--- a/html/cgi-bin/netovpnsrv.cgi
+++ b/html/cgi-bin/netovpnsrv.cgi
@@ -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();