Q = require 'q'
Http = require 'q-io/http'
Apps = require 'q-io/http-apps'
bunyan = require 'bunyan'

log = bunyan.createLogger {
  name: 'asa-test-server'
  level: 'debug'
}

route = Apps.Branch {
  'ok': (rq,rs) => {
    status: 200
    headers: {}
    data:
      result: 'ok'
      request:
        path: rq.path
        pathInfo: rq.pathInfo
      response: rs
  }
  'post': Apps.Method {
    'POST': Apps.JsonRequest((o, rq, rs) => {
      status: 200
      headers: {}
      data:
        data: o
        request:
          path: rq.path
          pathInfo: rq.pathInfo
        response: rs
    })
  }, Apps.methodNotAllowed

  'login': Apps.Method {
    'POST': Apps.JsonRequest((o, rq, rs) =>
      log.info("Login", o)
      {
        status: 200
        headers: {}
        data:
          configId: 'cfg1'
          sessionId: 'sess1'
      })
  }
}

app = Apps.Chain()
  .use(() => Apps.Log(Apps.HandleJsonResponses(route, null, "  "),
    (m) => log.info("Access: " + m)))
  .end()

Http.Server(app).listen(3000)

# vim: et ts=2 sw=2