$usersEmail = $myts->stripSlashesGPC($_POST['usersEmail']);

$usersEmail = trim($myts->stripSlashesGPC($_POST['usersEmail']));
if (!preg_match("/^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+([\.][a-z0-9-]+)+$/i",$usersEmail)) {
  redirect_header(XOOPS_URL."/index.php",2,"メールアドレスが不正です。");
}

#
# check_email by Nat Sakimura
#
function check_email($email) {
        $err = 0;
        $email = chop($email);
        $emailaddress = split('@',$email);
        $hostpart = $emailaddress[1];

        if ($email == '') {
                $err = 1;

                $str = "<p>E-mail が入力されていません。</p>";
                $str .= '<br /><a href="java script:history.back()">もどる</a>';
        } else if (!preg_match("/\@.+\..+/",$email)){
                $err = 2;
                $str = "<p>$email は、E-mail アドレスではなさそうですが…。</p>";
                $str .= '<br><a href="java script:history.back()">正しく入力しなおす</a>';
        } else if (!checkdnsrr($hostpart,"ANY")) {
                $err = 3;
                $str = "<p>$hostpart には、メールは届きそうもありません…。<br />";
                $str .= "正しい email アドレスを入力してください。</p><br />";
                $str .= '<br><a href="java script:history.back()">もどる</a>';
        }
        $result['err'] = $err;
        $result['str'] = $str;

        return $result;
}