X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=web-utils.lisp;fp=web-utils.lisp;h=f777f218b0dbf998cecd2f1db9153c4b35e9a065;hp=4fe21b9ab7e99a5c7800e2e7b872c5ff15e0a0df;hb=65fa5f1c69413c92a654784135d59ebdbf89966d;hpb=8127923e06a01790d883aefd282db6c0419c484a 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* "")