From 5147f82e5a71c63d3b553c97d05fee4eaae649ef Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 16 Sep 2015 21:27:33 +0200
Subject: [PATCH] =?UTF-8?q?noch=20Probleme=20mit=20weiteren=20Port=20?=
 =?UTF-8?q?=C3=B6ffnen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 74_AMAD.pm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/74_AMAD.pm b/74_AMAD.pm
index 569cdfb..2c7cbf7 100644
--- a/74_AMAD.pm
+++ b/74_AMAD.pm
@@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday);
 use HttpUtils;
 use TcpServerUtils;
 
-my $version = "0.7.0";
+my $version = "0.7.1";
 
 
 
@@ -79,9 +79,6 @@ my ( $hash, $def ) = @_;
     my $port		= 8090;
     my $interval  	= 180;
     
-    # Interner Server fuer bidirektionale Kommunikation
-    my $sport		= 8090;
-    
 
     $hash->{HOST} 	= $host;
     $hash->{PORT} 	= $port;
@@ -93,11 +90,14 @@ my ( $hash, $def ) = @_;
     Log3 $name, 3, "AMAD ($name) - defined with host $hash->{HOST} on port $hash->{HOST} and interval $hash->{INTERVAL} (sec)";
     
     # Oeffnen des TCP Servers
-    my $ret = TcpServer_Open($hash, $sport, $global);
+    my $ret = TcpServer_Open( $hash, "8090", "global" );
+    
     if($ret && !$init_done) {
 	Log3 $name, 1, "$ret. Exiting.";
 	exit(1);
     }
+    Log3 $name, 1, "$ret. Wird geöffnet.";
+    return $ret;
     
 
     AMAD_GetUpdateLocal( $hash );
@@ -468,11 +468,14 @@ sub AMAD_Read($) {
     
     if($hash->{SERVERSOCKET}) {   # Accept and create a child
 	my $chash = TcpServer_Accept($hash, "http");
-	return if(!$chash);
+	$chash->{CD}->blocking(0);
+	return;
     }
     
-
+    my $buf;
+    my $ret = sysread($hash->{CD}, $buf, 256);
     
+    Log3 $name, 3, "AMAD ($name) - Recieve String $buf";
 
 }