23 lines
642 B
Factor
23 lines
642 B
Factor
USING: kernel http.server http.server.responses http.server.dispatchers accessors namespaces io.servers ;
|
|
USING: bonerbonerboner.actions ;
|
|
|
|
IN: bonerbonerboner.server
|
|
|
|
SYMBOL: current-bbb-server
|
|
|
|
: <bbb> ( -- responder )
|
|
bbb-dispatcher new-dispatcher
|
|
<404-subdomain-action> >>default
|
|
<heartbeat-action> "heartbeat" add-responder
|
|
<subdomain-action> "subdomains" add-responder
|
|
<meta-action> "meta" add-responder ;
|
|
|
|
: <bbb-website-server> ( -- threaded-server )
|
|
<http-server>
|
|
f >>secure
|
|
8069 >>insecure ;
|
|
|
|
: start-bbb-site ( -- server )
|
|
<bbb> main-responder set-global
|
|
<bbb-website-server> start-server ;
|