blob: cd912db4d0d2af644dbc33afce7d7672f22eaa95 (
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
%%{
machine smtp_received;
include smtp_whitespace "smtp_whitespace.rl";
include smtp_ip "smtp_ip.rl";
include smtp_date "smtp_date.rl";
include smtp_address"smtp_address.rl";
# http://tools.ietf.org/html/rfc5321#section-4.4
Addtl_Link = Atom;
Link = "TCP" | Addtl_Link;
Attdl_Protocol = Atom;
Protocol = "ESMTP"i %ESMTP_proto |
"SMTP"i %SMTP_proto |
"ESMTPS"i %ESMTPS_proto |
"ESMTPA"i %ESMTPA_proto |
"ESMTPSA"i %ESMTPSA_proto |
"LMTP"i %LMTP_proto |
"IMAP"i %IMAP_proto |
Attdl_Protocol;
TCP_info = address_literal >Real_IP_Start %Real_IP_End |
( Domain >Real_Domain_Start %Real_Domain_End FWS address_literal >Real_IP_Start %Real_IP_End );
Extended_Domain = Domain >Real_Domain_Start %Real_Domain_End | # Used to be a real domain
( Domain >Reported_Domain_Start %Reported_Domain_End FWS "(" TCP_info ")" ) | # Here domain is something specified by remote side
( address_literal >Real_Domain_Start %Real_Domain_End FWS "(" TCP_info ")" ) |
address_literal >Real_IP_Start %Real_IP_End; # Not RFC conforming, but many MTA try this
exim_real_ip = "[" (IPv4_addr|IPv6_simple) >IP4_start %IP4_end "]"
>Real_IP_Start %Real_IP_End (":" digit{1,4})?;
exim_content = exim_real_ip;
ccontent = ctext | FWS | '(' @{ fcall balanced_ccontent; };
balanced_ccontent := ccontent* ')' @{ fret; };
comment = "(" (FWS? ccontent|exim_content)* FWS? ")";
CFWS = ((FWS? comment)+ FWS?) | FWS;
From_domain = "FROM"i FWS Extended_Domain >From_Start %From_End;
By_domain = "BY"i FWS Extended_Domain >By_Start %By_End;
Via = CFWS "VIA"i FWS Link;
With = CFWS "WITH"i FWS Protocol;
id_left = dot_atom_text;
no_fold_literal = "[" dtext* "]";
id_right = dot_atom_text | no_fold_literal;
msg_id = "<" id_left "@" id_right ">";
ID = CFWS "ID"i FWS ( Dot_string | msg_id );
For = CFWS "FOR"i FWS ( Path | Mailbox ) >For_Start %For_End;
Additional_Registered_Clauses = CFWS Atom FWS String;
Opt_info = Via? With? ID? For? Additional_Registered_Clauses?;
# Here we make From part optional just because many received headers lack it
Received = From_domain? CFWS? By_domain? CFWS? Opt_info CFWS? ";" FWS date_time >Date_Start %Date_End CFWS?;
prepush {
if (top >= st_storage.size) {
st_storage.size = (top + 1) * 2;
st_storage.data = realloc (st_storage.data, st_storage.size * sizeof (int));
g_assert (st_storage.data != NULL);
stack = st_storage.data;
}
}
}%%
|
