#! /usr/local/bin/clisp -C
;;; -*- Mode: Lisp -*-
;;;
;;; $Header: /home/gene/library/website/docsrc/lht/RCS/ex2.sh,v 395.1 2008/04/20 17:25:47 gene Exp $
;;;
;;; Copyright (C) 2004  Gene Michael Stover.  All rights reserved.
;;; 
;;; This library is free software; you can redistribute it
;;; and/or modify it under the terms of version 2.1 of the GNU
;;; Lesser General Public License as published by the Free
;;; Software Foundation.
;;; 
;;; This library is distributed in the hope that it will be
;;; useful, but WITHOUT ANY WARRANTY; without even the implied
;;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;; PURPOSE.  See the GNU Lesser General Public License for more
;;; details.
;;; 
;;; You should have received a copy of the GNU Lesser General
;;; Public License along with this library; if not, write to the
;;; Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;; Boston, MA 02111-1307 USA
;;;

(setq *random-state* (make-random-state t))

(load "lht.lisp")
(format t "Content-type: text/html~%~%")

(defvar *month* (list 'jan 'feb 'mar 'apr 'may 'jun
		      'jul 'aug 'sep 'oct 'nov 'dec))

(defun yyyymmdd-hhmmss ()
  (multiple-value-bind
   (ss mm hh dd mo yy dow dst zone) (get-decoded-time)
   (declare (ignore dow dst))
   (format nil "~4,'0D-~A-~2,'0D T ~2,'0D:~2,'0D:~2,'0D Zone ~@D"
	   yy (elt *month* mo) dd hh mm ss zone)))

(load-template "ex2.tmpl")

;;; --- end of file ---