21 lines
483 B
Plaintext
21 lines
483 B
Plaintext
<require-service <daemon http_translator>>
|
|
|
|
<daemon http_translator {
|
|
argv: "/home/repo/syndicate/syndicate_utils/src/http_translator"
|
|
protocol: text/syndicate
|
|
}>
|
|
|
|
let ?other = dataspace
|
|
|
|
$other [
|
|
? <http ?handle GET ?headers ?path ?body> [
|
|
<http $handle 200 {} "get handler invoked">
|
|
]
|
|
]
|
|
|
|
? <service-object <daemon http_translator> ?cap> $cap [
|
|
<listen 8888>
|
|
; publish GET requests with prefix "/foo/bar" to other dataspace
|
|
handler #{GET} ["foo" "bar" ] $other>
|
|
]
|