FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-28 15:04:51 +00:00
Code Issues Releases Wiki Activity

FS20 + FHT enabled

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@339 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
odroegehorn 2009-01-22 12:38:16 +00:00
parent ce1785d7df
commit 93d1de7451
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/webfrontend/pgm5/fhemiphone.pl
View File

@ -107,7 +107,10 @@ $docmd = 1 if($cmd &&
$cmd !~ /^style / && $cmd !~ /^style / &&
$cmd !~ /^edit/); $cmd !~ /^edit/);
$cmdret = fhemcmd($cmd) if($docmd); if($docmd) {
$cmdret = fhemcmd($cmd);
exit (0);
}
parseXmlList($docmd); parseXmlList($docmd);
@ -134,10 +137,7 @@ if($cmd =~ m/^toweblink (.*)$/) {
print $q->header; print $q->header;
print $q->start_html(-name=>$title, -title=>$title, -meta=> {'viewport'=>'width=320; initial-scale=1.0; maximum-scale=1.0; user-scalable=0;'}, -style =>{ -type=>'text/css', -media=>'screen', -src=>'./icons/iui.css'}, -script=>{ -type=>"application/x-javascript", -src=>"./icons/iui.js"}); print $q->start_html(-name=>$title, -title=>$title, -meta=> {'viewport'=>'width=320; initial-scale=1.0; maximum-scale=1.0; user-scalable=0;'}, -style =>{ -type=>'text/css', -media=>'screen', -src=>'./icons/iui.css'}, -script=>{ -type=>"application/x-javascript", -src=>"./icons/iui.js"});
print"<div class=\"toolbar\">";
print"<h1 id=\"pageTitle\"></h1>";
print" <a id=\"backButton\" class=\"button\" href=\"#\"></a>";
print"</div>";
#For manually enetered commands #For manually enetered commands
#if($cmdret) { #if($cmdret) {
@ -299,7 +299,7 @@ parseXmlList($)
$types{$devs{$d}{type}} = 1; $types{$devs{$d}{type}} = 1;
} }
$title = $devs{global}{ATTR}{title}{VAL} ? $title = $devs{global}{ATTR}{title}{VAL} ?
$devs{global}{ATTR}{title}{VAL} : "DHS - Office Management"; $devs{global}{ATTR}{title}{VAL} : "FHEM - Control";
$room = $devs{$detail}{ATTR}{room}{VAL} if($detail); $room = $devs{$detail}{ATTR}{room}{VAL} if($detail);
} }
@ -442,7 +442,13 @@ doDetail($)
sub sub
roomOverview($) roomOverview($)
{ {
my ($cmd) = @_; my ($cmd) = @_;
print"<div class=\"toolbar\">";
print"<h1 id=\"pageTitle\"></h1>";
print" <a id=\"backButton\" class=\"button\" href=\"#\"></a>";
print"</div>";
print "<ul id=\"home\" title=\"FHEM Control\" selected=\"true\">"; print "<ul id=\"home\" title=\"FHEM Control\" selected=\"true\">";
######### #########
@ -498,7 +504,7 @@ showRoom()
checkDirs(); checkDirs();
my $havelookedforrenderer; my $havelookedforrenderer;
print $q->start_form( -id => $room, -title => $room, -class => 'panel', -selected => 'true', action => $me.'?room='.$room); print $q->start_form( -id => $room, -title => $room, -class => 'panel', selected => 'true', action => $me.'?room='.$room);
foreach my $type (sort keys %types) { foreach my $type (sort keys %types) {
@ -591,7 +597,8 @@ showRoom()
print "<td align=\"right\">"; print "<td align=\"right\">";
print $q->submit(-name=>"cmd.$d", -value=>"set"); print $q->hidden("cmd.$d", "set");
print "<a class=\"button blueButton\" type=\"submit\">Set</a>";
print "</td> </tr> </table>"; print "</td> </tr> </table>";
print " </div>"; print " </div>";