From 932e6dc3a148cdd9dc9bbb6f92fc48dff16fae01 Mon Sep 17 00:00:00 2001
From: root <root@krebs>
Date: Fri, 26 Aug 2011 10:29:19 +0200
Subject: cleanup: update lcd4linux file

---
 kachelmann/changes    | 24 ------------------------
 kachelmann/conditions |  6 ------
 2 files changed, 30 deletions(-)
 delete mode 100755 kachelmann/changes
 delete mode 100755 kachelmann/conditions

(limited to 'kachelmann')

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");
-- 
cgit v1.2.3