html/cgi-bin/traffic.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
   6 #                                                                             #
   7 # This program is free software: you can redistribute it and/or modify        #
   8 # it under the terms of the GNU General Public License as published by        #
   9 # the Free Software Foundation, either version 3 of the License, or           #
  10 # (at your option) any later version.                                         #
  11 #                                                                             #
  12 # This program is distributed in the hope that it will be useful,             #
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  15 # GNU General Public License for more details.                                #
  16 #                                                                             #
  17 # You should have received a copy of the GNU General Public License           #
  18 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  19 #                                                                             #
  20 ###############################################################################
  21
  22 use strict;
  23
  24 # enable only the following on debugging purpose
  25 #use warnings;
  26 #use CGI::Carp 'fatalsToBrowser';
  27
  28 require '/var/ipfire/general-functions.pl';
  29 require "${General::swroot}/lang.pl";
  30 require "${General::swroot}/header.pl";
  31 require "${General::swroot}/net-traffic/net-traffic-admin.pl";
  32 require "${General::swroot}/net-traffic/net-traffic-lib.pl";
  33
  34 my %color = ();
  35 my %mainsettings = ();
  36 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  37 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  38
  39 my %cgiparams;
  40 my %pppsettings;
  41 my %netsettings;
  42
  43 &General::readhash("${General::swroot}/ppp/settings", \%pppsettings);
  44 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
  45
  46
  47 &Header::getcgihash(\%cgiparams);
  48
  49 &Header::showhttpheaders();
  50 &Header::openpage($Lang::tr{'sstraffic'}, 1, '');
  51 &Header::openbigbox('100%', 'left');
  52
  53 &Header::openbox('100%', 'center', "$Lang::tr{'traffics'}");
  54
  55 # Display internal network
  56 display_vnstat($netsettings{'GREEN_DEV'});
  57
  58 # Display external network / check if it is PPP or ETH
  59 # and dont display if RED_DEV=GREEN_DEV (green only mode)
  60 if ($netsettings{'RED_TYPE'} ne 'PPPOE') {
  61     if ($netsettings{'RED_DEV'} ne $netsettings{'GREEN_DEV'}) {
  62         display_vnstat($netsettings{'RED_DEV'});
  63     }
  64 } else {
  65     display_vnstat("ppp0");
  66 }
  67
  68 # Check config and display aditional Networks (BLUE and ORANGE)
  69 # if they exist
  70 if ($netsettings{'CONFIG_TYPE'} =~ /^(3|4)$/) {
  71     display_vnstat($netsettings{'BLUE_DEV'});
  72 }
  73
  74 if ($netsettings{'CONFIG_TYPE'} =~ /^(2|4)$/) {
  75     display_vnstat($netsettings{'ORANGE_DEV'});
  76 }
  77
  78 &Header::closebox();
  79 &Header::closebigbox();
  80 &Header::closepage();
  81
  82 sub display_vnstat
  83 {
  84         my $device = $_[0];
  85
  86         my $testdata = `/usr/bin/vnstat -i $device`;
  87
  88         if ( $testdata =~ 'enough') {
  89                 print"No data for $device !<br>";
  90         } else {
  91             # Falls back to textoutput if there was no % value because vnstati hang in this case
  92             if (!($testdata =~ 'nan%')) {
  93                     system("/usr/bin/vnstati -c 5 -s -i $device -o /srv/web/ipfire/html/graphs/vnstat-s-$device.png");
  94             }
  95             # Hour graph
  96             system("/usr/bin/vnstati -c 5 -h -i $device -o /srv/web/ipfire/html/graphs/vnstat-h-$device.png");
  97             # Day graph
  98             system("/usr/bin/vnstati -c 5 -d -i $device -o /srv/web/ipfire/html/graphs/vnstat-d-$device.png");
  99             # Month graph
 100             system("/usr/bin/vnstati -c 5 -m -i $device -o /srv/web/ipfire/html/graphs/vnstat-m-$device.png");
 101             # Top10 graph
 102             system("/usr/bin/vnstati -c 5 -t -i $device -o /srv/web/ipfire/html/graphs/vnstat-t-$device.png");
 103
 104 # Generate HTML-Table with the graphs
 105             print "<table>";
 106             if ($testdata =~ 'nan%') {
 107                 print "<tr><td><b><pre>";
 108                 system("/usr/bin/vnstat -i $device");
 109                 print "</pre></b></td></tr>";
 110             } else {
 111                 print"<tr><td><img src=\"/graphs/vnstat-s-$device.png\"></td></tr>";
 112             }
 113 print <<END
 114 <tr><td><img src="/graphs/vnstat-h-$device.png"></td></tr>
 115 <tr><td><img src="/graphs/vnstat-d-$device.png"></td></tr>
 116 <tr><td><img src="/graphs/vnstat-m-$device.png"></td></tr>
 117 <tr><td><img src="/graphs/vnstat-t-$device.png"></td></tr>
 118 </table>
 119 END
 120 ;
 121             }
 122         print"<hr>";
 123 }