Force true email by sending password
1.1b
only for YaBB 1 FINAL - ENGLISH version!!!
This mod forces users to enter their true email by sending them a generated password when register.
version 1.1b:
- removed empty field
version 1.1a:
- empty field bug fixed
version 1.1:
- admin can enable/disable this feature
Based on Warortle's Blocking mod.
[CV]XXL
http://xxl.cstrike.de
Sources\Register.pl
$txt{'98'}:
$txt{'81'}:
$txt{'82'}:
EOT
if ($enable_send_pwd_by_mail == 1) {
print <<"EOT";
$txt{'98'}:
EOT
} else {
print <<"EOT";
$txt{'98'}:
$txt{'81'}:
$txt{'82'}:
EOT
}
print <<"EOT";
&fatal_error("$txt{'241'}") if($FORM{'passwrd1'} !~ /^[\s0-9A-Za-z!@#$%\^&*\(\)_\+|`~\-=\\:;'",\.\/?\[\]\{\}]+$/);
if ($enable_send_pwd_by_mail ne 1) {
&fatal_error("$txt{'241'}") if($FORM{'passwrd1'} !~ /^[\s0-9A-Za-z!@#$%\^&*\(\)_\+|`~\-=\\:;'",\.\/?\[\]\{\}]+$/);
}
$FORM{'passwrd1'} =~ s/[\n\r]//g;
if ($enable_send_pwd_by_mail ne 1) {
$FORM{'passwrd1'} =~ s/[\n\r]//g;
}
&fatal_error("$txt{'90'}") if($FORM{'passwrd1'} ne "$FORM{'passwrd2'}");
&fatal_error("$txt{'91'}") if($FORM{'passwrd1'} eq "");
if ($enable_send_pwd_by_mail ne 1) {
&fatal_error("$txt{'90'}") if($FORM{'passwrd1'} ne "$FORM{'passwrd2'}");
&fatal_error("$txt{'91'}") if($FORM{'passwrd1'} eq "");
}
&fatal_error("($FORM{'username'}) $txt{'213'}") if($FORM{'passwrd1'} ne "$FORM{'passwrd2'}");
&fatal_error("($FORM{'username'}) $txt{'91'}") if($FORM{'passwrd1'} eq "");
if ($enable_send_pwd_by_mail ne 1) {
&fatal_error("($FORM{'username'}) $txt{'213'}") if($FORM{'passwrd1'} ne "$FORM{'passwrd2'}");
&fatal_error("($FORM{'username'}) $txt{'91'}") if($FORM{'passwrd1'} eq "");
}
print FILE "$FORM{'passwrd1'}\n";
if ($enable_send_pwd_by_mail == 1) {
$dig1 = int(rand(9)); $dig2 = int(rand(9)); $dig3 = int(rand(9)); $dig4 = int(rand(9)); $dig5 = int(rand(9)); $dig6 = int(rand(9));
$pass = "$dig1$dig2$dig3$dig4$dig5$dig6";
print FILE "$pass\n";
} else {
print FILE "$FORM{'passwrd1'}\n";
}
$title="$txt{'245'}";
&header;
print <<"EOT";
$txt{'97'}
EOT
&footer;
if ($enable_send_pwd_by_mail == 1) {
$subject = "Your Password...";
open (MAIL, "|$mailprog -t");
print MAIL "To: $FORM{'email'}\n";
print MAIL "From: $webmaster_email\n";
print MAIL "Subject: $subject\n";
print MAIL "
Welcome, $FORM{'name'}
Your username is: $FORM{'username'}
Your password is: $pass
You may change it after you log in by going to the
profile page or by going here after you log in:
$cgi\?board=&action=profile&username=$FORM{'username'}
";
close MAIL;
$yytitle="$txt{'245'}";
&header;
print <<"EOT";
EOT
&footer;
}
Settings.pl
1;
$enable_send_pwd_by_mail = 1; # automatically generate a password when register and sends it to the user. So the user will have to enter his true email adress. Set 0 to disable
Sources\Admin.pl
$force_true_mail{'2'}:
1;
~;
\$enable_send_pwd_by_mail = $FORM{'enable_send_pwd_by_mail'}; # automatically generate a password when register and sends it to the user. So the user will have to enter his true email adress. Set 0 to disable
english.lng
1;
$force_true_mail{'1'} = "Thank you for registration. You'll receive an email with your password. You may change it after login.";
$force_true_mail{'2'} = "Automatically generate a password when register and sends it to the user. So the user will have to enter his true email adress. Set 0 to disable";