From 65695a18d55ca49d6773d5d78cbd0525bed4d52d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 23 Nov 2004 18:19:24 +0000 Subject: [PATCH] Don't pass request object to authenticator. --- v7/src/ssp/mod-lisp.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm index 34b3fed2d..9649533e7 100644 --- a/v7/src/ssp/mod-lisp.scm +++ b/v7/src/ssp/mod-lisp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: mod-lisp.scm,v 1.18 2004/11/23 18:00:22 cph Exp $ +$Id: mod-lisp.scm,v 1.19 2004/11/23 18:19:24 cph Exp $ Copyright 2003,2004 Massachusetts Institute of Technology @@ -805,11 +805,11 @@ USA. (define (http-request-user-name) (if *current-authenticator* - (*current-authenticator* *current-request*) - (http-authenticator:basic *current-request*))) + (*current-authenticator*) + (http-authenticator:basic))) -(define (http-authenticator:basic message) - (let ((auth (http-message-header message 'authorization))) +(define (http-authenticator:basic) + (let ((auth (http-request-header 'authorization))) (and auth (cond ((string-prefix? "Basic " auth) (decode-basic-auth-header auth 6 (string-length auth))) -- 2.25.1