X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=web-utils.lisp;h=f777f218b0dbf998cecd2f1db9153c4b35e9a065;hb=65fa5f1c69413c92a654784135d59ebdbf89966d;hp=22013e47a6933fbe0db039c3d970f4a2b3ace4e0;hpb=3f50791d43f83b9141e4022ce1fd2460edf62436;p=kmrcl.git diff --git a/web-utils.lisp b/web-utils.lisp index 22013e4..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.6 2002/10/16 22:56:08 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 ;;;; @@ -22,15 +22,23 @@ ;;; HTML/XML constants -(defvar *std-xml-header* +(defvar *standard-xml-header* #.(format nil "~%~%~%")) -(defvar *std-html-header* "") +(defvar *standard-html-header* "") -(defvar *std-xhtml-header* +(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* "")