[Openautomation-svn] SF.net SVN: openautomation:[379] wiregate/plugin/generic/schaltuhr.pl

[<sw...@us...>]

Revision: 379
          http://openautomation.svn.sourceforge.net/openautomation/?rev=379&view=rev
Author:   swiss1
Date:     2011-07-03 14:41:35 +0000 (Sun, 03 Jul 2011)

Log Message:
-----------
In der neusten Version sind nun auch Schaltpunkte in bestimmten Monaten oder Kalenderwochen m?\195?\182glich. Version 0.3 BETA

Modified Paths:
--------------
    wiregate/plugin/generic/schaltuhr.pl

Modified: wiregate/plugin/generic/schaltuhr.pl
===================================================================
--- wiregate/plugin/generic/schaltuhr.pl	2011-07-03 14:04:15 UTC (rev 378)
+++ wiregate/plugin/generic/schaltuhr.pl	2011-07-03 14:41:35 UTC (rev 379)
@@ -1,5 +1,5 @@
 # Plugin zum Zeit abh\xE4ngigem schaten von GA's (Schaltuhr)
-# Version 0.2 03.07.2011
+# Version 0.3 BETA 03.07.2011
 # Copyright: swiss (http://knx-user-forum.de/members/swiss.html)
 # License: GPL (v2)
 # Aufbau m\xF6glichst so, dass man unterhalb der Einstellungen nichts ver\xE4ndern muss!
@@ -12,9 +12,9 @@
 
 #Pro Schaltpunkt einfach den unten stehenden Eintrag kopieren und anpassen.
 
-push @Schaltzeiten, { name => "bew\xE4sserung_ein", montag => 1, dienstag => 1, mittwoch => 1, donnerstag => 1, freitag => 1, samstag => 0, sonntag => 1, Stunden => 15, Minuten => 45, Wert => 1, DPT => 1, ga => '2/0/0' };
+push @Schaltzeiten, { name => "bew\xE4sserung_ein", montag => 1, dienstag => 1, mittwoch => 1, donnerstag => 1, freitag => 1, samstag => 0, sonntag => 1, Stunden => 15, Minuten => 45, Wert => 1, DPT => 1, ga => '2/0/0', KW => '', Monat => '' };
 
-push @Schaltzeiten, { name => "bew\xE4sserung_aus", montag => 1, dienstag => 1, mittwoch => 1, donnerstag => 1, freitag => 1, samstag => 0, sonntag => 1, Stunden => 15, Minuten => 46, Wert => 0, DPT => 1, ga => '2/0/0' };
+push @Schaltzeiten, { name => "bew\xE4sserung_aus", montag => 1, dienstag => 1, mittwoch => 1, donnerstag => 1, freitag => 1, samstag => 0, sonntag => 1, Stunden => 15, Minuten => 46, Wert => 0, DPT => 1, ga => '2/0/0', KW => '', Monat => '' };
 
 ######################
 ##ENDE Einstellungen##
@@ -41,11 +41,26 @@
 
 foreach my $element (@Schaltzeiten) {
 
-($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 	$year += 1900;
 
-	if ($element->{$Wochentag[$wday]} == 1 && $element->{Stunden} == $hour && $element->{Minuten} == $min) {
+	if ($element->{$Wochentag[$wday]} == 1 && $element->{Stunden} == $hour && $element->{Minuten} == $min && $element->{KW} ne '') {
+		if ($element->{KW} == $yday) {
+			knx_write($element->{ga},$element->{Wert},$element->{DPT});
+			next;
+		} else {
+			next;
+		}
+	} elsif ($element->{$Wochentag[$wday]} == 1 && $element->{Stunden} == $hour && $element->{Minuten} == $min && $element->{Monat} ne '') {
+		if ($element->{Monat} == $mon) {
+			knx_write($element->{ga},$element->{Wert},$element->{DPT});
+			next;
+		} else {
+			next;
+		}
+	} elsif ($element->{$Wochentag[$wday]} == 1 && $element->{Stunden} == $hour && $element->{Minuten} == $min && $element->{KW} eq '' && $element->{Monat} eq '') {
 		knx_write($element->{ga},$element->{Wert},$element->{DPT});
-	}
+		next;
+	}	
 next;
 }
\ No newline at end of file


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