Скрипт онлайн-погоды, скрипт погоды сейчас

bSendToChat = false            -- Отправлять ли в чат сообщения по таймеру (true) или нет (false)
local sLine = ("*"):rep(75)
sBot = SetMan.GetString(21)
City = "Хабаровске"             -- Город хаба
iTimeToSend = 60*60            -- Интервал в секундах для отправления в чат при включенной опции выше
iTimeOut = 5                -- Таймаут ожидания загрузки страницы (чтобы хаб не подвисал), в секундах
function UserConnected(tUser)
    Core.SendToUser(tUser,"$UserCommand 1 3 Развлечения\\Погода$<%[mynick]> !temp|")
end
OpConnected = UserConnected
RegConnected = UserConnected
function ChatArrival(tUser, sData)
  local cmd = sData:match"%b<>%s+(%S+).*|"
  if cmd == "!темп" or cmd == "!temp" or cmd == "!темп" or cmd == "+temp" then
    if not sTemp then
        GetData()
    end
    Core.SendToUser(tUser,"<"..sBot.."> \tИнформация о погоде\r\n\t"..sLine.."\r\n"..
     "\tСейчас в г. "..City.." за окном: "..(sTemp or "[нет данных]").."\r\n"..
     "\tАтмосферное давление: "..(sAtmos or "[Ошибка. Нет данных]").."\r\n"..
     "\tВлажность: "..(sHumidity or "[Ошибка. Нет данных]").."\r\n"..
     "\tСкорость и направление ветра: "..(sWind or "[Ошибка. Нет данных]").."\r\n"..
     "\t"..sLine.."")
    return true
  end    
end

function OnStartup()
    http = require("socket.http")
    http.TIMEOUT = iTimeOut
    TmrMan.AddTimer(1*60000,"GetData")
    if bSendToChat then
        TmrMan.AddTimer(iTimeToSend*1000, "SendToChat")
    end
end

function SendToChat()
    Core.SendToAll(tUser,"<"..sBot.."> \tИнформация о погоде\r\n\t"..sLine.."\r\n"..
     "\tСейчас в г. "..City.." за окном "..(sTemp or "[нет данных]").."\r\n"..
     "\tАтмосферное давление "..(sAtmos or "[Ошибка. Нет данных]").."\r\n"..
     "\tВлажность "..(sHumidity or "[Ошибка. Нет данных]").."\r\n"..
     "\tСкорость и направление ветра "..(sWind or "[Ошибка. Нет данных]").."\r\n"..
     "\t"..sLine.."")
end

function GetData()
    local msg,err = http.request("http://weather.aport.ru/auto/31735/Habarovsk.htm")
    if msg then
        local temp = msg:match("<div class=\"field2\">(.-)</div>")
        local atmos = msg:match("Давление:(.-)<br>")
        local humidity = msg:match("Влажность:(.-)<br>")
        local wind = msg:match("<div class=\"field3\">.-%b<((.-)%b<>")
        if temp then
            sTemp = temp:gsub("[%&deg;%s]", "")
            sAtmos = atmos:gsub("[%&de;C%s]", "")
            sHumidity = humidity:gsub("[%&de;C%s]", "")
            sWind = wind:gsub("[%&nbsp;(;C%s]", "")
        else

            Core.SendToOpChat(" Не удалось обработать информацию о погоде. Возможно, было изменено оформление страницы.")
        end
        else
        Core.SendToOpChat(" Произошла ошибка при обновлении информации о погоде. Причина: "..err)
    end
end