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

:

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26223 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2022-07-13 17:42:07 +00:00
parent 03c04e66ff
commit 22079a36d9
1 changed files with 29 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
fhem/contrib/betateilchen/02_FHEMapi.pm
View File

@ -154,33 +154,36 @@ sub FHEMapi_CGI() {
# return error if no such device
return("text/plain; charset=utf-8", "No FHEMapi device for $link") unless($name);
my $fullName = $filename;
foreach my $reading (split (/,/, AttrVal($name, "readings", ""))) {
my $value = "";
if ($fullName =~ /^([^\?]+)\?(.*)($reading)=([^;&]*)([&;].*)?$/) {
$filename = $1;
$value = $4;
Log3 $name, 5, "$name: set Reading $reading = $value";
readingsSingleUpdate($defs{$name}, $reading, $value, 1);
}
};
return("text/plain; charset=utf-8", "42");
# set directory index
$filename= AttrVal($name,"directoryindex","index.html") unless($filename);
$filename =~ s/\?.*//;
my $MIMEtype= filename2MIMEType($filename);
my $directory= $defs{$name}{fhem}{directory};
$filename= "$directory/$filename";
#Debug "read filename= $filename";
my @contents;
if(open(INPUTFILE, $filename)) {
binmode(INPUTFILE);
@contents= <INPUTFILE>;
close(INPUTFILE);
return("$MIMEtype; charset=utf-8", join("", @contents));
} else {
return("text/plain; charset=utf-8", "File not found: $filename");
}
# my $fullName = $filename;
# foreach my $reading (split (/,/, AttrVal($name, "readings", ""))) {
# my $value = "";
# if ($fullName =~ /^([^\?]+)\?(.*)($reading)=([^;&]*)([&;].*)?$/) {
# $filename = $1;
# $value = $4;
# Log3 $name, 5, "$name: set Reading $reading = $value";
# readingsSingleUpdate($defs{$name}, $reading, $value, 1);
# }
# };
#
# # set directory index
# $filename= AttrVal($name,"directoryindex","index.html") unless($filename);
# $filename =~ s/\?.*//;
# my $MIMEtype= filename2MIMEType($filename);
# my $directory= $defs{$name}{fhem}{directory};
# $filename= "$directory/$filename";
# #Debug "read filename= $filename";
# my @contents;
# if(open(INPUTFILE, $filename)) {
# binmode(INPUTFILE);
# @contents= <INPUTFILE>;
# close(INPUTFILE);
# return("$MIMEtype; charset=utf-8", join("", @contents));
# } else {
# return("text/plain; charset=utf-8", "File not found: $filename");
# }
} else {
return("text/plain; charset=utf-8", "Illegal request: $request");