projects
/
aymargeddon
/
current.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
32342dd
..
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;
. $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;
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);
($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){
my ($player, $sec);
if($adminpwd eq $pwd){