X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=blobdiff_plain;f=src%2FFROGS%2FDataBase.pm;h=81fe1660109861ff67e8f8291f0a02c6fd1cbd1b;hp=a99df02a92e6cbaff6bd424870eec12749e7b329;hb=2e6d04d5a87fe2042cf0c7f11711105908c3f7d9;hpb=73e30475befe4d8d5e99d005051f60fc5730bd1a diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm index a99df02..81fe166 100644 --- 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 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);