package/network/config/qos-scripts/files/usr/bin/qos-stat

   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"