extra/websites/concatenative/concatenative.factor

   1 ! Copyright (c) 2008 Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel sequences assocs io.files io.pathnames
   4 io.sockets io.sockets.secure io.servers.connection
   5 namespaces db db.tuples db.sqlite smtp urls
   6 logging.insomniac
   7 html.templates.chloe
   8 http.server
   9 http.server.dispatchers
  10 http.server.redirection
  11 http.server.static
  12 http.server.cgi
  13 furnace.alloy
  14 furnace.auth.login
  15 furnace.auth.providers.db
  16 furnace.auth.features.edit-profile
  17 furnace.auth.features.recover-password
  18 furnace.auth.features.registration
  19 furnace.auth.features.deactivate-user
  20 furnace.boilerplate
  21 furnace.redirection
  22 webapps.pastebin
  23 webapps.planet
  24 webapps.wiki
  25 webapps.user-admin
  26 webapps.help ;
  27 IN: websites.concatenative
  28
  29 : test-db ( -- db ) "resource:test.db" <sqlite-db> ;
  30
  31 : init-factor-db ( -- )
  32     test-db [
  33         init-furnace-tables
  34
  35         {
  36             paste annotation
  37             blog posting
  38             article revision
  39         } ensure-tables
  40     ] with-db ;
  41
  42 TUPLE: factor-website < dispatcher ;
  43
  44 : <factor-boilerplate> ( responder -- responder' )
  45     <boilerplate>
  46         { factor-website "page" } >>template ;
  47
  48 : <login-config> ( responder -- responder' )
  49     "Factor website" <login-realm>
  50         "Factor website" >>name
  51         allow-registration
  52         allow-password-recovery
  53         allow-edit-profile
  54         allow-deactivation ;
  55
  56 : <factor-website> ( -- responder )
  57     factor-website new-dispatcher
  58         <wiki> "wiki" add-responder
  59         <user-admin> "user-admin" add-responder
  60         URL" /wiki/view/Front Page" <redirect-responder> "" add-responder ;
  61
  62 SYMBOL: key-password
  63 SYMBOL: key-file
  64 SYMBOL: dh-file
  65
  66 : common-configuration ( -- )
  67     "concatenative.org" 25 <inet> smtp-server set-global
  68     "noreply@concatenative.org" lost-password-from set-global
  69     "website@concatenative.org" insomniac-sender set-global
  70     "slava@factorcode.org" insomniac-recipients set-global
  71     init-factor-db ;
  72
  73 : init-testing ( -- )
  74     "resource:basis/openssl/test/dh1024.pem" dh-file set-global
  75     "resource:basis/openssl/test/server.pem" key-file set-global
  76     "password" key-password set-global
  77     common-configuration
  78     <factor-website>
  79         <pastebin> <factor-boilerplate> <login-config> "pastebin" add-responder
  80         <planet> <factor-boilerplate> <login-config> "planet" add-responder
  81         "/tmp/docs/" <help-webapp> "docs" add-responder
  82     test-db <alloy>
  83     main-responder set-global ;
  84
  85 : <gitweb> ( path -- responder )
  86     <dispatcher>
  87         swap <static> enable-cgi >>default
  88         URL" /gitweb.cgi" <redirect-responder> "" add-responder ;
  89
  90 : init-production ( -- )
  91     common-configuration
  92     <vhost-dispatcher>
  93         <factor-website> <login-config> <factor-boilerplate> test-db <alloy> "concatenative.org" add-responder
  94         <pastebin> <login-config> <factor-boilerplate> test-db <alloy> "paste.factorcode.org" add-responder
  95         <planet> <login-config> <factor-boilerplate> test-db <alloy> "planet.factorcode.org" add-responder
  96         home "docs" append-path <help-webapp> test-db <alloy> "docs.factorcode.org" add-responder
  97         home "cgi" append-path <gitweb> "gitweb.factorcode.org" add-responder
  98     main-responder set-global ;
  99
 100 : <factor-secure-config> ( -- config )
 101     <secure-config>
 102         key-file get >>key-file
 103         dh-file get >>dh-file
 104         key-password get >>password ;
 105
 106 : <factor-website-server> ( -- threaded-server )
 107     <http-server>
 108         <factor-secure-config> >>secure-config
 109         8080 >>insecure
 110         8431 >>secure ;
 111
 112 : start-website ( -- )
 113     test-db start-expiring
 114     test-db start-update-task
 115     http-insomniac
 116     <factor-website-server> start-server ;