applications: add freifunk widgets app to customize the index page

1 files changed, 70 insertions, 0 deletions

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
index 0000000000..ad64da5673
--- /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%>