projects / people / pmueller / ipfire-2.x.git / blame
| Commit | Line | Data |
|---|---|---|
| 16f6c28c | 1 | #!/usr/bin/perl |
| 70df8302 MT |
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 | ############################################################################### | |
| 16f6c28c MT |
21 | |
| 22 | my $data_last = $ENV{'QUERY_STRING'}; | |
| 23 | my $rxb_last = 0; | |
| 24 | my $txb_last = 0; | |
| 25 | ||
| 26 | my (@fields, $field, $name, $value); | |
| 27 | @fields = split(/&/, $data_last); | |
| 28 | foreach $field (@fields) { | |
| 29 | ($name, $value) = split(/=/, $field); | |
| 30 | $value =~ tr/+/ /; | |
| 31 | $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; | |
| 32 | if ("$name" eq "rxb_last") { | |
| 33 | $rxb_last = $value; | |
| 34 | } elsif ("$name" eq "txb_last") { | |
| 35 | $txb_last = $value; | |
| 36 | } | |
| 37 | } | |
| 38 | ||
| e39b0cbf AF |
39 | |
| 40 | my $interface = `cat /var/ipfire/red/iface`; | |
| 41 | my @data_now = `ip -s link show $interface`; | |
| 16f6c28c MT |
42 | |
| 43 | my $lastline; | |
| 44 | my $rxb_now = 0; | |
| 45 | my $txb_now = 0; | |
| 46 | foreach (@data_now) { | |
| 47 | if ( $lastline =~ /RX/ ) { | |
| 48 | @fields = split(/ /, $_); | |
| 49 | $rxb_now = $fields[4]; | |
| 50 | } elsif ( $lastline =~ /TX/ ) { | |
| 51 | @fields = split(/ /, $_); | |
| 52 | $txb_now = $fields[4]; | |
| 53 | } | |
| 54 | $lastline = $_; | |
| 55 | } | |
| 56 | ||
| 57 | my ($rx_kbs, $tx_kbs); | |
| 58 | my $rxb_diff = $rxb_now - $rxb_last; | |
| 59 | my $txb_diff = $txb_now - $txb_last; | |
| 60 | ||
| 61 | if(( $rxb_diff == $rxb_now ) && ( $txb_diff == $txb_now )) | |
| 62 | { | |
| 94ec137d CS |
63 | $rx_kbs = "0"; |
| 64 | $tx_kbs = "0"; | |
| 16f6c28c MT |
65 | } |
| 66 | else | |
| 67 | { | |
| 68 | $rx_kbs = $rxb_diff / 1024; | |
| 3ef6c343 | 69 | $rx_kbs = $rx_kbs / 3.2; |
| 16f6c28c MT |
70 | $rx_kbs = int($rx_kbs); |
| 71 | $tx_kbs = $txb_diff / 1024; | |
| 3ef6c343 | 72 | $tx_kbs = $tx_kbs / 3.2; |
| 16f6c28c MT |
73 | $tx_kbs = int($tx_kbs); |
| 74 | } | |
| 75 | ||
| 76 | print "Content-type: text/xml\n\n"; | |
| 77 | print "<?xml version=\"1.0\"?>\n"; | |
| 78 | print <<END | |
| 79 | <inetinfo> | |
| 80 | <rx_kbs>$tx_kbs kb/s</rx_kbs> | |
| 81 | <tx_kbs>$rx_kbs kb/s</tx_kbs> | |
| 82 | <rxb>$rxb_now</rxb> | |
| 83 | <txb>$txb_now</txb> | |
| 84 | </inetinfo> | |
| 85 | END | |
| 86 | ; |