From: Eugene Crosser Date: Mon, 21 Dec 2015 21:20:02 +0000 (+0300) Subject: make xmlhttprequest for data X-Git-Url: http://www.average.org/gitweb/?p=pulsecounter.git;a=commitdiff_plain;h=764e42d8f7fb4ea526191a6a05c0857839f013bd;ds=sidebyside make xmlhttprequest for data --- 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