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