From b9bf4fc5d39aef9de405b6ad7b2beccc4af36bc6 Mon Sep 17 00:00:00 2001
From: HummyPkg <af123@hummypkg.org.uk>
Date: Tue, 5 Feb 2019 14:03:36 +0000
Subject: [PATCH] Fix calculation for midnight today

---
 webif/html/sched/visual/index.jim | 2 +-
 webif/lib/rsv.class               | 2 +-
 webif/lib/utils                   | 5 +++++
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/webif/html/sched/visual/index.jim b/webif/html/sched/visual/index.jim
index 354adc4..84e1902 100755
--- a/webif/html/sched/visual/index.jim
+++ b/webif/html/sched/visual/index.jim
@@ -306,7 +306,7 @@ proc render_timeline {usedhours} {
 	set tomorrow {}
 
 	# Midnight today.
-	set day [clock scan "00:00:00" -format "%T"]
+	set day [midnight]
 
 	set elength [llength $events]
 	set eindex 0
diff --git a/webif/lib/rsv.class b/webif/lib/rsv.class
index 1605dcd..e1084d7 100755
--- a/webif/lib/rsv.class
+++ b/webif/lib/rsv.class
@@ -1291,7 +1291,7 @@ proc {rsv allevents} {{xota 0}} {
 		lappend events {*}$pending
 	}
 
-	set today [clock scan 00:00:00 -format "%T"]
+	set today [midnight]
 
 	set xevents {}
 
diff --git a/webif/lib/utils b/webif/lib/utils
index d9b7726..623fccd 100644
--- a/webif/lib/utils
+++ b/webif/lib/utils
@@ -12,3 +12,8 @@ proc lremove {var val} {
 	set v [lsearch -all -inline -not -exact $v $val]
 }
 
+# Returns the epoch time for midnight today
+proc midnight {} {
+	return $([clock seconds] / 86400 * 86400)
+}
+