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

[<e....@us...>]

Revision: 732
          http://openautomation.svn.sourceforge.net/openautomation/?rev=732&view=rev
Author:   e.max
Date:     2012-03-26 09:21:07 +0000 (Mon, 26 Mar 2012)
Log Message:
-----------
Berechnung auf Zeitpunkt nach Somemrzeitumstellung gesetzt.

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

Modified: wiregate/plugin/generic/emx_sonne.pl
===================================================================
--- wiregate/plugin/generic/emx_sonne.pl	2012-03-25 20:54:02 UTC (rev 731)
+++ wiregate/plugin/generic/emx_sonne.pl	2012-03-26 09:21:07 UTC (rev 732)
@@ -24,15 +24,26 @@
 #  ##  who  yyyymmdd   bug#  description
 #  --  ---  --------  -----  ----------------------------------------
 #   .  ...  ........  .....  vorlage 
+#   1  edh  20120326  .....  Berechnungszeitpunkt auf 3:xx Uhr verlegt,
+#                             weil die Zeiten sonst vor der 
+#                             Umstellungsuhrzeit errechnet werden, und
+#                             das am Umstellungstag Winter->Sommer zu 
+#                             zu Fehlern führt: An diesem Tag wären
+#                             dann die Sommerzeit noch nicht berück-
+#                             sichtigt.                            
 #   0  edh  20111023  -----  erste Version
 
 use Math::Trig;
 use POSIX;
 
 # Default: Berlin
-my $Breite = 52.5167;
-my $Laenge = 13.4;
+my $Breite     = 52.5167;
+my $Laenge     = 13.4;
 
+# updateUhrzeit 3:11:13, ungerade Zeit um Rechenstaus zu vermeiden
+my $updateZeit = 11473; #  HH*3600 + MM*60 + SS = 3*3600 + 11*60 + 13 = 11473;
+my $einTag     = 86400; # 24*3600;
+
 sub calculateSun()
 {
     my ($yddd, $timezone) = @_;
@@ -94,5 +105,5 @@
  $plugin_info{"$plugname.laenge"} != $Laenge ||
  $plugin_info{"$plugname.breite"} != $Breite) and &calculateSun($yday, $timezone);
 
-# bis 1:00:27 Uhr warten, dann neu rechnen (ungerade Zeit zur Vermeidung von Plugin-Staus)
-$plugin_info{$plugname.'_cycle'} = (25-$hour) * 3600 - $min*60 - $sec + 27;
+# bis updateZeit warten, dann neu rechnen
+$plugin_info{$plugname.'_cycle'} = $einTag - ($hour*3600 + $min*60 + $sec) + $updateZeit;

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