From a89f3fd83ac80ccbed74783fbf7f4be9548c33fa Mon Sep 17 00:00:00 2001
From: Jan Schneider <oss@janschneider.net>
Date: Mon, 15 Jul 2019 19:24:14 +0200
Subject: [PATCH] Check if session valid

---
 addon/www/rest.cgi | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/addon/www/rest.cgi b/addon/www/rest.cgi
index faf1f46..f938a96 100644
--- a/addon/www/rest.cgi
+++ b/addon/www/rest.cgi
@@ -2,7 +2,7 @@
 
 #  RaspMatic update addon
 #
-#  Copyright (C) 2018  Jan Schneider <oss@janschneider.net>
+#  Copyright (C) 2019  Jan Schneider <oss@janschneider.net>
 #
 #  This program is free software: you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -48,7 +48,12 @@ proc check_session {sid} {
 	if {[get_session $sid] != ""} {
 		# renew session
 		set url "http://127.0.0.1/pages/index.htm?sid=$sid"
-		::http::cleanup [::http::geturl $url]
+		set request [::http::geturl $url]
+		set code [::http::code $request]
+		::http::cleanup $request
+		if {[lindex $code 1] == 200} {
+			return 1
+		}
 		return 1
 	}
 	return 0