mirror of
https://github.com/fhem/fhem-mirror.git
synced 2024-06-17 05:40:11 +00:00
edd5ff11fc
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23677 2b470e98-0d58-463d-a4d8-8e2adae1ed80
1930 lines
64 KiB
Perl
1930 lines
64 KiB
Perl
# $Id$
|
||
|
||
=for comment
|
||
##############################################
|
||
#
|
||
# 55_InfoPanel.pm written by betateilchen
|
||
#
|
||
# forked from 02_RSS.pm by Dr. Boris Neubert
|
||
#
|
||
##############################################
|
||
#
|
||
# This module uses vTicker,
|
||
# a jQuery plug-in that adds scrolling vertical tickers
|
||
#
|
||
# vTicker is published under MIT and BSD licenses
|
||
#
|
||
# Copyright (c) 2009–2011
|
||
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
||
# of this software and associated documentation files (the "Software"), to deal
|
||
# in the Software without restriction, including without limitation the rights
|
||
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||
# copies of the Software, and to permit persons to whom the Software is
|
||
# furnished to do so, subject to the following conditions:
|
||
# The above copyright notice and this permission notice shall be included in
|
||
# all copies or substantial portions of the Software.
|
||
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||
# THE SOFTWARE.
|
||
#
|
||
##############################################
|
||
#
|
||
# 2015-02-06 - 7892 - module moved from ./contrib to ./FHEM
|
||
# 2015-02-08 - 7921 - changed: additional modules are optional
|
||
# 2015-02-10 - 7931 - added: direct link to circle,ellipse,rect
|
||
# 2015-02-11 - 7933 - added: item counter
|
||
# 2015-02-11 - 7944 - added: items push/pop
|
||
# 2015-02-12 - 7947 - changed: turtle added to new elements
|
||
# 2015-02-14 - 7967 - added: item ticker
|
||
# changed: img syntax
|
||
# 2015-02-15 - 7989 - added: item embed
|
||
# 7995 - added: xcondition (can be overridden by set)
|
||
# set ovClear,ovDisable,ovEnable
|
||
# get counter, layout, overrides
|
||
# - removed: trashcan due to performance issues
|
||
# - added: break condition for includes
|
||
# 2015-02-24 - 8092 - added: longpoll support (experimental)
|
||
# 2015-02-25 - 8095 - changed: iframe handling for secret div
|
||
# 2015-03-07 - 8168 - fixed: handling for bg img (Bugzilla #8)
|
||
# 2015-03-22 - 8268 - added: attribute showTime
|
||
# 2015-03-24 - 8281 - added: BACK as special link to return
|
||
# to $FW_httpheader{Referer}
|
||
# changed: limit refresh to at least 60 secs
|
||
# to prevent performance issues
|
||
# 2015-03-29 - 8334 - changed: commandref updated
|
||
# 2015-09-25 - - changed: support ReadingsVal() in ticker
|
||
# with \n in text
|
||
# 2016-09-04 - 12114 - added: movecalculated
|
||
#
|
||
# 2018-05-06 - 16695 - changed: check plotName exists
|
||
# 2018-05-28 - $Rev$ - changed: remove misleading link in commandref
|
||
#
|
||
##############################################
|
||
=cut
|
||
|
||
package main;
|
||
use strict;
|
||
use warnings;
|
||
|
||
#use Data::Dumper;
|
||
|
||
use feature qw/switch/;
|
||
use vars qw(%data);
|
||
use HttpUtils;
|
||
|
||
my @valid_valign = qw(auto baseline middle center hanging);
|
||
my @valid_halign = qw(start middle end);
|
||
|
||
my $useImgTools = 1;
|
||
|
||
no if $] >= 5.017011, warnings => 'experimental';
|
||
|
||
sub btIP_Define;
|
||
sub btIP_Undef;
|
||
sub btIP_Set;
|
||
sub btIP_Get;
|
||
sub btIP_Notify;
|
||
sub btIP_readLayout;
|
||
|
||
sub btIP_itemArea;
|
||
sub btIP_itemButton;
|
||
sub btIP_itemCircle;
|
||
sub btIP_itemCounter;
|
||
sub btIP_itemDate;
|
||
sub btIP_itemEllipse;
|
||
sub btIP_itemGroup;
|
||
sub btIP_itemImg;
|
||
sub _btIP_imgData;
|
||
sub _btIP_imgRescale;
|
||
sub btIP_itemLine;
|
||
sub btIP_itemLongpoll;
|
||
sub btIP_itemPlot;
|
||
sub btIP_itemRect;
|
||
sub btIP_itemSeconds;
|
||
sub btIP_itemText;
|
||
sub btIP_itemTextBox;
|
||
sub btIP_itemTicker;
|
||
sub btIP_itemTime;
|
||
|
||
sub btIP_changeColor;
|
||
sub btIP_color;
|
||
sub btIP_FileRead;
|
||
sub btIP_findTarget;
|
||
sub btIP_xy;
|
||
|
||
sub btIP_ReturnSVG;
|
||
sub btIP_evalLayout;
|
||
|
||
sub btIP_addExtension;
|
||
sub btIP_CGI;
|
||
sub btIP_splitRequest;
|
||
|
||
sub btIP_returnHTML;
|
||
sub btIP_HTMLHead;
|
||
sub btIP_getScript;
|
||
sub btIP_HTMLTail;
|
||
sub btIP_Overview;
|
||
sub btIP_getURL;
|
||
|
||
|
||
######################################
|
||
|
||
sub InfoPanel_Initialize {
|
||
my ($hash) = @_;
|
||
|
||
## no critic
|
||
eval "use MIME::Base64" ;
|
||
$useImgTools = 0 if($@);
|
||
Log3(undef,4,"InfoPanel: MIME::Base64 missing.") unless $useImgTools;
|
||
eval "use Image::Info qw(image_info dim)";
|
||
$useImgTools = 0 if($@);
|
||
Log3(undef,4,"InfoPanel: Image::Info missing.") unless $useImgTools;
|
||
## use critic
|
||
|
||
$hash->{DefFn} = "btIP_Define";
|
||
$hash->{UndefFn} = "btIP_Undef";
|
||
$hash->{SetFn} = "btIP_Set";
|
||
$hash->{GetFn} = "btIP_Get";
|
||
$hash->{NotifyFn} = "btIP_Notify";
|
||
$hash->{AttrList} = "autoreread:1,0 useViewPort:1,0 bgcolor refresh size ";
|
||
$hash->{AttrList} .= "mobileApp:none,apple,other ";
|
||
$hash->{AttrList} .= "title noscript showTime:1,0 ";
|
||
$hash->{AttrList} .= " bgcenter:1,0 bgdir bgopacity tmin" if $useImgTools;
|
||
|
||
return;
|
||
}
|
||
|
||
sub btIP_Define {
|
||
my ($hash, $def) = @_;
|
||
my @a = split("[ \t]+", $def);
|
||
return "Usage: define <name> InfoPanel filename" if(int(@a) != 3);
|
||
my $name= $a[0];
|
||
my $filename= $a[2];
|
||
|
||
$hash->{NOTIFYDEV} = 'global';
|
||
$hash->{fhem}{div} = '';
|
||
$hash->{LAYOUTFILE} = $filename;
|
||
|
||
btIP_addExtension("btIP_CGI","btip","InfoPanel");
|
||
btIP_readLayout($hash);
|
||
|
||
readingsSingleUpdate($hash,'state','defined',1);
|
||
return;
|
||
}
|
||
|
||
sub btIP_Undef {
|
||
my ($hash, $arg) = @_;
|
||
# check if last device
|
||
my $url = '/btip';
|
||
delete $data{FWEXT}{$url} if int(devspec2array('TYPE=InfoPanel')) == 1;
|
||
return;
|
||
}
|
||
|
||
sub btIP_Set {
|
||
|
||
my ($hash, @a) = @_;
|
||
my $name = $a[0];
|
||
|
||
my $usage= "Unknown argument, choose one of reread:noArg ovClear ovEnable ovDisable";
|
||
my $ret = undef;
|
||
|
||
given ($a[1]) {
|
||
|
||
when ("ovClear") {
|
||
if ($a[2] eq "all") {
|
||
delete $defs{$name}{fhem}{override};
|
||
} else {
|
||
delete $defs{$name}{fhem}{override}{$a[2]};
|
||
}
|
||
}
|
||
when ("ovDisable") {
|
||
$defs{$name}{fhem}{override}{$a[2]} = 0;
|
||
}
|
||
when ("ovEnable") {
|
||
$defs{$name}{fhem}{override}{$a[2]} = 1;
|
||
}
|
||
when ("reread") {
|
||
btIP_readLayout($hash);
|
||
}
|
||
default {
|
||
$ret = $usage;
|
||
}
|
||
}
|
||
return $ret;
|
||
}
|
||
|
||
sub btIP_Get {
|
||
|
||
my ($hash, @a) = @_;
|
||
my $name = $a[0];
|
||
|
||
my $usage= "Unknown argument, choose one of reread:noArg counter:noArg layout:noArg overrides:noArg";
|
||
my $ret = undef;
|
||
|
||
given ($a[1]) {
|
||
when ("counter") {
|
||
$ret = $defs{$name}{fhem}{counter};
|
||
}
|
||
when ("layout") {
|
||
$ret = $defs{$name}{fhem}{layout};
|
||
}
|
||
when ("overrides") {
|
||
last if(!defined($defs{$name}{fhem}{override}));
|
||
foreach my $key ( keys %{$defs{$name}{fhem}{override}} ) {
|
||
$ret .= "$key => $defs{$name}{fhem}{override}{$key} \n";
|
||
}
|
||
}
|
||
default {
|
||
$ret = $usage;
|
||
}
|
||
}
|
||
return $ret;
|
||
}
|
||
|
||
sub btIP_Notify {
|
||
my ($hash,$dev) = @_;
|
||
|
||
return unless AttrVal($hash->{NAME},'autoreload',1);
|
||
return if($dev->{NAME} ne "global");
|
||
return if(!grep(m/^FILEWRITE $hash->{LAYOUTFILE}$/, @{$dev->{CHANGED}}));
|
||
|
||
Log3(undef, 4, "InfoPanel: $hash->{NAME} reread layout after edit.");
|
||
undef = btIP_readLayout($hash);
|
||
return;
|
||
}
|
||
|
||
sub btIP_readLayout {
|
||
my ($hash)= @_;
|
||
my $filename= $hash->{LAYOUTFILE};
|
||
my $name= $hash->{NAME};
|
||
my $level = 0;
|
||
|
||
my ($err, @layoutfile) = FileRead($filename);
|
||
if($err) {
|
||
# Log 1, "InfoPanel $name: $err";
|
||
# $hash->{fhem}{layout} = "text ERROR 50 50 \"Error on reading layout!\"";
|
||
Log 1, "InfoPanel $name: $err";
|
||
$hash->{fhem}{layout} = "text ERROR 50 50 \"Error on reading layout!\"";
|
||
my ($e,@layout) = FileRead('./FHEM/template.layout');
|
||
unless ($e){
|
||
FileWrite($filename,@layout);
|
||
$hash->{fhem}{layout} = "text ERROR 50 50 \"Please edit layoutfile now.\"";
|
||
}
|
||
} else {
|
||
$hash->{fhem}{layout} = join("\n", @layoutfile);
|
||
while($hash->{fhem}{layout} =~ m/\@include/ && $level < 1000) {
|
||
$level++;
|
||
my (@layout2,@include);
|
||
foreach my $ll (@layoutfile) {
|
||
if($ll !~ m/^\@include/) {
|
||
push(@layout2,$ll);
|
||
} elsif ($ll =~ m/^\@include/) {
|
||
my ($cmd, $def) = split("[ \t]+", $ll, 2);
|
||
($err,@include) = FileRead($def) if($def);
|
||
splice(@layout2,-1,0,@include) unless $err;
|
||
}
|
||
}
|
||
@layoutfile = @layout2;
|
||
@layout2 = undef;
|
||
$hash->{fhem}{layout} = join("\n",@layoutfile);
|
||
}
|
||
while($hash->{fhem}{layout} =~ m/\@finclude/ && $level < 1000) {
|
||
$level++;
|
||
my (@layout2,@include);
|
||
foreach my $ll (@layoutfile) {
|
||
if($ll !~ m/^\@finclude/) {
|
||
push(@layout2,$ll);
|
||
} else {
|
||
my ($cmd, $def) = split("[ \t]+", $ll, 2);
|
||
@include = split("\n",AnalyzePerlCommand(undef,$def));
|
||
splice(@layout2,-1,0,@include);
|
||
}
|
||
}
|
||
@layoutfile = @layout2;
|
||
@layout2 = undef;
|
||
$hash->{fhem}{layout} = join("\n",@layoutfile);
|
||
}
|
||
$hash->{fhem}{layout} = "text ERROR 50 50 \"Loop detected in includes!\"" if ($level >= 1000);
|
||
$hash->{fhem}{layout} =~ s/\n\n/\n/g;
|
||
}
|
||
return;
|
||
}
|
||
|
||
|
||
##################
|
||
#
|
||
# Layout evaluation
|
||
#
|
||
|
||
##### Items
|
||
|
||
sub btIP_itemArea {
|
||
my ($id,$x1,$y1,$x2,$y2,$link,$target,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
|
||
my $oldrgb = $params{rgb};
|
||
$params{rgb} = '00000000';
|
||
my $output = btIP_itemRect($id,$x1,$y1,$x2,$y2,0,0,1,0,$link,$target,%params);
|
||
$params{rgb} = $oldrgb;
|
||
|
||
return $output;
|
||
}
|
||
|
||
sub btIP_itemButton {
|
||
my ($id,$x1,$y1,$x2,$y2,$rx,$ry,$link,$text,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my $width = $x2 - $x1;
|
||
my $height = $y2 - $y1;
|
||
|
||
my $oldrgb = $params{rgb};
|
||
$params{rgb} = $params{boxcolor};
|
||
my $output = btIP_itemRect($id,$x1,$y1,$x2,$y2,$rx,$ry,1,0,$link,undef,%params);
|
||
$params{rgb} = $oldrgb;
|
||
|
||
my ($oldhalign,$oldvalign) = ($params{thalign},$params{tvalign});
|
||
($params{thalign},$params{tvalign}) = ("middle","middle");
|
||
my $textoutput .= btIP_itemText("${id}_text",($x1+$x2)/2,($y1+$y2)/2,$text,%params);
|
||
($params{thalign},$params{tvalign}) = ($oldhalign,$oldvalign);
|
||
|
||
$output =~ s/<\/a>/$textoutput<\/a>/;
|
||
return $output;
|
||
}
|
||
|
||
sub btIP_itemCircle {
|
||
my ($id,$x,$y,$r,$filled,$stroked,$link,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my $target;
|
||
($link,$target) = btIP_findTarget($link);
|
||
my $output = "";
|
||
$output .= "<a xlink:href=\"$link\" target=\"$target\">\n" if($link && length($link));
|
||
$output .= "<circle id=\”$id\” cx=\"$x\" cy=\"$y\" r=\"$r\" ";
|
||
if($filled > 0 || $stroked > 0) {
|
||
$output .= "style=\"";
|
||
if($filled > 0) {
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
$output .= "fill:rgb($r,$g,$b); fill-opacity:$a; ";
|
||
}
|
||
if($stroked > 0) {
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
$output .= "stroke:rgb($r,$g,$b); stroke-width:$stroked; ";
|
||
$output .= "fill:none; " if ($filled == 0);
|
||
}
|
||
$output .= "\" ";
|
||
} else {
|
||
$output .= "style=\"fill:none; stroke-width:0; \" ";
|
||
}
|
||
$output .= "/>\n";
|
||
$output .= "</a>\n" if($link && length($link));
|
||
return $output;
|
||
}
|
||
|
||
sub btIP_itemCounter {
|
||
my ($id,$x,$y,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
return btIP_itemText($id,$x,$y,$params{counter},%params);
|
||
}
|
||
|
||
sub btIP_itemDate {
|
||
my ($id,$x,$y,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||
return btIP_itemText($id,$x,$y,sprintf("%02d.%02d.%04d", $mday, $mon+1, $year+1900),%params);
|
||
}
|
||
|
||
sub btIP_itemEllipse {
|
||
my ($id,$x,$y,$rx,$ry,$filled,$stroked,$link,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my $target;
|
||
($link,$target) = btIP_findTarget($link);
|
||
my $output = "";
|
||
$output .= "<a xlink:href=\"$link\" target=\"$target\">\n" if($link && length($link));
|
||
$output .= "<ellipse $id=\"$id\" cx=\"$x\" cy=\"$y\" rx=\"$rx\" ry=\"$ry\" ";
|
||
if($filled > 0 || $stroked > 0) {
|
||
$output .= "style=\"";
|
||
if($filled > 0) {
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
$output .= "fill:rgb($r,$g,$b); fill-opacity:$a; ";
|
||
}
|
||
if($stroked > 0) {
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
$output .= "stroke:rgb($r,$g,$b); stroke-width:$stroked; ";
|
||
$output .= "fill:none; " if ($filled == 0);
|
||
}
|
||
$output .= "\" ";
|
||
} else {
|
||
$output .= "style=\"fill:none; stroke-width:0; \" ";
|
||
}
|
||
$output .= "/>\n";
|
||
$output .= "</a>\n" if($link && length($link));
|
||
return $output;
|
||
}
|
||
|
||
sub btIP_itemEmbed {
|
||
my ($id,$x,$y,$width,$height,$arg,%params) = @_;
|
||
|
||
my $embed = "<div id=\"${id}_embedded\" style=\"position:absolute; top:${y}px; left:${x}px; ".
|
||
"width:${width}px; height:${height}px; z-index:2; \" >\n".
|
||
"$arg\n".
|
||
"</div>\n";
|
||
return $embed;
|
||
}
|
||
|
||
sub btIP_itemGroup {
|
||
my($id,$type,$x,$y,%params) = @_;
|
||
return "</g>\n" if $type eq 'close';
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
return "<g id=\"$id\" transform=\"translate($x,$y)\" >\n" if $type eq 'open';
|
||
}
|
||
|
||
sub btIP_itemImg {
|
||
return unless $useImgTools;
|
||
my ($id,$x,$y,$scale,$link,$srctype,$arg,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
return unless(defined($arg));
|
||
return if($arg eq "");
|
||
my ($counter,$data,$info,$width,$height,$mimetype,$output);
|
||
|
||
if($srctype eq 'file') {
|
||
($counter,$data) = btIP_FileRead($arg);
|
||
return unless $counter;
|
||
} elsif ($srctype eq "url" || $srctype eq "urlq") {
|
||
if($srctype eq "url") {
|
||
$data= GetFileFromURL($arg,3,undef,1);
|
||
} else {
|
||
$data= GetFileFromURLQuiet($arg,3,undef,1);
|
||
}
|
||
} elsif ($srctype eq 'data') {
|
||
$data = $arg;
|
||
} else {
|
||
Log3(undef,4,"InfoPanel: unknown sourcetype $srctype for image tag");
|
||
return "";
|
||
}
|
||
|
||
($width,$height,$mimetype,undef) = _btIP_imgData($data,1);
|
||
if($mimetype eq 'image/svg+xml') {
|
||
if($data !~ m/viewBox/) {
|
||
$data =~ s/width=/viewBox="0 0 $width $height"\n\twidth=/;
|
||
}
|
||
($width,$height) = _btIP_imgRescale($width,$height,$scale);
|
||
$data =~ s/width=".*"/width="$width"/;
|
||
$data =~ s/height=".*"/height="$height"/;
|
||
$scale = 1;
|
||
(undef,undef,undef,$data) = _btIP_imgData($data,$scale);
|
||
} else {
|
||
($width,$height,$mimetype,$data) = _btIP_imgData($data,$scale);
|
||
}
|
||
|
||
my $target;
|
||
($link,$target) = btIP_findTarget($link);
|
||
|
||
$output = "<!-- s: $scale w: $width h: $height t: $mimetype -->\n";
|
||
$output .= "<a xlink:href=\"$link\" target=\"$target\">\n" if($link && length($link));
|
||
$output .= "<image id=\"$id\" x=\"$x\" y=\"$y\" width=\"${width}px\" height=\"${height}px\" \nxlink:href=\"$data\" />\n";
|
||
$output .= "</a>\n" if($link && length($link));
|
||
|
||
return ($output,$width,$height);
|
||
}
|
||
|
||
sub _btIP_imgData {
|
||
my ($arg,$scale) = @_;
|
||
my $info = image_info(\$arg);
|
||
my $width = $info->{width};
|
||
my $height = $info->{height};
|
||
$width =~ s/px//;
|
||
$height =~ s/px//;
|
||
$width =~ s/pt//;
|
||
$height =~ s/pt//;
|
||
($width,$height)= _btIP_imgRescale($width,$height,$scale);
|
||
my $mimetype = $info->{file_media_type};
|
||
|
||
if($FW_userAgent =~ m/Trident/ && $mimetype =~ m/svg/) {
|
||
$arg =~ s/width=".*"//g;
|
||
$arg =~ s/height=".*"//g;
|
||
}
|
||
|
||
my $data = "data:$mimetype;base64,".encode_base64($arg);
|
||
return ($width,$height,$mimetype,$data);
|
||
}
|
||
|
||
sub _btIP_imgRescale {
|
||
my ($width,$height,$scale) = @_;
|
||
if ($scale =~ s/([whWH])([\d]*)/$2/) {
|
||
$scale = (uc($1) eq "W") ? $scale/$width : $scale/$height;
|
||
}
|
||
$width = int($scale*$width);
|
||
$height = int($scale*$height);
|
||
return ($width,$height);
|
||
}
|
||
|
||
sub btIP_itemLine {
|
||
my ($id,$x1,$y1,$x2,$y2,$th,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
$th //= 1;
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
return "<line id=\"$id\" x1=\"$x1\" y1=\"$y1\" x2=\"$x2\" y2=\"$y2\" style=\"stroke:rgb($r,$g,$b); stroke-width:$th; stroke-opacity:$a; \" />\n";
|
||
}
|
||
|
||
sub btIP_itemLongpoll {
|
||
my ($id,$x,$y,$text,%params)= @_;
|
||
my ($iconName,undef,undef) = FW_dev2image($id);
|
||
my $iconURL;
|
||
$iconURL = FW_IconURL($iconName) if defined($iconName);
|
||
my $color = substr($params{rgb},0,6);
|
||
my $opacity = hex(substr($params{rgb},6,2))/255;
|
||
my $output = "<div informId=\"$id\" style=\"position:absolute; top:${y}px; left:${x}px; ";
|
||
$output .= "font-family:$params{font}; font-size:$params{pt}; color:#$color; opacity:$opacity; " if defined($text);
|
||
$output .= "margin-top:0px; z-index:3; \" >\n";
|
||
$output .= "$text\n" if defined($text);
|
||
$output .= "<img src=\"$iconURL\">\n" unless defined($text);
|
||
$output .= "</div>\n";
|
||
|
||
$defs{$params{name}}{fhem}{div} .= $output;
|
||
return "";
|
||
}
|
||
|
||
sub btIP_itemPlot {
|
||
my ($id,$x,$y,$scale,$inline,$arg) = @_;
|
||
my (@plotName) = split(";",$arg);
|
||
return ("<!-- undefined plotDevice -->\n",undef,undef) unless defined($defs{$plotName[0]});
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my (@webs,$width,$height,$newWidth,$newHeight,$output,$mimetype,$svgdata);
|
||
|
||
@webs=devspec2array("TYPE=FHEMWEB");
|
||
foreach(@webs) {
|
||
if(!InternalVal($_,'TEMPORARY',undef)) {
|
||
$FW_wname=InternalVal($_,'NAME','');
|
||
last;
|
||
}
|
||
}
|
||
|
||
if(!$useImgTools) {
|
||
$scale = 1;
|
||
$inline = 0;
|
||
}
|
||
|
||
($width,$height) = split(",", AttrVal($plotName[0],"plotsize","800,160"));
|
||
($newWidth,$newHeight) = _btIP_imgRescale($width,$height,$scale);
|
||
|
||
if($inline == 1) {
|
||
# embed base64 data
|
||
|
||
$FW_RET = undef;
|
||
$FW_webArgs{dev} = $plotName[0];
|
||
$FW_webArgs{logdev} = InternalVal($plotName[0], "LOGDEVICE", "");
|
||
$FW_webArgs{gplotfile} = InternalVal($plotName[0], "GPLOTFILE", "");
|
||
$FW_webArgs{logfile} = InternalVal($plotName[0], "LOGFILE", "CURRENT");
|
||
$FW_pos{zoom} = $plotName[1] if(length($plotName[1]));
|
||
$FW_pos{off} = $plotName[2] if(length($plotName[2]));
|
||
$FW_plotsize = "$newWidth,$newHeight";
|
||
|
||
($mimetype, $svgdata) = SVG_showLog("unused");
|
||
$svgdata =~ s/<\/svg>/<polyline opacity="0" points="0,0 $newWidth,$newHeight"\/><\/svg>/;
|
||
(undef,undef,undef,$svgdata) = _btIP_imgData($svgdata,1);
|
||
|
||
$output = "<!-- s: $scale ow: $width oh: $height nw: $newWidth nh: $newHeight t: $mimetype -->\n";
|
||
$output .= "<image id=\"$id\" x=\"$x\" y=\"$y\" width=\"${newWidth}px\" height=\"${newHeight}px\" \n";
|
||
$output .= "xlink:href=\"$svgdata\" />\n";
|
||
} else {
|
||
# embed link to plot
|
||
|
||
my $url;
|
||
$url = "$FW_ME/SVG_showLog?dev=". $plotName[0].
|
||
"&logdev=". InternalVal($plotName[0], "LOGDEVICE", "").
|
||
"&gplotfile=". InternalVal($plotName[0], "GPLOTFILE", "").
|
||
"&logfile=". InternalVal($plotName[0], "LOGFILE", "CURRENT").
|
||
"&plotsize=". "$newWidth,$newHeight";
|
||
$url .= "&pos=";
|
||
$url .= "zoom=". "$plotName[1];" if(length($plotName[1]));
|
||
$url .= "off=". $plotName[2] if(length($plotName[2]));
|
||
|
||
$output = "<!-- $url -->\n";
|
||
$output .= "<image id=\"$id\" x=\"$x\" y=\"$y\" width=\"${newWidth}px\" height=\"${newHeight}px\" \nxlink:href=\"$url\" />\n";
|
||
}
|
||
|
||
return ($output,$newWidth,$newHeight);
|
||
|
||
}
|
||
|
||
sub btIP_itemRect {
|
||
my ($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link,$target,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
$target //= "";
|
||
($link,$target) = btIP_findTarget($link) unless ($target ne "");
|
||
my $width = $x2 - $x1;
|
||
my $height = $y2 - $y1;
|
||
$filled //= 0;
|
||
$stroked //= 0;
|
||
my $output = "";
|
||
$output .= "<a id=\”${id}_link\” xlink:href=\"$link\" target=\"$target\">\n" if($link && length($link));
|
||
$output .= "<rect id=\”${id}_rect\” x=\"$x1\" y=\"$y1\" width=\"$width\" height=\"$height\" rx=\"$rx\" ry=\"$ry\" ";
|
||
if($filled > 0 || $stroked > 0) {
|
||
$output .= "style=\"";
|
||
if($filled > 0) {
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
$output .= "fill:rgb($r,$g,$b); fill-opacity:$a; ";
|
||
}
|
||
if($stroked > 0) {
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
$output .= "stroke:rgb($r,$g,$b); stroke-width:$stroked; ";
|
||
$output .= "fill:none; " if ($filled == 0);
|
||
}
|
||
$output .= "\" ";
|
||
} else {
|
||
$output .= "style=\"fill:none; stroke-width:0; \" ";
|
||
}
|
||
$output .= "/>\n";
|
||
$output .= "</a>\n" if($link && length($link));
|
||
return $output;
|
||
}
|
||
|
||
sub btIP_itemSeconds {
|
||
my ($id,$x,$y,$format,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||
if ($format eq "colon")
|
||
{ return btIP_itemText($id,$x,$y,sprintf(":%02d", $sec),%params); }
|
||
else
|
||
{ return btIP_itemText($id,$x,$y,sprintf("%02d", $sec),%params); }
|
||
}
|
||
|
||
sub btIP_itemText {
|
||
my ($id,$x,$y,$text,%params)= @_;
|
||
return unless(defined($text));
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my ($r,$g,$b,$a) = btIP_color($params{rgb});
|
||
|
||
my $output = "<text id=\”$id\” x=\"$x\" y=\"$y\" ".
|
||
"fill=\"rgb($r,$g,$b)\" fill-opacity=\"$a\" ".
|
||
"font-family=\"$params{font}\" ".
|
||
"font-style=\"$params{fontstyle}\" ".
|
||
"font-size=\"$params{pt}px\" ".
|
||
"font-weight=\"$params{fontweight}\" ".
|
||
"text-anchor=\"$params{thalign}\" ".
|
||
"text-decoration=\"$params{textdecoration}\" ".
|
||
"alignment-baseline=\"$params{tvalign}\" >\n".
|
||
"$text\n".
|
||
"</text>\n";
|
||
return $output;
|
||
}
|
||
|
||
sub btIP_itemTextBox {
|
||
my ($id,$x,$y,$boxwidth,$boxheight,$text,$link,%params)= @_;
|
||
return unless(defined($text));
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my $color = substr($params{rgb},0,6);
|
||
$link =~ s/"//g;
|
||
my $target;
|
||
($link,$target) = btIP_findTarget($link);
|
||
|
||
my ($d,$output);
|
||
|
||
if(defined($params{boxcolor})) {
|
||
my $orgcolor = $params{rgb};
|
||
$params{rgb} = $params{boxcolor};
|
||
my $bx1 = $x - $params{padding};
|
||
my $by1 = $y - $params{padding};
|
||
my $bx2 = $x + $boxwidth + $params{padding};
|
||
my $by2 = $y + $boxheight + $params{padding};
|
||
$output .= btIP_itemRect("box_$id",$bx1,$by1,$bx2,$by2,1,1,1,0,undef,undef,%params);
|
||
$params{rgb} = $orgcolor;
|
||
} else {
|
||
$output = "";
|
||
}
|
||
|
||
$d = "<div id=\"text_$id\" style=\"position:absolute; top:".$y."px; left:".$x."px; ".
|
||
"width:".$boxwidth."px; height:".$boxheight."px; text-overflow:ellipsis; z-index:2\" >\n".
|
||
"<style type=\"text/css\">a {text-decoration: none;}</style>\n";
|
||
$d .= "<a href=\"$link\" target=\"$target\">\n" if($link && length($link));
|
||
$d .= "<p style=\"font-family:$params{font}; font-size:$params{pt}; color:#$color; ".
|
||
"width:".$boxwidth."px; height:".$boxheight."px; ".
|
||
"margin-top:0px; text-align:$params{tbalign}; text-overflow:ellipsis; ".
|
||
"\">\n$text\n</p>\n";
|
||
$d .= "</a>" if($link && length($link));
|
||
$d .= "</div>\n";
|
||
|
||
$defs{$params{name}}{fhem}{div} .= $d;
|
||
|
||
return $output;
|
||
}
|
||
|
||
sub btIP_itemTicker {
|
||
my ($id,$x,$y,$width,$items,$speed,$arg,%params) = @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my $pause = 2 * $speed;
|
||
my $color = substr($params{rgb},0,6);
|
||
$arg =~ s/\\n/\n/g; # support ReadingsVal() with \n in text
|
||
my @a = split("\n",$arg);
|
||
my $liTemplate = '<li>%s</li>'."\n";
|
||
|
||
my $ticker = "<div id=\"${id}_tickercontent\" >\n".
|
||
"<script>\$(function() {\$('#${id}_ticker').vTicker('init', ".
|
||
"{speed: $speed, pause: $pause, mousePause:true, showItems: $items, padding:$params{padding}});});</script>\n".
|
||
"<div id=\"${id}_ticker\" style=\"position:relative; top:${y}px; left:${x}px; z-index:1; ".
|
||
"width:${width}px; text-align:$params{tbalign}; ".
|
||
"font-family:$params{font}; font-size:$params{pt}; color:#$color; \" >\n<ul>\n";
|
||
foreach (@a) {$ticker .= sprintf($liTemplate,$_)};
|
||
$ticker .= "</ul>\n</div>\n</div>\n";
|
||
|
||
return $ticker;
|
||
}
|
||
|
||
sub btIP_itemTime {
|
||
my ($id,$x,$y,%params)= @_;
|
||
$id = ($id eq '-') ? createUniqueId() : $id;
|
||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||
return btIP_itemText($id,$x,$y,sprintf("%02d:%02d", $hour, $min),%params);
|
||
}
|
||
|
||
##### Helper
|
||
|
||
sub btIP_changeColor {
|
||
my($file,$oldcolor,$newcolor) = @_;
|
||
Log3(undef,4,"InfoPanel: read file $file for changeColor");
|
||
my ($counter,$data) = btIP_FileRead($file);
|
||
return unless $counter;
|
||
if($newcolor =~ /[[:xdigit:]]{6}/) {
|
||
Log3(undef,4,"InfoPanel: changing color from $oldcolor to $newcolor");
|
||
$data =~ s/fill="#$oldcolor"/fill="#$newcolor"/g;
|
||
$data =~ s/fill:#$oldcolor/fill:#$newcolor/g;
|
||
} else {
|
||
Log3(undef,4,"InfoPanel: invalid rgb value for changeColor!");
|
||
}
|
||
return $data;
|
||
}
|
||
|
||
sub btIP_color {
|
||
my ($rgb)= @_;
|
||
my $alpha = 1;
|
||
my @d= split("", $rgb);
|
||
if(length($rgb) == 8) {
|
||
$alpha = hex("$d[6]$d[7]");
|
||
$alpha = $alpha/255;
|
||
}
|
||
return (hex("$d[0]$d[1]"),hex("$d[2]$d[3]"),hex("$d[4]$d[5]"),$alpha);
|
||
}
|
||
|
||
sub btIP_FileRead {
|
||
my ($file) = @_;
|
||
my ($data,$counter);
|
||
|
||
Log3(undef,4,"InfoPanel: looking for img $file");
|
||
|
||
if(configDBUsed()){
|
||
Log3(undef,4,"InfoPanel: reading from configDB");
|
||
($data,$counter) = _cfgDB_Fileexport($file,1);
|
||
Log3(undef,4,"InfoPanel: file not found in database") unless $counter;
|
||
}
|
||
|
||
if(!$counter) {
|
||
Log3(undef,4,"InfoPanel: reading from filesystem");
|
||
my $length = -s "$file";
|
||
open(my $GRAFIK, "<", $file) or die("File not found $!");
|
||
binmode($GRAFIK);
|
||
$counter = read($GRAFIK, $data, $length);
|
||
close($GRAFIK);
|
||
Log3(undef,4,"InfoPanel: file not found in filesystem") unless $counter;
|
||
}
|
||
return "" unless $counter;
|
||
Log3(undef,4,"InfoPanel: file found.");
|
||
return ($counter,$data);
|
||
}
|
||
|
||
sub btIP_findTarget {
|
||
my ($link) = shift;
|
||
return unless length($link);
|
||
my $target = 'secret';
|
||
$target = '_top' if $link =~ s/^-//;
|
||
$target = '_blank' if $link =~ s/^\+//;
|
||
$link = $FW_httpheader{Referer} if $link eq 'BACK';
|
||
return ($link,$target);
|
||
}
|
||
|
||
sub btIP_xy {
|
||
my ($x,$y,%params)= @_;
|
||
$x = $params{width} if ($x eq 'max');
|
||
$y = $params{height} if ($y eq 'max');
|
||
$x = $params{xx} if ($x eq 'x');
|
||
$y = $params{yy} if ($y eq 'y');
|
||
if((-1 < $x) && ($x < 1)) { $x *= $params{width}; }
|
||
if((-1 < $y) && ($y < 1)) { $y *= $params{height}; }
|
||
return($x,$y);
|
||
}
|
||
|
||
|
||
##################
|
||
#
|
||
# create SVG content
|
||
#
|
||
|
||
sub btIP_returnSVG {
|
||
my ($name)= @_;
|
||
|
||
#
|
||
# increase counter
|
||
#
|
||
if(defined($defs{$name}{fhem}) && defined($defs{$name}{fhem}{counter})) {
|
||
$defs{$name}{fhem}{counter}++;
|
||
} else {
|
||
$defs{$name}{fhem}{counter}= 1;
|
||
}
|
||
|
||
my ($width,$height)= split(/x/, AttrVal($name,"size","800x600"));
|
||
my $bgcolor = AnalyzePerlCommand(undef,AttrVal($name,'bgcolor','"000000"'));
|
||
$bgcolor = substr($bgcolor,0,6);
|
||
my $output = "";
|
||
our $svg = "";
|
||
|
||
eval {
|
||
|
||
$svg = "\n<svg \n".
|
||
"xmlns=\"http://www.w3.org/2000/svg\"\nxmlns:xlink=\"http://www.w3.org/1999/xlink\"\n".
|
||
"width=\"".$width."px\" height=\"".$height."px\" \n".
|
||
"viewPort=\"0 0 $width $height\"\n".
|
||
"style=\"stroke-width: 0px; ";
|
||
$svg .= "background-color:$bgcolor; " unless $bgcolor eq 'none';
|
||
|
||
# set the background
|
||
# check if background directory is set
|
||
my $reason= "?"; # remember reason for undefined image
|
||
my $bgdir= AnalyzePerlCommand(undef,AttrVal($name,"bgdir",""));
|
||
if(defined($bgdir)){
|
||
my $bgnr; # item number
|
||
if(defined($defs{$name}{fhem}) && defined($defs{$name}{fhem}{bgnr})) {
|
||
$bgnr= $defs{$name}{fhem}{bgnr};
|
||
} else {
|
||
$bgnr= 0;
|
||
}
|
||
# check if at least tmin seconds have passed
|
||
my $t0= 0;
|
||
my $tmin= AttrVal($name,"tmin",0);
|
||
if(defined($defs{$name}{fhem}) && defined($defs{$name}{fhem}{t})) {
|
||
$t0= $defs{$name}{fhem}{t};
|
||
}
|
||
my $t1= time();
|
||
if($t1-$t0>= $tmin) {
|
||
$defs{$name}{fhem}{t}= $t1;
|
||
$bgnr++;
|
||
}
|
||
|
||
if(opendir(BGDIR, $bgdir)){
|
||
my @bgfiles= grep {$_ !~ /^\./} readdir(BGDIR);
|
||
closedir(BGDIR);
|
||
if($#bgfiles>=0) {
|
||
if($bgnr > $#bgfiles) { $bgnr= 0; }
|
||
$defs{$name}{fhem}{bgnr}= $bgnr;
|
||
my $bgfile = $bgdir . "/" . $bgfiles[$bgnr];
|
||
my $info = image_info($bgfile);
|
||
my $bgwidth = $info->{width};
|
||
my $bgheight = $info->{height};
|
||
my ($u,$v) = ($bgwidth/$width, $bgheight/$height);
|
||
my ($w,$h);
|
||
if($u>$v) {
|
||
$w= $width;
|
||
$h= $bgheight/$u;
|
||
} else {
|
||
$h= $height;
|
||
$w= $bgwidth/$v;
|
||
}
|
||
my $scale = ($u>$v) ? 1/$u : 1/$v;
|
||
my ($bgx,$bgy) = (0,0);
|
||
$bgx = ($width - $w)/2 if AttrVal($name,'bgcenter',1);
|
||
$bgy = ($height - $h)/2 if AttrVal($name,'bgcenter',1);
|
||
($output,undef,undef) = btIP_itemImg('bgImage',$bgx,$bgy,$scale,undef,'file',$bgfile,undef);
|
||
my $opacity = AttrVal($name,'bgopacity',1);
|
||
$output =~ s/<image\ /<image\ opacity="$opacity" /;
|
||
}
|
||
} # end opendir()
|
||
} # end defined()
|
||
|
||
$svg .= "\" >\n";
|
||
$svg .= "$output\n";
|
||
$svg = btIP_evalLayout($svg, $name, $defs{$name}{fhem}{layout});
|
||
|
||
readingsSingleUpdate($defs{$name},'state',localtime(),1) if(AttrVal($name,'showTime',1));
|
||
|
||
}; #warn $@ if $@;
|
||
if($@) {
|
||
my $msg= $@;
|
||
chomp $msg;
|
||
Log3($name, 2, $msg);
|
||
}
|
||
|
||
$svg .= "\nSorry, your browser does not support inline SVG.\n</svg>\n";
|
||
|
||
return $svg;
|
||
|
||
}
|
||
|
||
sub btIP_evalLayout {
|
||
my ($svg,$name,$layout)= @_;
|
||
my ($width,$height)= split(/x/, AttrVal($name,"size","800x600"));
|
||
my @layout= split("\n", $layout);
|
||
|
||
my $pstackcount = 0;
|
||
my %pstack;
|
||
my %params;
|
||
|
||
$params{name} = $name;
|
||
$params{counter} = $defs{$name}{fhem}{counter};
|
||
$params{xx} = 0;
|
||
$params{yy} = 0;
|
||
$params{groupx} = 0;
|
||
$params{groupy} = 0;
|
||
$params{width} = $width;
|
||
$params{height} = $height;
|
||
$params{rgb} = 'FFFFFF';
|
||
$params{condition} = 1;
|
||
|
||
$params{boxcolor} = undef;
|
||
$params{tbalign} = 'left';
|
||
$params{padding} = 0;
|
||
|
||
$params{font} = 'Arial';
|
||
$params{pt} = 12;
|
||
$params{fontstyle} = 'initial';
|
||
$params{fontweight} = 'normal';
|
||
$params{textdecoration} = 'none';
|
||
$params{thalign} = 'start';
|
||
$params{tvalign} = 'auto';
|
||
|
||
$defs{$name}{fhem}{div} = undef;
|
||
|
||
my ($id,$x,$y,$x1,$y1,$x2,$y2,$radius,$rx,$ry);
|
||
my ($scale,$inline,$boxwidth,$boxheight,$boxcolor);
|
||
my ($speed,$bgcolor,$fgcolor);
|
||
my ($text,$link,$target,$imgtype,$srctype,$arg,$format,$filled,$stroked);
|
||
|
||
my $cont= "";
|
||
foreach my $line (@layout) {
|
||
# kill trailing newline
|
||
chomp $line;
|
||
# kill comments and blank lines
|
||
$line=~ s/\#.*$//;
|
||
$line=~ s/\@.*$//;
|
||
$line=~ s/\s+$//;
|
||
$line= $cont . $line;
|
||
if($line=~ s/\\$//) { $cont= $line; undef $line; }
|
||
next unless($line);
|
||
$cont= "";
|
||
# Debug "$name: evaluating >$line<";
|
||
# split line into command and definition
|
||
my ($cmd, $def)= split("[ \t]+", $line, 2);
|
||
|
||
# Debug "CMD= \"$cmd\", DEF= \"$def\"";
|
||
|
||
# separate condition handling
|
||
if($cmd =~ m/condition/) {
|
||
if($cmd =~ m/^xcond/) {
|
||
($id,$arg) = split("[ \t]+", $def, 2);
|
||
$params{condition} = AnalyzePerlCommand(undef,$arg);
|
||
my $override = $defs{$name}{fhem}{override}{$id};
|
||
$override //= $params{condition};
|
||
if($params{condition}) {
|
||
$params{condition} = AnalyzePerlCommand(undef,$arg) && $override;
|
||
} else {
|
||
$params{condition} = AnalyzePerlCommand(undef,$arg) || $override;
|
||
}
|
||
} else {
|
||
$params{condition} = AnalyzePerlCommand(undef,$def);
|
||
}
|
||
next;
|
||
}
|
||
next unless($params{condition});
|
||
|
||
# Debug "before command $line: x= " . $params{xx} . ", y= " . $params{yy};
|
||
|
||
eval {
|
||
given($cmd) {
|
||
|
||
when("area") {
|
||
($id,$x1,$y1,$x2,$y2,$link,$target)= split("[ \t]+", $def, 7);
|
||
$target //= "";
|
||
($x1,$y1)= btIP_xy($x1,$y1,%params);
|
||
($x2,$y2)= btIP_xy($x2,$y2,%params);
|
||
$link = AnalyzePerlCommand(undef,$link);
|
||
$params{xx} = $x1;
|
||
$params{yy} = $y2;
|
||
$svg .= btIP_itemArea($id,$x1,$y1,$x2,$y2,$link,$target,%params);
|
||
}
|
||
|
||
when("boxcolor"){
|
||
$def = "\"$def\"" if(length($def) == 6 && $def =~ /[[:xdigit:]]{6}/);
|
||
$params{boxcolor} = AnalyzePerlCommand(undef, $def);
|
||
}
|
||
|
||
when("button") {
|
||
($id,$x1,$y1,$x2,$y2,$rx,$ry,$link,$text)= split("[ \t]+", $def, 9);
|
||
($x1,$y1)= btIP_xy($x1,$y1,%params);
|
||
($x2,$y2)= btIP_xy($x2,$y2,%params);
|
||
($rx,$ry)= btIP_xy($rx,$ry,%params);
|
||
$params{xx} = $x1;
|
||
$params{yy} = $y2;
|
||
$link = AnalyzePerlCommand(undef,$link);
|
||
$link = (length($link)) ? $link : "-$params{name}.html";
|
||
$text = AnalyzePerlCommand(undef,$text);
|
||
$svg .= btIP_itemButton($id,$x1,$y1,$x2,$y2,$rx,$ry,$link,$text,%params);
|
||
}
|
||
|
||
when("buttonpanel"){
|
||
$defs{$params{name}}{fhem}{div} .= "<div id=\"hiddenDiv\" ".
|
||
"style=\"display:none\" >".
|
||
"<iframe id=\"secretFrame\" name=\"secret\" src=\"\"></iframe></div>\n";
|
||
}
|
||
|
||
when("circle") {
|
||
($id,$x1,$y1,$radius,$filled,$stroked,$link)= split("[ \t]+", $def, 7);
|
||
($x1,$y1)= btIP_xy($x1,$y1,%params);
|
||
$params{xx} = $x1;
|
||
$params{yy} = $y1+$radius;
|
||
$filled //= 0;
|
||
$stroked //= 0;
|
||
$link //= "";
|
||
$link = AnalyzePerlCommand(undef,$link);
|
||
$svg .= btIP_itemCircle($id,$x1,$y1,$radius,$filled,$stroked,$link,%params);
|
||
}
|
||
|
||
when("counter") {
|
||
($id,$x,$y)= split("[ \t]+", $def, 3);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$svg .= btIP_itemCounter($id,$x,$y,%params);
|
||
}
|
||
|
||
when("date") {
|
||
($id,$x,$y)= split("[ \t]+", $def, 3);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$svg .= btIP_itemDate($id,$x,$y,%params);
|
||
}
|
||
|
||
when("ellipse") {
|
||
($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link)= split("[ \t]+", $def, 8);
|
||
($x1,$y1) = btIP_xy($x1,$y1,%params);
|
||
($rx,$ry) = btIP_xy($rx,$ry,%params);
|
||
$params{xx} = $x1;
|
||
$params{yy} = $y1+$ry;
|
||
$filled //= 0;
|
||
$stroked //= 0;
|
||
$link //= "";
|
||
$link = AnalyzePerlCommand(undef,$link);
|
||
$svg .= btIP_itemEllipse($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link,%params);
|
||
}
|
||
|
||
when("embed") {
|
||
($id,$x,$y,$width,$height,$arg)= split("[ \t]+", $def, 6);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
($width,$height)= btIP_xy($width,$height,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$arg = AnalyzePerlCommand(undef,$arg);
|
||
$defs{$name}{fhem}{div} .= btIP_itemEmbed($id,$x,$y,$width,$height,$arg,%params);
|
||
}
|
||
|
||
when("font") {
|
||
$params{font} = $def;
|
||
}
|
||
|
||
when("group") {
|
||
($id,$text,$x,$y) = split("[ \t]+", $def, 4);
|
||
$x //= $params{xx};
|
||
$y //= $params{yy};
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
if($text eq 'open') {
|
||
$params{groupx} = $x;
|
||
$params{groupy} = $y;
|
||
} else {
|
||
$params{groupx} = 0;
|
||
$params{groupy} = 0;
|
||
}
|
||
$svg .= btIP_itemGroup($id,$text,$x,$y,%params);
|
||
}
|
||
|
||
when("img") {
|
||
($id,$x,$y,$scale,$link,$srctype,$arg) = split("[ \t]+", $def,7);
|
||
($x,$y) = btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$arg = AnalyzePerlCommand(undef,$arg);
|
||
$link = AnalyzePerlCommand(undef,$link);
|
||
my($output,$width,$height)= btIP_itemImg($id,$x,$y,$scale,$link,$srctype,$arg,%params);
|
||
$svg .= $output;
|
||
$params{xx} = $x;
|
||
$params{yy} = $y+$height;
|
||
}
|
||
|
||
when("line") {
|
||
($id,$x1,$y1,$x2,$y2,$format) = split("[ \t]+", $def, 6);
|
||
($x1,$y1) = btIP_xy($x1,$y1,%params);
|
||
($x2,$y2) = btIP_xy($x2,$y2,%params);
|
||
$format //= 1;
|
||
$svg .= btIP_itemLine($id,$x1,$y1,$x2,$y2,$format,%params);
|
||
}
|
||
|
||
when("longpoll") {
|
||
($id,$x,$y,$text)= split("[ \t]+", $def, 4);
|
||
$text //= undef;
|
||
$text = AnalyzePerlCommand(undef,$text) if defined($text);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$x += $params{groupx};
|
||
$y += $params{groupy};
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$svg .= btIP_itemLongpoll($id,$x,$y,$text,%params);
|
||
}
|
||
|
||
when("movecalculated") {
|
||
my ($tox,$toy)= split('[ \t]+', $def, 2);
|
||
$params{xx} = AnalyzePerlCommand(undef,$tox);
|
||
$params{yy} = AnalyzePerlCommand(undef,$toy);
|
||
}
|
||
|
||
when("moveby") {
|
||
my ($byx,$byy) = split('[ \t]+', $def, 2);
|
||
my ($x,$y)= btIP_xy($byx,$byy,%params);
|
||
$params{xx} += $x;
|
||
$params{yy} += $y;
|
||
}
|
||
|
||
when("moveto") {
|
||
my ($tox,$toy)= split('[ \t]+', $def, 2);
|
||
my ($x,$y)= btIP_xy($tox,$toy,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
}
|
||
|
||
when("padding") {
|
||
$params{padding}= AnalyzePerlCommand(undef,$def);
|
||
}
|
||
|
||
when("plain") {
|
||
$svg .= AnalyzePerlCommand(undef,$def);
|
||
}
|
||
|
||
when("plot") {
|
||
($id,$x,$y,$scale,$inline,$arg)= split("[ \t]+", $def,6);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$arg = AnalyzePerlCommand(undef, $arg);
|
||
my($output,$width,$height)= btIP_itemPlot($id,$x,$y,$scale,$inline,$arg,%params);
|
||
$svg .= $output;
|
||
$params{xx} = $x;
|
||
$params{yy} = $y+$height;
|
||
}
|
||
|
||
when("pop") {
|
||
return unless $pstackcount;
|
||
foreach my $key ( keys %{$pstack{$pstackcount}} ) {
|
||
# Debug "pop key: $key, value: $pstack{$pstackcount}{$key}";
|
||
$params{$key} = $pstack{$pstackcount}{$key};
|
||
}
|
||
|
||
delete $pstack{$pstackcount};
|
||
$pstackcount--;
|
||
}
|
||
|
||
when("pt") {
|
||
$def = AnalyzePerlCommand(undef, $def);
|
||
if($def =~ m/^[+-]/) {
|
||
$params{pt} += $def;
|
||
} else {
|
||
$params{pt} = $def;
|
||
}
|
||
$params{pt} = 6 if($params{pt} < 0);
|
||
}
|
||
|
||
when("push") {
|
||
$pstackcount++;
|
||
foreach my $key ( keys %params ) {
|
||
# Debug "push key: $key, value: $params{$key}";
|
||
$pstack{$pstackcount}{$key} = $params{$key};
|
||
}
|
||
}
|
||
|
||
when("rect") {
|
||
($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link)= split("[ \t]+", $def, 10);
|
||
($x1,$y1)= btIP_xy($x1,$y1,%params);
|
||
($x2,$y2)= btIP_xy($x2,$y2,%params);
|
||
($rx,$ry) = btIP_xy($rx,$ry,%params);
|
||
$params{xx} = $x1;
|
||
$params{yy} = $y2;
|
||
$filled //= 0; # set 0 as default (not filled)
|
||
$stroked //= 0; # set 0 as default (not stroked)
|
||
$link //= "";
|
||
$link = AnalyzePerlCommand(undef,$link);
|
||
$svg .= btIP_itemRect($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link,undef,%params);
|
||
}
|
||
|
||
when("rgb"){
|
||
$def = "\"$def\"" if(length($def) == 6 && $def =~ /[[:xdigit:]]{6}/);
|
||
$params{rgb} = AnalyzePerlCommand(undef, $def);
|
||
}
|
||
|
||
when("seconds") {
|
||
($id,$x,$y,$format) = split("[ \+]", $def,4);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$svg .= btIP_itemSeconds($id,$x,$y,$format,%params);
|
||
}
|
||
|
||
when("text") {
|
||
($id,$x,$y,$text)= split("[ \t]+", $def, 4);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$text= AnalyzePerlCommand(undef, $text);
|
||
$svg .= btIP_itemText($id,$x,$y,$text,%params);
|
||
}
|
||
|
||
when("lptext") {
|
||
$svg .= "\n<!-- lptext no longer provided. Use longpoll instead. -->\n\n";
|
||
Log3($name, 2, "InfoPanel $name: command 'lptext' no longer supported.");
|
||
}
|
||
|
||
when("textbox") {
|
||
($id,$x,$y,$boxwidth,$boxheight,$link,$text)= split("[ \t]+", $def, 7);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$text = AnalyzePerlCommand(undef, $text);
|
||
$text =~ s/\n/<br\/>/g;
|
||
$link = AnalyzePerlCommand(undef, $link);
|
||
$svg .= btIP_itemTextBox($id,$x,$y,$boxwidth,$boxheight,$text,$link,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y + $boxheight;
|
||
}
|
||
|
||
when("textboxalign") {
|
||
$params{tbalign} = $def;
|
||
}
|
||
|
||
when("textdesign") {
|
||
my @args = split(/,/,$def);
|
||
my @deco = qw(underline overline line-through); #text-decoration
|
||
my @style = qw(italic oblique); #font-style
|
||
my @weight = qw(bold); #font-weight
|
||
$params{fontstyle} = "initial";
|
||
$params{fontweight} = "initial";
|
||
$params{textdecoration} = "none";
|
||
|
||
foreach my $s (@args) {
|
||
if($s ne 'clear') {
|
||
$params{fontstyle} = "$s " if($s ~~ @style);
|
||
$params{fontweight} = "$s " if($s ~~ @weight);
|
||
$params{textdecoration} = "$s " if($s ~~ @deco);
|
||
}
|
||
}
|
||
}
|
||
|
||
when("ticker") {
|
||
($id,$x,$y,$width,$format,$speed,$arg)= split("[ \t]+", $def, 7);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$arg = AnalyzePerlCommand(undef,$arg);
|
||
$defs{$name}{fhem}{div} .= btIP_itemTicker($id,$x,$y,$width,$format,$speed,$arg,%params);
|
||
}
|
||
|
||
when("time") {
|
||
($id,$x,$y)= split("[ \t]+", $def, 3);
|
||
($x,$y)= btIP_xy($x,$y,%params);
|
||
$params{xx} = $x;
|
||
$params{yy} = $y;
|
||
$svg .= btIP_itemTime($id,$x,$y,%params);
|
||
}
|
||
|
||
when("trash") {
|
||
$svg .= "\n<!-- Trashcan no longer provided by module due to perfomance issues. -->\n\n";
|
||
Log3($name, 2, "InfoPanel $name: command 'trash' no longer supported.");
|
||
}
|
||
|
||
when("thalign"){
|
||
my $d = AnalyzePerlCommand(undef, $def);
|
||
if($d ~~ @valid_halign) {
|
||
$params{thalign}= $d;
|
||
} else {
|
||
Log3($name, 2, "InfoPanel $name: Illegal horizontal alignment $d");
|
||
}
|
||
}
|
||
|
||
when("tvalign"){
|
||
my $d = AnalyzePerlCommand(undef, $def);
|
||
if($d ~~ @valid_valign) {
|
||
$params{tvalign}= $d;
|
||
} else {
|
||
Log3($name, 2, "InfoPanel $name: Illegal vertical alignment $d");
|
||
}
|
||
}
|
||
|
||
default {
|
||
Log3($name, 2, "InfoPanel $name: Illegal command $cmd in layout definition.");
|
||
} # default
|
||
} # given
|
||
} # eval
|
||
|
||
#Debug "after command $line: x= " . $params{xx} . ", y= " . $params{yy};
|
||
|
||
} # foreach
|
||
return $svg;
|
||
}
|
||
|
||
|
||
##################
|
||
#
|
||
# here we answer any request to http://host:port/fhem/btip
|
||
#
|
||
|
||
sub btIP_addExtension {
|
||
my ($func,$link,$friendlyname)= @_;
|
||
my $url = "/" . $link;
|
||
$data{FWEXT}{$url}{FUNC} = $func;
|
||
$data{FWEXT}{$url}{LINK} = "+$link";
|
||
$data{FWEXT}{$url}{NAME} = $friendlyname;
|
||
$data{FWEXT}{$url}{FORKABLE} = 0;
|
||
$data{FWEXT}{jquery}{SCRIPT} = "/pgm2/jquery.min.js" unless $data{FWEXT}{jquery}{SCRIPT};
|
||
$data{FWEXT}{jqueryvticker}{SCRIPT} = "/pgm2/jquery.vticker.min.js" unless $data{FWEXT}{jqueryvticker}{SCRIPT};
|
||
}
|
||
|
||
sub btIP_CGI{
|
||
|
||
my ($request) = @_;
|
||
|
||
my ($name,$ext)= btIP_splitRequest($request);
|
||
|
||
if(defined($name)) {
|
||
if($ext eq "") {
|
||
return("text/plain; charset=utf-8", "Illegal extension.");
|
||
}
|
||
if(!defined($defs{$name})) {
|
||
return("text/plain; charset=utf-8", "Unknown InfoPanel device: $name");
|
||
}
|
||
if($ext eq "png") {
|
||
return btIP_returnPNG($name);
|
||
}
|
||
if($ext eq "info" || $ext eq "html") {
|
||
return btIP_returnHTML($name);
|
||
}
|
||
} else {
|
||
return btIP_Overview();
|
||
}
|
||
|
||
}
|
||
|
||
sub btIP_splitRequest {
|
||
|
||
my ($request) = @_;
|
||
|
||
if($request =~ /^.*\/btip$/) {
|
||
# http://localhost:8083/fhem/btip
|
||
return (undef,undef); # name, ext
|
||
} else {
|
||
my $call= $request;
|
||
$call =~ s/^.*\/btip\/([^\/]*)$/$1/;
|
||
my $name= $call;
|
||
$name =~ s/^(.*)\.(png|svg|info|html)$/$1/;
|
||
my $ext= $call;
|
||
$ext =~ s/^$name\.(.*)$/$1/;
|
||
return ($name,$ext);
|
||
}
|
||
}
|
||
|
||
|
||
####################
|
||
#
|
||
# HTML Stuff
|
||
#
|
||
|
||
sub btIP_returnHTML {
|
||
my ($name) = @_;
|
||
|
||
my $refresh = AttrVal($name, 'refresh', 60);
|
||
$refresh = ($refresh && $refresh < 59) ? 60 : $refresh;
|
||
my $title = AttrVal($name, 'title', $name);
|
||
my $viewport= "<meta name=\"viewport\" content=\"width=device-width, initial-scale=1, minimum-scale=1.0, maximum-scale=1.0\"/>";
|
||
$viewport = AttrVal($name,"useViewPort",1) ? $viewport : "";
|
||
my $webApp = "";
|
||
$webApp = "<meta name=\"apple-mobile-web-app-capable\" content=\"yes\"/>" if (AttrVal($name,'mobileApp','none') eq 'apple');
|
||
$webApp = "<meta name=\"mobile-web-app-capable\" content=\"yes\"/>" if (AttrVal($name,'mobileApp','none') eq 'other');
|
||
my $gen = 'generated="'.(time()-1).'"';
|
||
my $code = btIP_HTMLHead($name,$title,$viewport,$webApp,$refresh);
|
||
|
||
my $csrf= ($FW_CSRF ? "fwcsrf='$defs{$FW_wname}{CSRFTOKEN}'" : "");
|
||
$code .= "<body $csrf topmargin=\"0\" leftmargin=\"0\" margin=\"0\" padding=\"0\" ".
|
||
"$gen longpoll=\"1\" longpollfilter=\"room=all\" >\n".
|
||
|
||
"<div id=\"svg_content\" style=\"position:absolute; top:0px; left:0px; z-index:1\" >\n".
|
||
btIP_returnSVG($name)."\n</div>\n";
|
||
$code .= $defs{$name}{fhem}{div} if($defs{$name}{fhem}{div});
|
||
$code .= "</body>\n".btIP_HTMLTail();
|
||
return ("text/html; charset=utf-8", $code);
|
||
}
|
||
|
||
sub btIP_HTMLHead {
|
||
my ($name,$title,$viewport,$webApp,$refresh) = @_;
|
||
my $doctype = '<?xml version="1.0" encoding="utf-8" standalone="no"?> '."\n".
|
||
'<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" '.
|
||
'"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">'."\n";
|
||
my $xmlns = "";
|
||
|
||
my $r = (defined($refresh) && $refresh) ? "<meta http-equiv=\"refresh\" content=\"$refresh\"/>" : "";
|
||
my $scripts = btIP_getScript($name);
|
||
my $meta = "<meta charset=\"UTF-8\">"."\n";
|
||
$meta .= "<meta name=\"google\" content=\"notranslate\">";
|
||
my $code = "$doctype\n<html $xmlns>\n<head>\n<title>$title</title>\n$meta\n$r\n$viewport\n$webApp\n$scripts</head>\n";
|
||
return $code;
|
||
}
|
||
|
||
sub btIP_getScript {
|
||
my ($name) = shift;
|
||
return "" if AttrVal($name,'noscript',0);
|
||
|
||
my $scripts= "";
|
||
my $jsTemplate = '<script type="text/javascript" src="%s"></script>';
|
||
if(defined($data{FWEXT})) {
|
||
foreach my $k (sort keys %{$data{FWEXT}}) {
|
||
my $h = $data{FWEXT}{$k};
|
||
next if($h !~ m/HASH/ || !$h->{SCRIPT});
|
||
my $script = $h->{SCRIPT};
|
||
$script = ($script =~ m,^/,) ? "$FW_ME$script" : "$FW_ME/pgm2/$script" unless ($script =~ m,^http,);
|
||
$scripts .= sprintf($jsTemplate, $script);
|
||
}
|
||
}
|
||
# $scripts .= sprintf($jsTemplate,"/fhem/pgm2/cordova-2.3.0.js");
|
||
# $scripts .= sprintf($jsTemplate,"/fhem/pgm2/webviewcontrol.js");
|
||
$scripts .= sprintf($jsTemplate,"/fhem/pgm2/fhemweb.js");
|
||
$scripts =~ s/script>/script>\n/g;
|
||
return $scripts;
|
||
}
|
||
|
||
sub btIP_HTMLTail {
|
||
return "</html>";
|
||
}
|
||
|
||
sub btIP_Overview {
|
||
my ($name, $url);
|
||
my $html= btIP_HTMLHead(undef, "InfoPanel Overview", undef, undef) . "<body>\n";
|
||
foreach my $def (sort keys %defs) {
|
||
if($defs{$def}{TYPE} eq "InfoPanel") {
|
||
$name= $defs{$def}{NAME};
|
||
$url= btIP_getURL();
|
||
$html.= "$name<br>\n<ul>";
|
||
$html.= "<a href='$url/btip/$name.html' target='_blank'>HTML</a><br>\n";
|
||
$html.= "</ul>\n<p>\n";
|
||
}
|
||
}
|
||
$html.="</body>\n" . btIP_HTMLTail();
|
||
|
||
return ("text/html; charset=utf-8", $html);
|
||
}
|
||
|
||
sub btIP_getURL {
|
||
my $proto = (AttrVal($FW_wname, 'HTTPS', 0) == 1) ? 'https' : 'http';
|
||
return $proto."://$FW_httpheader{Host}$FW_ME";
|
||
}
|
||
|
||
1;
|
||
|
||
#
|
||
|
||
=pod
|
||
=item helper
|
||
=item summary create a simple status display
|
||
=item summary_DE erzeugt ein einfaches Statusdisplay
|
||
=begin html
|
||
|
||
<a name="InfoPanel"></a>
|
||
<h3>InfoPanel</h3>
|
||
|
||
<ul>
|
||
InfoPanel is an extension to <a href="#FHEMWEB">FHEMWEB</a>. You must install FHEMWEB to use InfoPanel.<br/>
|
||
<br/>
|
||
<br/>
|
||
<b>Prerequesits</b><br/>
|
||
<br/>
|
||
<ul>
|
||
<li>InfoPanel is an extension to <a href="#FHEMWEB">FHEMWEB</a>. You must install FHEMWEB to use InfoPanel.</li>
|
||
<br/>
|
||
<li>Module uses following additional Perl modules:<br/><br/>
|
||
<ul><code>MIME::Base64 Image::Info</code></ul><br/>
|
||
If not already installed in your environment, please install them using appropriate commands from your environment.<br/><br/>
|
||
Package installation in debian environments: <code>apt-get install libmime-base64-perl libimage-info-perl</code></li>
|
||
<br/>
|
||
<li>You can use this module without the two additional perl modules, but in this case, you have to accept some limitations:<br/>
|
||
<br/>
|
||
<ul>
|
||
<li>layout tag img can not be used</li>
|
||
<li>layout tag plot can only handle scale = 1 and inline = 0</li>
|
||
</ul>
|
||
</li>
|
||
</ul>
|
||
<br/><br/>
|
||
|
||
<a name="InfoPaneldefine"></a>
|
||
<b>Define</b><br/><br/>
|
||
<ul>
|
||
<code>define <name> InfoPanel <layoutFileName></code><br/>
|
||
<br/>
|
||
Example:<br/><br>
|
||
<ul><code>define myInfoPanel InfoPanel ./FHEM/panel.layout</code><br/></ul>
|
||
</ul>
|
||
<br/><br/>
|
||
|
||
<a name="InfoPanelset"></a>
|
||
<b>Set-Commands</b><br/><br/>
|
||
<ul>
|
||
<li><code>set <name> reread</code>
|
||
<ul><br/>
|
||
Rereads the <a href="#InfoPanellayout">layout definition</a> from the file.<br/><br/>
|
||
<b>Important:</b><br/>
|
||
<ul>
|
||
Layout will be reread automatically if edited via fhem's "Edit files" function.<br/>
|
||
Autoread can be disabled via <a href="#InfoPanelattr">attribute</a>.
|
||
</ul>
|
||
</ul></li><br/>
|
||
<li><code>set <name> ovEnable <xconditionName></code>
|
||
<ul><br/>
|
||
set an override "1" to named xcondition
|
||
</ul>
|
||
</li><br/>
|
||
<li><code>set <name> ovDisable <xconditionName></code>
|
||
<ul><br/>
|
||
set an override "0" to named xcondition
|
||
</ul>
|
||
</li><br/>
|
||
<li><code>set <name> ovClear <xconditionName>|all;</code>
|
||
<ul><br/>
|
||
delete an existing overrides to named xcondition. "all" will clear all overrides.<br/>
|
||
</ul>
|
||
</li>
|
||
</ul>
|
||
<br/><br/>
|
||
|
||
<a name="InfoPanelget"></a>
|
||
<b>Get-Commands</b><br/><br/>
|
||
<ul>
|
||
<li><code>get <name> counter</code>
|
||
<ul><br/>
|
||
return value from internal counter<br/>
|
||
</ul></li><br/>
|
||
<li><code>get <name> layout</code>
|
||
<ul><br/>
|
||
return complete layout definition<br/>
|
||
</ul></li><br/>
|
||
<li><code>get <name> overrides</code>
|
||
<ul><br/>
|
||
return list of defined overrides<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
</ul>
|
||
<br/><br/>
|
||
|
||
<a name="InfoPanelattr"></a>
|
||
<b>Attributes</b><br/><br/>
|
||
<ul>
|
||
<li><b>autoreread</b> - disables automatic layout reread after edit if set to 1</li>
|
||
<li><b>refresh</b> - time (in seconds) after which the HTML page will be reloaded automatically.<br/>
|
||
Any values below 60 seconds will not become valid.</li>
|
||
<li><b>showTime</b> - disables generation timestamp in state if set to 0</li>
|
||
<li><b>size</b> - The dimensions of the picture in the format
|
||
<code><width>x<height></code></li>
|
||
<li><b>useViewPort</b> - add viewport meta tag to fit mobile displays</li>
|
||
<li><b>mobileApp</b> - add support for mobile fullscreen experience</li>
|
||
<li><b>title</b> - webpage title to be shown in Browser</li>
|
||
<br/>
|
||
<li><b>bgcenter</b> - background images will not be centered if attribute set to 0. Default: show centered</li>
|
||
<li><b>bgcolor</b> - defines the background color, use html-hexcodes to specify color, eg 00FF00 for green background. Default color is black. You can use bgcolor=none to disable use of any background color</li>
|
||
<li><b>bgdir</b> - directory containing background images</li>
|
||
<li><b>bgopacity</b> - set opacity for background image, values 0...1.0</li>
|
||
<li><b>tmin</b> - background picture will be shown at least <code>tmin</code> seconds,
|
||
no matter how frequently the RSS feed consumer accesses the page.</li>
|
||
<br/>
|
||
<b>Important:</b> bgcolor and bgdir will be evaluated by <code>{ <a href="#perl"><perl special></a> }</code> use quotes for absolute values!<br/>
|
||
</ul>
|
||
<br/><br/>
|
||
|
||
<a name="InfoPanelreadings"></a>
|
||
<b>Generated Readings/Events:</b><br/><br/>
|
||
<ul>
|
||
<li>state - show time and date of last layout evaluation</li>
|
||
</ul>
|
||
<br/><br/>
|
||
|
||
<a name="InfoPanellayout"></a>
|
||
<b>Layout definition</b><br/>
|
||
<br/>
|
||
<ul>
|
||
All parameters in curly brackets can be evaluated by <code>{ <a href="#perl"><perl special></a> }</code></br>
|
||
<br/>
|
||
<li><code>area <id> <x1> <y1> <x2> <y2> <{link}></code><br/>
|
||
<br/>
|
||
<ul>create a responsive area which will call a link when clicked.<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x1,y1 = upper left corner<br/>
|
||
x2,y2 = lower right corner<br/>
|
||
link = url to be called<br/>
|
||
</ul></li><br/>
|
||
<br>
|
||
<li><code>boxcolor <{rgba}></code><br/>
|
||
<br/>
|
||
<ul>define an rgb color code to be used for filling button and textbox<br/>
|
||
</ul></li><br/>
|
||
<br>
|
||
<li><code>button <id> <x1> <y1> <x2> <y2> <r1> <r2> <link> <text></code><br/>
|
||
<br/>
|
||
<ul>create a responsive colored button which will call a link when clicked.<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x1,y1 = upper left corner<br/>
|
||
x2,y2 = lower right corner<br/>
|
||
r1,r2 = radius for rounded corners<br/>
|
||
link = url to be called<br/>
|
||
text = text that will be written onto the button<br/>
|
||
<br/>
|
||
button will be filled with color defined by "boxcolor"<br/>
|
||
text color will be read from "rgb" value<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>buttonpanel</code><br/>
|
||
<br/>
|
||
<ul>needed once in your layout file if you intend to use buttons in the same layout.<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>circle <id> <x> <y> <r> [<fill>] [<stroke-width>] [<link>]</code><br/>
|
||
<br/>
|
||
<ul>create a circle<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = center coordinates of circle<br/>
|
||
r = radius<br/>
|
||
fill = circle will be filled with "rgb" color if set to 1. Default = 0<br/>
|
||
stroke-width = defines stroke width to draw around the circle. Default = 0<br/>
|
||
link = URL to be linked to item<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>counter <id> <x> <y></code><br/>
|
||
<br/>
|
||
<ul>print internal counter<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = position<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>date <id> <x> <y></code><br/>
|
||
<br/>
|
||
<ul>print date<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = position<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>embed <id> <x> <y> <width> <height> <{object}></code><br/>
|
||
<br/>
|
||
<ul>embed any object<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = position<br/>
|
||
width,height = containers's dimension<br/>
|
||
object = object to embed<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>ellipse <id> <x> <y> <r1> <r2> [<fill>] [<stroke-width>] [<link>]</code><br/>
|
||
<br/>
|
||
<ul>create an ellipse<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = center coordinates of ellipse<br/>
|
||
r1,r2 = radius<br/>
|
||
fill = ellipse will be filled with "rgb" color if set to 1. Default = 0<br/>
|
||
stroke-width = defines stroke width to draw around the ellipse. Default = 0<br/>
|
||
link = URL to be linked to item<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>font <font-family></code><br/>
|
||
<br/>
|
||
<ul>define font family used for text elements (text, date, time, seconds ...)<br/>
|
||
<br/>
|
||
Example: <code>font arial</code><br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>group <id> open <x> <y><br/>
|
||
group - close</code> (id will not be evaluated, just give any value)<br/>
|
||
<br/>
|
||
<ul>group items<br/>
|
||
<br/>
|
||
open|close = define start and end of group<br/>
|
||
x,y = upper left corner as reference for all grouped items, will be inherited to all elements.<br/>
|
||
<br/>
|
||
Examples:<br/>
|
||
<code>
|
||
group - open 150 150<br/>
|
||
rect ...<br/>
|
||
img ...<br/>
|
||
group - close<br/>
|
||
</code>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>img <id> <x> <y> <scale> <link> <sourceType> <{dataSource}>s</code><br/>
|
||
<br/>
|
||
<ul>embed an image into InfoPanel<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = upper left corner<br/>
|
||
scale = scale to be used for resizing; may be factor or defined by width or height<br/>
|
||
link = URL to be linked to item, use "" if not needed<br/>
|
||
sourceType = file | url | data<br/>
|
||
dataSource = where to read data from, depends on sourceType<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>line <id> <x1> <y1> <x2> <y2> [<stroke>]</code><br/>
|
||
<br/>
|
||
<ul>draw a line<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x1,y1 = coordinates (start)<br/>
|
||
x2,y2 = coordinates (end)<br/>
|
||
stroke = stroke width for line; if omitted, default = 0<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>moveby <x> <y></code><br/>
|
||
<br/>
|
||
<ul>move most recently x- and y-coordinates by given steps<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>movecalculated <{perlSpecial x}> <{perlSpecial y}></code><br/>
|
||
<br/>
|
||
<ul>calculate x- and y-coordinates by perlSpecials<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>moveto <x> <y></code><br/>
|
||
<br/>
|
||
<ul>move x- and y-coordinates to the given positon<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>padding <width></code><br/>
|
||
<br/>
|
||
<ul>border width (in pixel) to be used in textboxes<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>plot <id> <x> <y> <scale> <inline> <{plotName}></code><br/>
|
||
<br/>
|
||
<ul>embed an SVG plot into InfoPanel<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = upper left corner<br/>
|
||
scale = scale to be used for resizing; may be factor or defined by width or height<br/>
|
||
inline = embed plot as data (inline=1) or as link (inline=0)<br/>
|
||
plotName = name of desired SVG device from your fhem installation<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>pop</code><br/>
|
||
<br/>
|
||
<ul>fetch last parameter set from stack and set it actice<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>pt <[+-]font-size></code><br/>
|
||
<br/>
|
||
<ul>define font size used for text elements (text, date, time, seconds ...)<br/>
|
||
can be given as absolute or relative value.<br/>
|
||
<br/>
|
||
Examples:<br/>
|
||
<code>pt 12</code><br/>
|
||
<code>pt +3</code><br/>
|
||
<code>pt -2</code><br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>push</code><br/>
|
||
<br/>
|
||
<ul>push active parameter set onto stack<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>rect <id> <x1> <y1> <x2> <y2> <r1> <r2> [<fill>] [<stroke-width>] [<link>]</code><br/>
|
||
<br/>
|
||
<ul>create a rectangle<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x1,y1 = upper left corner<br/>
|
||
x2,y2 = lower right corner<br/>
|
||
r1,r2 = radius for rounded corners<br/>
|
||
fill = rectangle will be filled with "rgb" color if set to 1. Default = 0<br/>
|
||
stroke-width = defines stroke width to draw around the rectangle. Default = 0<br/>
|
||
link = URL to be linked to item<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>rgb <{rgb[a]}></code><br/>
|
||
<br/>
|
||
<ul>define rgba value (hex digits!) used for text, lines, circles, ellipses<br/>
|
||
<br/>
|
||
<code>r = red value</code><br/>
|
||
<code>g = green value</code><br/>
|
||
<code>b = blue value</code><br/>
|
||
<code>a = alpha value used for opacity; optional</code><br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>seconds <id> <x> <y> [<format>]</code><br/>
|
||
<br/>
|
||
<ul>print seconds<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = position<br/>
|
||
format = seconds will be preceeded by ':' if set to 'colon'; optional<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>text <id> <x> <y> <{text}></code><br/>
|
||
<br/>
|
||
<ul>print text<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = position<br/>
|
||
text = text content to be printed<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>textbox <id> <x> <y> <boxWidth> <boxHeight> <{link}> <{text}> </code><br/>
|
||
<br/>
|
||
<ul>create a textbox to print text with auto wrapping<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = upper left corner<br/>
|
||
boxWidth,boxHeight = dimensions of textbox<br/>
|
||
link = url to be used when clicked; use "" if not needed<br/>
|
||
text = text to be printed in textbox<br/>
|
||
<br/>
|
||
<b>Important:</b> textboxes are not responsive via area tag. Use optional link parameter in textbox tag<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>textboxalign <align></code><br/>
|
||
<br/>
|
||
<ul>define horizontal alignment for text inside textboxes<br/>
|
||
<br/>
|
||
valid values: left center right justify<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>textdesign <align></code><br/>
|
||
<br/>
|
||
<ul>define comma-separated list for text design and decoration<br/>
|
||
<br/>
|
||
valid values: underline overline line-through bold italic oblique clear<br/>
|
||
<br/>
|
||
Examples:<br/>
|
||
<code>
|
||
textdesign underline<br/>
|
||
textdesign bold,italic,underline
|
||
</code><br/>
|
||
<br/>
|
||
<b>Important:</b> "clear" resets all to default values!<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>thalign <align></code><br/>
|
||
<br/>
|
||
<ul>define horizontal alignment for text output<br/>
|
||
<br/>
|
||
valid values: start middle end<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>ticker <id> <x> <y> <width> <items> <speed> <{data}></code><br/>
|
||
<br/>
|
||
<ul>create a vertical ticker<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = position<br/>
|
||
width = width<br/>
|
||
items = number of items to be displayed simultanously<br/>
|
||
speed = scroll speed<br/>
|
||
data = list of text items, separated by <code>\n</code><br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>time <id> <x> <y></code><br/>
|
||
<br/>
|
||
<ul>print time<br/>
|
||
<br/>
|
||
id = element id<br/>
|
||
x,y = position<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
<li><code>tvalign <align></code><br/>
|
||
<br/>
|
||
<ul>define vertical alignment for text output<br/>
|
||
<br/>
|
||
valid values: auto baseline middle center hanging<br/>
|
||
</ul></li><br/>
|
||
<br/>
|
||
|
||
</ul>
|
||
<br/>
|
||
|
||
<b>Author's notes</b><br/>
|
||
<br/>
|
||
<ul>
|
||
<li>Have fun!</li><br/>
|
||
</ul>
|
||
</ul>
|
||
|
||
=end html
|
||
|
||
=cut
|