blob: 781364caa6f06dd97f7643090f53a112713e763e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
net .alg .httpServer "+" via
{ 2002 } +port
{ ":" via
:url dump
[
{ :url "/" eq } {
"<html><body>Hallo Welt!<a href=\"/test\">Test</a></body></html>"
"text/html" :ok
} { :url "/test" eq } {
"<html><body>Test!</body></html>"
"text/html" :ok
} { :url "/post" eq } {
"<html><body>" :body "</body></html>" cat cat
"text/html" :ok
}
] conds
} +request
+run
|
