From cb8d8d588ee77a6d31589eb3d07033f129a3fdcd Mon Sep 17 00:00:00 2001
From: sachag <>
Date: Fri, 23 Jul 2010 07:21:16 +0000
Subject: [PATCH] Timeout changed to 2 sec. CHANGED expanded to long version

thx Axel.


git-svn-id: https://svn.fhem.de/fhem/trunk@658 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/88_ALL4000T.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/88_ALL4000T.pm b/fhem/FHEM/88_ALL4000T.pm
index 3d02219ae..6b5315b66 100644
--- a/fhem/FHEM/88_ALL4000T.pm
+++ b/fhem/FHEM/88_ALL4000T.pm
@@ -95,7 +95,7 @@ ALL4000T_GetStatus($)
   my $xml = new XML::Simple;
 
   my $URL="http://".$host."/xml";
-  my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30);
+  my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 3);
   my $header = HTTP::Request->new(GET => $URL);
   my $request = HTTP::Request->new('GET', $URL, $header);
   my $response = $agent->request($request);
@@ -113,7 +113,7 @@ ALL4000T_GetStatus($)
   my $data = $xml->XMLin($body);
   my $current=$data->{BODY}->{FORM}->{TEXTAREA}->{xml}->{data}->{$host_port};
 
-  $text="T: ".$current;
+  $text="Temperature:".$current;
   my $sensor="temperature";
   Log 4,"$name: $text";
   if (!$hash->{local}){
@@ -122,7 +122,7 @@ ALL4000T_GetStatus($)
        $hash->{READINGS}{$sensor}{VAL} = $current." (Celsius)";;
        DoTrigger($name, undef) if($init_done);    
   }
-  $hash->{STATE} = $text;
+  $hash->{STATE} = "T:".$current;
   return($text);
 }