1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
<html>
<head>
<title>Haskell WebSockets example</title>
<script src="//ajax.googleapis.com/ajax/libs/jquery/1.9.0/jquery.min.js"></script>
<script type="text/JavaScript" src="client.js"></script>
<link rel="stylesheet" type="text/css" href="screen.css"></script>
</head>
<body>
<h1>Haskell WebSockets example</h1>
<div id="main">
<div id="warnings">
</div>
<div id="join-section">
<h2>Join</h2>
<form id="join-form" action="">
<label for="user">Username: </label>
<input id="user" type="text" size="12" />
<input id="send" type="submit" value="Join" />
</form>
</div>
<div id="users-section" style="display: none">
<h2>Users</h2>
<ul id="users">
</ul>
</div>
<div id="chat-section" style="display: none">
<h2>Chat</h2>
<div id="messages">
</div>
<br />
<form id="message-form" action="">
<input id="text" type="text" size="40" />
<input id="send" type="submit" value="Send" />
</form>
</div>
</div>
<div id="footer">
Source code available <a href="http://github.com/jaspervdj/websockets/tree/master/example">here</a>
</div>
</body>
</html>
|
