Mikubot/plugins/akasblog.lua

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 = 'http://akamaru.de/?json=get_recent_posts'
  local res,code  = http.request(url)
  local data = json:decode(res).posts[1]
  if code ~= 200 then return "HTTP-Fehler" end
  if not data then return "HTTP-Fehler" end
 
  local title = unescape(data.title)
  local from = data.author.name
  local date = makeOurDate(data.date)
  local content = unescape(string.match(data.excerpt, '<p>(.*)<span'))
  if not content then
  content = unescape(string.match(data.excerpt, '<p>(.*)</p>'))
  end
  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 file = download_to_file(image_url)
    send_photo(receiver, file, ok_cb, false)
  end
  return text
end

return {
  description = "Sendet letzten Aka's Blog Beitrag", 
  usage = "/aka",
  patterns = {"^/[Aa][Kk][Aa]$"},
  run = run 
}

end