factor/extra/http/server/auth/auth.factor

10 lines
266 B
Factor
Raw Normal View History

2008-03-11 04:39:09 -04:00
! Copyright (c) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
2008-03-11 17:03:22 -04:00
USING: http.server.sessions accessors
http.server.auth.providers ;
2008-03-11 04:39:09 -04:00
IN: http.server.auth
SYMBOL: logged-in-user
: uid ( -- string ) logged-in-user sget username>> ;