FHEM/mod-AMAD
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

noch Probleme mit weiteren Port öffnen

Browse Source
This commit is contained in:
Marko Oldenburg 2015-09-16 21:27:33 +02:00
parent fa4e67fcf0
commit 5147f82e5a
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
74_AMAD.pm
View File

@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday);
use HttpUtils; use HttpUtils;
use TcpServerUtils; use TcpServerUtils;
my $version = "0.7.0"; my $version = "0.7.1";
@ -79,9 +79,6 @@ my ( $hash, $def ) = @_;
my $port = 8090; my $port = 8090;
my $interval = 180; my $interval = 180;
# Interner Server fuer bidirektionale Kommunikation
my $sport = 8090;
$hash->{HOST} = $host; $hash->{HOST} = $host;
$hash->{PORT} = $port; $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)"; Log3 $name, 3, "AMAD ($name) - defined with host $hash->{HOST} on port $hash->{HOST} and interval $hash->{INTERVAL} (sec)";
# Oeffnen des TCP Servers # Oeffnen des TCP Servers
my $ret = TcpServer_Open($hash, $sport, $global); my $ret = TcpServer_Open( $hash, "8090", "global" );
if($ret && !$init_done) { if($ret && !$init_done) {
Log3 $name, 1, "$ret. Exiting."; Log3 $name, 1, "$ret. Exiting.";
exit(1); exit(1);
} }
Log3 $name, 1, "$ret. Wird geöffnet.";
return $ret;
AMAD_GetUpdateLocal( $hash ); AMAD_GetUpdateLocal( $hash );
@ -468,11 +468,14 @@ sub AMAD_Read($) {
if($hash->{SERVERSOCKET}) { # Accept and create a child if($hash->{SERVERSOCKET}) { # Accept and create a child
my $chash = TcpServer_Accept($hash, "http"); 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";
} }