allow more level numbers

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6274 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876
2014-07-19 07:45:58 +00:00
parent 15f80d8654
commit 80b36f6c81

View File

@@ -3343,7 +3343,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
#level =>"<level> <relockDly> <speed>..."
my (undef,undef,$lvl,$rLocDly,$speed) = @a;
return "please enter level 0 to 100" if (!defined($lvl) || $lvl !~ m/^\d+\.?\d+$/ || $lvl>100);
return "please enter level 0 to 100" if (!defined($lvl) || $lvl !~ m/^\d*\.?\d?$/ || $lvl>100);
return "reloclDelay range 0..65535 or ignore"
if (defined($rLocDly) &&
($rLocDly > 65535 ||