;;; -*- mode: Lisp; Syntax: Common-Lisp; -*- ;;; ;;; Copyright (c) 2009 by the authors. ;;; ;;; See LICENCE for details. (in-package :hu.dwim.web-server) ;;;;;; ;;; Util (def localization de (sequence.empty "leer") (sequence.element "Element")) ;;;;;; ;;; Mime type (def localization de (mime-type.application/msword "Microsoft Word Dokument") (mime-type.application/vnd.ms-excel "Microsoft Excel Dokument") (mime-type.application/pdf "PDF Dokument") (mime-type.image/png "PNG Bild") (mime-type.image/tiff "TIFF Bild")) ;;;;;; ;;; Error handling (def localization de (error.internal-server-error "Interner Serverfehler") (error.access-denied-error "Zugriff verweigert") (render-error-page/internal-error (&key administrator-email-address &allow-other-keys)
,(when administrator-email-address
>)
>>) (render-error-page/access-denied (&key &allow-other-keys)
>>))