Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

added style "commands only", changed html-method "get" to "$FW_formmethod"

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@6139 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ulimaass 2014-06-19 07:14:56 +00:00
parent b1fc9db342
commit b01e090903
1 changed files with 29 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
FHEM/95_FLOORPLAN.pm
View File

@ -4,7 +4,7 @@
# Feedback: http://groups.google.com/group/fhem-users # Feedback: http://groups.google.com/group/fhem-users
# Define Custom Floorplans # Define Custom Floorplans
# Released : 26.02.2012 # Released : 26.02.2012
# Version : 2.0 # Version : 2.1
# Revisions: # Revisions:
# 0001: Released to testers # 0001: Released to testers
# 0002: use local FP_select and FP_submit after clash with FHEMWEB update # 0002: use local FP_select and FP_submit after clash with FHEMWEB update
@ -44,12 +44,13 @@
# 0033: Updated loglevel -> verbose, added fp_roomIcons (Feb 2, 2014) # 0033: Updated loglevel -> verbose, added fp_roomIcons (Feb 2, 2014)
# 0034: iOS fullscreen app - navigating to other floorplan doesn't open safari anymore (Feb 15, 2014) # 0034: iOS fullscreen app - navigating to other floorplan doesn't open safari anymore (Feb 15, 2014)
# 0035: added allowedCommands-Attribute based on FHEMWEB (Feb 20, 2014) # 0035: added allowedCommands-Attribute based on FHEMWEB (Feb 20, 2014)
# 0036: added style "commands only", changed html-method "get" to "$FW_formmethod" (June 19, 2014)
# #
################################################################ ################################################################
# #
# Copyright notice # Copyright notice
# #
# (c) 2012-2013 Copyright: Ulrich Maass # (c) 2012-2014 Copyright: Ulrich Maass
# #
# This file is part of fhem. # This file is part of fhem.
# #
@ -142,7 +143,7 @@ my $FW_plotmode=""; # like in FHEMWEB: SVG
my $FW_plotsize; # like in FHEMWEB: like in fhemweb dependent on regular/smallscreen/touchpad my $FW_plotsize; # like in FHEMWEB: like in fhemweb dependent on regular/smallscreen/touchpad
my %FW_zoom; # copied from FHEMWEB - using local version to avoid global variable my %FW_zoom; # copied from FHEMWEB - using local version to avoid global variable
my @FW_zoom; # copied from FHEMWEB - using local version to avoid global variable my @FW_zoom; # copied from FHEMWEB - using local version to avoid global variable
my @styles = ("0 (Icon only)","1 (Name+Icon)","2 (Name+Icon+Commands)","3 (Device-Reading)","4 (S300TH-specific)","5 (Icon+Commands)","6 (Reading+Timestamp)"); my @styles = ("0 (Icon only)","1 (Name+Icon)","2 (Name+Icon+Commands)","3 (Device-Reading)","4 (S300TH-specific)","5 (Icon+Commands)","6 (Reading+Timestamp)","7 (Commands only)");
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
@ -227,6 +228,12 @@ FP_CGI(){
$params[1] = $params[2]; $params[1] = $params[2];
} }
my @htmlpart = split("\\?", $params[1]) if ($params[1]); # split URL by ? -> htmlpart[0] = FP_name, htmlpart[1] = commandstring my @htmlpart = split("\\?", $params[1]) if ($params[1]); # split URL by ? -> htmlpart[0] = FP_name, htmlpart[1] = commandstring
if (!$htmlpart[1] && $htmlpart[0] !~ "\\?") { # in case of 'post' URL does not contain ?
$htmlpart[0] =~ /([a-z0-9.:_]+)&(.*)/i;
$htmlpart[1] = $2 if ($2);
$htmlpart[1] =~ s/\\+/&/g if ($htmlpart[1]);
$htmlpart[0] = $1 if ($1);
}
$FP_name = $htmlpart[0] if (!$FP_name); $FP_name = $htmlpart[0] if (!$FP_name);
### set global parameters, check floorplan-name ### set global parameters, check floorplan-name
if ($FP_name) { # floorplan-name is part of URL if ($FP_name) { # floorplan-name is part of URL
@ -258,6 +265,7 @@ FP_CGI(){
$FW_subdir = "/floorplan/$FP_name"; $FW_subdir = "/floorplan/$FP_name";
$FP_arrange = AttrVal($FP_name, "fp_arrange", 0); $FP_arrange = AttrVal($FP_name, "fp_arrange", 0);
} }
## process cgi ## process cgi
my $commands = FP_digestCgi($htmlpart[1]) if $htmlpart[1]; # analyze URL-commands my $commands = FP_digestCgi($htmlpart[1]) if $htmlpart[1]; # analyze URL-commands
my $FP_ret = AnalyzeCommand(undef, $commands, my $FP_ret = AnalyzeCommand(undef, $commands,
@ -310,8 +318,9 @@ FP_digestCgi($) {
$FP_fwdetail = undef; $FP_fwdetail = undef;
$arg =~ s,^[?/],,; $arg =~ s,^[?/],,;
foreach my $pv (split("&", $arg)) { #per each URL-section devided by & foreach my $pv (split("&", $arg)) { #per each URL-section devided by &
next if($pv eq ""); # happens when post forgot to set FW_ME
$pv =~ s/\+/ /g; $pv =~ s/\+/ /g;
$pv =~ s/%(..)/chr(hex($1))/ge; $pv =~ s/%([\dA-F][\dA-F])/chr(hex($1))/ige;
my ($p,$v) = split("=",$pv, 2); #$p = parameter, $v = value my ($p,$v) = split("=",$pv, 2); #$p = parameter, $v = value
$v =~ s/[\r]\n/\\\n/g if($v && $p && $p ne "data"); # Multiline: escape the NL for fhem $v =~ s/[\r]\n/\\\n/g if($v && $p && $p ne "data"); # Multiline: escape the NL for fhem
$FP_webArgs{$p} = $v; $FP_webArgs{$p} = $v;
@ -408,7 +417,7 @@ FP_showStart() {
FW_pO "<div id=\"logo\"></div>"; FW_pO "<div id=\"logo\"></div>";
FP_menu(); FP_menu();
FW_pO "<div class=\"screen\" id=\"hdr\">"; FW_pO "<div class=\"screen\" id=\"hdr\">";
FW_pO "<form method=\"get\" action=\"" . $FW_ME . "\">"; FW_pO "<form method=\"$FW_formmethod\" action=\"" . $FW_ME . "\">";
FW_pO "<table WIDTH=\"100%\"><tr>"; FW_pO "<table WIDTH=\"100%\"><tr>";
FW_pO "<td><input type=\"text\" name=\"cmd\" size=\"30\"/></td>"; #input-field FW_pO "<td><input type=\"text\" name=\"cmd\" size=\"30\"/></td>"; #input-field
FW_pO "</tr></table>"; FW_pO "</tr></table>";
@ -474,7 +483,7 @@ FP_show(){
$style = 0 if (!$style); $style = 0 if (!$style);
# start device-specific table # start device-specific table
FW_pO "\n<div style=\"position:absolute; top:".$top."px; left:".$left."px;\" id=\"div-$d\">"; FW_pO "\n<div style=\"position:absolute; top:".$top."px; left:".$left."px;\" id=\"div-$d\">";
FW_pO "<form method=\"get\" action=\"$FW_ME/floorplan/$FP_name/$d\" autocomplete=\"off\">"; FW_pO "<form method=\"$FW_formmethod\" action=\"$FW_ME/floorplan/$FP_name/$d\" autocomplete=\"off\">";
FW_pO " <table class=\"$type fp_$FP_name\" id=\"table-$d\" align=\"center\">"; # Main table per device FW_pO " <table class=\"$type fp_$FP_name\" id=\"table-$d\" align=\"center\">"; # Main table per device
my ($allSets, $cmdlist, $txt) = FW_devState($d, ""); my ($allSets, $cmdlist, $txt) = FW_devState($d, "");
$txt = ReadingsVal($d, $text, "Undefined Reading $d-<b>$text</b>") if ($style == 3 || $style == 6); # Style3+6 = DeviceReading given in $text $txt = ReadingsVal($d, $text, "Undefined Reading $d-<b>$text</b>") if ($style == 3 || $style == 6); # Style3+6 = DeviceReading given in $text
@ -482,7 +491,7 @@ FP_show(){
######################## ########################
# Device-name per device # Device-name per device
if ($style gt 0 && $style ne 5) { if ($style gt 0 && $style ne 5 && $style ne 7) {
FW_pO " <tr class=\"devicename fp_$FP_name\" id=\"$d-devicename\">"; # For css: class=devicename, id=<devicename>-devicename FW_pO " <tr class=\"devicename fp_$FP_name\" id=\"$d-devicename\">"; # For css: class=devicename, id=<devicename>-devicename
my $devName = ""; my $devName = "";
if ($style == 3 || $style == 6) { if ($style == 3 || $style == 6) {
@ -501,6 +510,7 @@ FP_show(){
######################## ########################
# Device-state per device # Device-state per device
# FW_pO "<tr class=\"devicestate fp_$FP_name\" id=\"$d\">"; # For css: class=devicestate, id=devicename # FW_pO "<tr class=\"devicestate fp_$FP_name\" id=\"$d\">"; # For css: class=devicestate, id=devicename
if ($style != 7) {
if ($style == 3 || $style == 6) { if ($style == 3 || $style == 6) {
FW_pO "<tr class=\"devicereading fp_$FP_name\" id=\"$d"."-$text\">"; # For css: class=devicereading, id=<devicename>-<reading> FW_pO "<tr class=\"devicereading fp_$FP_name\" id=\"$d"."-$text\">"; # For css: class=devicereading, id=<devicename>-<reading>
} else { } else {
@ -530,7 +540,7 @@ FP_show(){
FW_pO "<td informId=\"$d\" colspan=\"$cols\">$txt"; # state FW_pO "<td informId=\"$d\" colspan=\"$cols\">$txt"; # state
} }
FW_pO "</td></tr>"; FW_pO "</td></tr>";
}
if ($style == 6) { # add ReadingsTimeStamp for style 6 if ($style == 6) { # add ReadingsTimeStamp for style 6
$txt=""; $txt="";
FW_pO "<tr class=\"devicetimestamp fp_$FP_name\" id=\"$d-devicetimestamp\">"; # For css: class=devicetimestamp, id=<devicename>-devicetimestamp FW_pO "<tr class=\"devicetimestamp fp_$FP_name\" id=\"$d-devicetimestamp\">"; # For css: class=devicetimestamp, id=<devicename>-devicetimestamp
@ -542,7 +552,7 @@ FP_show(){
######################## ########################
# Commands per device # Commands per device
if($cmdlist && ( $style == 2 || $style == 5) ) { if($cmdlist && ( $style == 2 || $style == 5 || $style == 7) ) {
my @cList = split(":", $cmdlist); my @cList = split(":", $cmdlist);
my @rList = map { ReplaceEventMap($d,$_,1) } @cList; my @rList = map { ReplaceEventMap($d,$_,1) } @cList;
my $firstIdx = 0; my $firstIdx = 0;
@ -623,7 +633,7 @@ FP_menu() {
FW_pH "$FW_ME", "fhem", 1; FW_pH "$FW_ME", "fhem", 1;
FW_pO "</tr>"; FW_pO "</tr>";
foreach my $f (sort keys %defs) { foreach my $f (sort keys %defs) {
next if ($defs{$f}{TYPE} ne "FLOORPLAN"); next if (!$defs{$f}{TYPE} || $defs{$f}{TYPE} ne "FLOORPLAN");
FW_pO "<tr>"; FW_pO "<tr>";
my $icoName = "ico$f"; my $icoName = "ico$f";
map { my ($n,$v) = split(":",$_); $icoName=$v if($f =~ m/$n/); } map { my ($n,$v) = split(":",$_); $icoName=$v if($f =~ m/$n/); }
@ -649,6 +659,7 @@ FP_menuArrange() {
my @nfpl; # devices not assigned to floorplan my @nfpl; # devices not assigned to floorplan
foreach my $d (sort keys %defs) { # loop all devices foreach my $d (sort keys %defs) { # loop all devices
my $type = $defs{$d}{TYPE}; my $type = $defs{$d}{TYPE};
$type = '?' if (!$type);
# exclude these types from list of available devices # exclude these types from list of available devices
next if ($type =~ m/^(WEB|CUL$|FHEM.*|FileLog|PachLog|PID|SUNRISE.*|FLOORPLAN|holiday|Global|notify|autocreate)/ ); next if ($type =~ m/^(WEB|CUL$|FHEM.*|FileLog|PachLog|PID|SUNRISE.*|FLOORPLAN|holiday|Global|notify|autocreate)/ );
my $disp = $d; my $disp = $d;
@ -671,7 +682,7 @@ FP_menuArrange() {
# add device to floorplan # add device to floorplan
if (!defined($FP_arrange_selected)) { if (!defined($FP_arrange_selected)) {
FW_pO "<form method=\"get\" action=\"$FW_ME/floorplan/$FP_name\">"; #form1 FW_pO "<form method=\"$FW_formmethod\" action=\"$FW_ME/floorplan/$FP_name\">"; #form1
FW_pO "<div class=\"menu-add\" id=\"fpmenu\">\n" . FW_pO "<div class=\"menu-add\" id=\"fpmenu\">\n" .
($FP_fwdetail?FP_input("detl.$FP_fwdetail", $FP_fwdetail, "hidden") . "\n" :"") . ($FP_fwdetail?FP_input("detl.$FP_fwdetail", $FP_fwdetail, "hidden") . "\n" :"") .
FW_select("","add.dev", \@nfpl, "", "menu-add") . FW_select("","add.dev", \@nfpl, "", "menu-add") .
@ -683,7 +694,7 @@ FP_menuArrange() {
if (!defined($FP_arrange_selected)) { if (!defined($FP_arrange_selected)) {
my $dv = $FP_arrange_default; my $dv = $FP_arrange_default;
$dv = $desc{$dv} if ($dv); $dv = $desc{$dv} if ($dv);
FW_pO "<form method=\"get\" action=\"$FW_ME/floorplan/$FP_name\">"; #form2 FW_pO "<form method=\"$FW_formmethod\" action=\"$FW_ME/floorplan/$FP_name\">"; #form2
FW_pO "<div class=\"menu-select\" id=\"fpmenu\">\n" . FW_pO "<div class=\"menu-select\" id=\"fpmenu\">\n" .
($FP_fwdetail?FP_input("detl.$FP_fwdetail", $FP_fwdetail, "hidden") . "\n" :"") . ($FP_fwdetail?FP_input("detl.$FP_fwdetail", $FP_fwdetail, "hidden") . "\n" :"") .
FW_select("","arr.dev", \@fpl, $dv, "menu-select") . FW_select("","arr.dev", \@fpl, $dv, "menu-select") .
@ -710,7 +721,7 @@ FP_menuArrange() {
} }
### build the form ### build the form
my $disp = $FP_arrange eq "detail" ? $desc{$d} : $d; my $disp = $FP_arrange eq "detail" ? $desc{$d} : $d;
FW_pO "<form method=\"get\" action=\"$FW_ME/floorplan/$FP_name\">"; #form3 FW_pO "<form method=\"$FW_formmethod\" action=\"$FW_ME/floorplan/$FP_name\">"; #form3
my ($top, $left, $style, $text, $text2) = split(",", $attrd); my ($top, $left, $style, $text, $text2) = split(",", $attrd);
$text .= ','.$text2 if ($text2); # re-append Description after reading-ID for style3 $text .= ','.$text2 if ($text2); # re-append Description after reading-ID for style3
$style = $styles[$style]; $style = $styles[$style];
@ -921,6 +932,7 @@ FP_pOfill($@) {
<li>4 S300TH-specific, displays temperature above humidity</li> <li>4 S300TH-specific, displays temperature above humidity</li>
<li>5 icon/state and commands</li> <li>5 icon/state and commands</li>
<li>6 device-reading, reading-timestamp and optional description</li> <li>6 device-reading, reading-timestamp and optional description</li>
<li>7 commands only</li>
</ul> </ul>
</li> </li>
<li>description will be displayed instead of the original devicename</li> <li>description will be displayed instead of the original devicename</li>
@ -1089,6 +1101,7 @@ FP_pOfill($@) {
<li>4 S300TH-spezifisch, zeigt Temperatur und Luftfeuchtigkeit an</li> <li>4 S300TH-spezifisch, zeigt Temperatur und Luftfeuchtigkeit an</li>
<li>5 icon/Status und Kommandos (ohne Gerätename)</li> <li>5 icon/Status und Kommandos (ohne Gerätename)</li>
<li>6 Geräte-reading, Zeitstempel und optionale Beschreibung</li> <li>6 Geräte-reading, Zeitstempel und optionale Beschreibung</li>
<li>7 nur Kommandos</li>
</ul> </ul>
</li> </li>
<li>Eine ggf. angegebene Bschreibung wird anstelle des original-Gerätenamens angezeigt.</li> <li>Eine ggf. angegebene Bschreibung wird anstelle des original-Gerätenamens angezeigt.</li>