From 266c10006ae283728cd676fdaec61b421bf9c137 Mon Sep 17 00:00:00 2001
From: Akamaru <akamaru92@live.de>
Date: Sun, 13 Sep 2015 18:23:35 +0200
Subject: [PATCH] rss.lua: second try

---
 plugins/rss.lua | 53 ++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 48 insertions(+), 5 deletions(-)

diff --git a/plugins/rss.lua b/plugins/rss.lua
index 2aa8e4d..59794a5 100644
--- a/plugins/rss.lua
+++ b/plugins/rss.lua
@@ -1,3 +1,41 @@
+feedparser = (loadfile "./libs/feedparser.lua")()
+
+local function unescape_for_rss(str)
+  -- Character encoding
+  str = string.gsub(str, "&#124;", "|")
+  str = string.gsub(str, "&#8249;", "‹")
+  str = string.gsub(str, "&lt;", "<")
+  str = string.gsub(str, "&gt;", ">")
+  str = string.gsub(str, "&#39;", "'")
+  str = string.gsub(str, "&#8217;", "'")
+  str = string.gsub(str, "&ndash;", "–")
+  str = string.gsub(str, "&raquo;", "»")
+  str = string.gsub(str, "&#187;", "»")
+  str = string.gsub(str, "&#8211;", "–")
+  str = string.gsub(str, "&#8220;", "“")
+  str = string.gsub(str, "&#8221;", "”")
+  str = string.gsub(str, "&#8364;", "€")
+  str = string.gsub(str, "&#223;", "ß")
+  
+  -- Ä Ö Ü
+  str = string.gsub(str, "&auml;", "ä")
+  str = string.gsub(str, "&Auml;", "Ä")
+  str = string.gsub(str, "&#228;", "ä")
+  str = string.gsub(str, "&#196;", "Ä")
+  str = string.gsub(str, "&ouml;", "ö")
+  str = string.gsub(str, "&Ouml;", "Ö")
+  str = string.gsub(str, "&#246;", "ö")
+  str = string.gsub(str, "&#214;", "Ö")
+  str = string.gsub(str, "&uuml;", "ü")
+  str = string.gsub(str, "&Uuml;", "Ü")
+  str = string.gsub(str, "&#252;", "ü")
+  str = string.gsub(str, "&#220;", "Ü")
+  -- str = string.gsub( str, '&#(%d+);', function(n) return string.char(n) end ) <- There is a bug, but I don't know!?
+  str = string.gsub( str, '&#x(%d+);', function(n) return string.char(tonumber(n,16)) end )
+  str = string.gsub( str, '&amp;', '&' ) -- Be sure to do this after all others
+  return str
+end
+
 local function get_base_redis(id, option, extra)
    local ex = ''
    if option ~= nil then
@@ -123,6 +161,7 @@ local function cron()
    local keys = redis:keys(get_base_redis("*", "subs"))
    for k,v in pairs(keys) do
       local base = string.match(v, "rss:(.+):subs")  -- Get the URL base
+	  --print('Checke RSS: '..base)
       local prot = redis:get(get_base_redis(base, "protocol"))
       local last = redis:get(get_base_redis(base, "last_entry"))
       local url = prot .. "://" .. base
@@ -132,12 +171,16 @@ local function cron()
       end
       local newentr = get_new_entries(last, parsed.entries)
       local subscribers = {}
-      local text = ''  -- Send only one message with all updates
+      local text = ''  -- Send one message per feed with the latest entries
       for k2, v2 in pairs(newentr) do
-         local title = v2.title or 'No title'
-         local link = v2.link or v2.id or 'No Link'
-		 --text = string.gsub(text, "\n", "")
-         text = text .. '[RSS] '.. title .. '\n(' .. link .. ')\n\n' 
+         local title = v2.title or 'Kein Titel'
+         local link = v2.link or v2.id or 'Kein Link'
+		 if v2.content then 
+		   content = string.sub(unescape_for_rss(v2.content:gsub("%b<>", "")), 1, 250) .. '...'
+		 else
+		   content = string.sub(unescape_for_rss(v2.summary:gsub("%b<>", "")), 1, 250) .. '...'
+		 end
+		 text = text .. '[RSS] '.. title .. '\n'..content..'\n\n(' .. link .. ')\n\n'
       end
       if text ~= '' then
          local newlast = newentr[1].id