/counter_test.io

http://github.com/pgregory/blackpool · Unknown · 26 lines · 21 code · 5 blank · 0 comment · 0 complexity · 06e7cfb6d3faa616e16e2f008cf15d5b MD5 · raw file

  1. Importer addSearchPath(Directory currentWorkingDirectory asMutable appendPathSeq("lib"))
  2. Importer addSearchPath(Directory currentWorkingDirectory asMutable appendPathSeq("app/models"))
  3. Importer addSearchPath(Directory currentWorkingDirectory asMutable appendPathSeq("app/components"))
  4. server := HttpServer clone do(
  5. setPort(8090)
  6. sessions := Registry clone
  7. renderResponse := method(request, response,
  8. session := nil
  9. cookie := request cookies at("ioweb")
  10. if (cookie != nil, session = sessions find(cookie))
  11. if (session == nil,
  12. session = Session clone do(
  13. root ::= MyCounter clone
  14. writeln("Cloned!")
  15. )
  16. response setCookie("ioweb", sessions register(session))
  17. )
  18. session handle(request, response)
  19. )
  20. )
  21. server start