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

[<jum...@us...>]

Revision: 961
          http://openautomation.svn.sourceforge.net/openautomation/?rev=961&view=rev
Author:   jumi2006
Date:     2012-08-15 07:01:14 +0000 (Wed, 15 Aug 2012)
Log Message:
-----------
Small cleanup and bugfix -> works !!!

Modified Paths:
--------------
    wiregate/plugin/generic/Nacht-Nachdimmen
    wiregate/plugin/generic/conf.d/Nacht-Nachdimmen.conf_sample

Modified: wiregate/plugin/generic/Nacht-Nachdimmen
===================================================================
--- wiregate/plugin/generic/Nacht-Nachdimmen	2012-08-14 20:54:42 UTC (rev 960)
+++ wiregate/plugin/generic/Nacht-Nachdimmen	2012-08-15 07:01:14 UTC (rev 961)
@@ -1,38 +1,38 @@
 # Nachts Licht nur gedimmt einschalten.
-# Plugin h\xF6rt auf GA des Ein-Befehles und schickt Dimmwert hinterher.
+# Plugin hoert auf GA des Ein-Befehles und schickt Dimmwert hinterher.
 # Autor: kleinklausi -> knx-user-forum.de
-# V1.0 2012-07-20 
-# Minutengenaues dimmen m\xF6glich
+
+# V1.0 2012-07-20
+# Minutengenaues dimmen m?glich
 # Auslagerung der Konfiguration in .conf file /etc/wiregate/plugin/generic/conf.d
-# update: JuMi2006 -> knx-user-forum.de
+# JuMi2006 -> knx-user-forum.de
 
 # Updates:
-# 20120814, mclb
-# - Umbau auf Liste von Hashes, damit das Plugin auch f\xFCr mehrere Lichter funktioniert.
+# 20120814, mclb -> knx-user-forum.de
+# - Umbau auf Liste von Hashes, damit das Plugin auch fuer mehrere Lichter funktioniert.
 
 ### Variablen Einlesen/Deklarieren
 
 use Time::Local;
 my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday) = localtime();
 my $now = sprintf ("%02d:%02d",$hour,$min);
-my ($lichtein_ga,$lichtdim_ga,$dimvalue,$start,$end);
 my ($sh,$sm,$eh,$em);
-my {$su, $eu, $time};
+my ($su, $eu, $time);
 my $debug = 0;
 my @lichter;
 &readConf;
 
-# Eigenen Aufruf-Zyklus auf 1x t\xE4glich setzen, h\xF6rt ja auf GA
+# Eigenen Aufruf-Zyklus auf 1x t?glich setzen, h?rt ja auf GA
 $plugin_info{$plugname.'_cycle'} = 86400;
 # Plugin an Gruppenadresse "anmelden"
-foreach $licht (@lichter) {
+foreach my $licht (@lichter) {
  $plugin_subscribe{$licht->{gaEin}}{$plugname} = 1;
 }
 
 # Zeit nur einmal berechnen
 $time = time ();
 
-foreach $licht (@lichter) {
+foreach my $licht (@lichter) {
  if ($licht->{start} =~/(\w{1,})\:(\w{1,})/) {
   $sh = $1;
   $sm = $2;
@@ -53,13 +53,13 @@
    if ($time < $eu && $time > $su) {
 	#DIMMEN
 	knx_write($licht->{gaDimm},$licht->{valueDimm},5); # Dimmwert senden
-	if ($debug == 1) { plugin_log($plugname,"Gedimmt $now Uhr"); }
+	if ($debug == 1) { plugin_log($plugname,"$licht->{name} gedimmt um $now Uhr"); }
    }
 	
    if ($sm > $em && $sh == $eh) {
 	#DIMMEN
 	knx_write($licht->{gaDimm},$licht->{valueDimm},5); # Dimmwert senden
-	if ($debug == 1) { plugin_log($plugname,"Gedimmt $now Uhr"); }
+	if ($debug == 1) { plugin_log($plugname,"$licht->{name} gedimmt um $now Uhr"); }
    }
   }
 
@@ -68,13 +68,13 @@
    if ($time > $su) {
 	#DIMMEN
 	knx_write($licht->{gaDimm},$licht->{valueDimm},5); # Dimmwert senden
-	if ($debug == 1) { plugin_log($plugname,"Gedimmt $now Uhr"); }
+	if ($debug == 1) { plugin_log($plugname,"$licht->{name} gedimmt um $now Uhr"); }
    }
 
    if ($time < $eu) {
     #DIMMEN
 	knx_write($licht->{gaDimm},$licht->{valueDimm},5); # Dimmwert senden
-	if ($debug == 1) { plugin_log($plugname,"Gedimmt $now Uhr"); }
+	if ($debug == 1) { plugin_log($plugname,"$licht->{name} gedimmt um $now Uhr"); }
    }
   }
  }

Modified: wiregate/plugin/generic/conf.d/Nacht-Nachdimmen.conf_sample
===================================================================
--- wiregate/plugin/generic/conf.d/Nacht-Nachdimmen.conf_sample	2012-08-14 20:54:42 UTC (rev 960)
+++ wiregate/plugin/generic/conf.d/Nacht-Nachdimmen.conf_sample	2012-08-15 07:01:14 UTC (rev 961)
@@ -1,14 +1,15 @@
 # Nachts Licht nur gedimmt einschalten.
-# Plugin h\xF6rt auf GA des Ein-Befehles und schickt Dimmwert hinterher.
+# Plugin hoert auf GA des Ein-Befehles und schickt Dimmwert hinterher.
 # Autor: kleinklausi -> knx-user-forum.de
+
 # V1.0 2012-07-20
-# Minutengenaues dimmen m\xF6glich
+# Minutengenaues dimmen m?glich
 # Auslagerung der Konfiguration in .conf file /etc/wiregate/plugin/generic/conf.d
 # JuMi2006 -> knx-user-forum.de
 
 # Updates:
-# 20120814, mclb
-# - Umbau auf Liste von Hashes, damit das Plugin auch f\xFCr mehrere Lichter funktioniert.
+# 20120814, mclb -> knx-user-forum.de
+# - Umbau auf Liste von Hashes, damit das Plugin auch fuer mehrere Lichter funktioniert.
 
 ### Definitionen 
 ### Hier werden die Werte/Gruppenadressen definiert
@@ -18,6 +19,10 @@
 # valueDimm: Dimmwert
 # start:     Zeitpunkt, ab dem gedimmt werden soll (Format: hh:mm)
 # end:       Zeitpunkt, ab dem nicht mehr gedimmt werden soll (Format: hh:mm)
-push @lichter, { gaEin => "1/2/20", gaDimm => "1/2/23", valueDimm => 15, start => "22:00", end => "6:30" };
-### Ende Definitionen
 
+push @lichter, { name => "Flur OG", 	gaEin => "1/2/20", gaDimm => "1/2/23", valueDimm => 20, start => "00:00", end => "16:30" };
+push @lichter, { name => "Flur klein", 	gaEin => "1/1/20", gaDimm => "1/1/23", valueDimm => 35, start => "00:00", end => "16:30" };
+push @lichter, { name => "Hausflur", 	gaEin => "1/1/40", gaDimm => "1/1/43", valueDimm => 25, start => "00:00", end => "16:30" };
+
+
+### Ende Definitionen
\ No newline at end of file

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