FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-25 09:55:38 +00:00
Code Issues Releases Wiki Activity

78_AMConnectTools.pm: transfer version to AutomowerConnect.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29245 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Ellert 2024-10-16 10:29:08 +00:00
parent 2bc1ade4b8
commit eb2d7fbe5b
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/contrib/AutomowerConnect/98_AMConnectTools.pm
View File

@ -161,7 +161,6 @@ sub Define{
my $paw = join( ' ', devspec2array( "TYPE=AutomowerConnect" ) ); my $paw = join( ' ', devspec2array( "TYPE=AutomowerConnect" ) );
readingsSingleUpdate( $hash, '.associatedWith', $paw, 0 ); readingsSingleUpdate( $hash, '.associatedWith', $paw, 0 );
} }
return undef; return undef;
@ -214,6 +213,16 @@ sub Notify {
} elsif ( $dev_name eq 'global' && $event =~ /^(INITIALIZED|MODIFIED $name|ATTR $name disable 0|DELETEATTR $name disable)$/ ) { } elsif ( $dev_name eq 'global' && $event =~ /^(INITIALIZED|MODIFIED $name|ATTR $name disable 0|DELETEATTR $name disable)$/ ) {
foreach my $keyx ( devspec2array('TYPE=AutomowerConnect') ) {
if ( !defined( $defs{$keyx}->{VERSION_AMConnectTools} ) || defined( $defs{$keyx}->{VERSION_AMConnectTools} ) && $defs{$keyx}->{VERSION_AMConnectTools} ne $defs{AMConnectTools}->{VERSION} ) {
$defs{$keyx}->{VERSION_AMConnectTools} = $defs{AMConnectTools}->{VERSION}
}
}
my $runningDevices = ''; my $runningDevices = '';
my @mowers = devspec2array( AttrVal( $name, 'notifiedByMowerDevices', '' ) ); my @mowers = devspec2array( AttrVal( $name, 'notifiedByMowerDevices', '' ) );
@ -641,6 +650,12 @@ sub Delete {
my $iam ="$type $name Delete: "; my $iam ="$type $name Delete: ";
Log3( $name, 5, "$iam called" ); Log3( $name, 5, "$iam called" );
foreach my $keyx ( devspec2array('TYPE=AutomowerConnect') ) {
delete( $defs{$keyx}->{VERSION_AMConnectTools} ) if ( defined( $defs{$keyx}->{VERSION_AMConnectTools} ) );
}
my ($passResp,$passErr) = $hash->{helper}->{passObj}->setDeletePassword($name); my ($passResp,$passErr) = $hash->{helper}->{passObj}->setDeletePassword($name);
Log3( $name, 1, "$iam error: $passErr" ) if ($passErr); Log3( $name, 1, "$iam error: $passErr" ) if ($passErr);