Generate Password + 1.0 ONLY FOR Y1G BETA 5, ENGLISH VERSION! This mod completes force_true_email.mod by generate a new password when the user changes his email adress. [CV]XXL http://xxl.cstrike.de Sources\Profile.pl open(FILE, "$vardir/reserve.txt") || &fatal_error("$txt{'23'} reserve.txt"); if( $emailpassword && lc $member{'email'} ne lc $settings[2] && $settings[7] ne 'Administrator') { $member{'passwrd1'} = int( rand(100) ); $member{'passwrd1'} =~ tr/0123456789/ymifxupbck/; $_ = int( rand(77) ); $_ =~ tr/0123456789/q8dv7w4jm3/; $member{'passwrd1'} .= $_; $_ = int( rand(89) ); $_ =~ tr/0123456789/y6uivpkcxw/; $member{'passwrd1'} .= $_; $_ = int( rand(188) ); $_ =~ tr/0123456789/poiuytrewq/; $member{'passwrd1'} .= $_; $_ = int( rand(65) ); $_ =~ tr/0123456789/lkjhgfdaut/; $member{'passwrd1'} .= $_; } if ( $member{'username'} eq $username ) { $password = crypt("$FORM{'passwrd1'}",$pwseed); print qq~Set-Cookie: $cookieusername=$username;~; print qq~ expires=$Cookie_Exp_Date;\n~; print qq~Set-Cookie: $cookiepassword=$password;~; print qq~ expires=$Cookie_Exp_Date;\n~; &ViewProfile; } &ViewProfile; if( $emailpassword && lc $member{'email'} ne lc $settings[2] && $settings[7] ne 'Administrator' ) { require "$sourcedir/LogInOut.pl"; &Logout; $yytitle="$txt{'245'}"; &header; open (MAIL, "|$mailprog -t"); print MAIL <<"EOT"; To: $member{'email'} From: $webmaster_email Subject: $txt{'700'} $mbname $txt{'248'} $member{'username'} $txt{'491'} $member{'username'} $txt{'492'} $member{'passwrd1'} $txt{'701'} $scripturl?action=profile&username=$member{'username'} EOT close MAIL; print <<"EOT";

$txt{'97'}

$txt{'728'}

$txt{'35'}: $txt{'36'}:   $txt{'497'}: $txt{'508'}:

EOT &footer; exit; } else { if ( $member{'username'} eq $username ) { $password = crypt("$FORM{'passwrd1'}",$pwseed); print qq~Set-Cookie: $cookieusername=$username;~; print qq~ expires=$Cookie_Exp_Date;\n~; print qq~Set-Cookie: $cookiepassword=$password;~; print qq~ expires=$Cookie_Exp_Date;\n~; &ViewProfile; } &ViewProfile; } English.lng 1; $txt{'728'} = "You've changed your email adress. You will recieve a new password by mail.";