diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm index 553def859..54be7ef34 100644 --- a/fhem/FHEM/72_FRITZBOX.pm +++ b/fhem/FHEM/72_FRITZBOX.pm @@ -747,12 +747,15 @@ FRITZBOX_Readout_Done($) readingsBulkUpdate( $hash, "lastReadout", $msg ); FRITZBOX_Log $hash, 4, $msg; my $newState = "WLAN: "; - if ($values{"box_wlan_2.4GHz"} eq "on" || $values{box_wlan_5GHz} eq "on") - { + if ( $values{"box_wlan_2.4GHz"} eq "on" ) { $newState .= "on"; - } - else - { + } elsif ( defined $values{box_wlan_5GHz} ) { + if ( $values{box_wlan_5GHz} eq "on") { + $newState .= "on"; + } else { + $newState .= "off"; + } + } else { $newState .= "off"; } $newState .=" gWLAN: ".$values{box_guestWlan} ; @@ -1251,7 +1254,7 @@ sub FRITZBOX_Open_Connection($) FRITZBOX_Log $hash, 5, "Wait for command prompt"; unless ($telnet->waitfor( '/# $/i' )) { - $msg = "Telnet error while waiting for command prompt: ".$telnet->errmsg; + $msg = "Telnet error while waiting for command prompt (perhaps wrong password): ".$telnet->errmsg; FRITZBOX_Log $hash, 2, $msg; $telnet->close; $telnet = undef; @@ -1737,7 +1740,7 @@ sub FRITZBOX_fritztris($)

FRITZBOX

@@ -1920,35 +1923,35 @@ sub FRITZBOX_fritztris($) Readings