;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: src/main.lisp $

(in-package :claw-site)


(defvar *main-file* (load-time-value
                     (or #.*compile-file-pathname* *load-pathname*)))

(defvar *claw-site-lisplet*
  (make-instance 'lisplet :realm 'claw-site
                 :redirect-protected-resources-p t
                 :base-path ""))

(defvar *ht-connector* 
  (make-instance 'hunchentoot-connector
                 :address "localhost"
                 :port 4242
                 :sslport nil;4343
                 #|
                 :ssl-certificate-file #P "/etc/apache2/ssl/server.crt"
                 :ssl-privatekey-file #P "/etc/apache2/ssl/server.key"
                 |#))

(defvar *sm* (make-instance 'default-session-manager))

(defvar *ht-log-manager* (make-instance 'hunchentoot-logger))

(defvar *claw-site-server* 
  (make-instance 'claw-server
                 :connector *ht-connector*
                 :log-manager *ht-log-manager*
                 :session-manager *sm*
                 :base-path ""
                 :reverse-proxy-path ""))

(claw-server-register-lisplet *claw-site-server* *claw-site-lisplet*)


(defclass site-principal (principal)
  ((firstname :initarg :firstname
              :accessor demo-principal-firstname)
   (surname :initarg :surname
            :accessor demo-principal-surname))
  (:default-initargs :firstname "" :surname ""))

(defclass site-configuration (configuration)
  ()
  (:documentation "Authorization configuration for application
atuhentication and authorization management."))

;;TODO
(defmethod configuration-login ((configuration site-configuration)))

(claw-server-register-configuration *claw-site-server* 
                                    'claw-site (make-instance 'site-configuration))

(let ((path (make-pathname :directory (append (pathname-directory *main-file*) '("docroot"))))
      (*claw-server* *claw-site-server*))
  (log-message :info "Registering resource ~a" path)
  (lisplet-register-resource-location *claw-site-lisplet*
                                      path
                                      "docroot/"))

(defun site-start ()
  (claw-server-start *claw-site-server*))

(defun site-stop ()
  (claw-server-stop *claw-site-server*))