projects / kmrcl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8127923)
r3088: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 17 Oct 2002 22:26:34 +0000 (22:26 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 17 Oct 2002 22:26:34 +0000 (22:26 +0000)
debian/changelog patch | blob | history
package.lisp patch | blob | history
web-utils.lisp patch | blob | history

diff --git a/debian/changelog b/debian/changelog
index 7aee101dfe6bd248a027f1bd096725343bb07f64..c964fabc4bb35a34e6d6c76f5858692397a07d8f 100644 (file)
--- 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 <kmr@debian.org>  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 895c1fe895b806f6203c429b2d4ac19c71ccda5f..6fed4684433a2558e83e3a641e60102c05b2764c 100644 (file)
--- 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 4fe21b9ab7e99a5c7800e2e7b872c5ff15e0a0df..f777f218b0dbf998cecd2f1db9153c4b35e9a065 100644 (file)
--- 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 "<?xml version=\"1.0\" standalone=\"yes\"?>~%<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3c.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"))
 
-  
+
+;;; 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* "")
Common library for KMR lisp projects