Akamaru/Mikubot
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Bla bin zu faul

Browse Source
This commit is contained in:
Akamaru 2015-12-17 17:54:04 +01:00
parent 5576ec3af8
commit 5569f7d94c
6 changed files with 121 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
plugins/akasblog.lua
View File

@ -28,6 +28,7 @@ local function get_post(post)
title = string.gsub(title, "»", "»")
title = string.gsub(title, "ß", "ß")
title = string.gsub(title, "™", "™")
title = string.gsub(title, "&", "&")
title = string.gsub(title, "'", "'")
title = string.gsub(title, "'", "'")
title = string.gsub(title, "|", "|")
@ -59,15 +60,27 @@ local function get_post(post)
local date = makeOurDate(data.date)
local content = string.match(data.excerpt, '<p>(.*)</p>')
local url = data.url
if data.thumbnail then
image_url = data.thumbnail
end
local text = title..' ('..from..' am '..date..')\n\n'..content..'...\n'..url
if data.thumbnail then
return text, image_url
else
return text
end
end
local function run(msg, matches)
local text = get_post(post)
local text, image_url = get_post(post)
local receiver = get_receiver(msg)
if image_url then
local receiver = get_receiver(msg)
local file = download_to_file(image_url)
send_photo(receiver, file, ok_cb, false)
end
return text
end

2
plugins/facebook.lua
View File

@ -41,7 +41,7 @@ local function fb_post (id, story_id)
story = ""
end
local text = from..story..':\n'..message..'\n'..link
local text = from..story..' hat gepostet:\n'..message..'\n'..link
return text
end

3
plugins/myanimelist.lua
View File

@ -91,7 +91,8 @@ local function send_anime_data(result, receiver)
desc = ''
end
local text = title..typ..syno..eng..episodes..status..score..startdate..enddate..'\n'..desc..'\n'..mal_url
local text = title..typ..syno..eng..episodes..status..score..startdate..enddate..'\n'..desc..'\n'..mal_url
if xml.find(result, 'image') then
local image_url = xml.find(result, 'image')[1]
local cb_extra = {

1
plugins/pokedex.lua
View File

@ -4,7 +4,6 @@ local images_enabled = true;
local function get_sprite(path)
local url = "http://pokeapi.co/"..path
print(url)
local b,c = http.request(url)
local data = json:decode(b)
local image = data.image

94
plugins/ponywave.lua Normal file
View File

@ -0,0 +1,94 @@
do
local makeOurDate = function(dateString)
local pattern = "(%d+)%-(%d+)%-(%d+)"
local year, month, day = dateString:match(pattern)
return day..'.'..month..'.'..year
end
local function get_post(post)
local url = 'https://ponywave.de/?json=get_post&post_id=blub'
local res,code = https.request(url)
local data = json:decode(res).post
if code ~= 200 then return "HTTP-Fehler" end
if not data then return "HTTP-Fehler" end
local title = data.title
-- Character encoding
title = string.gsub(title, "&acute;", "´")
title = string.gsub(title, "&amp;", "&")
title = string.gsub(title, "&gt;", ">")
title = string.gsub(title, "&quot;", '"')
title = string.gsub(title, "&lt;", "<")
title = string.gsub(title, "&mdash;", "—")
title = string.gsub(title, "&nabla;", "∇")
title = string.gsub(title, "&ndash;", "–")
title = string.gsub(title, "&Psi;", "ψ")
title = string.gsub(title, "&psi;", "ψ")
title = string.gsub(title, "&raquo;", "»")
title = string.gsub(title, "&szlig;", "ß")
title = string.gsub(title, "&trade;", "™")
title = string.gsub(title, "&#038;", "&")
title = string.gsub(title, "&#039;", "'")
title = string.gsub(title, "&#39;", "'")
title = string.gsub(title, "&#124;", "|")
title = string.gsub(title, "&#160;", " ")
title = string.gsub(title, "&#187;", "»")
title = string.gsub(title, "&#223;", "ß")
title = string.gsub(title, "&#8211;", "–")
title = string.gsub(title, "&#8217;", "'")
title = string.gsub(title, "&#8220;", "“")
title = string.gsub(title, "&#8221;", "”")
title = string.gsub(title, "&#8222;", "„")
title = string.gsub(title, "&#8249;", "‹")
title = string.gsub(title, "&#8364;", "€")
-- Ä Ö Ü
title = string.gsub(title, "&auml;", "ä")
title = string.gsub(title, "&Auml;", "Ä")
title = string.gsub(title, "&#228;", "ä")
title = string.gsub(title, "&#196;", "Ä")
title = string.gsub(title, "&ouml;", "ö")
title = string.gsub(title, "&Ouml;", "Ö")
title = string.gsub(title, "&#246;", "ö")
title = string.gsub(title, "&#214;", "Ö")
title = string.gsub(title, "&uuml;", "ü")
title = string.gsub(title, "&Uuml;", "Ü")
title = string.gsub(title, "&#252;", "ü")
title = string.gsub(title, "&#220;", "Ü")
local from = data.author.name
local date = makeOurDate(data.date)
local content = string.match(data.excerpt, '<p>(.*)</p>')
local url = data.url
if data.thumbnail then
image_url = data.thumbnail
end
local text = title..' ('..from..' am '..date..')\n\n'..content..'...\n'..url
if data.thumbnail then
return text, image_url
else
return text
end
end
local function run(msg, matches)
local text, image_url = get_post(post)
local receiver = get_receiver(msg)
if image_url then
local receiver = get_receiver(msg)
local file = download_to_file(image_url)
send_photo(receiver, file, ok_cb, false)
end
return text
end
return {
description = "Sendet letzten PonyWave Beitrag",
usage = "/pw",
patterns = {"^/[Pp][Ww]$"},
run = run
}
end

17
plugins/url_title.lua
View File

@ -22,6 +22,7 @@ function getTitle(page)
s = string.gsub(s, "&reg;", "®")
s = string.gsub(s, "&szlig;", "ß")
s = string.gsub(s, "&trade;", "™")
s = string.gsub(s, "&#038;", "&")
s = string.gsub(s, "&#039;", "'")
s = string.gsub(s, "&#39;", "'")
s = string.gsub(s, "&#124;", "|")
@ -64,9 +65,6 @@ end
function run(msg, matches)
local url = matches[1]
if string.ends(url, ".jpg") or string.ends(url, ".gif") or string.ends(url, ".png") then
return
end
local result = http.request(url)
local title = getTitle(result)
@ -80,11 +78,12 @@ function run(msg, matches)
title == "Redirection" or
title == "Object moved" or
title == "Error 404 (Not Found)!!1" or
title =="Moved Temporarily" or
title == "Moved Temporarily" or
title == "Not Found" or
title == "Document Moved" or
title == "521: Web server is down" or
string.match(title, "on Steam") or
string.match(title, "521: Web server is down") or
string.match(title, "eBay</title>") or
string.match(title, "Document Moved") or
string.match(msg.text, "twitch.tv") or
string.match(msg.text, "twitter.com") or
string.match(msg.text, "steamcommunity.com/app/") or
@ -97,7 +96,11 @@ function run(msg, matches)
string.match(msg.text, "rule34.xxx/index.php") or
string.match(msg.text, "openings.moe/%?video") or
string.match(msg.text, "myfigurecollection.net") or
string.match(msg.text, "dropbox.com/s/") then
string.match(msg.text, "dropbox.com/s/") or
string.ends(url, ".jpg") or
string.ends(url, ".jpeg") or
string.ends(url, ".gif") or
string.ends(url, ".png") then
print('Ungültig, da "'..title..'"')
else
return title