Websocket test should support WSS

test/websocket.lua

@@ -2,7 +2,7 @@ timerID = "timeout"
 --timerID = "interval"
 
 function trace(text)
-    local f = io.open("R:\\websocket.trace", "a")
+    local f = io.open("websocket.trace", "a")
     f:write(os.date() .. " - " .. text .. "\n")
     f:close()
 end

test/websocket.xhtml

@@ -29,7 +29,8 @@
     }
 
     function load() {
-      connection = new WebSocket("ws://" + window.location.host + "/websocket.lua");
+      var wsproto = (location.protocol === 'https:') ? "wss:" : "ws:";
+      connection = new WebSocket(wsproto + "//" + window.location.host + "/websocket.lua");
       websock_text_field = document.getElementById('websock_text_field');
       hand_min = document.getElementById('hand_min');
       hand_hour = document.getElementById('hand_hour');