author | kleing |
Fri, 20 Nov 2009 18:36:44 +1100 | |
changeset 33817 | f6a4da31f2f1 |
child 33823 | 24090eae50b6 |
permissions | -rw-r--r-- |
1 (* Title: echo.ML
2 Author: Timothy Bourke, NICTA
4 Install simple echo server.
5 *)
7 local
8 fun echo (req, content, send) =
9 (send (ScgiReq.show req);
10 send "--payload-----\n";
11 send (Byte.bytesToString content);
12 send "\n--------------\n")
13 in
14 val () = ScgiServer.register ("echo", SOME Mime.plain, echo);
15 end;