Remove obsolete file
parent
955387f5b7
commit
3c5a959ff4
|
@ -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* ;
|
|
Loading…
Reference in New Issue