&find_mail;
&get_input;
open(USR,"$path_to_users");
while(<USR>){
    if(/^$param1=/){
    s/[\r\n]//;
        ($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$user_email,$super,$auths,$usrtype,$mode)=split(/=/);
        last;
    }
}
$user_root=~s!/$!!;$user_root.="/";
$user_root=~s!http://.+?/!$path_to_domain/!;$user_root=~s!/$!!;
($type,$nom,$mailto)=split(/&/,$param2,3);
@user_email=split(/\|/,$user_email);
for(@user_email){if($_ eq $mailto){$fnd=1}}
&record_submission;
if($fnd){
	if($found_sendmail){
		open(MAIL,"|$found_sendmail -t");
		print MAIL "From: $host<$account_email>\n";
		print MAIL "To: $mailto\n";
		print MAIL "Subject: Submission From Form - $nom\n\n";
		print MAIL qq~$values
		~;
	}else{
		$sm_recipient=$mailto;
		$sm_from="$host<$account_email>";
		$sm_subject="Submission From Form - $nom";
		$sm_message=qq~$values
		~;
		&sendemail;
	}

print "Location: $submission_redirect\n\n";
exit;
}else{
open(TL,"$path_to_lang/$thislang/submit_to_email.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$js1")</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;