qos-scripts: Rework qos-stat script

SVN-Revision: 25052
This commit is contained in:
Vasilis Tsiligiannis 2011-01-20 17:33:41 +00:00
parent 876dd50e11
commit a98c957eb5
2 changed files with 59 additions and 16 deletions

View file

@ -1,5 +1,5 @@
#
# Copyright (C) 2006-2010 OpenWrt.org
# Copyright (C) 2006-2011 OpenWrt.org
#
# This is free software, licensed under the GNU General Public License v2.
# See /LICENSE for more information.
@ -9,7 +9,7 @@ include $(TOPDIR)/rules.mk
PKG_NAME:=qos-scripts
PKG_VERSION:=1.2.1
PKG_RELEASE:=3
PKG_RELEASE:=4
PKG_BUILD_DIR := $(BUILD_DIR)/$(PKG_NAME)

View file

@ -1,16 +1,59 @@
#!/bin/sh
echo '#################'
echo '# EGRESS STATUS #'
echo '#################'
echo
for iface in $(tc qdisc show | grep hfsc | awk '{print $5}' | grep -v imq); do
tc -s class show dev "$iface"
done
# Copyright (C) 2011 OpenWrt.org
echo '##################'
echo '# INGRESS STATUS #'
echo '##################'
echo
for iface in $(tc qdisc show | grep hfsc | awk '{print $5}' | grep imq); do
tc -s class show dev "$iface"
done
. /etc/functions.sh
include /lib/network
get_ifname() {
local interface="$1"
local cfgt
scan_interfaces
config_get cfgt "$interface" TYPE
[ "$cfgt" == "interface" ] && config_get "$interface" ifname
}
config_cb() {
config_get TYPE "$CONFIG_SECTION" TYPE
[ "interface" == "$TYPE" ] && {
config_get device "$CONFIG_SECTION" ifname
[ -z "$device" ] && device="$(get_ifname ${CONFIG_SECTION})"
config_set "$CONFIG_SECTION" device "$device"
}
}
config_load qos
print_comments() {
echo ''
echo '# Interface: '"$1"
echo '# Direction: '"$2"
echo '# Stats: '"$3"
echo ''
}
interface_stats() {
local interface="$1"
local device
config_get device "$interface" device
config_get_bool enabled "$interface" enabled 1
[ -z "$device" -o 1 -ne "$enabled" ] && {
return 1
}
config_get_bool halfduplex "$interface" halfduplex
[ 1 -ne "$halfduplex" ] && {
unset halfduplex
print_comments "$interface" "Egress" "Start"
tc -s class show dev "$device"
print_comments "$interface" "Egress" "End"
}
print_comments "$interface" "Ingress${halfduplex:+/Egress}" "Start"
tc -s class show dev "$(iptables -v -L PREROUTING -t mangle | awk '/IMQ: todev .*$/ && $6 ~ /'$device'/ {print "imq"$12}')"
print_comments "$interface" "Ingress${halfduplex:+/Egress}" "End"
}
[ -z "$1" ] && config_foreach interface_stats interface || interface_stats "$1"