FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 11:26:55 +00:00
Code Issues Releases Wiki Activity

OWX_ASYNC: schedule all tasks to single queue if buspower is parasitic

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6337 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ntruchsess 2014-07-31 20:29:17 +00:00
parent 044e311c7f
commit 1f20b538e0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/00_OWX_ASYNC.pm
View File

@ -127,7 +127,7 @@ my %attrs = (
); );
#-- some globals needed for the 1-Wire module #-- some globals needed for the 1-Wire module
$owx_async_version=5.11; $owx_async_version=5.12;
#-- Debugging 0,1,2,3 #-- Debugging 0,1,2,3
$owx_async_debug=0; $owx_async_debug=0;
@ -158,7 +158,7 @@ sub OWX_ASYNC_Initialize ($) {
$hash->{ReadFn} = "OWX_ASYNC_Read"; $hash->{ReadFn} = "OWX_ASYNC_Read";
$hash->{ReadyFn} = "OWX_ASYNC_Ready"; $hash->{ReadyFn} = "OWX_ASYNC_Ready";
$hash->{InitFn} = "OWX_ASYNC_Init"; $hash->{InitFn} = "OWX_ASYNC_Init";
$hash->{AttrList} = "dokick:0,1 interval IODev timeout maxtimeouts"; $hash->{AttrList} = "dokick:0,1 interval buspower:real,parasitic IODev timeout maxtimeouts";
main::LoadModule("OWX"); main::LoadModule("OWX");
} }
@ -981,6 +981,10 @@ sub OWX_ASYNC_Schedule($$) {
Log3 ($master->{NAME},5,"OWX_ASYNC_Schedule master: ".$master->{NAME}.", task: ".$name); Log3 ($master->{NAME},5,"OWX_ASYNC_Schedule master: ".$master->{NAME}.", task: ".$name);
die "OWX_ASYNC_Schedule: Master not Active" unless $master->{STATE} eq "Active"; die "OWX_ASYNC_Schedule: Master not Active" unless $master->{STATE} eq "Active";
$task->{ExecuteTime} = gettimeofday() unless (defined $task->{ExecuteTime}); $task->{ExecuteTime} = gettimeofday() unless (defined $task->{ExecuteTime});
#if buspower is parasitic serialize all tasks by scheduling everything to master queue.
$name = $master->{NAME} if (AttrVal($master->{NAME},"buspower","real") eq "parasitic");
if (defined $master->{tasks}->{$name}) { if (defined $master->{tasks}->{$name}) {
push @{$master->{tasks}->{$name}}, $task; push @{$master->{tasks}->{$name}}, $task;
$hash->{NUMTASKS} = @{$master->{tasks}->{$name}}; $hash->{NUMTASKS} = @{$master->{tasks}->{$name}};