From 4889174ca3784333c9302edba7b72c77ad7a5ae9 Mon Sep 17 00:00:00 2001
From: tpoitzsch <tpoitzsch@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 31 Jan 2015 13:27:34 +0000
Subject: [PATCH] FRITZBOX: improve debugging

git-svn-id: https://svn.fhem.de/fhem/trunk@7796 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/72_FRITZBOX.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm
index 73c2be1e7..dab445667 100644
--- a/fhem/FHEM/72_FRITZBOX.pm
+++ b/fhem/FHEM/72_FRITZBOX.pm
@@ -1084,7 +1084,7 @@ sub FRITZBOX_Readout_Format($$$)
    if ($format eq "aldays") {
       if ($readout eq "0") {
          $readout = "once";
-      } elsif ($readout eq "127") {
+      } elsif ($readout >= 127) {
          $readout = "daily";
       } else {
          my $bitStr = $readout;
@@ -2091,7 +2091,7 @@ sub FRITZBOX_Open_Connection($)
    my $timeout = AttrVal( $name, "telnetTimeOut", "10");
    $telnet = new Net::Telnet ( Host=>$host, Port => 23, Timeout=>$timeout, Errmode=>'return', Prompt=>'/# $/');
    if (!$telnet) {
-      $msg = "Could not open telnet connection to $host";
+      $msg = "Could not open telnet connection to $host: $!";
       FRITZBOX_Log $hash, 2, $msg;
       $telnet = undef;
       return $msg;