diff options
author | tv <tv@xso> | 2011-08-29 14:42:20 +0200 |
---|---|---|
committer | tv <tv@xso> | 2011-08-29 14:42:20 +0200 |
commit | 3c0470524cd39f722d1e39247f8b0b68c418b231 (patch) | |
tree | 6da5d09e3957305c939c45c59cbaf14e10ce6f66 /kachelmann | |
parent | 8c521570fe1ff45c22aa1a4c7f93538841fc1665 (diff) | |
parent | cdbc8c537320e3e534694311516ac398ea501600 (diff) |
Merge branch 'master' of github.com:krebscode/painload
Diffstat (limited to 'kachelmann')
-rwxr-xr-x | kachelmann/changes | 24 | ||||
-rwxr-xr-x | kachelmann/conditions | 6 |
2 files changed, 0 insertions, 30 deletions
diff --git a/kachelmann/changes b/kachelmann/changes deleted file mode 100755 index 22116967..00000000 --- a/kachelmann/changes +++ /dev/null @@ -1,24 +0,0 @@ -#!/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}; -} diff --git a/kachelmann/conditions b/kachelmann/conditions deleted file mode 100755 index ea4ba5ca..00000000 --- a/kachelmann/conditions +++ /dev/null @@ -1,6 +0,0 @@ -#!/usr/bin/perl -use XML::Simple; -my $result = `w3m -dump "http://www.google.com/ig/api?weather=70327-stuttgart&hl=de"`; -my $xml = new XML::Simple; -my $data = $xml->XMLin($result); -print ("Die Wetterkondition ist: $data->{weather}->{current_conditions}->{condition}->{data}\n bei $data->{weather}->{current_conditions}->{temp_c}->{data} Grad Zelsius\n"); |