/* Kommandot Väder
$VER: TFE Väder (21.10.15)
N=VÄDER
O=1
#=1003
*/

options results

if open('vaderdump', 'T:vaderdump.xml', 'r') then do
	readln('vaderdump')
	data = readln('vaderdump')
	
	parse VAR data first second third fourth fifth resten

	where = pos('&', fifth)
	temperatur = substr(fifth, 1, where-1)

	'sendstring' '0d0a0d0a'x || 'Vädret i Umeå just nu: ' || temperatur || ' grader celsius.' || '0d0a'x 
end