milkymist files: update m1-wireless script files

milkymist-files/files/opt/m1-wireless.lua

@@ -74,7 +74,11 @@ function iwscan(iface)
 		 else enc = "wep" end
 	      end
 	      
-	      local r = Q .. "\t" .. ESSID .. "\t" .. enc
+	      local a = Q:match("(%d-)/")
+	      local b = Q:match("/(%d-)$")
+	      Q = math.floor(tonumber(a)/tonumber(b)*100)
+
+	      local r = Q .. "%," .. ESSID .. "," .. enc
 
 	      table.insert(iws, r)
 	   end
@@ -84,4 +88,9 @@ function iwscan(iface)
 end
 
 local t = iwscan("wlan0")
+if t == {} then
+    print();
+else
     for k,v in pairs(t) do print(v) end
+end
+        

milkymist-files/files/opt/m1-wireless.sh

@@ -51,9 +51,22 @@ if [ "$1" == "get" ]; then
 fi
 
 if [ "$1" == "status" ]; then
-  ifconfig wlan0
+  sleep 1
+  IP=`ifconfig wlan0 2>/dev/null | grep "inet addr" | \
+      sed -e 's/^ *//g' | cut -d":" -f2 | cut -d" " -f1` 
+  if [ "$?" != 0 ] || [ "${IP}" == "" ]; then
+    echo "Disconnected"
+    echo "0.0.0.0"
+    exit 1
+  fi
+  
+  ESSID=`iwconfig wlan0 2>/dev/null | grep ESSID | cut -d":" -f 2 | sed -e 's/\"//g'`
+  
+  echo "${ESSID}"
+  echo "${IP}"
 
   exit 0
 fi
 
 echo "Usage: $0 [get/set/status] PARAMS..."
+exit 1