From 922f13886f74d34cc12c57a9c17f226c13e87bfc Mon Sep 17 00:00:00 2001 From: rapster <> Date: Mon, 17 Aug 2015 21:42:19 +0000 Subject: [PATCH] 70_VolumeLink: Added definition syntax-check and min. values for interval and timeout. git-svn-id: https://svn.fhem.de/fhem/trunk@9089 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/70_VolumeLink.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/70_VolumeLink.pm b/fhem/FHEM/70_VolumeLink.pm index 668e3fa0d..39b549614 100644 --- a/fhem/FHEM/70_VolumeLink.pm +++ b/fhem/FHEM/70_VolumeLink.pm @@ -1,5 +1,5 @@ ############################################################################### -# $Id: 70_VolumeLink.pm 2015-08-17 08:00 - rapster - rapster at x0e.de $ +# $Id: 70_VolumeLink.pm 2015-08-17 23:00 - rapster - rapster at x0e.de $ package main; use strict; @@ -34,6 +34,11 @@ sub VolumeLink_Define($$) { my ($hash, $def) = @_; my @a = split("[ \t][ \t]*", $def); return "Wrong syntax: use define VolumeLink [ [ []]]" if(int(@a) < 5); + return "Wrong syntax: is not a number!" if(!looks_like_number($a[2])); + return "Wrong syntax: too small, must be at least 0.01" if($a[2] < 0.01); + return "Wrong syntax: is not a number!" if($a[5] && !looks_like_number($a[5])); + return "Wrong syntax: too small, must be at least 0.01" if($a[5] && $a[5] < 0.01); + return "Wrong syntax: not defined! Define '$a[4]' first." if(!defined$defs{$a[4]}); my $name = $a[0];