From 7f5e90977bd4f8df2a3efcb1710eba0860121d52 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Mon, 30 Nov 2015 14:51:33 +0100
Subject: [PATCH] =?UTF-8?q?auf=20alte=20URL=20wieder=20zur=C3=BCck,=20JSON?=
 =?UTF-8?q?=20Schnittstelle=20bietet=20keine=20Informationen=20-=20Reading?=
 =?UTF-8?q?s=20eingebaut?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 74_HOMEBOT.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/74_HOMEBOT.pm b/74_HOMEBOT.pm
index 5ade7f8..dbfc70e 100644
--- a/74_HOMEBOT.pm
+++ b/74_HOMEBOT.pm
@@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday);
 use HttpUtils;
 use TcpServerUtils;
 
-my $version = "0.0.4";
+my $version = "0.0.5";
 
 
 
@@ -202,8 +202,7 @@ sub HOMEBOT_RetrieveHomebotInfomations($) {
     my $port = $hash->{PORT};
 
     
-    #my $url = "http://" . $host . ":" . $port . "/status.txt"; # Path muß so im Automagic als http request Trigger drin stehen
-    my $url = "http://" . $host . ":" . $port . "/json.cgi?%7b%22BLACKBOX%22:%22REQUEST_ABSTRACT%22%7d";
+    my $url = "http://" . $host . ":" . $port . "/status.txt"; # Path muß so im Automagic als http request Trigger drin stehen
 
 
     HttpUtils_NonblockingGet(
@@ -338,10 +337,10 @@ sub HOMEBOT_Parse_HomebotInfomations($$$) {
 
 
 
-    my @valuestring = split( '@@@@',  $data );
+    my @valuestring = split( '=',  $data );
     my %buffer;
     foreach( @valuestring ) {
-	my @values = split( '@@' , $_ );
+	my @values = split( '"' , $_ );
 	$buffer{$values[0]} = $values[1];
     }