75_MSG: compatibility update

git-svn-id: https://svn.fhem.de/fhem/trunk@13942 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
loredo
2017-04-08 20:08:42 +00:00
parent d265a1db17
commit dc246a70d0

View File

@@ -1914,6 +1914,13 @@ m/^(absent|disappeared|unauthorized|disconnected|unreachable)$/i
while ( ( my $key, my $value ) = while ( ( my $key, my $value ) =
each %$params ) each %$params )
{ {
# Compatibility to legacy schema:
# lowercase after _
$key =~
s/^($gatewayDevType)(_[A-Z0-9]+)$/\1\L\2\e/;
# remove gateway TYPE when
# used as prefix
$key =~ s/^$gatewayDevType\_//; $key =~ s/^$gatewayDevType\_//;
$cmd .= " $key='$value'" $cmd .= " $key='$value'"
if ( !defined( $h->{$key} ) if ( !defined( $h->{$key} )
@@ -1953,10 +1960,10 @@ m/^(absent|disappeared|unauthorized|disconnected|unreachable)$/i
Log3 $logDevice, 5, Log3 $logDevice, 5,
"msg $device: " "msg $device: "
. "$type[$i] route command (fhem): $cmd"; . "$type[$i] route command (fhem): $cmd";
fhem $cmd, 1; my $ret = fhem $cmd, 1;
if ($@) { if ($ret) {
$error = 1; $error = 1;
$loopReturn3 .= "$gatewayDev: $@\n"; $loopReturn3 .= "$gatewayDev: $ret\n";
} }
} }