&check_cookie;
open(USR,"$path_to_users");
while(<USR>){
    if(/^$username=/){
        ($un,$pw,$user_root,$buttons,$imagesize,$usermb,$user_files,$user_email,$super,$auths,$usrtype,$mode)=split(/=/);
        last;
    }
}
@user_email=split(/\|/,$user_email);
for(@user_email){if($_ eq $param1){$fnd=1}}
if(!$fnd){
	push(@user_email,$param1);
	$user_email=join("|",@user_email);
	$usr=qq~$un=$pw=$user_root=$buttons=$imagesize=$usermb=$user_files=$user_email=$super=$auths=$usrtype=$mode~;
	open(USR,"$path_to_users");
	while(<USR>){
    	if(/^$username=/){$_=$usr}
		$SAVE.=$_;
	}
open(USR,">$path_to_users");
print USR "$SAVE";
$RETURN = qq~<script language=javascript>alert("$param1 $com_add_email $username")</script>~;
}else{
$RETURN=qq~~;
}
print "Content-type: text/html\n\n";
print "$RETURN ";
1;