Hallo zusammen,
nachdem diverse Module (teils wohl auch abhängig von der Hardware) Probleme mit der Zeitumstellung hatten und wir immer noch nicht wissen, wie lange uns das Thema noch erhalten bleibt, hier zwei Varianten für die Berechnung Zeiten für den Tageswechsel, die mAn. funktionieren.
Die eine stammt aus Twilight (in Twilight_midnight()):
my $now = time;
my $midnight = $now - secondsSinceMidnight( $now ) + DAYSECONDS + 1;
my $daylightsavingdelta = (localtime ( $now - 2 * HOURSECONDS ) )[2] - ( localtime( $now + 22 * HOURSECONDS ) )[2];
$midnight -= 19 * HOURSECONDS if $daylightsavingdelta == 1 && (localtime)[2] < 2;
$midnight -= 20 * HOURSECONDS if $daylightsavingdelta == -1 && (localtime)[2] < 3;
return resetRegIntTimer( 'Midnight', $midnight, \&Twilight_Midnight, $hash, 0 );
Die andere (mAn. die elegantere) aus WeekdayTimer (_SetTimerForMidnightUpdate()), das intern dann timelocal_nocheck aufruft (bzw. aufrufen kann, weil die Gültigkeit der Argumente vorab geprüft wurde):
my $midnightPlus5Seconds = getSwitchtimeEpoch ($now, 0, 0, 5, 1);mit der aufgerufenen Funktion
sub getSwitchtimeEpoch {
my ($now, $hour, $min, $sec, $days) = @_;
my @jetzt_arr = localtime($now);
#Stunden Minuten Sekunden
$jetzt_arr[2] = $hour; $jetzt_arr[1] = $min; $jetzt_arr[0] = $sec;
$jetzt_arr[3] += $days;
my $next = timelocal_nocheck(@jetzt_arr);
return $next;
}
EDIT: Die aktuelle Variante bei Astro scheint nun zu funktionieren, daher auch diese hier:
if ( $comp eq 'NewDay' ) {
my @dch = localtime($now + 86400 + 3600*((localtime($now))[8] - (localtime($now + 86400.))[8]));
push @next,
_timelocal_modern( 0, 0, 0, $dch[3], $dch[4], $dch[5]+1900. );
next;
}
Und was willst Du uns nun damit eigentlich sagen?
Die Zeitumstellung an sich ist das Eine. Aber dieses Mal hatten wir die recht selten vorkommende Situation, dass die Zeitumstellung auch noch mit dem letzten Tag eines Monats zusammenfiel und das offenbar in Kombination zusätzliche Probleme bereitete.
Es mag ja sein, dass das Problem dadurch komplexer wurde, dass auch noch der Monatswechsel dazukam. Zumindest in einem Fall (statistics) scheint aber das Problem die zu dem Umstellungstermin jeweils falsch berechnete Tageswechselzeit gewesen zu sein (eine Stunde zu früh), weswegen dann in der Folge auch der Monatswechsel entfallen ist.
Es gab dann noch den einen oder anderen, der von den Entwicklern zurückgemeldet hatte, dass er "keine Zeit" hat, für diese Zeitumstellungs-Problematik eine Lösung zu entwickeln bzw. schon länger nicht mehr mit Perl gearbeitet zu haben.
Jetzt kann jeder anfangen, das Rad wieder neu zu erfinden oder das ganze so lassen, wie es ist (mit der Konsequenz, dass es wieder "überraschend" alle halbe Jahre wieder an diversen Stellen User gibt, die sich die Augen reiben).
Daher hier die Schnippsel, die man entweder fachlich kritisieren darf oder eben übernehmen kann, wenn man möchte. Kann ja durchaus sein, dass die zwei Module, die am häufigsten Thema waren, nicht die einzigen sind...