[Openautomation-svn] SF.net SVN: openautomation:[2237] wiregate/plugin/generic

[<kru...@us...>]

Revision: 2237
          http://sourceforge.net/p/openautomation/code/2237
Author:   krumboeck
Date:     2014-09-16 19:21:47 +0000 (Tue, 16 Sep 2014)
Log Message:
-----------
RollladenAutomatik: Upgrade to version 1.1

Modified Paths:
--------------
    wiregate/plugin/generic/RollladenAutomatik.pl
    wiregate/plugin/generic/conf.d/RollladenAutomatik.conf_sample

Modified: wiregate/plugin/generic/RollladenAutomatik.pl
===================================================================
--- wiregate/plugin/generic/RollladenAutomatik.pl	2014-09-15 22:46:15 UTC (rev 2236)
+++ wiregate/plugin/generic/RollladenAutomatik.pl	2014-09-16 19:21:47 UTC (rev 2237)
@@ -1,6 +1,6 @@
 ######################################################################################
 # Plugin RollladenAutomatik
-# V1.0 2014-05-29
+# V1.1 2014-09-16
 # Lizenz: GPLv2
 # Autoren: kleinklausi (http://knx-user-forum.de/members/kleinklausi.html)
 #          krumboeck (http://knx-user-forum.de/members/krumboeck.html)
@@ -27,6 +27,8 @@
 #	- Fahren auf Positionen welche im Aktor (z.B. Siemens 523/03) gespeichert sind (krumboeck)
 #	- Überprüfen von Positionen vor Sonnenauf bzw. -untergang (krumboeck)
 #	- Nach Aufhebung der Sperre auf Position fahren (krumboeck)
+#   - Hinzufügen von Bedingungen (krumboeck)
+#   - Erweiterte Einstellungen für Sonnenauf- und untergang (krumboeck)
 #
 # TODO: Was teilweise integriert ist aber noch nicht komplett ist:
 # 	- Bei Fensterdefinition auch Elevation oben bzw. unten angeben
@@ -43,6 +45,14 @@
 use constant EQUAL => 0;
 use constant LOWER => -1;
 
+use constant MONTAG => 1;
+use constant DIENSTAG => 2;
+use constant MITTWOCH => 3;
+use constant DONNERSTAG => 4;
+use constant FREITAG => 5;
+use constant SAMSTAG => 6;
+use constant SONNTAG => 7;
+
 # Die Koordinaten des Hauses. Sehr einfach über http://www.getlatlon.com/ zu ermitteln.
 # Und die Höhe über NN
 my ($lat, $lon, $elev);
@@ -155,6 +165,13 @@
 
 	my $rolladen = berechneRolladenParameter($element, 0);
 
+	if (defined $rolladen->{bedingung} && !callBedingung($rolladen)) {
+		if (defined $rolladen->{debug} && $rolladen->{debug}) {
+			plugin_log($plugname, "Name: " . $rolladen->{name} . "; Bedingung nicht erfüllt");
+		}
+		next;
+	}
+
 	if (defined $rolladen->{GAsperre}) {
 		$plugin_subscribe{$rolladen->{GAsperre}}{$plugname} = 1;
 		# Falls gesperrt, mit nächstem Rollladen fortfahren
@@ -196,6 +213,37 @@
 
 
 ############################################
+# Bedingung ausführen
+############################################
+sub callBedingung {
+	my ($rolladen) = @_;
+	my ($sekunde, $minute, $stunde, $tag, $monat, $jahr, $wochentag, $tagImJahr, $isdst) = localtime(time);
+	$monat += 1;
+	$tagImJahr += 1;
+	if ($wochentag == 0) {
+		$wochentag = 7;
+	}
+	$jahr += 1900;
+	my $result = eval $rolladen->{bedingung};
+	if ($@) {
+		plugin_log($plugname,"Name: " . $rolladen->{name} . "; Fehler in Bedingung: " . $@);
+		return 0;
+	}
+	return $result;
+}
+
+sub toDayOfYear {
+	my ($day, $month, $year)=@_;
+	my @cumul_d_in_m = (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365);
+	my $doy=$cumul_d_in_m[--$month]+$day;
+	return $doy if $month < 2;
+	return $doy unless $year % 4 == 0;
+	return ++$doy unless $year % 100 == 0;
+	return $doy unless $year % 400 == 0;
+	return ++$doy;
+}
+
+############################################
 # Prüft ob der Rolladen gefahren werden muss
 ############################################
 sub positionChanged {
@@ -350,12 +398,12 @@
 		}
 	}
 
-	if ($element->{sonnenAufUnter}) {
-		if ($testNacht) {
+	if ($element->{sonnenAufUnter} > 0) {
+		if ($testNacht && ($element->{sonnenAufUnter} == 1 || $element->{sonnenAufUnter} == 3)) {
 			$position = $element->{wertZuNacht};
 			$bemerkung = "Wegen Abenddaemmerung zufahren bei: " . round(rad2deg($azimuth));
 			return ($position, $bemerkung);
-		} elsif ($testMorgenDaemmerung) {
+		} elsif ($testMorgenDaemmerung && ($element->{sonnenAufUnter} == 1 || $element->{sonnenAufUnter} == 2)) {
 			$position = $element->{wertAufNacht};
 			$bemerkung = "Wegen Morgendaemmerung auffahren bei: " . round(rad2deg($azimuth));
 		}

Modified: wiregate/plugin/generic/conf.d/RollladenAutomatik.conf_sample
===================================================================
--- wiregate/plugin/generic/conf.d/RollladenAutomatik.conf_sample	2014-09-15 22:46:15 UTC (rev 2236)
+++ wiregate/plugin/generic/conf.d/RollladenAutomatik.conf_sample	2014-09-16 19:21:47 UTC (rev 2237)
@@ -62,7 +62,9 @@
 # Bei ungleich 0, wird DPT5 angenommen und Position angefahren
 # 	wertAufSchutz => 0
 # Ob der Rollladen in die Automatik für Sonnenauf- und untergang einbezogen werden soll
-# 	sonnenAufUnter => 1		
+# 	sonnenAufUnter => 1		# bei Sonnenaufgang und Sonnenuntergang
+# 	sonnenAufUnter => 2		# nur Sonnenaufgang
+# 	sonnenAufUnter => 3		# nur Sonnenuntergang
 # Raum-Solltemperatur, wenn keine GA angegeben wurde oder kein Wert vom Bus gelesen wurde
 # 	raumSollTemp => 22
 # GA der Raum-Solltemperatur
@@ -99,6 +101,11 @@
 #   debug => 1
 # Prüft die Position nach Aufhebung einer Sperre (boolean)
 #   pruefePositionNachSperre => 1
+# Regel wird nur ausgeführt wenn die Bedingung erfüllt ist (boolean)
+#   Beispiel für Heizzeitraum
+#     bedingung => '($tagImJahr < toDayOfYear(15, 5, $jahr) || $tagImJahr >= toDayOfYear(15, 9, $jahr)) ? 1 : 0'
+#   Beispiel für Wochenende
+#     bedingung => '($wochentag == SAMSTAG || $wochentag == SONNTAG) ? 1 : 0'
 
 # Format für im Aktor gespeicherte Positionen:
 # "44;Position:0" bezeichnet die im Aktor gespeicherte Position 0. Der Wert 44 dient lediglich zur Kontrolle. 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.