From d0b926371ad880fc9c541d7477ff1d3130f186cb Mon Sep 17 00:00:00 2001
From: tupol <>
Date: Sun, 19 Nov 2017 13:40:50 +0000
Subject: [PATCH] FRITZBOX: password by rename

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

diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm
index 0c0f74de5..e11a62531 100644
--- a/fhem/FHEM/72_FRITZBOX.pm
+++ b/fhem/FHEM/72_FRITZBOX.pm
@@ -175,6 +175,7 @@ sub FRITZBOX_Initialize($)
   $hash->{DefFn}    = "FRITZBOX_Define";
   $hash->{UndefFn}  = "FRITZBOX_Undefine";
   $hash->{DeleteFn}  = "FRITZBOX_Delete";
+  $hash->{RenameFn}  = "FRITZBOX_Rename";
 
   $hash->{SetFn}    = "FRITZBOX_Set";
   $hash->{GetFn}    = "FRITZBOX_Get";
@@ -285,6 +286,20 @@ sub FRITZBOX_Delete ($$)
    return undef;
 }
 
+#######################################################################
+sub FRITZBOX_Rename($$)
+{
+    my ($new, $old) = @_; 
+   
+    my $old_index = "FRITZBOX_".$old."_passwd";
+    my $new_index = "FRITZBOX_".$new."_passwd";
+   
+    my ($err, $old_pwd) = getKeyValue($old_index);
+   
+    setKeyValue($new_index, $old_pwd);
+    setKeyValue($old_index, undef);
+}
+
 #######################################################################
 sub FRITZBOX_Attr($@)
 {