FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 07:56:03 +00:00
Code Issues Releases Wiki Activity

HMInfo: fix x-deviceRename

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17071 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2018-07-31 20:26:36 +00:00
parent 9db690b1eb
commit 842655ba6b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/98_HMinfo.pm
View File

@ -2196,7 +2196,7 @@ sub HMinfo_deviceReplace($$$){
} }
# each old channel has a pendant in new channel # each old channel has a pendant in new channel
# lets begin # lets begin
#1 --- foreach entity => rename old>"old-".<name> and new><name> #1 --- foreach entity => rename old>"old_".<name> and new><name>
#2 --- foreach channel => copy peers (peerBulk) #2 --- foreach channel => copy peers (peerBulk)
#3 --- foreach channel => copy registerlist (regBulk) #3 --- foreach channel => copy registerlist (regBulk)
#4 --- foreach channel => copy templates #4 --- foreach channel => copy templates
@ -2208,21 +2208,21 @@ sub HMinfo_deviceReplace($$$){
my @rename = ();# logging only my @rename = ();# logging only
{#1 --- foreach entity => rename old=>"old-".<name> and new=><name> {#1 --- foreach entity => rename old=>"old_".<name> and new=><name>
push @rename,"1) rename"; push @rename,"1) rename";
foreach my $i(sort keys %{$rnHash{old}}){ foreach my $i(sort keys %{$rnHash{old}}){
my $old = $rnHash{old}{$i}; my $old = $rnHash{old}{$i};
if ($execMode){ if ($execMode){
AnalyzeCommand("","rename $old old-$old"); AnalyzeCommand("","rename $old old_$old");
AnalyzeCommand("","rename $rnHash{new}{$i} $old"); AnalyzeCommand("","rename $rnHash{new}{$i} $old");
} }
push @rename,"1)- $oldDev - $i: rename $old old-$old"; push @rename,"1)- $oldDev - $i: rename $old old_$old";
push @rename,"1)- $newDev - $i: $rnHash{new}{$i} $old"; push @rename,"1)- $newDev - $i: $rnHash{new}{$i} $old";
} }
if ($execMode){ if ($execMode){
foreach my $name(keys %{$rnHash{old}}){# correct hash internal for further processing foreach my $name(keys %{$rnHash{old}}){# correct hash internal for further processing
$rnHash{new}{$name} = $rnHash{old}{$name}; $rnHash{new}{$name} = $rnHash{old}{$name};
$rnHash{old}{$name} = "old-".$rnHash{old}{$name}; $rnHash{old}{$name} = "old_".$rnHash{old}{$name};
} }
} }
} }