From f283b919c21eff742b90b692d1fc124c58a959da Mon Sep 17 00:00:00 2001
From: tpoitzsch <tpoitzsch@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 29 Dec 2014 19:17:41 +0000
Subject: [PATCH] FRITZBOX: Telnet error - Login failed.

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7362 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/72_FRITZBOX.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm
index ff1ca4428..e8124f782 100644
--- a/fhem/FHEM/72_FRITZBOX.pm
+++ b/fhem/FHEM/72_FRITZBOX.pm
@@ -1445,9 +1445,17 @@ sub FRITZBOX_Open_Connection($)
    $telnet->print( $pwd );
 
    FRITZBOX_Log $hash, 5, "Wait for command prompt";
-   unless ($telnet->waitfor( '/# $/i' ))
+   unless ( ($before,$match) = $telnet->waitfor( '/# $|Login failed./i' ))
    {
-      $msg = "Telnet error while waiting for command prompt (perhaps wrong password): ".$telnet->errmsg;
+      $msg = "Telnet error while waiting for command prompt: ".$telnet->errmsg;
+      FRITZBOX_Log $hash, 2, $msg;
+      $telnet->close;
+      $telnet = undef;
+      return $msg;
+   }
+   elsif ( $match eq "Login failed.")
+   {
+      $msg = "Telnet error: Login failed. Wrong password.";
       FRITZBOX_Log $hash, 2, $msg;
       $telnet->close;
       $telnet = undef;