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

17
74_AMAD.pm
View File

@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday);
use HttpUtils;
use TcpServerUtils;
my $version = "0.7.5";
my $version = "0.7.6";
@ -98,7 +98,7 @@ sub AMAD_Define($$) {
AMAD_CommBridge_Open( $hash );
} else {
if( ! $modules{AMAD}{defptr}{BRIDGE} ) {
if( ! $modules{AMAD}{defptr}{BRIDGE} && $init_done ) {
CommandDefine( undef, "AMADCommBridge AMAD" );
}
@ -122,15 +122,20 @@ sub AMAD_Undef($$) {
if( $hash->{BRIDGE} ) {
delete $modules{AMAD}{defptr}{BRIDGE};
my $ret = TcpServer_Close( $hash );
return $ret;
} else {
delete $modules{AMAD}{defptr}{$hash->{HOST}};
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" );
}
}
}
@ -1242,4 +1247,4 @@ sub AMAD_CommBridge_Read($) {
</ul>
=end html_DE
=cut
=cut