mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
66c3619872
Bumping across one of our scripts with very long trailing whitespaces, I thought it might be a good idea to clean these up. Doing so, some missing or inconsistent licence headers were fixed. There is no need in shipping all these files en bloc, as their functionality won't change. Signed-off-by: Peter Müller <peter.mueller@ipfire.org>
102 lines
3.7 KiB
Perl
102 lines
3.7 KiB
Perl
#!/usr/bin/perl
|
|
###############################################################################
|
|
# #
|
|
# IPFire.org - A linux based firewall #
|
|
# Copyright (C) 2007-2021 IPFire Twan <info@ipfire.org> #
|
|
# #
|
|
# This program is free software: you can redistribute it and/or modify #
|
|
# it under the terms of the GNU General Public License as published by #
|
|
# the Free Software Foundation, either version 3 of the License, or #
|
|
# (at your option) any later version. #
|
|
# #
|
|
# This program is distributed in the hope that it will be useful, #
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
|
# GNU General Public License for more details. #
|
|
# #
|
|
# You should have received a copy of the GNU General Public License #
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
|
# #
|
|
###############################################################################
|
|
|
|
###############################################################################
|
|
# functions copied from general-functions.pl for speed improvement because #
|
|
# loading and initializing the whole general-functions.pl every second create #
|
|
# high system load #
|
|
###########################################OA##################################
|
|
#
|
|
# Function which will return the used interface for the red network zone (red0, ppp0, etc).
|
|
sub General__get_red_interface() {
|
|
|
|
open(IFACE, "/var/ipfire/red/iface") or die "Could not open /var/ipfire/red/iface";
|
|
|
|
my $interface = <IFACE>;
|
|
close(IFACE);
|
|
chomp $interface;
|
|
|
|
return $interface;
|
|
}
|
|
#
|
|
###############################################################################
|
|
|
|
my $data_last = $ENV{'QUERY_STRING'};
|
|
my $rxb_last = 0;
|
|
my $txb_last = 0;
|
|
|
|
my (@fields, $field, $name, $value);
|
|
@fields = split(/&/, $data_last);
|
|
foreach $field (@fields) {
|
|
($name, $value) = split(/=/, $field);
|
|
$value =~ tr/+/ /;
|
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
|
|
if ("$name" eq "rxb_last") {
|
|
$rxb_last = $value;
|
|
} elsif ("$name" eq "txb_last") {
|
|
$txb_last = $value;
|
|
}
|
|
}
|
|
|
|
my $interface = &General__get_red_interface();
|
|
|
|
open(RX, "/sys/class/net/$interface/statistics/rx_bytes") or die "Could not open /sys/class/net/$interface/statistics/rx_bytes";
|
|
my $rxb_now = <RX>;
|
|
close(RX);
|
|
chomp $rxb_now;
|
|
|
|
open(TX, "/sys/class/net/$interface/statistics/tx_bytes") or die "Could not open /sys/class/net/$interface/statistics/tx_bytes";
|
|
my $txb_now = <TX>;
|
|
close(TX);
|
|
chomp $txb_now;
|
|
|
|
my ($rx_kbs, $tx_kbs);
|
|
my $rxb_diff = $rxb_now - $rxb_last;
|
|
my $txb_diff = $txb_now - $txb_last;
|
|
|
|
if(( $rxb_diff == $rxb_now ) && ( $txb_diff == $txb_now ))
|
|
{
|
|
$rx_kbs = "0";
|
|
$tx_kbs = "0";
|
|
}
|
|
else
|
|
{
|
|
$rx_kbs = $rxb_diff / 1024;
|
|
$rx_kbs = $rx_kbs / 3.2;
|
|
$rx_kbs = int($rx_kbs);
|
|
$tx_kbs = $txb_diff / 1024;
|
|
$tx_kbs = $tx_kbs / 3.2;
|
|
$tx_kbs = int($tx_kbs);
|
|
}
|
|
|
|
print "pragma: no-cache\n";
|
|
print "Content-type: text/xml\n\n";
|
|
print "<?xml version=\"1.0\"?>\n";
|
|
print <<END
|
|
<inetinfo>
|
|
<rx_kbs>$tx_kbs kb/s</rx_kbs>
|
|
<tx_kbs>$rx_kbs kb/s</tx_kbs>
|
|
<rxb>$rxb_now</rxb>
|
|
<txb>$txb_now</txb>
|
|
</inetinfo>
|
|
END
|
|
;
|