/usr/share/picolisp/app/main.l is in picolisp 15.11-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | # 25may15abu
# (c) Software Lab. Alexander Burger
(allowed ("app/")
"!work" "!stop" "@lib.css" "!psh" )
(scl 2)
(load
"@lib/http.l" "@lib/xhtml.l" "@lib/form.l" "@lib/svg.l"
"@lib/adm.l" "@lib/boss.l" )
(setq
*Css "@lib.css"
*Pool "db/app/"
*Blob "db/app/blob/"
*Salt (16 . "$6$@1$") )
(load "app/er.l" "app/lib.l" "app/gui.l")
(permission
Customer ,"Customer"
Item ,"Item"
Order ,"Order"
Report ,"Report"
RoleAdmin ,"Role Administration"
UserAdmin ,"User Administration"
Password ,"Password"
Delete ,"Delete" )
(de *Locales
("English" NIL)
("English (US)" "US")
("English (UK)" "UK")
("Español (AR)" "AR" . "ar")
("Español (ES)" "ES" . "es")
("Deutsch (DE)" "DE" . "de")
("Deutsch (CH)" "CH" . "ch")
("Norsk" "NO" . "no")
("Русский" "RU" . "ru")
("Svenska" "SE" . "se")
("日本語" "JP" . "jp") )
# Entry point
(de main ()
(call 'mkdir "-p" "db/app/" *Blob)
(pool *Pool *Dbs)
(unless (seq *DB)
(load "app/init.l") ) )
(de go (Rpc)
(when Rpc
(task (port @) # Set up query server in the background
(let? Sock (accept @)
(unless (fork) # Child process
(in Sock
(while (rd)
(sync)
(tell)
(out Sock
(pr (eval @)) ) ) )
(bye) )
(close Sock) ) )
(forked) )
(rollback)
(retire 20)
(server (or (format (sys "PORT")) 8080) "!work") )
# vi:et:ts=3:sw=3
|