FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 23:09:26 +00:00
Code Issues Releases Wiki Activity

98_autocreate.pm: rename fixes (Forum #42472)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10165 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-12-13 11:14:15 +00:00
parent 50d501e3c4
commit f0f0273db9
1 changed files with 38 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
fhem/FHEM/98_autocreate.pm
View File

@ -317,25 +317,59 @@ autocreate_Notify($$)
if($defs{"FileLog_$old"}) {
CommandRename(undef, "FileLog_$old FileLog_$new");
my $hash = $defs{"FileLog_$new"};
my $oldlogfile = $hash->{currentlogfile};
my $oldfile = $hash->{currentlogfile};
$hash->{DEF} =~ s/$old/$new/g;
$hash->{REGEXP} =~ s/$old/$new/g;
$hash->{logfile} =~ s/$old/$new/g;
$hash->{currentlogfile} =~ s/$old/$new/g;
$hash->{DEF} =~ s/$old/$new/g;
rename($oldlogfile, $hash->{currentlogfile});
Log3 $me, 2, "autocreate: renamed FileLog_$old to FileLog_$new";
$nrcreated++;
notifyRegexpChanged($hash, $hash->{REGEXP});
# Content
if($oldfile ne $hash->{currentlogfile} &&
open(IN, $oldfile) && open(OUT, ">".$hash->{currentlogfile})) {
while(my $l = <IN>) {
$l =~ s/$old/$new/;
syswrite(OUT, $l);
}
close(IN); close(OUT);
unlink($oldfile);
} else {
Log 1, "$oldfile or $hash->{currentfile}: $!";
close(IN);
}
}
if($defs{"SVG_$old"}) {
CommandRename(undef, "SVG_$old SVG_$new");
my $hash = $defs{"SVG_$new"};
$hash->{LINK} =~ s/$old/$new/g;
my $oldfile = $hash->{GPLOTFILE};
$hash->{DEF} =~ s/$old/$new/g;
$hash->{GPLOTFILE} =~ s/$old/$new/g;
$hash->{LOGDEVICE} =~ s/$old/$new/g;
$attr{"SVG_$new"}{label} =~ s/$old/$new/g;
Log3 $me, 2, "autocreate: renamed SVG_$old to SVG_$new";
use vars qw($FW_gplotdir);# gplot directory
if($oldfile ne $hash->{GPLOTFILE} && $FW_gplotdir) {
$oldfile = $FW_gplotdir."/".$oldfile.".gplot";
my $newfile = $FW_gplotdir."/".$hash->{GPLOTFILE}.".gplot";
if(open(IN, $oldfile) && open(OUT, ">$newfile")) {
while(my $l = <IN>) {
$l =~ s/$old/$new/;
syswrite(OUT, $l);
}
close(IN); close(OUT);
unlink($oldfile);
} else {
Log 1, "$oldfile or $newfile: $!";
close(IN);
}
}
$nrcreated++;
}
}