ADDED: swish_logged_in/3

swi-to-yap · Jun 24, 2016 · 37d8c91 · 37d8c91
1 parent 226d24f
commit 37d8c91
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/authenticate.pl b/lib/authenticate.pl
@@ -31,6 +31,7 @@
 	  [ swish_add_user/3,		% +User, +Passwd, +Fields
 	    swish_add_user/1,		% +Dict
 	    swish_add_user/0,
+	    swish_logged_in/3,		% +Request, -User, -Data
 	    swish_current_user/2	% ?User, ?Data
 	  ]).
 :- use_module(library(pengines), []).
@@ -198,6 +199,15 @@
 	password_file(File),
 	http_current_user(File, User, [_Hash,Group,RealName,Email]).
 
+%%	swish_logged_in(+Request, -User, -UserData) is det.
+%
+%	True when Request is associated with User.
+
+swish_logged_in(Request, User, UserData) :-
+	logged_in(Request, User),
+	swish_current_user(User, UserData).
+
+
 %%	swish_add_user(+User, +Passwd, +Fields) is det.
 %
 %	Add a new user to the SWISH   password  file. Defined Fields are