;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: uri.lisp,v 1.7 2003/08/09 21:42:24 kevin Exp $
+;;;; $Id: uri.lisp,v 1.8 2003/08/10 05:16:52 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(in-package #:wol)
(defun req-recode-uri-sans-session-id (req)
- (setq cl-user::r req)
(let ((ppath (puri:uri-parsed-path (request-uri req))))
(when (is-raw-session-id (second ppath))
(let ((new-path (list* (car ppath) (cddr ppath))))
when (eq :cookie (car h))
collect (cdr h))))
+(defun header-lines-matching (key headers)
+ (loop for hdr in headers
+ when (eq key (car hdr))
+ collect (cdr hdr)))
+
+(defun set-cookies-in-headers (headers)
+ (header-lines-matching :set-cookie headers))
+
+(defun cookies-in-headers (headers)
+ (header-lines-matching :cookie headers))
+
(defun cookie-session-key (ent cookies)
+ "Return the session key from the alist of cookies"
(let ((name (project-name (entity-project ent))))
(cdr (assoc name cookies :test #'string-equal))))