steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
bonerbonerboner/bonerbonerboner.factor
View File

@ -39,15 +39,6 @@ TUPLE: bbb < dispatcher ;
<slack-event-action> "slack-events" add-responder <slack-event-action> "slack-events" add-responder
<theme-action> "subdomain" 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 ( -- ) : add-default-slack-listeners ( -- )
{ {
[ check-mississippi-request ] [ check-mississippi-request ]
@ -55,8 +46,16 @@ SYMBOL: current-bbb-server
[ check-links ] [ check-links ]
} slack-callbacks set-global ; } slack-callbacks set-global ;
: start-bonerbonerboner ( -- ) SYMBOL: current-bbb-server
add-default-slack-listeners
run-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