setup webserver

master
Steve Ayerhart 2021-07-01 15:00:42 -04:00
parent 5071293750
commit c780502a8c
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
1 changed files with 12 additions and 13 deletions

View File

@ -39,15 +39,6 @@ TUPLE: bbb < dispatcher ;
<slack-event-action> "slack-events" add-responder
<theme-action> "subdomain" add-responder ;
SYMBOL: current-bbb-server
: run-bbb-server ( -- )
<bbb> main-responder set-global
8080 httpd current-bbb-server set ;
: restart-bbb-server ( -- )
current-bbb-server get stop-server
run-bbb-server ;
: add-default-slack-listeners ( -- )
{
[ check-mississippi-request ]
@ -55,8 +46,16 @@ SYMBOL: current-bbb-server
[ check-links ]
} slack-callbacks set-global ;
: start-bonerbonerboner ( -- )
add-default-slack-listeners
run-bbb-server ;
SYMBOL: current-bbb-server
MAIN: start-bonerbonerboner
: <bbb-website-server> ( -- threaded-server )
<http-server>
f >>secure
8069 >>insecure ;
: start-bbb-site ( -- )
add-default-slack-listeners
<bbb> main-responder set-global
<bbb-website-server> start-server wait-for-server ;
MAIN: start-bbb-site