orders-scaffolding.lisp

(in-package #:ucw)

(defun make-orders-backend ()
  (make-backend :httpd :host "localhost" :port 8080))

(defclass orders-server (standard-server)
  ())

(defun make-orders-server ()
  (make-instance 'orders-server :backend (make-orders-backend)))

(defvar *orders-ucw-server* (make-orders-server))

(defclass orders-application (basic-application)
  ()
  (:default-initargs :url-prefix "/orders/"))

(defparameter *orders-ucw-application*
  (make-instance 'orders-application))

(register-application *orders-ucw-server* *orders-ucw-application*)