$seed=reverse(time);
$nu_pw=crypt($seed,"ce");
$nu_pw=~s!\W!!g;
$nu_pw=substr($nu_pw,2,8);
$NUPW=crypt($nu_pw,"ce");
open(TL,"$path_to_lang/$thislang/generate_password.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
open(USR,"$path_to_users");
while(<USR>){
    if(/^$param1=/){
        ($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$user_email,$super,$auths,$usrtype,$mode)=split(/=/);
		if($user_email eq ''){&no_email}
		$_=qq~$un=$NUPW=$user_root=$buttons=$imagesize=$usermb=$user_files=$user_email=$super=$auths=$usrtype=$mode~;
    }
	$SAVE.=$_;
}
open(USR,">$path_to_users");
print USR "$SAVE";
@user_email=split(/\|/,$user_email);
$user_email=$user_email[0];
$sm_message=qq~$Email_Message1 $param1 $Email_Message2
$Email_Message3 
$url_to_editor

$Email_Message4 => $nu_pw

$Email_Message5 "$param1" $Email_Message6
$Email_Message7
$Email_Message8
~;
	if($found_sendmail){
		open(MAIL,"|$found_sendmail -t");
		print MAIL "From: $host <$account_email>\n";
		print MAIL "To: $user_email\n";
		print MAIL "Subject: $Email_Subject\n\n";
		print MAIL qq~$sm_message~;
	}else{
		$sm_recipient=$user_email ,
		$sm_from=qq~$host<$account_email>~,
		$sm_subject=qq~$Email_Subject~,
		&sendemail;
	}
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$Email_Message9 $user_email.\\n\\n$Email_Message10.");parent.document.body.style.cursor='default';if(parent.document.getElementById("login_butt")){parent.document.getElementById("login_butt").disabled=false};parent.document.forms[0].emailme.checked=false</script>~;
exit;

sub find_mail{
eval "`which sendmail`";
if(!$@){ $found_sendmail = `which sendmail`; }
if(!$found_sendmail){
  $@ = undef;
  if(-e "/usr/sbin/sendmail"){ $found_sendmail="/usr/sbin/sendmail"; }
  elsif(-e "/usr/lib/sendmail"){ $found_sendmail="/usr/lib/sendmail"; }
  elsif(-e "/usr/bin/sendmail"){ $found_sendmail="/usr/bin/sendmail"; }
  elsif(-e "/usr/local/sbin/sendmail"){ $found_sendmail="/usr/local/sbin/sendmail"; }
  elsif(-e "/usr/local/lib/sendmail"){ $found_sendmail="/usr/local/lib/sendmail"; }
  elsif(-e "/usr/local/bin/sendmail"){ $found_sendmail="/usr/local/bin/sendmail"; }
}
}find_mail

1;