;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: dojo/tests/login.lisp $

;;; Copyright (c) 2008, Andrea Chiumenti.  All rights reserved.

;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:

;;;   * Redistributions of source code must retain the above copyright
;;;     notice, this list of conditions and the following disclaimer.

;;;   * Redistributions in binary form must reproduce the above
;;;     copyright notice, this list of conditions and the following
;;;     disclaimer in the documentation and/or other materials
;;;     provided with the distribution.

;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

(in-package :claw-demo-frontend)

(defgeneric login-page-do-login (login-page))

(defclass login-page (page) 
  ((username :initform ""
             :accessor login-page-username)
   (passwd :initform ""
           :accessor login-page-password)))

(defmethod page-content ((o login-page))
  (let ((login-result-id (generate-id "loginResult"))
        (spinner-id (generate-id "spinner"))
        (form-id (generate-id "login")))
    (site-template> :title "CLAW Demo login"
                    (djdialog> :id "loginDialog" 
                               :title "Login into system"
                               :class "unclosable"
                               :closable "false"
                               (djfloating-content> :static-id spinner-id
                                           (img> :alt "spinner"
                                                 :src "docroot/img/spinner.gif"))
                               (djform> :static-id form-id 
                                        :method "get"
                                        :class "loginForm"
                                        :action 'login-page-do-login
                                        :update-id login-result-id
                                        :on-before-submit (ps:ps* `(.show (dijit.by-id ,spinner-id)))
                                        :on-xhr-finish (ps:ps* `(.hide (dijit.by-id ,spinner-id)))
                                        (div> :class "row"
                                         (span> :class "dialogLabel"  "Username")
                                         (djvalidation-text-box> :id "username"
                                                      :label "Username"
                                                      :required "true"
                                                      :size 80
                                                      :accessor 'login-page-username))
                                        (div> :class "row"
                                         (span> :class "dialogLabel" "Password")
                                         (djvalidation-text-box> :id "password"
                                                      :label "Password"
                                                      :type "password"
                                                      :required "true"
                                                      :size 100
                                                      :accessor 'login-page-password))
                                        (div> :class "buttonContainer"
                                              (djsubmit-button> :value "Login")
                                              (exception-monitor> :id "exceptionMonitor" 
                                                                  :json-render-on-validation-errors-p form-id)))
                               (div> :static-id login-result-id
                                     (redirect> :render-condition #'current-principal 
                                                :id "redirect"
                                                :href (format nil "~a/index.html" *root-path*))))
                    (script> :render-condition #'(lambda () (null (current-principal))) 
                             (ps:ps* `(dojo.add-on-load (lambda () (.show (dijit.by-id "loginDialog")))))))))
 
(lisplet-register-function-location *dojo-demo-lisplet* 
                                    (make-page-renderer 'login-page #'claw-post-parameters #'claw-get-parameters) 
                                    "login.html" 
                                    :login-page-p t)

(defmethod login-page-do-login ((page login-page))
  (unless (login)
      (add-validation-error "login"
                            "Invalid user or password")))