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

fhem.pl: better devStateIcon check (Forum #71897)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14304 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2017-05-17 10:28:41 +00:00
parent 69ab8b1fed
commit c9082d1c83
1 changed files with 25 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
fhem/fhem.pl
View File

@ -2721,20 +2721,31 @@ CommandAttr($$)
} }
} }
my %ra = ("suppressReading" => { s=>"\n" }, my %ra = (
"event-on-update-reading" => { s=>"," }, "suppressReading" => { s=>"\n" },
"event-on-change-reading" => { s=>",", r=>":.*" }, "event-on-update-reading" => { s=>"," },
"timestamp-on-change-reading"=> { s=>"," }, "event-on-change-reading" => { s=>",", r=>":.*" },
"event-min-interval" => { s=>",", r=>";.*" }, "timestamp-on-change-reading"=> { s=>"," },
"devStateIcon" => { s=>" ", r=>":.*" } ); "event-min-interval" => { s=>",", r=>";.*" },
if(defined($a[2]) && $ra{$attrName}) { "devStateIcon" => { s=>" ", r=>":.*", p=>"^{.*}\$",
my $lval = $a[2]; pv=>{"%name"=>1, "%state"=>1, "%type"=>1} },
for my $v (split($ra{$attrName}{s}, $lval)) { );
$v =~ s/$ra{$attrName}{r}// if($ra{$attrName}{r});
my $err = "Argument $v for attr $sdev $a[1] is not a valid regexp"; if(defined($a[2]) && $ra{$attrName} && $init_done) {
return "$err: use .* instead of *" if($v =~ /^\*/); # no err in eval!? my ($lval,$rp) = ($a[2], $ra{$attrName}{p});
eval { "Hallo" =~ m/^$v$/ };
return "$err: $@" if($@); if($rp && $lval =~ m/$rp/) {
my $err = perlSyntaxCheck($a[2], %{$ra{$attrName}{pv}});
return "attr $sdev $a[1]: $err" if($err);
} else {
for my $v (split($ra{$attrName}{s}, $lval)) {
$v =~ s/$ra{$attrName}{r}// if($ra{$attrName}{r});
my $err = "Argument $v for attr $sdev $a[1] is not a valid regexp";
return "$err: use .* instead of *" if($v =~ /^\*/); # no err in eval!?
eval { "Hallo" =~ m/^$v$/ };
return "$err: $@" if($@);
}
} }
} }