[Erledigt] (Mehrfach) Triggern für jedes Reading-Event

bismosa · 03 März 2019, 17:37:06

Hallo!

Ich möchte mein DOIF (für eine Rolladensteuerung) jedes Mal triggern, wenn eine Readingänderung erfolgt. Die Readings sind
LastAction_Channel_01, LastAction_Channel_02, LastAction_Channel_03 ... LastAction_Channel_16

Code Auswählen

([SD_Rollo_16ch:"^LastAction_Channel_"])({
...
})

Dies triggert sobald sich ein Reading ändert.

Nun werden bei einer Gruppenstuerung mehrere Readings gleichzeitig gesetzt. Hier erfolgt nur eine Triggerung...obwohl mehrere Events generiert werden.
Events:

Code Auswählen

2019-03-03 17:34:42 SD_Keeloq SD_Rollo_16ch LastAction_Channel_01: stop
2019-03-03 17:34:42 SD_Keeloq SD_Rollo_16ch LastAction_Channel_02: stop
2019-03-03 17:34:42 SD_Keeloq SD_Rollo_16ch LastAction_Channel_03: stop

Doif

Code Auswählen

Device: SD_Rollo_16ch  
Event:LastAction_Channel_01: stop

Do Always ist gesetzt....welchen Denkfehler mache ich?

Danke!

Gruß
Bismosa

amenomade · 03 März 2019, 17:50:26

Wie stellst Du fest, dass er nur einmal triggert?

bismosa · 03 März 2019, 18:04:00

Hallo,

indem ich am Anfang des DOIFs in die Log-Datei schreibe:

Code Auswählen

Log3 "di_Rollo", 3, "di_Rollo: Device: $DEVICE Event:$EVENT";

Es wird nichts protokolliert...und auch nichts ausgeführt. Daher bin ich mir "eigentlich" sicher, dass es nur 1x ausgeführt wird. ?

Gruß
Bismosa

amenomade · 03 März 2019, 18:23:52

Kann man das vollständige "list" des DOIFs sehen?

bismosa · 03 März 2019, 18:56:27

Hallo!

Na klar:

Code Auswählen

defmod di_Rollo DOIF ([SD_Rollo_16ch:"^LastAction_Channel_"])({\
	Log3 "di_Rollo", 3, "di_Rollo: Device: $DEVICE  Event:$EVENT";;\
	\
	my @PARTS=split(/ /,"$EVENT");;\
	\
	my $RolloReading=$PARTS[0];;\
	chop $RolloReading;; ## ":" entfernen\
	\
	my $JaroCmd=ReadingsVal("$DEVICE", "$RolloReading", "");;\
	if ($JaroCmd eq ""){\
		return;;\
	}\
	Log3 "di_Rollo", 3, "di_Rollo: JaroCmd: $JaroCmd";;\
	\
	\
	my $cmd;;\
	if ($JaroCmd eq "up"){\
		$cmd="open";;\
	} elsif ($JaroCmd eq "stop"){\
		$cmd="stop";;\
	} elsif ($JaroCmd eq "down"){\
		$cmd="closed";;\
	} elsif ($JaroCmd eq "shade"){\
		##Nur Position festlegen\
		$cmd="";;\
	} else {\
		##learn=kein Fahrbefehl\
		##updown=kein Fahrbefehl\
		return;;\
	}\
	\
	Log3 "di_Rollo", 3, "di_Rollo: cmd: $cmd";;\
	\
	my $RolloDev;;\
	my $ShadePos;;\
	if 	  ($RolloReading eq "LastAction_Channel_01") { $ShadePos="50";; $RolloDev="Rolladen_Kueche";; }\
	elsif ($RolloReading eq "LastAction_Channel_02") { $ShadePos="50";; $RolloDev="Rolladen_Essbereich";; }\
	elsif ($RolloReading eq "LastAction_Channel_03") { $ShadePos="50";; $RolloDev="Rolladen_Wohnzimmer";; }\
	elsif ($RolloReading eq "LastAction_Channel_04") { $ShadePos="50";; $RolloDev="Rolladen_Terrasse_Rechts";; }\
	elsif ($RolloReading eq "LastAction_Channel_05") { $ShadePos="50";; $RolloDev="Rolladen_Terrasse_Links";; }\
	elsif ($RolloReading eq "LastAction_Channel_06") { $ShadePos="50";; $RolloDev="Rolladen_Schlafzimmer";; }\
	elsif ($RolloReading eq "LastAction_Channel_07") { $ShadePos="50";; $RolloDev="Rolladen_Gaeste";; }\
	elsif ($RolloReading eq "LastAction_Channel_08") { $ShadePos="50";; $RolloDev="Rolladen_WC";; }\
	elsif ($RolloReading eq "LastAction_Channel_09") { $ShadePos="60";; $RolloDev="Rolladen_Buero";; }\
	else{\
		##Keine weiteren festgelegt...\
		return;;\
	}\
	\
	Log3 "di_Rollo", 3, "di_Rollo: RolloDev: $RolloDev";;\
	Log3 "di_Rollo", 3, "di_Rollo: ShadePos: $ShadePos";;\
	\
	##my $ROLLOistCMD = ReadingsVal("$RolloDev", "command", "nix");;\
	##Log3 "di_Rollo", 3, "di_Rollo: ROLLOistCMD: $ROLLOistCMD";;\
	##if ($ROLLOistCMD eq $cmd){\
	##	Log3 "di_Rollo", 3, "di_Rollo: Gleicher Fahrbefehl. Nicht ausführen!";;\
	##	return;;\
	##}\
	\
	my $ROLLOistSTATE = ReadingsVal("$RolloDev", "state", "nix");;\
	Log3 "di_Rollo", 3, "di_Rollo: ROLLOistSTATE: $ROLLOistSTATE";;\
	\
	if ($ROLLOistSTATE eq "drive-".$JaroCmd){\
		Log3 "di_Rollo", 3, "di_Rollo: Gleicher Fahrbefehl. Nicht ausführen!";;\
		return;;\
	}\
	\
	\
	if ($JaroCmd eq "shade"){\
		Log3 "di_Rollo", 3, "di_Rollo: setreading $RolloDev pct $ShadePos";;\
		fhem("setreading $RolloDev pct $ShadePos");;\
	} else {\
		Log3 "di_Rollo", 3, "di_Rollo: set $RolloDev extern $cmd";;\
		fhem("set $RolloDev extern $cmd");;\
	}\
	\
})\

attr di_Rollo do always
attr di_Rollo room Rolläden

Es werden noch mehrere Log-Einträge geschrieben...ist beim Debuggen hilfreich.

Gruß
Bismosa

amenomade · 03 März 2019, 19:53:57

Das ist kein "list".

Code Auswählen

list di_Rolloim Kommandofeld von Fhem.

amenomade · 03 März 2019, 20:00:12

Und ich würde keine eigene Variable $cmd in einem DOIF nutzen. $cmd ist schon eine Variable auf DOIF Ebene => unvorhersehbares Ergebnis ohne jedes Mal den Kontext zu analysieren.

Zitat von: CommandRef$cmd
Perl-Variablen mit der Bedeutung [$SELF:cmd]

Ellert · 03 März 2019, 20:03:45

Zitat von: bismosa am 03 März 2019, 17:37:06
Nun werden bei einer Gruppenstuerung mehrere Readings gleichzeitig gesetzt. Hier erfolgt nur eine Triggerung...obwohl mehrere Events generiert werden.
Events:
Code Auswählen Erweitern
2019-03-03 17:34:42 SD_Keeloq SD_Rollo_16ch LastAction_Channel_01: stop 2019-03-03 17:34:42 SD_Keeloq SD_Rollo_16ch LastAction_Channel_02: stop 2019-03-03 17:34:42 SD_Keeloq SD_Rollo_16ch LastAction_Channel_03: stop

Wenn Du das Attribut mseclog setzt, dann siehst Du, ob die Events gleichzeitig kommen. Auf ein Eventpaket triggert DOIF nur einmal. Beim notify ist das seit einiger Zeit anders, wenn ich mich recht erinnere. Siehe auch https://wiki.fhem.de/wiki/Event

bismosa · 03 März 2019, 20:12:38

Hallo,

ups...sorry. Klar kenne ich list

Wusste aber bisher noch nicht, dass es beim DOIF so viele nützliche Informationen beinhaltet

Code Auswählen

Internals:
   DEF        ([SD_Rollo_16ch:"^LastAction_Channel_"])({
	##"LastAction_Channel_01: shade"-> $EVENT
	Log3 "di_Rollo", 3, "di_Rollo: Device: $DEVICE  Event:$EVENT";
	
	my @PARTS=split(/ /,"$EVENT");
	
	my $RolloReading=$PARTS[0];
	chop $RolloReading; ## ":" entfernen
	
	my $JaroCmd=ReadingsVal("$DEVICE", "$RolloReading", "");
	if ($JaroCmd eq ""){
		return;
	}
	##Log3 "di_Rollo", 3, "di_Rollo: Device: $DEVICE  Event:$EVENT";
	Log3 "di_Rollo", 3, "di_Rollo: JaroCmd: $JaroCmd";
	
	
	my $DIcmd;
	if ($JaroCmd eq "up"){
		$DIcmd="open";
	} elsif ($JaroCmd eq "stop"){
		$DIcmd="stop";
	} elsif ($JaroCmd eq "down"){
		$DIcmd="closed";
	} elsif ($JaroCmd eq "shade"){
		##Nur Position festlegen
		$DIcmd="";
	} else {
		##learn=kein Fahrbefehl
		##updown=kein Fahrbefehl
		return;
	}
	
	Log3 "di_Rollo", 3, "di_Rollo: DIcmd: $DIcmd";
	
	my $RolloDev;
	my $ShadePos;
	if 	  ($RolloReading eq "LastAction_Channel_01") { $ShadePos="50"; $RolloDev="Rolladen_Kueche"; }
	elsif ($RolloReading eq "LastAction_Channel_02") { $ShadePos="50"; $RolloDev="Rolladen_Essbereich"; }
	elsif ($RolloReading eq "LastAction_Channel_03") { $ShadePos="50"; $RolloDev="Rolladen_Wohnzimmer"; }
	elsif ($RolloReading eq "LastAction_Channel_04") { $ShadePos="50"; $RolloDev="Rolladen_Terrasse_Rechts"; }
	elsif ($RolloReading eq "LastAction_Channel_05") { $ShadePos="50"; $RolloDev="Rolladen_Terrasse_Links"; }
	elsif ($RolloReading eq "LastAction_Channel_06") { $ShadePos="50"; $RolloDev="Rolladen_Schlafzimmer"; }
	elsif ($RolloReading eq "LastAction_Channel_07") { $ShadePos="50"; $RolloDev="Rolladen_Gaeste"; }
	elsif ($RolloReading eq "LastAction_Channel_08") { $ShadePos="50"; $RolloDev="Rolladen_WC"; }
	elsif ($RolloReading eq "LastAction_Channel_09") { $ShadePos="60"; $RolloDev="Rolladen_Buero"; }
	else{
		##Keine weiteren festgelegt...
		return;
	}
	
	Log3 "di_Rollo", 3, "di_Rollo: RolloDev: $RolloDev";
	Log3 "di_Rollo", 3, "di_Rollo: ShadePos: $ShadePos";
	
	##my $ROLLOistCMD = ReadingsVal("$RolloDev", "command", "nix");
	##Log3 "di_Rollo", 3, "di_Rollo: ROLLOistCMD: $ROLLOistCMD";
	##if ($ROLLOistCMD eq $DIcmd){
	##	Log3 "di_Rollo", 3, "di_Rollo: Gleicher Fahrbefehl. Nicht ausführen!";
	##	return;
	##}
	
	my $ROLLOistSTATE = ReadingsVal("$RolloDev", "state", "nix");
	Log3 "di_Rollo", 3, "di_Rollo: ROLLOistSTATE: $ROLLOistSTATE";
	
	if ($ROLLOistSTATE eq "drive-".$JaroCmd){
		Log3 "di_Rollo", 3, "di_Rollo: Gleicher Fahrbefehl. Nicht ausführen!";
		return;
	}
	
	
	if ($JaroCmd eq "shade"){
		Log3 "di_Rollo", 3, "di_Rollo: setreading $RolloDev pct $ShadePos";
		fhem("setreading $RolloDev pct $ShadePos");
	} else {
		Log3 "di_Rollo", 3, "di_Rollo: set $RolloDev extern $DIcmd";
		fhem("set $RolloDev extern $DIcmd");
	}
	
})

   FUUID      5c7ba6bf-f33f-58e6-b800-e1252db5ec48fed1
   MODEL      FHEM
   NAME       di_Rollo
   NR         907
   NTFY_ORDER 50-di_Rollo
   STATE      cmd_1
   TYPE       DOIF
   VERSION    18706 2019-02-23 21:48:22
   READINGS:
     2019-03-03 20:02:56   Device          SD_Rollo_16ch
     2019-03-03 20:02:56   cmd             1
     2019-03-03 20:02:56   cmd_event       SD_Rollo_16ch
     2019-03-03 20:02:56   cmd_nr          1
     2019-03-03 20:02:56   e_SD_Rollo_16ch_events button: stop,channel: 1,counter_send: 240,send stop,LastAction_Channel_01: stop,LastAction_Channel_02: stop,LastAction_Channel_03: stop,channel_control: 1,2,3
     2019-02-27 21:50:24   event           LastAction_Channel_09: shade
     2019-03-03 20:02:48   mode            enabled
     2019-03-03 20:02:56   state           cmd_1
   Regex:
     accu:
   attr:
     cmdState:
     wait:
     waitdel:
   condition:
     0          ::EventDoIf('SD_Rollo_16ch',$hash,'^LastAction_Channel_',1)
   devices:
     0           SD_Rollo_16ch 
     all         SD_Rollo_16ch 
   do:
     0:
       0          { 	 	Log3 "di_Rollo", 3, "di_Rollo: Device: $DEVICE  Event:$EVENT"; 	 	my @PARTS=split(/ /,"$EVENT"); 	 	my $RolloReading=$PARTS[0]; 	chop $RolloReading;  	 	my $JaroCmd=ReadingsVal("$DEVICE", "$RolloReading", ""); 	if ($JaroCmd eq ""){ 		return; 	} 	 	Log3 "di_Rollo", 3, "di_Rollo: JaroCmd: $JaroCmd"; 	 	 	my $DIcmd; 	if ($JaroCmd eq "up"){ 		$DIcmd="open"; 	} elsif ($JaroCmd eq "stop"){ 		$DIcmd="stop"; 	} elsif ($JaroCmd eq "down"){ 		$DIcmd="closed"; 	} elsif ($JaroCmd eq "shade"){ 		 		$DIcmd=""; 	} else { 		 		 		return; 	} 	 	Log3 "di_Rollo", 3, "di_Rollo: DIcmd: $DIcmd"; 	 	my $RolloDev; 	my $ShadePos; 	if 	  ($RolloReading eq "LastAction_Channel_01") { $ShadePos="50"; $RolloDev="Rolladen_Kueche"; } 	elsif ($RolloReading eq "LastAction_Channel_02") { $ShadePos="50"; $RolloDev="Rolladen_Essbereich"; } 	elsif ($RolloReading eq "LastAction_Channel_03") { $ShadePos="50"; $RolloDev="Rolladen_Wohnzimmer"; } 	elsif ($RolloReading eq "LastAction_Channel_04") { $ShadePos="50"; $RolloDev="Rolladen_Terrasse_Rechts"; } 	elsif ($RolloReading eq "LastAction_Channel_05") { $ShadePos="50"; $RolloDev="Rolladen_Terrasse_Links"; } 	elsif ($RolloReading eq "LastAction_Channel_06") { $ShadePos="50"; $RolloDev="Rolladen_Schlafzimmer"; } 	elsif ($RolloReading eq "LastAction_Channel_07") { $ShadePos="50"; $RolloDev="Rolladen_Gaeste"; } 	elsif ($RolloReading eq "LastAction_Channel_08") { $ShadePos="50"; $RolloDev="Rolladen_WC"; } 	elsif ($RolloReading eq "LastAction_Channel_09") { $ShadePos="60"; $RolloDev="Rolladen_Buero"; } 	else{ 		 		return; 	} 	 	Log3 "di_Rollo", 3, "di_Rollo: RolloDev: $RolloDev"; 	Log3 "di_Rollo", 3, "di_Rollo: ShadePos: $ShadePos"; 	 	 	 	 	 	 	 	 	my $ROLLOistSTATE = ReadingsVal("$RolloDev", "state", "nix"); 	Log3 "di_Rollo", 3, "di_Rollo: ROLLOistSTATE: $ROLLOistSTATE"; 	 	if ($ROLLOistSTATE eq "drive-".$JaroCmd){ 		Log3 "di_Rollo", 3, "di_Rollo: Gleicher Fahrbefehl. Nicht ausführen!"; 		return; 	} 	 	 	if ($JaroCmd eq "shade"){ 		Log3 "di_Rollo", 3, "di_Rollo: setreading $RolloDev pct $ShadePos"; 		fhem("setreading $RolloDev pct $ShadePos"); 	} else { 		Log3 "di_Rollo", 3, "di_Rollo: set $RolloDev extern $DIcmd"; 		fhem("set $RolloDev extern $DIcmd"); 	} 	 }
     1:
   helper:
     event      LastAction_Channel_01: stop
     globalinit 1
     last_timer 0
     sleeptimer -1
     timerdev   SD_Rollo_16ch
     timerevent LastAction_Channel_01: stop
     triggerDev SD_Rollo_16ch
     DOIF_eventas:
       cmd_nr: 1
       cmd: 1
       cmd_event: SD_Rollo_16ch
       state: cmd_1
     timerevents:
       button: stop
       channel: 1
       counter_send: 240
       send stop
       LastAction_Channel_01: stop
       LastAction_Channel_02: stop
       LastAction_Channel_03: stop
       channel_control: 1,2,3
     timereventsState:
       button: stop
       channel: 1
       counter_send: 240
       state: send stop
       LastAction_Channel_01: stop
       LastAction_Channel_02: stop
       LastAction_Channel_03: stop
       channel_control: 1,2,3
     triggerEvents:
       button: stop
       channel: 1
       counter_send: 240
       send stop
       LastAction_Channel_01: stop
       LastAction_Channel_02: stop
       LastAction_Channel_03: stop
       channel_control: 1,2,3
     triggerEventsState:
       button: stop
       channel: 1
       counter_send: 240
       state: send stop
       LastAction_Channel_01: stop
       LastAction_Channel_02: stop
       LastAction_Channel_03: stop
       channel_control: 1,2,3
   internals:
   itimer:
   readings:
   trigger:
     all         SD_Rollo_16ch 
   uiState:
   uiTable:
Attributes:
   checkReadingEvent 0
   do         always
   room       Rolläden

$cmd habe ich direkt ersetzt. Danke für den Tipp. Das hatte ich nicht bedacht.

ZitatWenn Du das Attribut mseclog setzt, dann siehst Du, ob die Events gleichzeitig kommen. Auf ein Eventpaket triggert DOIF nur einmal

Es kommt definitiv als Eventpaket. Dann wird da die Ursache liegen. Da sich das verhalten wohl nicht ändern lässt...muss ich meine Logik da nochmal überdenken...

Gruß
Bismosa

amenomade · 03 März 2019, 20:15:20

Zitat von: Ellert am 03 März 2019, 20:03:45
Auf ein Eventpaket triggert DOIF nur einmal.

Oh, das wusste ich nicht

Auch nirgendwo gelesen.

amenomade · 03 März 2019, 20:21:14

Kann man dann mit $EVENTS alle gleichzeitige Events haben?

Damian · 03 März 2019, 21:17:48

Zitat von: amenomade am 03 März 2019, 20:21:14
Kann man dann mit $EVENTS alle gleichzeitige Events haben?

Sollte so sein, daher das S am Ende

bismosa · 04 März 2019, 21:20:44

Hallo!

Ich habe mein DOIF nun komplett umgebaut. Damit hat sich der Thread hier erledigt

Danke für die tolle Unterstützung!

Falls jemand mitliest hier meine Lösung:

Code Auswählen

([SD_Rollo_16ch:"channel_control"])({
##([SD_Rollo_16ch:"^LastAction_Channel_"])({
	##"LastAction_Channel_01: shade"-> $EVENT
	Log3 "di_Rollo", 3, "di_Rollo: Device: $DEVICE  Event:$EVENT";
	
	my $ChannelReading = ReadingsVal("$DEVICE", "channel_control", "99");
	
	my @channels;
	if ("$ChannelReading" eq "no"){
		push @channels, ReadingsVal("$DEVICE", "channel", "99");
	} else {
		push @channels, split /,/, $ChannelReading;
	}
	
	Log3 "di_Rollo", 3, "di_Rollo: channels: ".join(", ", @channels);;
	
	my $JaroCmd=ReadingsVal("$DEVICE", "button", "");
	Log3 "di_Rollo", 3, "di_Rollo: JaroCmd: $JaroCmd";
	
	my $DIcmd;
	if ($JaroCmd eq "up"){
		$DIcmd="open";
	} elsif ($JaroCmd eq "stop"){
		$DIcmd="stop";
	} elsif ($JaroCmd eq "down"){
		$DIcmd="closed";
	} elsif ($JaroCmd eq "shade"){
		##Nur Position festlegen
		$DIcmd="";
	} else {
		##learn=kein Fahrbefehl
		##updown=kein Fahrbefehl
		return;
	}
	
	Log3 "di_Rollo", 3, "di_Rollo: DIcmd: $DIcmd";
	
	##Für jeden ausführen:
	foreach my $Kanal (@channels) {
		my $RolloDev;
		my $ShadePos;
		if 	  ($Kanal eq "1") { $ShadePos="50"; $RolloDev="Rolladen_Kueche"; }
		elsif ($Kanal eq "2") { $ShadePos="50"; $RolloDev="Rolladen_Essbereich"; }
		elsif ($Kanal eq "3") { $ShadePos="50"; $RolloDev="Rolladen_Wohnzimmer"; }
		elsif ($Kanal eq "4") { $ShadePos="50"; $RolloDev="Rolladen_Terrasse_Rechts"; }
		elsif ($Kanal eq "5") { $ShadePos="50"; $RolloDev="Rolladen_Terrasse_Links"; }
		elsif ($Kanal eq "6") { $ShadePos="50"; $RolloDev="Rolladen_Schlafzimmer"; }
		elsif ($Kanal eq "7") { $ShadePos="50"; $RolloDev="Rolladen_Gaeste"; }
		elsif ($Kanal eq "8") { $ShadePos="50"; $RolloDev="Rolladen_WC"; }
		elsif ($Kanal eq "9") { $ShadePos="60"; $RolloDev="Rolladen_Buero"; }
		else{
			##Keine weiteren festgelegt...
			next;
		}
		
		Log3 "di_Rollo", 3, "di_Rollo: RolloDev: $RolloDev";
		Log3 "di_Rollo", 3, "di_Rollo: ShadePos: $ShadePos";
		
		my $ROLLOistSTATE = ReadingsVal("$RolloDev", "state", "nix");
		Log3 "di_Rollo", 3, "di_Rollo: ROLLOistSTATE: $ROLLOistSTATE";
	
		if ($ROLLOistSTATE eq "drive-".$JaroCmd){
			Log3 "di_Rollo", 3, "di_Rollo: Gleicher Fahrbefehl. Nicht ausführen!";
			return;
		}
		
		if ($JaroCmd eq "shade"){
			Log3 "di_Rollo", 3, "di_Rollo: setreading $RolloDev pct $ShadePos";
			fhem("setreading $RolloDev pct $ShadePos");
		} else {
			Log3 "di_Rollo", 3, "di_Rollo: set $RolloDev extern $DIcmd";
			fhem("set $RolloDev extern $DIcmd");
		}
		
	}

})

Gruß
Bismosa

Damian · 04 März 2019, 21:58:14

Bei soviel Perlcode hättest du gleich den etwas effizienteren Perlmodus nehmen können

bismosa · 05 März 2019, 20:45:24

Hallo!

Den Tipp hast Du mir schon mehrfach gegeben...habe mich aber bisher immer noch nicht da rangetraut

War jetzt aber eine gute Gelegenheit. War in diesem Fall ja wenigstens sehr einfach:

Code Auswählen

{if ([SD_Rollo_16ch:"channel_control"]) {

Ob ich mich daran gewöhnen möchte weiß ich aber noch nicht. DIe Performance ist schon ein gutes Argument

Gruß
Bismosa