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