FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 23:06:05 +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

12
fhem/FHEM/98_HMinfo.pm
View File

@ -2196,7 +2196,7 @@ sub HMinfo_deviceReplace($$$){
}
# each old channel has a pendant in new channel
# 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)
#3 --- foreach channel => copy registerlist (regBulk)
#4 --- foreach channel => copy templates
@ -2208,26 +2208,26 @@ sub HMinfo_deviceReplace($$$){
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";
foreach my $i(sort keys %{$rnHash{old}}){
my $old = $rnHash{old}{$i};
if ($execMode){
AnalyzeCommand("","rename $old old-$old");
AnalyzeCommand("","rename $old old_$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";
}
if ($execMode){
foreach my $name(keys %{$rnHash{old}}){# correct hash internal for further processing
$rnHash{new}{$name} = $rnHash{old}{$name};
$rnHash{old}{$name} = "old-".$rnHash{old}{$name};
$rnHash{old}{$name} = "old_".$rnHash{old}{$name};
}
}
}
{#2 --- foreach channel => copy peers (peerBulk) from old to new
push @rename,"2) copy peers from old to new";
push @rename,"2) copy peers from old to new ";
foreach my $ch(sort keys %{$rnHash{old}}){
my ($nameO,$nameN) = ($rnHash{old}{$ch},$rnHash{new}{$ch});
next if(!defined $attr{$nameO}{peerIDs});