autocore: ethinfo: rewritten in lua

package/lean/autocore/files/arm/sbin/ethinfo

@@ -1,39 +1,37 @@
-#!/bin/sh
+#!/usr/bin/lua
+-- Copyright (C) 2022 Tianling Shen <cnsztl@immortalwrt.org>
 
-a=$(ls /sys/class/net/*/device/uevent | grep eth | awk -F '/' '{print $5}')
+local util = require "luci.util"
-b=$(echo "$a" | wc -l)
+local jsonc = require "luci.jsonc"
-rm -f /tmp/state/ethinfo
 
-echo -n "[" > /tmp/state/ethinfo
+local eth_info = {}
+local ifname, stat
+for ifname, stat in pairs(util.ubus("network.device", "status")) do
+	if ifname:match("^(eth%d+)$") == ifname then
+		local status, speed, duplex
 
-for i in $(seq 1 $b)
+		status = stat.carrier and 1 or 0
-do
-	h=$(echo '{"name":' )
-	c=$(echo "$a" | sed -n ${i}p)
-	d=$(ethtool $c)
 
-	e=$(echo "$d" | grep "Link detected" | awk -F: '{printf $2}' | sed 's/^[ \t]*//g')
+		if stat.speed:sub(1, 1) == "-" then
-	if [ $e = yes ]; then
+			speed = " - "
-		l=1
+		else
-	else
+			speed = stat.speed:sub(1, -2) .. "Mb/s"
-		l=0
+		end
-	fi
 
-	f=$(echo "$d" | grep "Speed" | awk -F: '{printf $2}' | sed 's/^[ \t]*//g' | tr -d "Unknown!")
+		if stat.carrier and stat.speed:sub(-1) == "F" then
-	[ -z "$f" ] && f=" - "
+			duplex = 1
+		else
+			duplex = 0
+		end
 
-	g=$(echo "$d" | grep "Duplex" | awk -F: '{printf $2}' | sed 's/^[ \t]*//g')
+		eth_info[#eth_info+1] = { name = ifname, status = status,
-	if [ "$g" == "Full" ]; then
+					speed = speed, duplex = duplex }
-		x=1
+	end
-	else
+end
-		x=0
-	fi
 
-	echo -n "$h \"$c\", \"status\": $l, \"speed\": \"$f\", \"duplex\": $x}," >> /tmp/state/ethinfo
+table.sort(eth_info,
-done
+	function(a, b)
+		return a.name < b.name
+	end)
 
-sed -i 's/.$//' /tmp/state/ethinfo
+print(jsonc.stringify(eth_info))
-
-echo -n "]" >> /tmp/state/ethinfo
-
-cat /tmp/state/ethinfo