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

Automatisches löschen der Bridge einbearbeitet wenn das letzte AMAD Host Device gelöscht wurde

Browse Source
This commit is contained in:
Marko Oldenburg 2015-10-09 13:18:20 +02:00
parent 3ac6de31f6
commit c866c56b82
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
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.5"; my $version = "0.7.6";
@ -98,7 +98,7 @@ sub AMAD_Define($$) {
AMAD_CommBridge_Open( $hash ); AMAD_CommBridge_Open( $hash );
} else { } else {
if( ! $modules{AMAD}{defptr}{BRIDGE} ) { if( ! $modules{AMAD}{defptr}{BRIDGE} && $init_done ) {
CommandDefine( undef, "AMADCommBridge AMAD" ); CommandDefine( undef, "AMADCommBridge AMAD" );
} }
@ -122,15 +122,20 @@ sub AMAD_Undef($$) {
if( $hash->{BRIDGE} ) { if( $hash->{BRIDGE} ) {
delete $modules{AMAD}{defptr}{BRIDGE}; delete $modules{AMAD}{defptr}{BRIDGE};
my $ret = TcpServer_Close( $hash ); my $ret = TcpServer_Close( $hash );
return $ret; return $ret;
} else { } else {
delete $modules{AMAD}{defptr}{$hash->{HOST}}; delete $modules{AMAD}{defptr}{$hash->{HOST}};
RemoveInternalTimer( $hash ); RemoveInternalTimer( $hash );
foreach my $d(sort keys %{$modules{AMAD}{defptr}}) {
my $hash = $modules{AMAD}{defptr}{$d};
my $host = $hash->{HOST};
return if( $host );
CommandDelete( undef, "AMADCommBridge" );
}
} }
} }