28 lines
579 B
Plaintext
28 lines
579 B
Plaintext
|
|
||
|
(allowed ()
|
||
|
"!work" "@lib.css" )
|
||
|
|
||
|
(load "@lib/http.l" "@lib/xhtml.l" "@lib/form.l")
|
||
|
|
||
|
(class +User +Entity)
|
||
|
(rel username (+Need +Sn +Idx +String))
|
||
|
(rel password (+String))
|
||
|
(rel px (+Number))
|
||
|
(rel py (+Number))
|
||
|
(rel appearance (+String))
|
||
|
(rel login (+Date))
|
||
|
(rel created (+Date))
|
||
|
|
||
|
(de work ()
|
||
|
(app)
|
||
|
(action
|
||
|
(html 0 "MMO Project" "@lib.css" NIL
|
||
|
(<h1> NIL "hello world!") ) ) )
|
||
|
|
||
|
(de main ()
|
||
|
(locale "US")
|
||
|
(pool "users.db") )
|
||
|
|
||
|
(de go ()
|
||
|
(server 8080 "!work") )
|