password-email ( user -- email )

Vocabulary

furnace.auth.features.recover-password

Inputs

user

an object

Outputs

email

an object

Definition

USING: accessors arrays kernel make namespaces present smtp ;

IN: furnace.auth.features.recover-password

: 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 ;