Weather service not working anymore?

[Thomas]

Thank you Admin
If someone is interested in then there's yrno script below (warning: uses obsolete API)
Function minmax_temp_tomorrow returns lowest and highest temperature for tomorrow. The script is simple and ignores time shift.

Code:

require('socket.http')

forecast = {}

function parsetag(parser, tag, attributes)
 if tag == 'time' then
   table.insert(forecast, {})
   forecast[ #forecast ].from=attributes.from
   forecast[ #forecast ].to=attributes.to
   forecast[ #forecast ].period=attributes.period
 elseif tag == 'symbol' then
   forecast[ #forecast ].symbol = attributes.name
 elseif tag == 'precipitation' then
   forecast[ #forecast ].precipitation = attributes.value
 elseif tag == 'windDirection' then
   forecast[ #forecast ].wind_direction = attributes.code
 elseif tag == 'windSpeed' then
   forecast[ #forecast ].wind_speed = attributes.mps
 elseif tag == 'temperature' then
   forecast[ #forecast ].temperature = attributes.value
 elseif tag == 'pressure' then
   forecast[ #forecast ].pressure = attributes.value
 end
end

function yrno_fetch()
 local url = 'http://www.yr.no/place/Czech_Republic/Prague/Prague/varsel.xml'
 local data, err = socket.http.request(url)

 if data then
   require('lxp').new({
     StartElement = parsetag
   }):parse(data)
   
   
 else
   alert('Fetch failed: ' .. tostring(err))
 end
end

function minmax_temp_tomorrow()
 local ld_minTemp
 local ld_maxTemp
 local next_day={}

 yrno_fetch()
 if (not forecast) then
   return
 end
 local ll_tomorrow=os.time()+24*3600 -- tomorrow as long
 local lt_tomorrow= os.date("*t",ll_tomorrow) -- tomorrow as table for use if forecast_write

 --gets date of tomorrow
 local ls_match=os.date("%Y--%m--%d",ll_tomorrow)

 
for index, value in ipairs(forecast) do
   if (value.from:match("^"..ls_match)) then
     local ld_temp=tonumber(value.temperature)
     if (ld_minTemp == nil) then
       ld_minTemp=ld_temp
     end
     if (ld_maxTemp == nil) then
       ld_maxTemp=ld_temp
     end
     if (ld_temp<ld_minTemp or index==1) then
       ld_minTemp=ld_temp
     end
     if (ld_temp>ld_maxTemp or index==1) then
       ld_maxTemp=ld_temp
     end
   end
end
  return ld_minTemp,ld_maxTemp,lt_tomorrow
end