Bugfix in der Commandref und einige Codeanpassungen für das öffnen der Bridge

This commit is contained in:
Marko Oldenburg
2017-07-21 11:06:27 +02:00
parent 2ee63abc05
commit 3a17f698c5
2 changed files with 19 additions and 11 deletions

View File

@@ -544,19 +544,27 @@ sub AMADCommBridge_Open($) {
my $port = $hash->{PORT};
# Oeffnen des TCP Sockets
my $ret = TcpServer_Open( $hash, $port, "global" );
if( not defined($hash->{FD}) and (! $hash->{FD}) ) {
# Oeffnen des TCP Sockets
my $ret = TcpServer_Open( $hash, $port, "global" );
if( $ret && !$init_done ) {
if( $ret && !$init_done ) {
Log3 $name, 3, "AMADCommBridge ($name) - $ret. Exiting.";
exit(1);
Log3 $name, 3, "AMADCommBridge ($name) - $ret. Exiting.";
exit(1);
}
readingsSingleUpdate ( $hash, "state", "opened", 1 ) if( defined($hash->{FD}) );
Log3 $name, 3, "AMADCommBridge ($name) - Socket opened.";
return $ret;
} else {
Log3 $name, 3, "AMADCommBridge ($name) - Socket already opened";
}
readingsSingleUpdate ( $hash, "state", "opened", 1 ) if( defined($hash->{FD}) );
Log3 $name, 3, "AMADCommBridge ($name) - Socket opened.";
return $ret;
return;
}
sub AMADCommBridge_Close($) {