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

55_InfoPanel.pm: remove smartmatch issues

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@28755 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2024-04-05 10:57:20 +00:00
parent 8e3cce952b
commit 53b309137e
1 changed files with 168 additions and 259 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

193
fhem/FHEM/55_InfoPanel.pm
View File

@ -78,6 +78,8 @@
# #
# 2023-07-04 - 27724 - changed: minor bugfix for perl 5.36 # 2023-07-04 - 27724 - changed: minor bugfix for perl 5.36
# #
# 2024-04-05 - changed: remove smartmatch issues
#
############################################## ##############################################
=cut =cut
@ -87,7 +89,7 @@ use warnings;
#use Data::Dumper; #use Data::Dumper;
use feature qw/switch/; #use feature qw/switch/;
use vars qw(%data); use vars qw(%data);
use HttpUtils; use HttpUtils;
@ -96,7 +98,7 @@ my @valid_halign = qw(start middle end);
my $useImgTools = 1; my $useImgTools = 1;
no if $] >= 5.017011, warnings => 'experimental'; #no if $] >= 5.017011, warnings => 'experimental';
sub btIP_Define; sub btIP_Define;
sub btIP_Undef; sub btIP_Undef;
@ -211,29 +213,23 @@ sub btIP_Set {
my $usage= "Unknown argument, choose one of reread:noArg ovClear ovEnable ovDisable"; my $usage= "Unknown argument, choose one of reread:noArg ovClear ovEnable ovDisable";
my $ret = undef; my $ret = undef;
my $cmd = $a[1];
given ($a[1]) { if ($cmd eq "ovClear") {
when ("ovClear") {
if ($a[2] eq "all") { if ($a[2] eq "all") {
delete $defs{$name}{fhem}{override}; delete $defs{$name}{fhem}{override};
} else { } else {
delete $defs{$name}{fhem}{override}{$a[2]}; delete $defs{$name}{fhem}{override}{$a[2]};
} }
} } elsif ($cmd eq "ovDisable") {
when ("ovDisable") {
$defs{$name}{fhem}{override}{$a[2]} = 0; $defs{$name}{fhem}{override}{$a[2]} = 0;
} } elsif ($cmd eq "ovEnable") {
when ("ovEnable") {
$defs{$name}{fhem}{override}{$a[2]} = 1; $defs{$name}{fhem}{override}{$a[2]} = 1;
} } elsif ($cmd eq "reread") {
when ("reread") {
btIP_readLayout($hash); btIP_readLayout($hash);
} } else {
default {
$ret = $usage; $ret = $usage;
} }
}
return $ret; return $ret;
} }
@ -244,24 +240,20 @@ sub btIP_Get {
my $usage= "Unknown argument, choose one of reread:noArg counter:noArg layout:noArg overrides:noArg"; my $usage= "Unknown argument, choose one of reread:noArg counter:noArg layout:noArg overrides:noArg";
my $ret = undef; my $ret = undef;
my $cmd = $a[1];
given ($a[1]) { if ($cmd eq "counter") {
when ("counter") {
$ret = $defs{$name}{fhem}{counter}; $ret = $defs{$name}{fhem}{counter};
} } elsif ($cmd eq "layout") {
when ("layout") {
$ret = $defs{$name}{fhem}{layout}; $ret = $defs{$name}{fhem}{layout};
} } elsif ($cmd eq "overrides") {
when ("overrides") {
last if(!defined($defs{$name}{fhem}{override})); last if(!defined($defs{$name}{fhem}{override}));
foreach my $key ( keys %{$defs{$name}{fhem}{override}} ) { foreach my $key ( keys %{$defs{$name}{fhem}{override}} ) {
$ret .= "$key => $defs{$name}{fhem}{override}{$key} \n"; $ret .= "$key => $defs{$name}{fhem}{override}{$key} \n";
} }
} } else {
default {
$ret = $usage; $ret = $usage;
} }
}
return $ret; return $ret;
} }
@ -1018,9 +1010,7 @@ sub btIP_evalLayout {
# Debug "before command $line: x= " . $params{xx} . ", y= " . $params{yy}; # Debug "before command $line: x= " . $params{xx} . ", y= " . $params{yy};
eval { eval {
given($cmd) { if ($cmd eq "area") {
when("area") {
($id,$x1,$y1,$x2,$y2,$link,$target)= split("[ \t]+", $def, 7); ($id,$x1,$y1,$x2,$y2,$link,$target)= split("[ \t]+", $def, 7);
$target //= ""; $target //= "";
($x1,$y1)= btIP_xy($x1,$y1,%params); ($x1,$y1)= btIP_xy($x1,$y1,%params);
@ -1029,14 +1019,10 @@ sub btIP_evalLayout {
$params{xx} = $x1; $params{xx} = $x1;
$params{yy} = $y2; $params{yy} = $y2;
$svg .= btIP_itemArea($id,$x1,$y1,$x2,$y2,$link,$target,%params); $svg .= btIP_itemArea($id,$x1,$y1,$x2,$y2,$link,$target,%params);
} } elsif ($cmd eq "boxcolor") {
when("boxcolor"){
$def = "\"$def\"" if(length($def) == 6 && $def =~ /[[:xdigit:]]{6}/); $def = "\"$def\"" if(length($def) == 6 && $def =~ /[[:xdigit:]]{6}/);
$params{boxcolor} = AnalyzePerlCommand(undef, $def); $params{boxcolor} = AnalyzePerlCommand(undef, $def);
} } elsif ($cmd eq "button") {
when("button") {
($id,$x1,$y1,$x2,$y2,$rx,$ry,$link,$text)= split("[ \t]+", $def, 9); ($id,$x1,$y1,$x2,$y2,$rx,$ry,$link,$text)= split("[ \t]+", $def, 9);
($x1,$y1)= btIP_xy($x1,$y1,%params); ($x1,$y1)= btIP_xy($x1,$y1,%params);
($x2,$y2)= btIP_xy($x2,$y2,%params); ($x2,$y2)= btIP_xy($x2,$y2,%params);
@ -1047,15 +1033,11 @@ sub btIP_evalLayout {
$link = (length($link)) ? $link : "-$params{name}.html"; $link = (length($link)) ? $link : "-$params{name}.html";
$text = AnalyzePerlCommand(undef,$text); $text = AnalyzePerlCommand(undef,$text);
$svg .= btIP_itemButton($id,$x1,$y1,$x2,$y2,$rx,$ry,$link,$text,%params); $svg .= btIP_itemButton($id,$x1,$y1,$x2,$y2,$rx,$ry,$link,$text,%params);
} } elsif ($cmd eq "buttonpanel") {
when("buttonpanel"){
$defs{$params{name}}{fhem}{div} .= "<div id=\"hiddenDiv\" ". $defs{$params{name}}{fhem}{div} .= "<div id=\"hiddenDiv\" ".
"style=\"display:none\" >". "style=\"display:none\" >".
"<iframe id=\"secretFrame\" name=\"secret\" src=\"\"></iframe></div>\n"; "<iframe id=\"secretFrame\" name=\"secret\" src=\"\"></iframe></div>\n";
} } elsif ($cmd eq "circle") {
when("circle") {
($id,$x1,$y1,$radius,$filled,$stroked,$link)= split("[ \t]+", $def, 7); ($id,$x1,$y1,$radius,$filled,$stroked,$link)= split("[ \t]+", $def, 7);
($x1,$y1)= btIP_xy($x1,$y1,%params); ($x1,$y1)= btIP_xy($x1,$y1,%params);
$params{xx} = $x1; $params{xx} = $x1;
@ -1065,25 +1047,19 @@ sub btIP_evalLayout {
$link //= ""; $link //= "";
$link = AnalyzePerlCommand(undef,$link); $link = AnalyzePerlCommand(undef,$link);
$svg .= btIP_itemCircle($id,$x1,$y1,$radius,$filled,$stroked,$link,%params); $svg .= btIP_itemCircle($id,$x1,$y1,$radius,$filled,$stroked,$link,%params);
} } elsif ($cmd eq "counter") {
when("counter") {
($id,$x,$y)= split("[ \t]+", $def, 3); ($id,$x,$y)= split("[ \t]+", $def, 3);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
$svg .= btIP_itemCounter($id,$x,$y,%params); $svg .= btIP_itemCounter($id,$x,$y,%params);
} } elsif ($cmd eq "date") {
when("date") {
($id,$x,$y)= split("[ \t]+", $def, 3); ($id,$x,$y)= split("[ \t]+", $def, 3);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
$svg .= btIP_itemDate($id,$x,$y,%params); $svg .= btIP_itemDate($id,$x,$y,%params);
} } "ellipse") {
when("ellipse") {
($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link)= split("[ \t]+", $def, 8); ($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link)= split("[ \t]+", $def, 8);
($x1,$y1) = btIP_xy($x1,$y1,%params); ($x1,$y1) = btIP_xy($x1,$y1,%params);
($rx,$ry) = btIP_xy($rx,$ry,%params); ($rx,$ry) = btIP_xy($rx,$ry,%params);
@ -1094,9 +1070,7 @@ sub btIP_evalLayout {
$link //= ""; $link //= "";
$link = AnalyzePerlCommand(undef,$link); $link = AnalyzePerlCommand(undef,$link);
$svg .= btIP_itemEllipse($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link,%params); $svg .= btIP_itemEllipse($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link,%params);
} } "embed") {
when("embed") {
($id,$x,$y,$width,$height,$arg)= split("[ \t]+", $def, 6); ($id,$x,$y,$width,$height,$arg)= split("[ \t]+", $def, 6);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
($width,$height)= btIP_xy($width,$height,%params); ($width,$height)= btIP_xy($width,$height,%params);
@ -1104,13 +1078,9 @@ sub btIP_evalLayout {
$params{yy} = $y; $params{yy} = $y;
$arg = AnalyzePerlCommand(undef,$arg); $arg = AnalyzePerlCommand(undef,$arg);
$defs{$name}{fhem}{div} .= btIP_itemEmbed($id,$x,$y,$width,$height,$arg,%params); $defs{$name}{fhem}{div} .= btIP_itemEmbed($id,$x,$y,$width,$height,$arg,%params);
} } elsif ($cmd eq "font") {
when("font") {
$params{font} = $def; $params{font} = $def;
} } elsif ($cmd eq "group") {
when("group") {
($id,$text,$x,$y) = split("[ \t]+", $def, 4); ($id,$text,$x,$y) = split("[ \t]+", $def, 4);
$x //= $params{xx}; $x //= $params{xx};
$y //= $params{yy}; $y //= $params{yy};
@ -1125,9 +1095,7 @@ sub btIP_evalLayout {
$params{groupy} = 0; $params{groupy} = 0;
} }
$svg .= btIP_itemGroup($id,$text,$x,$y,%params); $svg .= btIP_itemGroup($id,$text,$x,$y,%params);
} } elsif ($cmd eq "img") {
when("img") {
($id,$x,$y,$scale,$link,$srctype,$arg) = split("[ \t]+", $def,7); ($id,$x,$y,$scale,$link,$srctype,$arg) = split("[ \t]+", $def,7);
($x,$y) = btIP_xy($x,$y,%params); ($x,$y) = btIP_xy($x,$y,%params);
$params{xx} = $x; $params{xx} = $x;
@ -1138,17 +1106,13 @@ sub btIP_evalLayout {
$svg .= $output; $svg .= $output;
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y+$height; $params{yy} = $y+$height;
} } elsif ($cmd eq "line") {
when("line") {
($id,$x1,$y1,$x2,$y2,$format) = split("[ \t]+", $def, 6); ($id,$x1,$y1,$x2,$y2,$format) = split("[ \t]+", $def, 6);
($x1,$y1) = btIP_xy($x1,$y1,%params); ($x1,$y1) = btIP_xy($x1,$y1,%params);
($x2,$y2) = btIP_xy($x2,$y2,%params); ($x2,$y2) = btIP_xy($x2,$y2,%params);
$format //= 1; $format //= 1;
$svg .= btIP_itemLine($id,$x1,$y1,$x2,$y2,$format,%params); $svg .= btIP_itemLine($id,$x1,$y1,$x2,$y2,$format,%params);
} } elsif ($cmd eq "longpoll") {
when("longpoll") {
($id,$x,$y,$text)= split("[ \t]+", $def, 4); ($id,$x,$y,$text)= split("[ \t]+", $def, 4);
$text //= undef; $text //= undef;
$text = AnalyzePerlCommand(undef,$text) if defined($text); $text = AnalyzePerlCommand(undef,$text) if defined($text);
@ -1158,37 +1122,25 @@ sub btIP_evalLayout {
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
$svg .= btIP_itemLongpoll($id,$x,$y,$text,%params); $svg .= btIP_itemLongpoll($id,$x,$y,$text,%params);
} } elsif ($cmd eq "movecalculated") {
when("movecalculated") {
my ($tox,$toy)= split('[ \t]+', $def, 2); my ($tox,$toy)= split('[ \t]+', $def, 2);
$params{xx} = AnalyzePerlCommand(undef,$tox); $params{xx} = AnalyzePerlCommand(undef,$tox);
$params{yy} = AnalyzePerlCommand(undef,$toy); $params{yy} = AnalyzePerlCommand(undef,$toy);
} } elsif ($cmd eq "moveby") {
when("moveby") {
my ($byx,$byy) = split('[ \t]+', $def, 2); my ($byx,$byy) = split('[ \t]+', $def, 2);
my ($x,$y)= btIP_xy($byx,$byy,%params); my ($x,$y)= btIP_xy($byx,$byy,%params);
$params{xx} += $x; $params{xx} += $x;
$params{yy} += $y; $params{yy} += $y;
} } elsif ($cmd eq "moveto") {
when("moveto") {
my ($tox,$toy)= split('[ \t]+', $def, 2); my ($tox,$toy)= split('[ \t]+', $def, 2);
my ($x,$y)= btIP_xy($tox,$toy,%params); my ($x,$y)= btIP_xy($tox,$toy,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
} } elsif ($cmd eq "padding") {
when("padding") {
$params{padding}= AnalyzePerlCommand(undef,$def); $params{padding}= AnalyzePerlCommand(undef,$def);
} } elsif ($cmd eq "plain") {
when("plain") {
$svg .= AnalyzePerlCommand(undef,$def); $svg .= AnalyzePerlCommand(undef,$def);
} } elsif ($cmd eq "plot") {
when("plot") {
($id,$x,$y,$scale,$inline,$arg)= split("[ \t]+", $def,6); ($id,$x,$y,$scale,$inline,$arg)= split("[ \t]+", $def,6);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$arg = AnalyzePerlCommand(undef, $arg); $arg = AnalyzePerlCommand(undef, $arg);
@ -1196,20 +1148,15 @@ sub btIP_evalLayout {
$svg .= $output; $svg .= $output;
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y+$height; $params{yy} = $y+$height;
} } elsif ($cmd eq "pop") {
when("pop") {
return unless $pstackcount; return unless $pstackcount;
foreach my $key ( keys %{$pstack{$pstackcount}} ) { foreach my $key ( keys %{$pstack{$pstackcount}} ) {
# Debug "pop key: $key, value: $pstack{$pstackcount}{$key}"; # Debug "pop key: $key, value: $pstack{$pstackcount}{$key}";
$params{$key} = $pstack{$pstackcount}{$key}; $params{$key} = $pstack{$pstackcount}{$key};
} }
delete $pstack{$pstackcount}; delete $pstack{$pstackcount};
$pstackcount--; $pstackcount--;
} } elsif ($cmd eq "pt") {
when("pt") {
$def = AnalyzePerlCommand(undef, $def); $def = AnalyzePerlCommand(undef, $def);
if($def =~ m/^[+-]/) { if($def =~ m/^[+-]/) {
$params{pt} += $def; $params{pt} += $def;
@ -1217,17 +1164,13 @@ sub btIP_evalLayout {
$params{pt} = $def; $params{pt} = $def;
} }
$params{pt} = 6 if($params{pt} < 0); $params{pt} = 6 if($params{pt} < 0);
} } elsif ($cmd eq "push") {
when("push") {
$pstackcount++; $pstackcount++;
foreach my $key ( keys %params ) { foreach my $key ( keys %params ) {
# Debug "push key: $key, value: $params{$key}"; # Debug "push key: $key, value: $params{$key}";
$pstack{$pstackcount}{$key} = $params{$key}; $pstack{$pstackcount}{$key} = $params{$key};
} }
} } elsif ($cmd eq "rect") {
when("rect") {
($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link)= split("[ \t]+", $def, 10); ($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link)= split("[ \t]+", $def, 10);
($x1,$y1)= btIP_xy($x1,$y1,%params); ($x1,$y1)= btIP_xy($x1,$y1,%params);
($x2,$y2)= btIP_xy($x2,$y2,%params); ($x2,$y2)= btIP_xy($x2,$y2,%params);
@ -1239,36 +1182,23 @@ sub btIP_evalLayout {
$link //= ""; $link //= "";
$link = AnalyzePerlCommand(undef,$link); $link = AnalyzePerlCommand(undef,$link);
$svg .= btIP_itemRect($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link,undef,%params); $svg .= btIP_itemRect($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link,undef,%params);
} } elsif ($cmd eq "rgb") {
when("rgb"){
$def = "\"$def\"" if(length($def) == 6 && $def =~ /[[:xdigit:]]{6}/); $def = "\"$def\"" if(length($def) == 6 && $def =~ /[[:xdigit:]]{6}/);
$params{rgb} = AnalyzePerlCommand(undef, $def); $params{rgb} = AnalyzePerlCommand(undef, $def);
} } elsif ($cmd eq "seconds") {
when("seconds") {
($id,$x,$y,$format) = split("[ \+]", $def,4); ($id,$x,$y,$format) = split("[ \+]", $def,4);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
$svg .= btIP_itemSeconds($id,$x,$y,$format,%params); $svg .= btIP_itemSeconds($id,$x,$y,$format,%params);
} } elsif ($cmd eq "text") {
when("text") {
($id,$x,$y,$text)= split("[ \t]+", $def, 4); ($id,$x,$y,$text)= split("[ \t]+", $def, 4);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
$text= AnalyzePerlCommand(undef, $text); $text= AnalyzePerlCommand(undef, $text);
$svg .= btIP_itemText($id,$x,$y,$text,%params); $svg .= btIP_itemText($id,$x,$y,$text,%params);
} } elsif ($cmd eq "textbox") {
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); ($id,$x,$y,$boxwidth,$boxheight,$link,$text)= split("[ \t]+", $def, 7);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$text = AnalyzePerlCommand(undef, $text); $text = AnalyzePerlCommand(undef, $text);
@ -1277,13 +1207,9 @@ sub btIP_evalLayout {
$svg .= btIP_itemTextBox($id,$x,$y,$boxwidth,$boxheight,$text,$link,%params); $svg .= btIP_itemTextBox($id,$x,$y,$boxwidth,$boxheight,$text,$link,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y + $boxheight; $params{yy} = $y + $boxheight;
} } elsif ($cmd eq "textboxalign") {
when("textboxalign") {
$params{tbalign} = $def; $params{tbalign} = $def;
} } elsif ($cmd eq "textdesign") {
when("textdesign") {
my @args = split(/,/,$def); my @args = split(/,/,$def);
my @deco = qw(underline overline line-through); #text-decoration my @deco = qw(underline overline line-through); #text-decoration
my @style = qw(italic oblique); #font-style my @style = qw(italic oblique); #font-style
@ -1291,7 +1217,6 @@ sub btIP_evalLayout {
$params{fontstyle} = "initial"; $params{fontstyle} = "initial";
$params{fontweight} = "initial"; $params{fontweight} = "initial";
$params{textdecoration} = "none"; $params{textdecoration} = "none";
foreach my $s (@args) { foreach my $s (@args) {
if($s ne 'clear') { if($s ne 'clear') {
$params{fontstyle} = "$s " if($s ~~ @style); $params{fontstyle} = "$s " if($s ~~ @style);
@ -1299,52 +1224,36 @@ sub btIP_evalLayout {
$params{textdecoration} = "$s " if($s ~~ @deco); $params{textdecoration} = "$s " if($s ~~ @deco);
} }
} }
} } elsif ($cmd eq "ticker") {
when("ticker") {
($id,$x,$y,$width,$format,$speed,$arg)= split("[ \t]+", $def, 7); ($id,$x,$y,$width,$format,$speed,$arg)= split("[ \t]+", $def, 7);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
$arg = AnalyzePerlCommand(undef,$arg); $arg = AnalyzePerlCommand(undef,$arg);
$defs{$name}{fhem}{div} .= btIP_itemTicker($id,$x,$y,$width,$format,$speed,$arg,%params); $defs{$name}{fhem}{div} .= btIP_itemTicker($id,$x,$y,$width,$format,$speed,$arg,%params);
} } elsif ($cmd eq "time") {
when("time") {
($id,$x,$y)= split("[ \t]+", $def, 3); ($id,$x,$y)= split("[ \t]+", $def, 3);
($x,$y)= btIP_xy($x,$y,%params); ($x,$y)= btIP_xy($x,$y,%params);
$params{xx} = $x; $params{xx} = $x;
$params{yy} = $y; $params{yy} = $y;
$svg .= btIP_itemTime($id,$x,$y,%params); $svg .= btIP_itemTime($id,$x,$y,%params);
} } elsif ($cmd eq "thalign"){
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); my $d = AnalyzePerlCommand(undef, $def);
if($d ~~ @valid_halign) { if($d ~~ @valid_halign) {
$params{thalign}= $d; $params{thalign}= $d;
} else { } else {
Log3($name, 2, "InfoPanel $name: Illegal horizontal alignment $d"); Log3($name, 2, "InfoPanel $name: Illegal horizontal alignment $d");
} }
} } elsif ($cmd eq "tvalign"){
when("tvalign"){
my $d = AnalyzePerlCommand(undef, $def); my $d = AnalyzePerlCommand(undef, $def);
if($d ~~ @valid_valign) { if($d ~~ @valid_valign) {
$params{tvalign}= $d; $params{tvalign}= $d;
} else { } else {
Log3($name, 2, "InfoPanel $name: Illegal vertical alignment $d"); Log3($name, 2, "InfoPanel $name: Illegal vertical alignment $d");
} }
} } else {
default {
Log3($name, 2, "InfoPanel $name: Illegal command $cmd in layout definition."); Log3($name, 2, "InfoPanel $name: Illegal command $cmd in layout definition.");
} # default }
} # given
} # eval } # eval
#Debug "after command $line: x= " . $params{xx} . ", y= " . $params{yy}; #Debug "after command $line: x= " . $params{xx} . ", y= " . $params{yy};