From 4ee43fcd2fbe7c33bfe7fa4f32a1eee7b6d46357 Mon Sep 17 00:00:00 2001 From: Aymargeddon Team Date: Sun, 23 Sep 2012 10:01:41 +0200 Subject: [PATCH] use Mail::Mailer instead of mail for sending restriation email. --- src/FROGS/DataBase.pm | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm index e41893b..7bc8de1 100644 --- a/src/FROGS/DataBase.pm +++ b/src/FROGS/DataBase.pm @@ -397,16 +397,28 @@ sub new_account{ }); $self->commit(); - my $mail = "From: registration\@aymargeddon.de\nTo: $name <$email>\n" - . "Subject: ".$self->loc('REGISTER_MAIL_SUBJECT')."\n\n" - . $self->loc('REGISTER_MAIL_TEXT', $name, $login, $pwd)."\n"; + # my $mail = "From: registration\@aymargeddon.de\nTo: $name <$email>\n" + # . "Subject: ".$self->loc('REGISTER_MAIL_SUBJECT')."\n\n" + # . $self->loc('REGISTER_MAIL_TEXT', $name, $login, $pwd)."\n"; # print $mail; - open(SENDMAIL, "|mail $email") or Util::log("Can't fork for sendmail: $!",0); - print SENDMAIL $mail; - close(SENDMAIL) or Util::log("sendmail didn't close nicely",0); + # open(SENDMAIL, "|mail $email") or Util::log("Can't fork for sendmail: $!",0); + # print SENDMAIL $mail; + # close(SENDMAIL) or Util::log("sendmail didn't close nicely",0); + use Mail::Mailer; + + my $mailer = Mail::Mailer->new(); + + $mailer->open({ From => 'benni@aymargeddon.de', + To => "$name <$email>", + Subject => $self->loc('REGISTER_MAIL_SUBJECT'), + }) + or Util::log("can't send registration mail to $email: $!\n"); + print $mailer $self->loc('REGISTER_MAIL_TEXT', $name, $login, $pwd); + $mailer->close(); + return $pwd; } -- 2.1.4