OpenWrt – Blame information for rev 4

Subversion Repositories:
Rev:
Rev Author Line No. Line
4 office 1 #!/bin/sh
2 # Copyright (C) 2011 OpenWrt.org
3  
4 . /lib/functions.sh
5  
6 include /lib/network
7  
8 get_ifname() {
9 local interface="$1"
10 local cfgt
11  
12 scan_interfaces
13 config_get cfgt "$interface" TYPE
14 [ "$cfgt" = "interface" ] && config_get "$interface" ifname
15 }
16  
17 qos_set_device() {
18 config_get TYPE "$1" TYPE
19 [ "interface" = "$TYPE" ] && {
20 config_get device "$1" ifname
21 [ -z "$device" ] && device="$(get_ifname $1)"
22 config_set "$1" device "$device"
23 }
24 }
25  
26 config_load qos
27 config_foreach qos_set_device
28  
29 print_comments() {
30 echo ''
31 echo '# Interface: '"$1"
32 echo '# Direction: '"$2"
33 echo '# Stats: '"$3"
34 echo ''
35 }
36  
37 get_device() {
38 ( config_load network; scan_interfaces; config_get "$1" ifname )
39 }
40  
41 interface_stats() {
42 local interface="$1"
43 local device
44  
45 device="$(get_device "$interface")"
46 [ -z "$device" ] && config_get device "$interface" device
47 config_get_bool enabled "$interface" enabled 1
48 [ -z "$device" -o 1 -ne "$enabled" ] && {
49 return 1
50 }
51 config_get_bool halfduplex "$interface" halfduplex 0
52  
53 if [ 1 -ne "$halfduplex" ]; then
54 unset halfduplex
55 print_comments "$interface" "Egress" "Start"
56 tc -s class show dev "$device"
57 print_comments "$interface" "Egress" "End"
58 id="root"
59 else
60 id=""
61 fi
62  
63 print_comments "$interface" "Ingress${halfduplex:+/Egress}" "Start"
64 tc -s class show dev "$(tc filter show dev $device $id | grep mirred | sed -e 's,.*\(ifb.*\)).*,\1,')"
65 print_comments "$interface" "Ingress${halfduplex:+/Egress}" "End"
66 }
67  
68 [ -z "$1" ] && config_foreach interface_stats interface || interface_stats "$1"