/usr/share/yaws-chat/login.yaws is in yaws-chat 1.92-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | <erl>
out(A) ->
L = case (A#arg.req)#http_request.method of
'GET' ->
yaws_api:parse_query(A);
'POST' ->
yaws_api:parse_post(A)
end,
case {lists:keysearch("user", 1, L),
lists:keysearch("password", 1, L)} of
{{value, {_, User}}, {value, {_,Passwd}}} ->
case chat:login(User, Passwd) of
{ok, Cookie} ->
[yaws_api:setcookie("sessionid", Cookie),
{redirect_local, {rel_path,"chat.yaws"}}];
{error, Reason} ->
chat:display_login(A, Reason)
end;
_ ->
chat:display_login(A, "badly formated POST/GET")
end.
</erl>
|