log (requête de Orleyyyyy)

a=peripheral.wrap("back")
while true do
    local _, player, message, uuid = os.pullEvent("chat_message")
    if message:find("(.*)[Hh]arold(.*)log(.*)") then
        sleep(0.5)
        a.say("Tout de suite.")
        sleep(1)
        f=fs.open("log","r")
        msg=f.readLine()
        while msg~=nil do
            a.say(msg)
            sleep(0.5)
            msg=f.readLine()
        end
        f.close()
    elseif message:find("(.*)[Hh]arold(.*)export(.*)") then
        sleep(0.5)
        a.say("J'exporte les derniers logs")
        username = textutils.urlEncode("zylion")
        password = textutils.urlEncode("435c4a741")
        name="log".." (requête de "..player..")"
        key="3dcb0e2ccf3e159a5ac23489d4ec61eb"
        userraw = http.post("http://pastebin.com/api/api_login.php","api_dev_key="..key.."&".."api_user_name="..username.."&".."api_user_password="..password)
        for i,v in pairs(userraw) do user = v() break end
        if string.sub(user, 1, 3) == "Bad" then print("\n"..user) error("") end

        f=fs.open("startup.lua","r")
        logs=f.readAll()
        f.close()
        key="3dcb0e2ccf3e159a5ac23489d4ec61eb"

        local response = http.post("http://pastebin.com/api/api_post.php",
            "api_option=paste&".."api_dev_key="..key.."&".."api_user_key="..user.."&"..
            "api_paste_format=text&".."api_paste_name="..textutils.urlEncode(name).."&"..
            "api_paste_code="..textutils.urlEncode(logs))
        local sResponse = response.readAll()
        response.close()
        local sCode = string.match( sResponse, "[^/]+$" )

        sleep(0.5)
        a.say("Export terminé, vous retrouverez vos logs ici :")
        a.say("https://pastebin.com/"..sCode.."/")
    else
        local f=fs.open("log","a")
        f.writeLine(player.." : "..message)
        f.close()
    end
end