Metacat

my $emailVerification= 'emailverification';

    my $link = $cgiUrl . 'cfg=' . $skinName . '&' . 'stage=' . $emailVerification . '&' . 'dn=' . $dn . '&' . 'hash=' . $randomStr;

    my $mailhost = $properties->getProperty('email.mailhost');

    my $sender =  $properties->getProperty('email.sender');

    my $recipient = $query->param('mail');

    # Send the email message to them

    my $smtp = Net::SMTP->new($mailhost);

    $smtp->mail($sender);

    $smtp->to($recipient);

    my $message = <<"     ENDOFMESSAGE";

    To: $recipient

    From: $sender

    Subject: KNB Password Reset

    Somebody (hopefully you) registered a KNB account.  

    Please click the following link to activate your account.

    If the link doesn't work, please copy the link to your browser:

    $link

    Thanks,

        The KNB Development Team

     ENDOFMESSAGE

     $message =~ s/^[ \t\r\f]+//gm;

     $smtp->data($message);

     $smtp->quit;

    fullTemplate( ['success'] );

                #fullTemplate( ['success'] );