Hochwasser: Pegelstand in Tools4Roku (t4roku)

Zur Zeit herrscht Hochwasser im Elbtal. Die Elbe hat die Marke von 6 Metern überschritten und steigt weiter.

Um nicht immer sebst im Netz nachsehen zu müssen wie hoch sie inzwischen ist, habe ich mein t4roku Skript auf der Roku Soundbrigde etwas erweitert. In den Blog der die Wetterdaten von yahoo.com holt habe ich folgende Zeilen eingefügt um den aktuellen Pegelstand der Elbe abzufragen:

# get river stage data from internet
$pegeldata = "";
$pegeldata = `wget -q -O - "http://www.pegelonline.wsv.de/svgz/pegelstaende_neu.xml"`;
if ( ($pegeldata eq "") or (substr($pegeldata, 0, 4) eq "wget") ) {
  # if its empty, then something went wrong, e.g. no connection
  $pegel = "ERROR";
} else {
  # extract the river stage from xml file
  $pegeldata =~ /DRESDEN<\/pegelname>\n<messwert>([^<]+)>/;
  $pegel = $1;
}

Die Anzeige erfolgt im Uhrzeitblock neben der Uhrzeit:

$display->msg(text => substr(localtime(time), 11, 5), duration=>0, font=>3, x=>20, y=>0, keygrab=>0);
$display->msg(text=>"Elbe: ".$pegel."cm", duration=>0, font=>3, x=>105, y=>0, keygrab=>0);

Und sie steigt weiter!