Remove obsolete file

db4
Slava Pestov 2008-03-06 03:02:01 -06:00
parent 955387f5b7
commit 3c5a959ff4
1 changed files with 0 additions and 25 deletions

View File

@ -1,25 +0,0 @@
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: http.server.auth
USING: new-slots accessors http.server.auth.providers.null
http.server.auth.strategies.null ;
TUPLE: authentication responder provider strategy ;
: <authentication> ( responder -- authentication )
null-auth-provider null-auth-strategy
authentication construct-boa ;
SYMBOL: current-user-id
SYMBOL: auth-provider
SYMBOL: auth-strategy
M: authentication call-responder ( request path responder -- response )
dup provider>> auth-provider set
dup strategy>> auth-strategy set
pick auth-provider get logged-in? dup current-user-id set
[
responder>> call-responder
] [
2drop auth-provider get require-login
] if* ;