blob: cc6be263320a99ff3291130345e4c177bf9ae841 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
/* Constants and functions for parsing email address.
Copyright (C) 2011-2018 Sergey Poznyakoff
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. */
module 'email'.
const EMAIL_MULTIPLE 0x0001
const EMAIL_COMMENTS 0x0002
const EMAIL_PERSONAL 0x0004
const EMAIL_LOCAL 0x0008
const EMAIL_DOMAIN 0x0010
const EMAIL_ROUTE 0x0020
func email_valid(string email)
returns number
do
return email_map(email) == (EMAIL_LOCAL | EMAIL_DOMAIN)
done
|
