summaryrefslogtreecommitdiffstats
path: root/kachelmann/changes
diff options
context:
space:
mode:
Diffstat (limited to 'kachelmann/changes')
-rwxr-xr-xkachelmann/changes24
1 files changed, 0 insertions, 24 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};
-}