From 839697020d8161ed61b838c3aa5bf8f12d3524ef Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 22 Dec 2018 19:22:09 +0000
Subject: [PATCH] fhem.pl: add associatedWith reading (Forum #94434)

git-svn-id: https://svn.fhem.de/fhem/trunk@18029 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index ed16b383b..1e716a1e3 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2573,6 +2573,12 @@ CommandRename($$)
   delete($oldvalue{$old});
 
   CallFn($new, "RenameFn", $new,$old);# ignore replies
+  for my $d (keys %defs) {
+    my $aw = ReadingsVal($d, "associatedWith", "");
+    next if($aw !~ m/\b$old\b/);
+    $aw =~ s/\b$old\b/$new/;
+    setReadingsVal($defs{$d}, "associatedWith", $aw, TimeNow());
+  }
 
   addStructChange("rename", $new, $param);
   DoTrigger("global", "RENAMED $old $new", 1);
@@ -5575,6 +5581,8 @@ getPawList($)
       push(@dob, $dn);
     }
   }
+  my $aw = ReadingsVal($d, "associatedWith", ""); # Explicit link
+  push(@dob, split("[ ,]",$aw)) if($aw);
   return @dob;
 }