mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

01_FHEMWEB.pm: Fix "style edit" when called before "style list" (Forum #142498)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@30304 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2025-09-17 13:19:49 +00:00
parent 67ac30fe49
commit 3eceb38a8e
1 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/01_FHEMWEB.pm
View File

@@ -2572,14 +2572,27 @@ FW_style($$)
my $data = "";
my $cfgDB = defined($a[3]) ? $a[3] : "";
$fileName =~ s,.*/,,g; # Little bit of security
$fileName .= ".configDB" if ($cfgDB eq 'configDB'); # add identifier if file has to be read from database
# add identifier if file has to be read from database
$fileName .= ".configDB" if ($cfgDB eq 'configDB');
if(!%FW_editFileToPath) { # no edit was called yet
my $old=$FW_RET;
FW_style("style list",undef);
$FW_RET=$old
}
my $filePath = $FW_editFileToPath{$fileName}{path};
my($err, @content) = FileRead({FileName=>$filePath, ForceType=>$FW_editFileToPath{$fileName}{forceType}});
if(!$filePath) {
FW_addContent(">$fileName is not in the editFileList</div");
return;
}
my($err, @content) = FileRead({FileName=>$filePath,
ForceType=>$FW_editFileToPath{$fileName}{forceType}});
if($err) {
FW_addContent(">$err</div");
return;
}
$fileName =~ s,\.configDB,,; # remove identifier for pretty print in frontend
$fileName =~ s,\.configDB,,; #remove identifier for pretty print in frontend
$data = join("\n", @content);
$data =~ s/&/&amp;/g;