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

Bugfixing: FHEMWEB wont start without 99_priv_cgi

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@369 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2009-05-05 06:22:38 +00:00
parent 91d03be2d3
commit 389435eaaa
2 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fhem/contrib/99_priv_cgi.pm Normal file
View File

@ -0,0 +1,22 @@
##############################################
package main;
# call it whith http://localhost:8083/fhem/privcgi
use strict;
use warnings;
sub priv_cgi_Initialize($)
{
$data{FWEXT}{"/privcgi"} = "priv_cgi_callback";
}
sub
priv_cgi_callback($$)
{
my ($htmlarg) = @_;
Log 1, "Got $htmlarg";
return ("text/html; charset=ISO-8859-1", "Hello World");
}
1;

9
fhem/webfrontend/pgm2/01_FHEMWEB.pm
View File

@ -32,6 +32,7 @@ sub FW_calcWeblink($$);
use vars qw($__ME); # webname (fhem), needed by SVG
#########################
# As we are _not_ multithreaded, it is safe to use global variables.
my %__icons; # List of icons
@ -244,13 +245,13 @@ FW_AnswerCall($)
}
##############################
# Axels FHEMWEB Module...
# Axels FHEMWEB modules...
$arg = $1;
if(defined(%FWEXT)) {
foreach my $k (sort keys %FWEXT) {
if(defined($data{FWEXT})) {
foreach my $k (sort keys %{$data{FWEXT}}) {
if($arg =~ m/^$k/) {
no strict "refs";
($__RETTYPE, $__RET) = &{$FWEXT{$k}}($arg);
($__RETTYPE, $__RET) = &{$data{FWEXT}{$k}}($arg);
use strict "refs";
return 0;
}