;;;===========================================================================
;;;
;;; errors.lisp
;;;
;;; Eduardo Muņoz
;;; Time-stamp: "Sunday, 26 September 2004 - 12:32:24"
;;;
;;;===========================================================================
;;;
;;; Error pages for static and dynamic pages.
;;; The following code is in the public domain.
;;;
;;;===========================================================================

(in-package :weblisp)

(use-package '(:htout))

(defvar *http-errors*
  '(
    ;; Informational 1xx
    (100 "Continue")
    (101 "Switching Protocols")

    ;; Successful 2xx
    (200 "OK")
    (201 "Created")
    (202 "Accepted")
    (203 "Non-Authoritative Information")
    (204 "No Content")
    (205 "Reset Content")
    (206 "Partial Content")

    ;; Redirection 3xx
    (300 "Multiple Choices")
    (301 "Moved Permanently")
    (302 "Found")
    (303 "See Other")
    (304 "Not Modified")
    (305 "Use Proxy")
    ;; (306 "(Unused)")
    (307 "Temporary Redirect")

    ;; Client Error 4xx
    (400 "Bad Request")
    (401 "Unauthorized")
    (402 "Payment Required")
    (403 "Forbidden")
    (404 "Not Found")
    (405 "Method Not Allowed")
    (406 "Not Acceptable")
    (407 "Proxy Authentication Required")
    (408 "Request Timeout")
    (409 "Conflict")
    (410 "Gone")
    (411 "Length Required")
    (412 "Precondition Failed")
    (413 "Request Entity Too Large")
    (414 "Request-URI Too Long")
    (415 "Unsupported Media Type")
    (416 "Requested Range Not Satisfiable")
    (417 "Expectation Failed")

    ;; Server Error 5xx
    (500 "Internal Server Error")
    (501 "Not Implemented")
    (502 "Bad Gateway")
    (503 "Service Unavailable")
    (504 "Gateway Timeout")
    (505 "HTTP Version Not Supported")))

(defun get-http-error (error-code)
  (let* ((error-list (or (assoc error-code *http-errors*)
                         (assoc 500 *http-errors*)))
         (code (nth 0 error-list))
         (type (nth 1 error-list)))
    (standard-page type
      (if (< code 400)
          (htm (:h1 ((:font :color "blue")
                     (fmt "Status ~D: ~A" code type))))
          (htm (:h1 ((:font :color "red")
                     (fmt "Error ~D: ~A" code type)))))
       
      :br
      (:p "Information about "
          (lnk "http status codes"
               "http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html")
          ".")
      (:p (lnk "This site" "/")" generates " (lnk "error pages" "/lisp/errors")
          " using " (lnk "lisp" "/lisp") "."))))

;;; Static error pages generation
(dolist (item *http-errors*)
  (let ((code (car item)))
    (format t "~%Generating page for error ~D." code)
    (with-static-page ((format nil "/errors/~D.html" code)
                       :public t)
      (get-http-error code))))