Multiple Dummy Set Arguments

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@941 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2011-07-14 09:55:40 +00:00
parent 4bf91976fe
commit 104cffb4bf

View File

@@ -20,13 +20,14 @@ dummy_Set($@)
{
my ($hash, @a) = @_;
return "no set value specified" if(int(@a) != 2);
return "no set value specified" if(int(@a) < 2);
return "Unknown argument $a[1], choose one of *" if($a[1] eq "?");
my $v = $a[1];
my $name = shift @a;
my $v = join(" ", @a);
Log GetLogLevel($a[0],2), "dummy set @a";
Log GetLogLevel($name,2), "dummy set @a";
$hash->{CHANGED}[0] = $v;
$hash->{STATE} = $v;