TopicTemp, API2 | Температура воздуха в топике хаба

    if not tTemp[tCity[tData.City]] or tTemp[tCity[tData.City]][2]+tCfg.Update*60 < os.time() then

    if not tTemp[tCity[tData.City]] or not tTemp[tCity[tData.City]][2] or tTemp[tCity[tData.City]][2]+tCfg.Update*60 < os.time() then

    http = require("socket.http")

    http.TIMEOUT = 10

        local city = msg:match("<h2>.-target=\"_blank\">(.-)<")
        local temp = msg:match("<div class=\"gradus\">.-([%+%-]%d+)")

--[[##################################################################################

    TopicTemp 1.01a by alex82
    API2 (Lua 5.1; PtokaX 0.4.x.x)
    http://mydc.ru/topic2232.html
    
###################################################################################]]
-- Настройки

tCfg = {
    Update = 5,    -- Время обновления информации о погоде (в минутах)
    Change = 3,    -- Время переключения топиков (в минутах)
    TextTopic = true,    -- Чередовать информацию о погоде с текстовыми топиками
}

tCity = {    -- Коды городов (http://www.gismeteo.ru/catalog/russia)
    4862,    -- Хабаровск
    
}

tTopic = {    -- Топики
    "Размести свою рекламу в Топике Хаба",
    
}

--###################################################################################

tData = {City = 0,Text = false,CurText = 0}
tTemp = {}

function OnStartup()
    http = require("socket.http")
    topic = SetMan.GetString(10)
    if topic and topic:match("%d+°") then topic = nil end
    if not tCfg.TextTopic and #tCity <= 1 then
        OneTopic()
        TmrMan.AddTimer(tCfg.Update*60000,"OneTopic")
    else
        NewTopic()
        TmrMan.AddTimer(tCfg.Change*60000,"NewTopic")
    end
end

function OnExit()
    SetMan.SetString(10,topic or "")
end

function NewTopic()
    if tCfg.TextTopic then
        if tData.Text then
            tData.Text = false
            tData.CurText = tData.CurText+1
            if tData.CurText > #tTopic then tData.CurText = 1 end
            SetMan.SetString(10,tTopic[tData.CurText])
            return true
        else
            tData.Text = true
        end
    end
    tData.City = tData.City+1
    if tData.City > #tCity then tData.City = 1 end
    if not tTemp[tCity[tData.City]] or tTemp[tCity[tData.City]][2]+tCfg.Update*60 < os.time() then
        GetTemp(tCity[tData.City])
    end
    SetMan.SetString(10,tTemp[tCity[tData.City]][1] or "")
end

function OneTopic()
    GetTemp(tCity[1])
    SetMan.SetString(10,tTemp[tCity[1]][1] or "")
end

function GetTemp(id)
    tTemp[id] = {}
    local msg,err = http.request("http://informer.gismeteo.ru/html/2.php?tnumber=1&city0="..id)
    if msg then
        local city = msg:match("<h2>.-target=\"_blank\">(.-)<")
        local temp = msg:match("<div class=\"gradus\">.-([%+%-]%d+)")
        if city and temp then
            tTemp[id][1] = (city or "???")..": "..(temp or "?").."°"
            tTemp[id][2] = os.time()
        else
            Core.SendToOps("Не удалось обработать информацию о погоде. Возможно, было изменено оформление страницы.")
        end
    else
        Core.SendToOps("Произошла ошибка при обновлении информации о погоде: "..err)
    end
end