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:
@@ -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;
|
||||||
|
|||||||
Reference in New Issue
Block a user