text of registration email changed with new mailman-link.

[aymargeddon/current.git] / src / FROGS / DataBase.pm

diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm
index a99df02..81fe166 100644 (file)
--- a/src/FROGS/DataBase.pm
+++ b/src/FROGS/DataBase.pm
@@ -402,6 +402,11 @@ sub new_account{
            . $self->loc('REGISTER_MAIL_TEXT', $name, $login, $pwd)."\n";
 
   # print $mail;
+# aus man mail:
+#           env MAILRC=/dev/null from=scriptreply@domain smtp=host \
+#                smtp-auth-user=login smtp-auth-password=secret \
+#               smtp-auth=login mailx -n -s "subject" \
+#              -a attachment_file recipient@domain <content_file
 
   open(SENDMAIL, "|mail $email") or Util::log("Can't fork for sendmail: $!",0);
   print SENDMAIL $mail;
@@ -420,7 +425,7 @@ sub authenticate{
   ($user,$pwd,$adminpwd) = $self->quote_all($user,$pwd,$adminpwd);
 
 
-  Util::log("Adminpassword: $adminpwd, password: $pwd",2);
+  # Util::log("Adminpassword: $adminpwd, password: $pwd",2);
 
   my ($player, $sec);
   if($adminpwd eq $pwd){
@@ -538,6 +543,8 @@ sub open_games{
     $c .= " AND $cond" if $cond;
       Util::log($c."\n",1);
     my $unused = $self->select_array('MAP','LOCATION','',$c);
+    
+    print $unused;
 
       Util::log(Dumper(@$unused),1);