philg_email_valid_p

one of the documented procedures in this installation of the ACS
Usage:
philg_email_valid_p   query_email
What it does:
Returns 1 if an email address has more or less the correct form
Defined in: /web/philip/packages/acs-core/utilities-procs.tcl

Source code: 


#    Original regexp
#    return [regexp "^\[^@\t ]+@\[^@.\t]+(\\.\[^@.\n ]+)+$" $query_email]

    return [regexp "^\[^@<>\"\t ]+@\[^@<>\".\t]+(\\.\[^@<>\".\n ]+)+$" $query_email]
philg@mit.edu