From 932e6dc3a148cdd9dc9bbb6f92fc48dff16fae01 Mon Sep 17 00:00:00 2001 From: root Date: Fri, 26 Aug 2011 10:29:19 +0200 Subject: cleanup: update lcd4linux file --- kachelmann/changes | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100755 kachelmann/changes (limited to 'kachelmann/changes') 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}; -} -- cgit v1.2.3