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

websites.concatenative: fix init-testing

db4
Doug Coleman 2016-03-11 14:06:26 -08:00
parent ccb3d65852
commit 00f3b70788
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
extra/websites/concatenative/concatenative.factor
View File

@ -80,26 +80,28 @@ SYMBOLS: key-password key-file dh-file ;
"noreply@concatenative.org" lost-password-from set-global
init-factor-db ;
: init-testing ( -- )
"vocab:openssl/test/dh1024.pem" dh-file set-global
"vocab:openssl/test/server.pem" key-file set-global
"password" key-password set-global
common-configuration
<concatenative-website>
<wiki> <factor-recaptcha> <login-config> <factor-boilerplate> "wiki" add-responder
<user-admin> <login-config> <factor-boilerplate> "user-admin" add-responder
<pastebin> <factor-recaptcha> <login-config> <factor-boilerplate> "pastebin" add-responder
<planet> <login-config> <factor-boilerplate> "planet" add-responder
<mason-app> <login-config> <factor-boilerplate> "mason" add-responder
"/tmp/docs/" <help-webapp> "docs" add-responder
website-db <alloy>
main-responder set-global ;
: <gitweb> ( path -- responder )
<dispatcher>
swap <static> enable-cgi >>default
URL" /gitweb.cgi" <redirect-responder> "" add-responder ;
: init-testing-concatenative ( -- )
"vocab:openssl/test/dh1024.pem" dh-file set-global
"vocab:openssl/test/server.pem" key-file set-global
"password" key-password set-global
common-configuration
<dispatcher>
<concatenative-website>
<wiki> <factor-recaptcha> "wiki" add-responder
<user-admin> "user-admin" add-responder
<login-config> <factor-boilerplate> website-db <alloy> "concatenative" add-responder
<pastebin> <factor-recaptcha> <login-config> <factor-boilerplate> website-db <alloy> "paste" add-responder
<planet> <login-config> <factor-boilerplate> website-db <alloy> "planet" add-responder
<mason-app> <login-config> <factor-boilerplate> website-db <alloy> "builds" add-responder
home "docs" append-path <help-webapp> "docs" add-responder
home "cgi" append-path <gitweb> "gitweb" add-responder
main-responder set-global ;
: init-production ( -- )
common-configuration
<vhost-dispatcher>