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

Tweaking config some more

db4
Slava Pestov 2008-06-18 03:40:05 -05:00
parent 5a133ceece
commit 4e1e145669
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,19 +63,33 @@ TUPLE: factor-website < dispatcher ;
{ factor-website "page" } >>template { factor-website "page" } >>template
test-db <alloy> ; test-db <alloy> ;
: init-factor-website ( -- ) SYMBOL: key-password
"factorcode.org" 25 <inet> smtp-server set-global SYMBOL: key-file
SYMBOL: dh-file
: common-configuration ( -- )
"concatenative.org" 25 <inet> smtp-server set-global
"noreply@concatenative.org" lost-password-from set-global "noreply@concatenative.org" lost-password-from set-global
"website@concatenative.org" insomniac-sender set-global "website@concatenative.org" insomniac-sender set-global
"slava@factorcode.org" insomniac-recipients set-global "slava@factorcode.org" insomniac-recipients set-global
init-factor-db <factor-website> main-responder set-global
<factor-website> main-responder set-global ; init-factor-db ;
: init-testing ( -- )
"resource:extra/openssl/test/dh1024.pem" dh-file set-global
"resource:extra/openssl/test/server.pem" key-file set-global
"password" key-password set-global
common-configuration ;
: init-production ( -- )
"/home/slava/cert/host.pem" key-file set-global
common-configuration ;
: <factor-secure-config> ( -- config ) : <factor-secure-config> ( -- config )
<secure-config> <secure-config>
"resource:extra/openssl/test/server.pem" >>key-file key-file get >>key-file
"resource:extra/openssl/test/dh1024.pem" >>dh-file dh-file get >>dh-file
"password" >>password ; key-password get >>password ;
: <factor-website-server> ( -- threaded-server ) : <factor-website-server> ( -- threaded-server )
<http-server> <http-server>
@ -83,7 +97,7 @@ TUPLE: factor-website < dispatcher ;
8080 >>insecure 8080 >>insecure
8431 >>secure ; 8431 >>secure ;
: start-factor-website ( -- ) : start-website ( -- )
test-db start-expiring test-db start-expiring
test-db start-update-task test-db start-update-task
http-insomniac http-insomniac