FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 23:36:37 +00:00
Code Issues Releases Wiki Activity

SetFn may return a second argument skpiTrigger (returning an array).

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2085 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-11-05 07:32:55 +00:00
parent 2a690f6af7
commit 472e343dba
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/fhem.pl
View File

@ -1110,9 +1110,9 @@ DoSet(@)
return "No set implemented for $dev" if(!$modules{$defs{$dev}{TYPE}}{SetFn});
@a = ReplaceEventMap($dev, \@a, 0) if($attr{$dev}{eventMap});
my $ret = CallFn($dev, "SetFn", $defs{$dev}, @a);
my ($ret, $skipTrigger) = CallFn($dev, "SetFn", $defs{$dev}, @a);
return $ret if($ret);
return undef if($skipTrigger);
shift @a;
my $arg = $defs{$dev}{CHANGED} ? undef : join(" ", @a);
return DoTrigger($dev, $arg);
@ -2246,11 +2246,18 @@ CallFn(@)
}
my $fn = $modules{$defs{$d}{TYPE}}{$n};
return "" if(!$fn);
if(wantarray) {
no strict "refs";
my @ret = &{$fn}(@_);
use strict "refs";
return @ret;
} else {
no strict "refs";
my $ret = &{$fn}(@_);
use strict "refs";
return $ret;
}
}
#####################################
# Used from perl oneliners inside of scripts