blurb.lisp

   1 ;;; PHOROS -- Photogrammetric Road Survey
   2 ;;; Copyright (C) 2011 Bert Burgemeister
   3 ;;;
   4 ;;; This program is free software; you can redistribute it and/or modify
   5 ;;; it under the terms of the GNU General Public License as published by
   6 ;;; the Free Software Foundation; either version 2 of the License, or
   7 ;;; (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ;;; GNU General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU General Public License along
  15 ;;; with this program; if not, write to the Free Software Foundation, Inc.,
  16 ;;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  17
  18 (in-package :phoros)
  19
  20 (define-easy-handler (blurb :uri "/phoros-lib/blurb") ()
  21   (when
  22       (session-value 'authenticated-p)
  23     (who:with-html-output-to-string (s nil :indent t)
  24       (:html
  25        :xmlns "http://www.w3.org/1999/xhtml"
  26        (:head
  27         (:title "Phoros")
  28         (:link :rel "stylesheet" :href "css/style.css" :type "text/css"))
  29        (:body
  30         (:h1 :id "title" "Phoros: A Tool for Photogrammetric Road Survey")
  31         (:button :type "button"
  32                  :onclick (ps-inline (chain self (close))) "close")
  33         (:p "This is "
  34             (:a :href "http://phoros.berlios.de"
  35                 (:img :src "/phoros-lib/public_html/phoros-logo-plain.png"
  36                       :height 30 :style "vertical-align:middle"
  37                       :alt "Phoros"))
  38             (who:fmt "Phoros version ~A," (phoros-version))
  39             " a means for photogrammetric road survey written by"
  40             (:a :href "mailto:Bert Burgemeister <trebbu@googlemail.com>"
  41                 "Bert Burgemeister."))
  42         (:p "Its photogrammetric workhorse is "
  43             (:a :href "mailto:Steffen.Scheller.home@gmail.com" "Steffen Scheller's")
  44             (who:fmt " library PhoML (version ~A)." (phoml:get-version-number)))
  45         (:a :style "float:left" :href "http://en.wikipedia.org/wiki/Common_Lisp"
  46             (:img :src "http://www.lisperati.com/lisplogo_128.png"
  47                   :alt "Common Lisp"))
  48         (:p (who:fmt
  49              "Phoros is implemented using Steel Bank Common Lisp (version ~A)"
  50              (lisp-implementation-version))
  51             ", an implementation of Common Lisp."
  52             (:a :href "http://www.sbcl.org"
  53                 (:img :src "http://www.sbcl.org/sbclbutton.png"
  54                       :height 30 :style "vertical-align:middle"
  55                       :alt "SBCL")))
  56         (:p "You are communicating with "
  57             (:a :href "http://weitz.de/hunchentoot"
  58                 (:img :src "http://www.htg1.de/hunchentoot/hunchentoot11.png"
  59                       :height 30 :style "vertical-align:middle"
  60                       :alt "Hunchentoot"))
  61             ", a Common Lisp web server.")
  62         (:p "Most of the client code running in your browser is or uses"
  63             (:a :href "http://openlayers.org"
  64                 (:img :src "http://www.openlayers.org/images/OpenLayers.trac.png"
  65                       :height 30 :style "vertical-align:middle"
  66                       :alt "OpenLayers"))
  67             "OpenLayers.")
  68         (:p "Phoros stores data in a"
  69             (:a :href "http://postgresql.org"
  70                 (:img :src "http://www.postgresql.org/files/community/propaganda/32x32_1.gif"
  71                       :height 30 :style "vertical-align:middle"
  72                       :alt "PostgreSQL"))
  73              "PostgreSQL database that is spatially enabled by "
  74             (:a :href "http://postgis.refractions.net"
  75                 (:img :src "http://postgis.refractions.net/download/logo_suite/stock_text/stock_text_180.gif"
  76                       :height 30 :style "vertical-align:middle"
  77                       :alt "PostGIS"))
  78             (who:fmt "version ~A"
  79                      (car (cl-utilities:split-sequence
  80                            #\Space
  81                            (with-connection *postgresql-credentials*
  82                              (query
  83                               (:select (:postgis_version))
  84                               :single)))))
  85             "."
  86             ))))))