applications: add freifunk widgets app to customize the index page

[project/luci.git] / applications / luci-freifunk-widgets / luasrc / view / freifunk / widgets / rssfeed / main.htm

diff --git a/applications/luci-freifunk-widgets/luasrc/view/freifunk/widgets/rssfeed/main.htm b/applications/luci-freifunk-widgets/luasrc/view/freifunk/widgets/rssfeed/main.htm
new file mode 100644 (file)
index 0000000..ad64da5
--- /dev/null
+++ b/applications/luci-freifunk-widgets/luasrc/view/freifunk/widgets/rssfeed/main.htm
@@ -0,0 +1,70 @@
+<%
+local sys = require "luci.sys"
+local utl = require "luci.util"
+local fs = require "luci.fs"
+local i18n = require "luci.i18n"
+local url = data.url
+local title = data.title or i18n.translate("RSS")
+local max = tonumber(data.max) or 10
+local rss
+local pr = data.paddingright or "0"
+local output = {}
+local width = data.width or "100%"
+if type(width) == "number" then
+       width = width .. "px"
+end
+local cachetime = tonumber(data.cache) or 3600
+cachefile = "/tmp/" .. name .. ".cache"
+%>
+<div id="<%=name%>" style="width:<%=width%>;float:left">
+<div style="padding-right: <%=pr%>">
+<h2><%=title%></h2>
+
+<% if not url then %>
+       <%:No url found in config%>
+<% else
+       local mtime = luci.fs.mtime(cachefile) or 0
+       local now = os.time()
+       expire = mtime + cachetime
+
+       if not fs.access(cachefile) or expire < now then
+               rss = sys.httpget(url)
+               if #rss == 0 then
+               %>
+                        <%:Could not get rss data from%> <a href="<%=url%>"><%=url%></a>
+               <%
+               else
+                       local count = 0
+                       for item in string.gmatch(rss, "<item>(.-)</item>") do
+                               if count < max then
+                                       local title = item:match("<title>(.-)</title>")
+                                       local link = item:match("<link>(.-)</link>")
+                                       local desc = item:match("<description>(.-)</description>") or ""
+                                       if title and link then
+                                               table.insert(output, { title = utl.pcdata(title), link = utl.pcdata(link) })
+                                       end
+                                       count = count + 1
+                               end
+                       end
+                       local file = io.open(cachefile, "w")
+                       file:write(utl.serialize_data(output))
+                       file:close()
+               end
+       else
+               local file = assert(io.open(cachefile))
+               output = utl.restore_data(file:read'*a')
+       end
+end
+
+if #output > 0 then
+%>
+<ul>
+<%
+       for k, v in ipairs(output) do
+%>
+               <li><a href="<%=v.link%>"><%=v.title%></a></li>
+<% end %>
+</ul>
+</div>
+</div>
+<%end%>