1
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00

DbLog ist very picky about valid dates. Patch by erwin

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3024 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-04-02 11:38:42 +00:00
parent 2d75f23a11
commit 05a33ae5bc

View File

@ -1738,8 +1738,9 @@ FW_calcWeblink($$)
my @l = localtime($t); my @l = localtime($t);
$FW_devs{$d}{from} $FW_devs{$d}{from}
= sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]); = sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]);
@l = localtime($t+3600);
$FW_devs{$d}{to} $FW_devs{$d}{to}
= sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]+1);; = sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]);
} elsif($zoom eq "qday") { } elsif($zoom eq "qday") {
my $t = $now + $off*21600; my $t = $now + $off*21600;
@ -1747,14 +1748,17 @@ FW_calcWeblink($$)
$l[2] = int($l[2]/6)*6; $l[2] = int($l[2]/6)*6;
$FW_devs{$d}{from} $FW_devs{$d}{from}
= sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]); = sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]);
@l = localtime($t+21600);
$l[2] = int($l[2]/6)*6;
$FW_devs{$d}{to} $FW_devs{$d}{to}
= sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]+6); = sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]);
} elsif($zoom eq "day") { } elsif($zoom eq "day") {
my $t = $now + $off*86400; my $t = $now + $off*86400;
my @l = localtime($t); my @l = localtime($t);
$FW_devs{$d}{from} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]); $FW_devs{$d}{from} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
$FW_devs{$d}{to} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]+1); @l = localtime($t+86400);
$FW_devs{$d}{to} = sprintf("%04d-%02d-%02d",$l[5]+1900,$l[4]+1,$l[3]);
} elsif($zoom eq "week") { } elsif($zoom eq "week") {
my @l = localtime($now); my @l = localtime($now);