X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=blobdiff_plain;f=src%2FFROGS%2FDataBase.pm;fp=src%2FFROGS%2FDataBase.pm;h=7bc8de11d202da1bbe39814b6c2177290aee97e3;hp=e41893bd4541e12160650a2c9c8a09469e9621a9;hb=4ee43fcd2fbe7c33bfe7fa4f32a1eee7b6d46357;hpb=2f3eb0acd32f10bf160a94de786ce64b49c16f50

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