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

removed dmm.lua

Browse Source 
its crap
This commit is contained in:
Akamaru 2015-05-21 20:52:55 +02:00
parent f35e2fca84
commit ba42811220
1 changed files with 0 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
plugins/dmm.lua
View File

@ -1,57 +0,0 @@
do
function get_videos(html)
local videos = {}
for p in html:gmatch("<p class=\"tmb\">.-<div class=\"value\">") do
table.insert(videos, {
link = p:match("href=\"(.-)\""):gsub("?.*", ""),
img = p:match("src=\"(.-)\""):gsub("pt.jpg", "pl.jpg"),
title = p:match("alt=\"(.-)\""),
name = p:match("<p class=\"sublink\">(.*)"):gsub("<.->", ""):match("^%s*(.-)%s*$")
})
end
return videos
end
function get_dmm(rawid)
local label, num = string.match(rawid, "(%a+).-(%d+)")
local id = string.format("%s%05d", label:lower(), num)
local res, code = http.request("http://www.dmm.co.jp/search/=/searchstr="..id)
if code ~= 200 then return "HTTP ERROR" end
return get_videos(res)[1]
end
function get_dmm_random()
local res, code = http.request("http://www.dmm.co.jp/digital/videoa/-/list/=/sort=ranking/")
if code ~= 200 then return "HTTP ERROR" end
local videos = get_videos(res)
return videos[math.random(1, #videos)]
end
function send_title(cb_extra, success, result)
if success then
local message = cb_extra[2] .. "\n" .. cb_extra[3] .. "\n" ..cb_extra[4]
send_msg(cb_extra[1], message, ok_cb, false)
end
end
function run(msg, matches)
local receiver = get_receiver(msg)
if matches[1] == "/dmm" then
video = get_dmm_random()
else
video = get_dmm(matches[1])
end
file_path = download_to_file(video.img)
send_photo(receiver, file_path, send_title, {receiver, video.title, video.name, video.link})
return false
end
return {
description = "Sendet dmm Video Info",
usage = {"/dmm","/dmm (id)"},
patterns = {"^/dmm$","^/dmm (.+)"},
run = run
}
end