From 65fa5f1c69413c92a654784135d59ebdbf89966d Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 17 Oct 2002 22:26:34 +0000 Subject: [PATCH] r3088: *** empty log message *** --- debian/changelog | 8 ++++++++ package.lisp | 7 ++++--- web-utils.lisp | 12 ++++++++++-- 3 files changed, 22 insertions(+), 5 deletions(-) diff --git a/debian/changelog b/debian/changelog index 7aee101..c964fab 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,11 @@ +cl-kmrcl (1.14-1) unstable; urgency=low + + * ml-class.lisp: Add XHTML format + * web-utils.lisp: Add standard headers for xml, html, xhtml, + added user-agent-ie-p + + -- Kevin M. Rosenberg Thu, 17 Oct 2002 16:25:31 -0600 + cl-kmrcl (1.13-1) unstable; urgency=low * ml-class.lisp: Add ie-xmlrefformat for Internet Explorer's idea of diff --git a/package.lisp b/package.lisp index 895c1fe..6fed468 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.8 2002/10/16 23:34:33 kevin Exp $ +;;;; $Id: package.lisp,v 1.9 2002/10/17 22:25:38 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -129,8 +129,9 @@ #:*standard-xhtml-header* #:*standard-xml-header* #:xml-cdata - - ;; From web-utils-allegro + #:user-agent-ie-p + + ;; From web-utils-aserve #:cgi-var #:print-http #:princ-http diff --git a/web-utils.lisp b/web-utils.lisp index 4fe21b9..f777f21 100644 --- a/web-utils.lisp +++ b/web-utils.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: web-utils.lisp,v 1.7 2002/10/16 23:34:33 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.8 2002/10/17 22:25:38 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -30,7 +30,15 @@ (defvar *standard-xhtml-header* #.(format nil "~%")) - + +;;; User agent functions + +(defun user-agent-ie-p (agent) + "Takes a user-agent string and returns T for Internet Explorer." + (when (or (string-equal "Microsoft" (subseq agent 0 (length "Microsoft"))) + (string-equal "Internet Explore" (subseq agent 0 (length "Internet Explore")))) + t)) + ;;; URL Functions (defvar *base-url* "") -- 2.34.1