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) = @_; 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 "?"); 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->{CHANGED}[0] = $v;
$hash->{STATE} = $v; $hash->{STATE} = $v;