/usr/share/yaws-mail/www/login.yaws is in yaws-mail 2.0.2-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 | <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,
User = mail:getopt("user", L, ""),
Passwd = mail:getopt("password", L, ""),
case mail:login(User, Passwd) of
{ok, Cookie} ->
[yaws_api:setcookie("mailsession", Cookie),
{redirect_local, {rel_path,"mail.yaws"}}];
{error, Reason} ->
mail:display_login(A, Reason)
end.
</erl>
|