diff --git a/fhem/FHEM/95_Babble.pm b/fhem/FHEM/95_Babble.pm index 908cee38a..877c0b84c 100644 --- a/fhem/FHEM/95_Babble.pm +++ b/fhem/FHEM/95_Babble.pm @@ -53,7 +53,7 @@ if (eval {require RiveScript;1;} ne 1) { my $babblelinkname = "babbles"; # link text my $babblehiddenroom = "babbleRoom"; # hidden room my $babblepublicroom = "babble"; # public room -my $babbleversion = "1.32"; +my $babbleversion = "1.33"; my %babble_transtable_EN = ( "ok" => "OK", @@ -2046,15 +2046,16 @@ sub Babble_Html($) $rot .= ""; $rot .= "". "{"add"}."\" style=\"width:100px;\"/>\n";#$tblrow-$devcount.$devrow - - #my $json = JSON->new->utf8; - #my $jhash0 = eval{ $json->encode( $hash->{DATA}{"command"}{$lbdev} ) }; - #Log3 $name, 1, "\n\n\n\n $lbdev ========>".Dumper($jhash0); foreach my $place (keys %{$hash->{DATA}{"command"}{$lbdev}}){ foreach my $verb (keys %{$hash->{DATA}{"command"}{$lbdev}{$place}}){ foreach my $target (keys %{$hash->{DATA}{"command"}{$lbdev}{$place}{$verb}}){ my $cmd = $hash->{DATA}{"command"}{$lbdev}{$place}{$verb}{$target}; + if( !defined($cmd) ){ + Log3 $name,1,"[Babble] Warning: Entry \$hash->{DATA}{\"command\"}{\"".$lbdev."\"}{\"".$place."\"}{\"".$verb."\"}{\"".$target."\"} is undefined"; + $cmd = "undefined" + } + if( index($cmd,"\$CONFIRM") != -1 ){ $checked = "checked=\"checked\" "; $cmd =~ s/;;\$CONFIRM$//;