From 764e42d8f7fb4ea526191a6a05c0857839f013bd Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Tue, 22 Dec 2015 00:20:02 +0300 Subject: [PATCH] make xmlhttprequest for data --- web/index.html | 59 ++++++++++++++++++++++++++++++++++++++++++++++++++ web/query.cgi | 2 +- 2 files changed, 60 insertions(+), 1 deletion(-) create mode 100644 web/index.html diff --git a/web/index.html b/web/index.html new file mode 100644 index 0000000..ea05899 --- /dev/null +++ b/web/index.html @@ -0,0 +1,59 @@ + + + + + + +

+ + diff --git a/web/query.cgi b/web/query.cgi index 8720237..690eb9a 100755 --- a/web/query.cgi +++ b/web/query.cgi @@ -71,7 +71,7 @@ cgiMain = do ++ ", \"hi\": " ++ show (ohi :: Int) ++ "}, \"current\": {\"cold\": " ++ show (floor (ccold :: Double)) ++ ", \"hot\": " ++ show (floor (chot :: Double)) - ++ "}}, \"cold\": [" ++ showjson cold + ++ "}, \"cold\": [" ++ showjson cold ++ "], \"hot\": [" ++ showjson hot ++ "]}\n" showjson :: [(Int, Double)] -> String -- 2.39.2