|
From: <sw...@us...> - 2011-07-03 13:53:39
|
Revision: 377
http://openautomation.svn.sourceforge.net/openautomation/?rev=377&view=rev
Author: swiss1
Date: 2011-07-03 13:53:33 +0000 (Sun, 03 Jul 2011)
Log Message:
-----------
Plugin zum Schalten beliebig vieler GA's zu bestimmten Wochentage und Zeiten. Version 0.1
Added Paths:
-----------
wiregate/plugin/generic/schaltuhr.pl
Added: wiregate/plugin/generic/schaltuhr.pl
===================================================================
--- wiregate/plugin/generic/schaltuhr.pl (rev 0)
+++ wiregate/plugin/generic/schaltuhr.pl 2011-07-03 13:53:33 UTC (rev 377)
@@ -0,0 +1,51 @@
+# Plugin zum Zeit abh\xE4ngigem schaten von beliebig vielen GA's (Schaltuhr)
+# Version 0.1 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!
+
+
+####################
+###Einstellungen:###
+####################
+my @Schaltzeiten;
+
+#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, Befehl => 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, Befehl => 0, ga => '2/0/0' };
+
+######################
+##ENDE Einstellungen##
+######################
+
+use POSIX;
+
+# Eigenen Aufruf-Zyklus auf 30sek. setzen
+$plugin_info{$plugname.'_cycle'} = 30;
+
+#Hier wird ein Array angelegt, um die Wochentagsnummer von localtime zu \xFCbersetzen
+my @Wochentag = ('sonntag', 'montag', 'dienstag', 'mittwoch', 'donnerstag', 'freitag', 'samstag');
+
+my $sec;
+my $min;
+my $hour;
+my $mday;
+my $mon;
+my $year;
+my $wday;
+my $yday;
+my $isdst;
+
+
+foreach my $element (@Schaltzeiten) {
+
+($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+ $year += 1900;
+
+ if ($element->{$Wochentag[$wday]} == 1 && $element->{Stunden} == $hour && $element->{Minuten} == $min) {
+ knx_write($element->{ga},$element->{Befehl},1);
+ }
+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.
|