From 05a33ae5bc070828f77d722a753843b60722d86d Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 2 Apr 2013 11:38:42 +0000
Subject: [PATCH] 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
---
 FHEM/01_FHEMWEB.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/FHEM/01_FHEMWEB.pm b/FHEM/01_FHEMWEB.pm
index 701f1a5d9..6edfd62ec 100755
--- a/FHEM/01_FHEMWEB.pm
+++ b/FHEM/01_FHEMWEB.pm
@@ -1738,8 +1738,9 @@ FW_calcWeblink($$)
     my @l = localtime($t);
     $FW_devs{$d}{from}
         = sprintf("%04d-%02d-%02d_%02d",$l[5]+1900,$l[4]+1,$l[3],$l[2]);
+    @l = localtime($t+3600);
     $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") {
     my $t = $now + $off*21600;
@@ -1747,14 +1748,17 @@ FW_calcWeblink($$)
     $l[2] = int($l[2]/6)*6;
     $FW_devs{$d}{from}
         = 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}
-        = 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") {
     my $t = $now + $off*86400;
     my @l = localtime($t);
     $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") {
     my @l = localtime($now);