@@ -29,24 +29,26 @@ else if ($exist:resource = "login") then
29
29
let $user := request:get-attribute ($config:login-domain || ".user" )
30
30
return
31
31
if ($user and sm:list-users () = $user) then
32
- <response status = "success" xmlns = "http://www.w3.org/1999/xhtml" message = "success" >
32
+ <response>
33
33
<user>{$user}</user>
34
+ <logged>{$loggedIn}</logged>
34
35
</response>
35
36
else if ($userParam and sm:list-users () = $userParam) then
36
- <response status = "success" xmlns = "http://www.w3.org/1999/xhtml" message = "success" >
37
+ <response>
37
38
<user>{$user}</user>
39
+ <logged>{$loggedIn}</logged>
38
40
</response>
39
41
else if ($logout = 'true' ) then
40
- <response status = "success" xmlns = "http://www.w3.org/1999/xhtml" message = "success" >
42
+ <response>
41
43
<success>You have been logged out.</success>
42
44
</response>
43
45
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>
46
48
</response>
47
49
)
48
50
} catch * {
49
- <response status = "fail" xmlns = "http://www.w3.org/1999/xhtml" message = " {$err:description} " >
51
+ <response>
50
52
<fail>{$err:description}</fail>
51
53
</response>
52
54
})
@@ -57,7 +59,7 @@ else if ($exist:resource = "userInfo") then
57
59
((:util:declare-option("exist:serialize", "method=json media-type=application/json"),:)
58
60
let $currentUser :=
59
61
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 (.)
61
63
let $group :=
62
64
if ($currentUser) then
63
65
sm:get-user-groups ($currentUser)
@@ -73,32 +75,7 @@ else if ($exist:resource = "userInfo") then
73
75
</message>
74
76
</response>)
75
77
)
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
+
102
79
else if ($exist:path eq "/" ) then
103
80
(: forward root path to index.xql :)
104
81
<dispatch xmlns = "http://exist.sourceforge.net/NS/exist" >
0 commit comments