| 1 | #!/bin/sh /etc/rc.common |
| 2 | # Copyright (C) 2012 OpenWrt.org |
| 3 | |
| 4 | START=99 |
| 5 | |
| 6 | EXTRA_COMMANDS="status lucistat" |
| 7 | EXTRA_HELP=" status Get DSL status information |
| 8 | lucistat Get status information if lua friendly format" |
| 9 | |
| 10 | SERVICE_DAEMONIZE=1 |
| 11 | SERVICE_WRITE_PID=1 |
| 12 | |
| 13 | # |
| 14 | # Basic functions to send CLI commands to the dsl_cpe_control daemon |
| 15 | # |
| 16 | dsl_cmd() { |
| 17 | killall -0 dsl_cpe_control && ( |
| 18 | echo "$@" > /tmp/pipe/dsl_cpe0_cmd |
| 19 | cat /tmp/pipe/dsl_cpe0_ack |
| 20 | ) |
| 21 | } |
| 22 | dsl_val() { |
| 23 | echo $(expr "$1" : '.*'$2'=\([-\.[:alnum:]]*\).*') |
| 24 | } |
| 25 | |
| 26 | # |
| 27 | # Simple divide by 10 routine to cope with one decimal place |
| 28 | # |
| 29 | dbt() { |
| 30 | local a=$(expr $1 / 10) |
| 31 | local b=$(expr $1 % 10) |
| 32 | echo "${a}.${b}" |
| 33 | } |
| 34 | # |
| 35 | # Take a number and convert to k or meg |
| 36 | # |
| 37 | scale() { |
| 38 | local val=$1 |
| 39 | local a |
| 40 | local b |
| 41 | |
| 42 | if [ "$val" -gt 1000000 ]; then |
| 43 | a=$(expr $val / 1000) |
| 44 | b=$(expr $a % 1000) |
| 45 | a=$(expr $a / 1000) |
| 46 | printf "%d.%03d Mb" ${a} ${b} |
| 47 | elif [ "$val" -gt 1000 ]; then |
| 48 | a=$(expr $val / 1000) |
| 49 | printf "%d Kb" ${a} |
| 50 | else |
| 51 | echo "${val} b" |
| 52 | fi |
| 53 | } |
| 54 | |
| 55 | # |
| 56 | # Read the data rates for both directions |
| 57 | # |
| 58 | data_rates() { |
| 59 | local csg |
| 60 | local dru |
| 61 | local drd |
| 62 | local sdru |
| 63 | local sdrd |
| 64 | |
| 65 | csg=$(dsl_cmd g997csg 0 1) |
| 66 | drd=$(dsl_val "$csg" ActualDataRate) |
| 67 | |
| 68 | csg=$(dsl_cmd g997csg 0 0) |
| 69 | dru=$(dsl_val "$csg" ActualDataRate) |
| 70 | |
| 71 | [ -z "$drd" ] && drd=0 |
| 72 | [ -z "$dru" ] && dru=0 |
| 73 | |
| 74 | sdrd=$(scale $drd) |
| 75 | sdru=$(scale $dru) |
| 76 | |
| 77 | if [ "$action" = "lucistat" ]; then |
| 78 | echo "dsl.data_rate_down=$drd" |
| 79 | echo "dsl.data_rate_up=$dru" |
| 80 | echo "dsl.data_rate_down_s=\"$sdrd\"" |
| 81 | echo "dsl.data_rate_up_s=\"$sdru\"" |
| 82 | else |
| 83 | echo "Data Rate: ${sdrd}/s / ${sdru}/s" |
| 84 | fi |
| 85 | } |
| 86 | |
| 87 | # |
| 88 | # Chipset |
| 89 | # |
| 90 | chipset() { |
| 91 | local vig |
| 92 | local cs |
| 93 | local csv |
| 94 | |
| 95 | vig=$(dsl_cmd vig) |
| 96 | cs=$(dsl_val "$vig" DSL_ChipSetType) |
| 97 | csv=$(dsl_val "$vig" DSL_ChipSetHWVersion) |
| 98 | |
| 99 | if [ "$action" = "lucistat" ]; then |
| 100 | echo "dsl.chipset=\"${cs} ${csv}\"" |
| 101 | else |
| 102 | echo "Chipset: ${cs} ${csv}" |
| 103 | fi |
| 104 | } |
| 105 | |
| 106 | # |
| 107 | # Work out how long the line has been up |
| 108 | # |
| 109 | line_uptime() { |
| 110 | local ccsg |
| 111 | local et |
| 112 | local etr |
| 113 | local d |
| 114 | local h |
| 115 | local m |
| 116 | local s |
| 117 | local rc="" |
| 118 | |
| 119 | ccsg=$(dsl_cmd pmccsg 0 0 0) |
| 120 | et=$(dsl_val "$ccsg" nElapsedTime) |
| 121 | |
| 122 | [ -z "$et" ] && et=0 |
| 123 | |
| 124 | if [ "$action" = "lucistat" ]; then |
| 125 | echo "dsl.line_uptime=${et}" |
| 126 | return |
| 127 | fi |
| 128 | |
| 129 | d=$(expr $et / 86400) |
| 130 | etr=$(expr $et % 86400) |
| 131 | h=$(expr $etr / 3600) |
| 132 | etr=$(expr $etr % 3600) |
| 133 | m=$(expr $etr / 60) |
| 134 | s=$(expr $etr % 60) |
| 135 | |
| 136 | |
| 137 | [ "${d}${h}${m}${s}" -ne 0 ] && rc="${s}s" |
| 138 | [ "${d}${h}${m}" -ne 0 ] && rc="${m}m ${rc}" |
| 139 | [ "${d}${h}" -ne 0 ] && rc="${h}h ${rc}" |
| 140 | [ "${d}" -ne 0 ] && rc="${d}d ${rc}" |
| 141 | |
| 142 | [ -z "$rc" ] && rc="down" |
| 143 | echo "Line Uptime: ${rc}" |
| 144 | } |
| 145 | |
| 146 | # |
| 147 | # Get noise and attenuation figures |
| 148 | # |
| 149 | line_data() { |
| 150 | local lsg |
| 151 | local latnu |
| 152 | local latnd |
| 153 | local snru |
| 154 | local snrd |
| 155 | |
| 156 | lsg=$(dsl_cmd g997lsg 1 1) |
| 157 | latnd=$(dsl_val "$lsg" LATN) |
| 158 | snrd=$(dsl_val "$lsg" SNR) |
| 159 | |
| 160 | lsg=$(dsl_cmd g997lsg 0 1) |
| 161 | latnu=$(dsl_val "$lsg" LATN) |
| 162 | snru=$(dsl_val "$lsg" SNR) |
| 163 | |
| 164 | [ -z "$latnd" ] && latnd=0 |
| 165 | [ -z "$latnu" ] && latnu=0 |
| 166 | [ -z "$snrd" ] && snrd=0 |
| 167 | [ -z "$snru" ] && snru=0 |
| 168 | |
| 169 | latnd=$(dbt $latnd) |
| 170 | latnu=$(dbt $latnu) |
| 171 | snrd=$(dbt $snrd) |
| 172 | snru=$(dbt $snru) |
| 173 | |
| 174 | if [ "$action" = "lucistat" ]; then |
| 175 | echo "dsl.line_attenuation_down=$latnd" |
| 176 | echo "dsl.line_attenuation_up=$latnu" |
| 177 | echo "dsl.noise_margin_down=$snrd" |
| 178 | echo "dsl.noise_margin_up=$snru" |
| 179 | else |
| 180 | echo "Line Attenuation: ${latnd}dB / ${latnu}dB" |
| 181 | echo "Noise Margin: ${snrd}dB / ${snru}dB" |
| 182 | fi |
| 183 | } |
| 184 | |
| 185 | # |
| 186 | # Is the line up? Or what state is it in? |
| 187 | # |
| 188 | line_state() { |
| 189 | local lsg=$(dsl_cmd lsg) |
| 190 | local ls=$(dsl_val "$lsg" nLineState); |
| 191 | local s; |
| 192 | |
| 193 | case "$ls" in |
| 194 | "0x0") s="not initialized" ;; |
| 195 | "0x1") s="exception" ;; |
| 196 | "0x10") s="not updated" ;; |
| 197 | "0xff") s="idle request" ;; |
| 198 | "0x100") s="idle" ;; |
| 199 | "0x1ff") s="silent request" ;; |
| 200 | "0x200") s="silent" ;; |
| 201 | "0x300") s="handshake" ;; |
| 202 | "0x380") s="full_init" ;; |
| 203 | "0x400") s="discovery" ;; |
| 204 | "0x500") s="training" ;; |
| 205 | "0x600") s="analysis" ;; |
| 206 | "0x700") s="exchange" ;; |
| 207 | "0x800") s="showtime_no_sync" ;; |
| 208 | "0x801") s="showtime_tc_sync" ;; |
| 209 | "0x900") s="fastretrain" ;; |
| 210 | "0xa00") s="lowpower_l2" ;; |
| 211 | "0xb00") s="loopdiagnostic active" ;; |
| 212 | "0xb10") s="loopdiagnostic data exchange" ;; |
| 213 | "0xb20") s="loopdiagnostic data request" ;; |
| 214 | "0xc00") s="loopdiagnostic complete" ;; |
| 215 | "0x1000000") s="test" ;; |
| 216 | "0xd00") s="resync" ;; |
| 217 | "0x3c0") s="short init entry" ;; |
| 218 | "") s="not running daemon"; ls="0xfff" ;; |
| 219 | *) s="unknown" ;; |
| 220 | esac |
| 221 | |
| 222 | if [ $action = "lucistat" ]; then |
| 223 | echo "dsl.line_state_num=$ls" |
| 224 | echo "dsl.line_state_detail=\"$s\"" |
| 225 | if [ "$ls" = "0x801" ]; then |
| 226 | echo "dsl.line_state=\"UP\"" |
| 227 | else |
| 228 | echo "dsl.line_state=\"DOWN\"" |
| 229 | fi |
| 230 | else |
| 231 | if [ "$ls" = "0x801" ]; then |
| 232 | echo "Line State: UP [$ls: $s]" |
| 233 | else |
| 234 | echo "Line State: DOWN [$ls: $s]" |
| 235 | fi |
| 236 | fi |
| 237 | } |
| 238 | |
| 239 | # |
| 240 | # Main status routine |
| 241 | # |
| 242 | status() { |
| 243 | chipset |
| 244 | line_state |
| 245 | data_rates |
| 246 | line_data |
| 247 | line_uptime |
| 248 | } |
| 249 | |
| 250 | # |
| 251 | # Luci (lua) compatible version that's easy to parse |
| 252 | # |
| 253 | lucistat() { |
| 254 | echo "local dsl={}" |
| 255 | status |
| 256 | echo "return dsl" |
| 257 | } |
| 258 | |
| 259 | |
| 260 | annex_b=10_00_10_00_00_04_00_00 |
| 261 | annex_bdmt=10_00_00_00_00_00_00_00 |
| 262 | annex_b2=00_00_10_00_00_00_00_00 |
| 263 | annex_b2p=00_00_00_00_00_04_00_00 |
| 264 | annex_a=04_01_04_00_00_01_00_00 |
| 265 | annex_at1=01_00_00_00_00_00_00_00 |
| 266 | annex_alite=00_01_00_00_00_00_00_00 |
| 267 | annex_admt=04_00_00_00_00_00_00_00 |
| 268 | annex_a2=00_00_04_00_00_00_00_00 |
| 269 | annex_a2p=00_00_00_00_00_01_00_00 |
| 270 | annex_l=00_00_00_00_04_00_00_00 |
| 271 | annex_m=00_00_00_00_40_00_04_00 |
| 272 | annex_m2=00_00_00_00_40_00_00_00 |
| 273 | annex_m2p=00_00_00_00_00_00_04_00 |
| 274 | |
| 275 | # |
| 276 | # Simple start routine |
| 277 | # |
| 278 | start() { |
| 279 | local annex |
| 280 | local firmware |
| 281 | local xtu |
| 282 | config_load network |
| 283 | config_get annex wan annex |
| 284 | config_get firmware wan firmware |
| 285 | |
| 286 | # get xtu |
| 287 | eval "xtu=\"\${annex_$annex}\"" |
| 288 | |
| 289 | # check for firmware |
| 290 | [ -z "${firmware}" ] && |
| 291 | firmware=adsl.bin |
| 292 | |
| 293 | # start CPE dsl daemon in the background |
| 294 | service_start /sbin/dsl_cpe_control -i${xtu} \ |
| 295 | -n /sbin/dsl_notify.sh \ |
| 296 | -f /lib/firmware/${firmware} |
| 297 | } |
| 298 | |
| 299 | # |
| 300 | # For stop we want to simulate the notification call for when |
| 301 | # the line goes down, so that we can stop the ppp link before |
| 302 | # we die. |
| 303 | # |
| 304 | stop() { |
| 305 | DSL_NOTIFICATION_TYPE="DSL_INTERFACE_STATUS" \ |
| 306 | DSL_INTERFACE_STATUS="DOWN" \ |
| 307 | /sbin/dsl_notify.sh |
| 308 | |
| 309 | service_stop /sbin/dsl_cpe_control |
| 310 | } |
| 311 | |
| 312 | |
