@@ -29,24 +29,26 @@ else if ($exist:resource = "login") then
2929 let $user := request:get-attribute ($config:login-domain || ".user" )
3030 return
3131 if ($user and sm:list-users () = $user) then
32- <response status = "success" xmlns = "http://www.w3.org/1999/xhtml" message = "success" >
32+ <response>
3333 <user>{$user}</user>
34+ <logged>{$loggedIn}</logged>
3435 </response>
3536 else if ($userParam and sm:list-users () = $userParam) then
36- <response status = "success" xmlns = "http://www.w3.org/1999/xhtml" message = "success" >
37+ <response>
3738 <user>{$user}</user>
39+ <logged>{$loggedIn}</logged>
3840 </response>
3941 else if ($logout = 'true' ) then
40- <response status = "success" xmlns = "http://www.w3.org/1999/xhtml" message = "success" >
42+ <response>
4143 <success>You have been logged out.</success>
4244 </response>
4345 else (
44- <response status = "fail" xmlns = "http://www.w3.org/1999/xhtml" message = "Username already exists" >
45- <fail>Wrong user or password user: {$user}</fail>
46+ <response>
47+ <fail>Wrong user or password user: {$user} userParam: {$userParam} </fail>
4648 </response>
4749 )
4850 } catch * {
49- <response status = "fail" xmlns = "http://www.w3.org/1999/xhtml" message = " {$err:description} " >
51+ <response>
5052 <fail>{$err:description}</fail>
5153 </response>
5254 })
@@ -57,7 +59,7 @@ else if ($exist:resource = "userInfo") then
5759 ((:util:declare-option("exist:serialize", "method=json media-type=application/json"),:)
5860 let $currentUser :=
5961 if (request:get-attribute ($config:login-domain || ".user" )) then request:get-attribute ($config:login-domain || ".user" )
60- else sm:id ()/sm:id/sm:real/sm:username/string (.)
62+ else (: xmldb:get-current-user():) sm:id ()/sm:id/sm:real/sm:username/string (.)
6163 let $group :=
6264 if ($currentUser) then
6365 sm:get-user-groups ($currentUser)
@@ -73,32 +75,7 @@ else if ($exist:resource = "userInfo") then
7375 </message>
7476 </response>)
7577 )
76- (: Restrict forms to logged in users :)
77- else if (ends-with ($exist:path, "forms.xq" )) then (
78- login:set-user ($config:login-domain, (), true ()),
79- let $user := request:get-attribute ($config:login-domain || ".user" )
80- let $userParam := request:get-parameter ("user" ,"" )
81- let $logout := request:get-parameter ("logout" ,())
82- return
83- if ($logout = "true" ) then (
84- <dispatch xmlns = "http://exist.sourceforge.net/NS/exist" >
85- <redirect url = "index.html" />
86- </dispatch>
87- )
88- else if ($user and sm:list-users () = $user) then
89- <dispatch xmlns = "http://exist.sourceforge.net/NS/exist" >
90- <cache-control cache = "no" />
91- </dispatch>
92- else if (not (string ($userParam) eq string ($user))) then
93- <dispatch xmlns = "http://exist.sourceforge.net/NS/exist" >
94- <redirect url = "index.html" />
95- </dispatch>
96- else
97- <dispatch xmlns = "http://exist.sourceforge.net/NS/exist" >
98- <forward url = "login.html" />
99- </dispatch>
100- )
101-
78+
10279else if ($exist:path eq "/" ) then
10380 (: forward root path to index.xql :)
10481 <dispatch xmlns = "http://exist.sourceforge.net/NS/exist" >
0 commit comments