/usr/share/yaws-mail/reply.yaws is in yaws-mail 1.98-2.
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 25 26 27 28 29 30 31 | <erl>
out(A) ->
case mail:check_session(A) of
{ok, Session} ->
L = yaws_api:parse_post(A),
Cmd = mail:get_val("cmd", L, reply),
case Cmd of
"reply" ->
From = yaws_api:url_decode(mail:get_val("from", L, "")),
Subject = yaws_api:url_decode(mail:get_val("subject", L, "")),
To = yaws_api:url_decode(mail:get_val("to", L, "")),
Cc = yaws_api:url_decode(mail:get_val("cc", L, "")),
Bcc = yaws_api:url_decode(mail:get_val("bcc", L, "")),
Quote = yaws_api:url_decode(mail:get_val("quote", L, "")),
NewCc =
if To == [] -> Cc;
Cc == [] -> To;
true -> To ++ ", " ++ Cc
end,
mail:compose(Session,"",From,NewCc,Bcc,"RE: "++Subject,
Quote);
"delete" ->
Nr = mail:get_val("nr", L, ""),
mail:delete(Session, [Nr])
end;
Error ->
Error
end.
</erl>
|