require "libs.shcmd"

local function get_issue_details (num)
    num = tonumber(num);
    if not num then return nil end
    local issue = {}
    local btsurl = "http://bitbucket.org/McKael/mcabber-crew/issue/"

    issue.id = tostring(num)
    issue.url = btsurl..issue.id.."/"
    local data = shcmd("curl "..issue.url)
    local title = data:match("#"..issue.id.."%s*-%s*(.*)%s*—")
    if not title then return nil end
    issue.title = title
    return issue
end

local function mcabber_bts (num)
    -- Check that xepnum is a valid number
    if num then
        num = num:gsub("[%s%?%.%!]+$", "")
        num = tonumber(num)
    end
    if not num or num < 1 then
        return nil, "Please provide an issue number"
    end
    local issue = get_issue_details(num)
    if not issue then
        return nil,"Sorry, couldn't find issue "..tostring(num)
    end
    return "Issue #"..issue.id.." -- "..issue.title.."\n"..
           "URL: <"..tostring(issue.url)..">"
end

mcbot_register_command("bts", mcabber_bts)
mcbot_register_command("bug", mcabber_bts)