picowiki

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picowiki.git/
Log | Files | Refs

main.l (292B)

      1 #(allowed () "@start" "favicon.ico" n a)
      2 
      3 #(load "@lib/http.l" "lib/xml.l")
      4 #(load "er.l")
      5 
      6 (setq *Blob "blob/")
      7 
      8 (de main ()
      9    (call 'mkdir "-p" "db/" *Blob)
     10    (pool "db/" *Dbs)
     11    (unless (seq *DB)
     12       (load "init.l") ) )
     13 
     14 (de go ()
     15    (pw 12)
     16    (rollback)
     17    (server 8080 "@start") )