X-Git-Url: http://www.average.org/gitweb/?p=pulsecounter.git;a=blobdiff_plain;f=web%2Fquery.cgi;h=839f7885faf7ea19016e7b344762655314feb50c;hp=967127650427e5fda18d04e8a2b27d2bec937f7b;hb=b246f5335d4cd6747f1ead82f7037d3e5d8dbd15;hpb=dc967d814f0eb1146f3823fabc12a252559e75af diff --git a/web/query.cgi b/web/query.cgi index 9671276..839f788 100755 --- a/web/query.cgi +++ b/web/query.cgi @@ -30,6 +30,7 @@ cgiMain = do , connectPassword = pass conf , connectDatabase = dbnm conf } + _ <- liftIO $ execute_ conn "set time_zone = '+00:00';"; today <- liftIO getClockTime let tomorrow = addToClockTime (noTimeDiff {tdDay = 1}) today daystart x = (toUTCTime x) { ctHour = 0, ctMin = 0