password-email ( user -- email )


Vocabulary
furnace.auth.features.recover-password

Inputs
useran object


Outputs
emailan object


Definition


: password-email ( user -- email )
<email>
[ "[ " % current-host % " ] password recovery" % ] "" make
>>subject lost-password-from get >>from
over email>> 1array >>to [
"This e-mail was sent by the application server on " %
current-host % "\n" %
"because somebody, maybe you, clicked on a “recover password” ..."
%
"login form, and requested a new password for the user named ``"
% over username>> % "''.\n" % "\n" %
"If you believe that this request was legitimate, you may clic..."
%
"your browser to set a new password for your account:\n"
% "\n" % swap new-password-url present % "\n\n" %
"Love,\n" % "\n" % " FactorBot\n" %
] "" make >>body ;