<?

/*
 * this can be used as a check function if there really isn't one
 */
function
check_nocheck($s)
{
        return TRUE;
}

function
check_notblank($s)
{
        return !ctype_space($s);
}

function
check_email_valid ($s)
{
        if (eregi("^[a-z0-9_\.\-]+@[a-z0-9\-]+\.[a-z0-9\-\.]+$", $s)) {
                $domain_component = substr($s, strpos($s, "@") + 1);
                if (checkdnsrr($domain_component, "MX") ||
                    checkdnsrr($domain_component, "A"))
                        return TRUE;
        }
        return FALSE;
}

function
check_email_thiscorp ($s)
{
        if (!eregi("@mycorp.com$", $s))
                return FALSE;
        else
                return TRUE;
}

function
check_spam_threshold ($s)
{
        if (ctype_digit($s) &&
            $s > 0 &&
            $s < 10000)
                return TRUE;
        else
                return FALSE;
}

function
check_spam_whiteblack_entry ($s)
{
        for ($n = 0; $n < strlen($s); $n++) {
                if (!ctype_alnum($c = $s[$n]) &&
                    $c != "-" &&
                    $c != "_" &&
                    $c != "@" &&
                    $c != "*" &&
                    $c != "?" &&
                    $c != ".")
                        return FALSE;
        }
        return TRUE;
}

?>