HDD Temperature widget included.

Widget uses the hddtemp daemon to return the temperatures for all
available hard drives. It uses curl and connects to the daemon over
telnet.

hddtemp.lua

@@ -0,0 +1,39 @@
+----------------------------------------------------------
+-- Licensed under the GNU General Public License version 2
+--  * Copyright (C) 2009 Adrian C. <anrxc_sysphere_org>
+----------------------------------------------------------
+
+-- {{{ Grab environment
+local io = { popen = io.popen }
+local setmetatable = setmetatable
+-- }}}
+
+
+-- Hddtemp: provides hard drive temperatures using the hddtemp daemon
+module("vicious.hddtemp")
+
+
+-- {{{ HDD Temperature widget type
+function worker(format, port)
+    -- Fallback to default hddtemp port
+    if port == nil then port = 7634 end
+
+    -- Get info from the hddtemp daemon
+    local f = io.popen("curl --max-time 3 -f -s telnet://127.0.0.1:" .. port)
+    local hdd_temp = {}
+
+    -- Get temperature data
+    for line in f:lines() do
+        local disk, temp = line:match("|([%/%a]+)|.*|([%d]+)|[CF]+|")
+
+        if disk ~= nil and temp ~= nil then
+            hdd_temp["{"..disk.."}"] = temp
+        end
+    end
+    f:close()
+
+    return hdd_temp
+end
+-- }}}
+
+setmetatable(_M, { __call = function(_, ...) return worker(...) end })