kachelmann/changes


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#!/usr/bin/perl
use XML::Simple;
my $xml = new XML::Simple;
my $xml_store = undef;
my $data_new = undef;
my $data_old = undef;
my $condition_store = undef;


my $data_old = $condition_store;
while (1) {
    &xml_update();
    $data_old = $data_new;
    $data_new = $condition_store;
    if($data_new ne $data_old){
        system("espeak \"Das Wetter hat sich von $data_old in $data_new verändert\n\"");
    }
    sleep 300;
}
sub xml_update(){
    $xml_store = `w3m -dump "http://www.google.com/ig/api?weather=70327-stuttgart&hl=de"`;
    $xml_store = $xml->XMLin($xml_store);
    $condition_store = $xml_store->{weather}->{current_conditions}->{condition}->{data}; 
}