philg_email_valid_p query_emailWhat it does:
Returns 1 if an email address has more or less the correct formDefined 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]