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

websites.concatenative, factorcode: move a few things into config file

db4
Slava Pestov 2010-10-02 18:56:21 -07:00
parent 7fc552dd6c
commit ddd589cdee
2 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,19 +59,19 @@ TUPLE: concatenative-website < dispatcher ;
allow-edit-profile allow-edit-profile
allow-deactivation ; allow-deactivation ;
SYMBOLS: factor-recaptcha-public-key factor-recaptcha-private-key ;
: <factor-recaptcha> ( responder -- responder' ) : <factor-recaptcha> ( responder -- responder' )
<recaptcha> <recaptcha>
"concatenative.org" >>domain "concatenative.org" >>domain
"6LeJWQgAAAAAAFlYV7SuBClE9uSpGtV_ZS-qVON7" >>public-key factor-recaptcha-public-key get >>public-key
"6LeJWQgAAAAAALh-XJgSSQ6xKygRgJ8-029Ip2Xv" >>private-key ; factor-recaptcha-private-key get >>private-key ;
: <concatenative-website> ( -- responder ) : <concatenative-website> ( -- responder )
concatenative-website new-dispatcher concatenative-website new-dispatcher
URL" /wiki/view/Front Page" <redirect-responder> "" add-responder ; URL" /wiki/view/Front Page" <redirect-responder> "" add-responder ;
SYMBOL: key-password SYMBOLS: key-password key-file dh-file ;
SYMBOL: key-file
SYMBOL: dh-file
: common-configuration ( -- ) : common-configuration ( -- )
"concatenative.org" 25 <inet> smtp-server set-global "concatenative.org" 25 <inet> smtp-server set-global
@ -112,7 +112,6 @@ SYMBOL: dh-file
<mason-app> <login-config> <factor-boilerplate> test-db <alloy> "builds.factorcode.org" add-responder <mason-app> <login-config> <factor-boilerplate> test-db <alloy> "builds.factorcode.org" add-responder
home "docs" append-path <help-webapp> "docs.factorcode.org" add-responder home "docs" append-path <help-webapp> "docs.factorcode.org" add-responder
home "cgi" append-path <gitweb> "gitweb.factorcode.org" add-responder home "cgi" append-path <gitweb> "gitweb.factorcode.org" add-responder
<factor-website> "new.factorcode.org" add-responder
main-responder set-global ; main-responder set-global ;
: <factor-secure-config> ( -- config ) : <factor-secure-config> ( -- config )

7
extra/websites/factorcode/factorcode.factor
View File

@ -4,14 +4,9 @@ USING: accessors http.server http.server.dispatchers
http.server.static kernel namespaces sequences ; http.server.static kernel namespaces sequences ;
IN: websites.factorcode IN: websites.factorcode
SYMBOL: users
: <factor-website> ( -- website ) : <factor-website> ( -- website )
<dispatcher> <dispatcher>
"resource:extra/websites/factorcode/" <static> enable-fhtml >>default "resource:extra/websites/factorcode/" <static> enable-fhtml >>default ;
users get [
[ "/home/" "/www/" surround <static> ] keep add-responder
] each ;
: init-testing ( -- ) : init-testing ( -- )
<factor-website> main-responder set-global ; <factor-website> main-responder set-global ;