/counter_test.io
http://github.com/pgregory/blackpool · Unknown · 26 lines · 21 code · 5 blank · 0 comment · 0 complexity · 06e7cfb6d3faa616e16e2f008cf15d5b MD5 · raw file
- Importer addSearchPath(Directory currentWorkingDirectory asMutable appendPathSeq("lib"))
- Importer addSearchPath(Directory currentWorkingDirectory asMutable appendPathSeq("app/models"))
- Importer addSearchPath(Directory currentWorkingDirectory asMutable appendPathSeq("app/components"))
- server := HttpServer clone do(
- setPort(8090)
- sessions := Registry clone
- renderResponse := method(request, response,
- session := nil
- cookie := request cookies at("ioweb")
- if (cookie != nil, session = sessions find(cookie))
- if (session == nil,
- session = Session clone do(
- root ::= MyCounter clone
- writeln("Cloned!")
- )
- response setCookie("ioweb", sessions register(session))
- )
- session handle(request, response)
- )
- )
- server start