diff --git a/fhem/CHANGED b/fhem/CHANGED
index 2e7e13bb3..f1d4ffb6d 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,7 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
+ - update: 55_InfoPanel.pm: attribute mobileApp added
+ to support fullscreen experience
- update: 98_cloneDummy.pm
changed: do not use NOTIFYDEFV
fixed: set $rval in _state instead of $reading
diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index dc70f49dd..b506013d3 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -143,6 +143,7 @@ sub InfoPanel_Initialize($) {
$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;
@@ -1385,10 +1386,13 @@ sub btIP_returnHTML {
my $refresh = AttrVal($name, 'refresh', 60);
$refresh = ($refresh && $refresh < 59) ? 60 : $refresh;
my $title = AttrVal($name, 'title', $name);
- my $viewport= "";
+ my $viewport= "";
$viewport = AttrVal($name,"useViewPort",1) ? $viewport : "";
+ my $webApp = "";
+ $webApp = "" if (AttrVal($name,'mobileApp','none') eq 'apple');
+ $webApp = "" if (AttrVal($name,'mobileApp','none') eq 'other');
my $gen = 'generated="'.(time()-1).'"';
- my $code = btIP_HTMLHead($name,$title,$viewport,$refresh);
+ my $code = btIP_HTMLHead($name,$title,$viewport,$webApp,$refresh);
$code .= "\n".
@@ -1401,7 +1405,7 @@ sub btIP_returnHTML {
}
sub btIP_HTMLHead {
- my ($name,$title,$viewport,$refresh) = @_;
+ my ($name,$title,$viewport,$webApp,$refresh) = @_;
my $doctype = ' '."\n".
''."\n";
@@ -1410,7 +1414,7 @@ sub btIP_HTMLHead {
my $r = (defined($refresh) && $refresh) ? "" : "";
my $scripts = btIP_getScript($name);
my $meta = "";
- my $code = "$doctype\n\n\n$title\n$meta\n$r\n$viewport\n$scripts\n";
+ my $code = "$doctype\n\n\n$title\n$meta\n$r\n$viewport\n$webApp\n$scripts\n";
return $code;
}
@@ -1572,6 +1576,7 @@ Please read