RSS ленты

GetFeed = function()
    local st = socket.gettime()
    local s,fd,sz,hd = "",http.request(Feed)
    if fd and sz then
        local td,plural = socket.gettime()-st,"секунды."
        if td > 1 then plural = "секунд." end
        local time = string.format("%.2f "..plural,td)
        local msg = ParseFeed(Decode(fd))
        local Send = function(str)
        end
        local sMsg = ""..tostring(cnt).." новых цитат "..plural.." с: "..Feed.."\n\n"..reply.."\n\n"..
        "\t\t\tОбработано за: "..time.."\n\n"
        Mem()
    end
     return sMsg
end

function ChatArrival(tUser,sData)
    sData = string.sub(sData,1,-2)
    local _,_,cmd = string.find(sData, "%b<>%s+(%S+)")
    if cmd == "!rss" then
                Core.SendPmToUser(tUser,Bot,GetFeed())
        end
return true    
    end

GetFeed = function()
    local st = socket.gettime()
    local s,fd,sz,hd = "",http.request(Feed)
        local sMsg
    if fd and sz then
        local td,plural = socket.gettime()-st,"секунды."
        if td > 1 then plural = "секунд." end
        local time = string.format("%.2f "..plural,td)
        local msg = ParseFeed(Decode(fd))
        local Send = function(str)
        end
        sMsg = ""..tostring(cnt).." новых цитат "..plural.." с: "..Feed.."\n\n"..reply.."\n\n"..
        "\t\t\tОбработано за: "..time.."\n\n"
        Mem()
    end
    return sMsg
end

            if bool then
                cnt = cnt + 1
                [b]for i,v in ipairs(val) do reply = reply.."\t"..v.."\n" end[/b]
                reply = reply.."\n"
            end