#!/usr/bin/perl
exit;
# irgendwie hört das Skript nie so richtig auf
# und belegt mehrfach die Prozessliste

use strict;
use warnings;
use LWP::UserAgent;
use URI;

# my $url = "http://www.wetter.com/v2/?LOC=7000\&type=WORLD\&id=16957";
#   --> lenkt um auf: http://www.wetter.com/deutschland/wernigerode/DE0011451.html
#   ... Bei Suche nach WR kommt aber
my $url = "http://www.wetter.com/wetter_aktuell/wettervorhersage/3_tagesvorhersage/?id=DE0011451";

die "Usage: $0 url\n" unless $url;

my $uri = URI->new($url);
my $ua = LWP::UserAgent->new( agent => 'varbot');
# Das dauert doch irgendwie immer sehr lange.  Standard ist 180s -> setze auf 10s
$ua->timeout(10);
$ua->env_proxy;
# Vielleicht hilft das noch etwas ...
$ua->agent('Mozilla/5.0');
my $page = $ua->get($url, Host => $uri->host );
die "Konnte URL nicht holen.\n" unless $page->is_success ; 
# (my @data) = $page->content =~ m#<td height=16 class="TAB_BOX_2_HEADER"><span class="Headline">Aktuell: ([-:.,\d\s]+ Uhr) Ortszeit.*<span class="WXHeadline">([-.\d]+)\s*[&nbspdeg;]*C.*<td><span class="Body">([.,\d]+ km/h [^<]+)</span>.*<td><span class="Body">([.,\d]+ km)</span>#gs;
# print STDERR "$page->content";
# (my @debug) = $page->content =~ m#Aktuelle Ortszeit:(.*)#gs;
# print STDERR "$debug[0]";
(my @data) = $page->content =~ m#Aktuelle Ortszeit:.*<td class="fc_title fc_center" colspan="2" style="">\s*([-:.,\d\s]+ Uhr)\s*</td>.*<span class="temp_observe">([-.\d]+)</span>&deg;<span class="me">C</span>\s*.*<span class="fc_temper">\s*([^<]+[^\s])\s*</span>\s*</td>.*<span class="fc_sub_title">Wind</span>[\s<br/>]*<span>\s*([\w\s\d]+[<br/>\s]*[\s\d\w./]+[^\s])\s*</span>#gs;
# Wenn ein Fehler auftritt, ganze Seite abspeichern
unless ( $data[0] || $data[1] || $data[2] || $data[3] ) {
    print STDERR "$page->content";
}
# <br /> aus Wind loeschen
$_ = $data[3];
s?<br />\s*? ?g;
print "www.wetter.com: Wernigerode\nZeit: $data[0]\nTemperatur: $data[1] grd C\nWetter: $data[2]\nWind: $_\n" ;
