Warning: session_start(): Session cannot be started after headers have already been sent in /home/tvrreohg/public_html/manga.php on line 13
{|jE
d Z ddlZddlZddlZddlmZ ddlmZ ddlm Z
ddlm Z ddlm Z e
d Ze e
d z Z e
d
Zeez Ze e
d z
Ze e
d z
Ze e
d
z e
d z
Zeez Ze e
d z Zeez Ze e
d z
ZddhZeez Zd Zd Z d Z ej< dej> ej@ z Z! G d de" Z# G d de# Z$ G d de# Z% G d d e# Z& G d d e# Z' G d d!e$ Z( G d" d#e# Z) G d$ d%e# Z* G d& d'e# Z+ G d( d)e# Z, G d* d+e, Z- G d, d-e$ Z. G d. d/e# Z/ G d0 d1e# Z0 G d2 d3e# Z1 G d4 d5e# Z2 G d6 d7e# Z3 G d8 d9e# Z4 G d: d;e# Z5 G d< d=e# Z6 G d> d?e# Z7 G d@ dAe# Z8 G dB dCe# Z9 G dD dEe# Z: G dF dGe# Z; G dH dIe# Z< G dJ dKe# Z= G dL dMe# Z> G dN dOe& Z? G dP dQe# Z@ G dR dSe# ZA G dT dUe# ZB G dV dWe# ZC G dX dYeC ZD G dZ d[e# ZE G d\ d]e# ZF G d^ d_e# ZG G d` dae# ZH G db dce# ZI G dd deeI ZJ G df dgeI ZK G dh die# ZL G dj dke# ZM G dl dme# ZN G dn doeN ZO G dp dqeO ZP G dr dse# ZQ G dt dueR ZS G dv dweS ZT G dx dyeS ZU G dz d{eT ZV G d| d}e j ZX eUd d~ ZY eUdd ZZdeZ_[ deZ_\ eUdd Z] ej< dj dj e j Za ej< dj ej dj e j Zd ej< d j Zf ej< dj ej dj e j Zg ej< dj ej dj e j Zh ej< dj ej dj e j Zid Zjd Zkd ZlddZmd Znd Zod Zpd Zqd Zrd Zsd Ztd Zud Zvd Zwd Zxd Zyd Zzd Z{d Z|d Z}d Z~d Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zy)al Header value parser implementing various email-related RFC parsing rules.
The parsing methods defined in this module implement various email related
parsing rules. Principal among them is RFC 5322, which is the followon
to RFC 2822 and primarily a clarification of the former. It also implements
RFC 2047 encoded word decoding.
RFC 5322 goes to considerable trouble to maintain backward compatibility with
RFC 822 in the parse phase, while cleaning up the structure on the generation
phase. This parser supports correct RFC 5322 generation by tagging white space
as folding white space only when folding is allowed in the non-obsolete rule
sets. Actually, the parser is even more generous when accepting input than RFC
5322 mandates, following the spirit of Postel's Law, which RFC 5322 encourages.
Where possible deviations from the standard are annotated on the 'defects'
attribute of tokens that deviate.
The general structure of the parser follows RFC 5322, and uses its terminology
where there is a direct correspondence. Where the implementation requires a
somewhat different structure than that used by the formal grammar, new terms
that mimic the closest existing terms are used. Thus, it really helps to have
a copy of RFC 5322 handy when studying this code.
Input to the parser is a string that has already been unfolded according to
RFC 5322 rules. According to the RFC this unfolding is the very first step, and
this parser leaves the unfolding step to a higher level message parser, which
will have already detected the line breaks that need unfolding while
determining the beginning and end of each header.
The output of the parser is a TokenList object, which is a list subclass. A
TokenList is a recursive data structure. The terminal nodes of the structure
are Terminal objects, which are subclasses of str. These do not correspond
directly to terminal objects in the formal grammar, but are instead more
practical higher level combinations of true terminals.
All TokenList and Terminal objects have a 'value' attribute, which produces the
semantically meaningful value of that part of the parse subtree. The value of
all whitespace tokens (no matter how many sub-tokens they may contain) is a
single space, as per the RFC rules. This includes 'CFWS', which is herein
included in the general class of whitespace tokens. There is one exception to
the rule that whitespace tokens are collapsed into single spaces in values: in
the value of a 'bare-quoted-string' (a quoted-string with no leading or
trailing whitespace), any whitespace that appeared between the quotation marks
is preserved in the returned value. Note that in all Terminal strings quoted
pairs are turned into their unquoted values.
All TokenList and Terminal objects also have a string value, which attempts to
be a "canonical" representation of the RFC-compliant form of the substring that
produced the parsed subtree, including minimal use of quoted pair quoting.
Whitespace runs are not collapsed.
Comment tokens also have a 'content' attribute providing the string found
between the parens (including any nested comments) with whitespace preserved.
All TokenList and Terminal objects have a 'defects' attribute which is a
possibly empty list all of the defects found while creating the token. Defects
may appear on any token in the tree, and a composite list of all defects in the
subtree is available through the 'all_defects' attribute of any node. (For
Terminal notes x.defects == x.all_defects.)
Each object in a parse tree is called a 'token', and each has a 'token_type'
attribute that gives the name from the RFC 5322 grammar that it represents.
Not all RFC 5322 nodes are produced, and there is one non-RFC 5322 node that
may be produced: 'ptext'. A 'ptext' is a string of printable ascii characters.
It is returned in place of lists of (ctext/quoted-pair) and
(qtext/quoted-pair).
XXX: provide complete list of token types.
N) hexdigits)
itemgetter)_encoded_words)errors)utilsz (z
()<>@,:;.\"[].z."(z/?=z*'%%
c X t | j dd j dd S )z;Escape dquote and backslash for use within a quoted-string.\\\"z\"strreplacevalues 3/usr/lib64/python3.12/email/_header_value_parser.pymake_quoted_pairsr c s& u: dF + 3 3C ?? c x t | j dd j dd j dd S )z:Escape parenthesis and backslash for use within a comment.r r r \()\)r r s r make_parenthesis_pairsr h s2 u: dF + e WWS% 01r c $ t | }d| dS )Nr )r )r escapeds r quote_stringr n s &G
wiq>r z
=\? # literal =?
[^?]* # charset
\? # literal ?
[qQbB] # literal 'q' or 'b', case insensitive
\? # literal ?
.*? # encoded word
\?= # literal ?=
c e Zd ZdZdZdZ fdZd Z fdZe d Z
e d Z d Z e d Z
e d
Zd Zdd Zdd
ZddZ xZS ) TokenListNTc 2 t | |i | g | _ y N)super__init__defects)selfargskw __class__s r r& zTokenList.__init__ s
$%"% r c 2 dj d | D S )N c 3 2 K | ] }t | y wr$ r .0xs r z$TokenList.__str__.. ,t!s1vt joinr( s r __str__zTokenList.__str__ s ww,t,,,r c h dj | j j t | S Nz{}({})formatr+ __name__r% __repr__r( r+ s r r? zTokenList.__repr__ s+ t~~ 6 6 "W - /1 1r c 2 dj d | D S )Nr- c 3 N K | ] }|j s|j y wr$ r r0 s r r3 z"TokenList.value.. s 81qwws %%r6 r8 s r r zTokenList.value s ww8888r c < t d | D | j S )Nc 3 4 K | ] }|j y wr$ ) all_defectsr0 s r r3 z(TokenList.all_defects.. s 04aAMM4 )sumr' r8 s r rE zTokenList.all_defects s 040$,,??r c ( | d j S Nr )startswith_fwsr8 s r rJ zTokenList.startswith_fws s Aw%%''r c & t d | D S )zATrue if all top level tokens of this part may be RFC2047 encoded.c 3 4 K | ] }|j y wr$ )
as_ew_allowed)r1 parts r r3 z*TokenList.as_ew_allowed.. s 7$$4%%$rF )allr8 s r rM zTokenList.as_ew_allowed s 7$777r c N g }| D ] }|j |j |S r$ )extendcomments)r( rR tokens r rR zTokenList.comments s& E OOENN + r c t | | S )Npolicy)_refold_parse_treer( rV s r foldzTokenList.fold s !$v66r c : t | j | y )Nindent)printppstrr( r\ s r pprintzTokenList.pprint s
djjj'(r c D dj | j | S )Nr r[ )r7 _ppr_ s r r^ zTokenList.ppstr s yy011r c # ~ K dj || j j | j | D ]A }t |d s|dj | z &|j |dz E d { C | j r dj | j }nd}dj || y 7 Ew)Nz{}{}/{}(rb z* !! invalid element in token list: {!r}z z Defects: {}r- z{}){})r= r+ r>
token_typehasattrrb r' )r( r\ rS extras r rb z
TokenList._pp s NN # # OO E5%( !55;VE]C D !99VF]333 <<"))$,,7EEnnVU++ 4s A3B=5B;6AB=r- )r>
__module__ __qualname__rd syntactic_breakew_combine_allowedr& r9 r? propertyr rE rJ rM rR rY r` r^ rb
__classcell__r+ s @r r" r" s JO -1 9 9 @ @( 8 8 7)2,r r" c , e Zd Zed Zed Zy)WhiteSpaceTokenListc yN r8 s r r zWhiteSpaceTokenList.value r c ` | D cg c] }|j dk( s|j c}S c c}w )Ncomment)rd contentr( r2 s r rR z WhiteSpaceTokenList.comments s) #'C4a1<<+B 4CCC ++N)r> rh ri rl r rR rt r r rp rp s*
D Dr rp c e Zd ZdZy)UnstructuredTokenList unstructuredNr> rh ri rd rt r r r| r| s Jr r| c e Zd ZdZy)PhrasephraseNr~ rt r r r r Jr r c e Zd ZdZy)WordwordNr~ rt r r r r Jr r c e Zd ZdZy)CFWSListcfwsNr~ rt r r r r r r r c e Zd ZdZy)AtomatomNr~ rt r r r r r r r c e Zd ZdZdZy)TokenrS FN)r> rh ri rd encode_as_ewrt r r r r s JLr r c e Zd ZdZdZdZdZy) EncodedWord encoded-wordN)r> rh ri rd ctecharsetlangrt r r r r s J
CG Dr r c @ e Zd ZdZed Zed Zed Zy) QuotedString
quoted-stringc L | D ] }|j dk( s|j c S y Nbare-quoted-stringrd r ry s r rx zQuotedString.content s" A|| 33ww r c g }| D ]G }|j dk( r|j t | -|j |j I dj | S )Nr r- )rd appendr r r7 )r( resr2 s r quoted_valuezQuotedString.quoted_value sN A|| 33
3q6"
177#
wws|r c L | D ] }|j dk( s|j c S y r r r( rS s r stripped_valuezQuotedString.stripped_value s% E #77 {{" r N)r> rh ri rd rl rx r r rt r r r r sA J
# #r r c & e Zd ZdZd Zed Zy)BareQuotedStringr c D t dj d | D S )Nr- c 3 2 K | ] }t | y wr$ r/ r0 s r r3 z+BareQuotedString.__str__.. s #9DqCFDr5 )r r7 r8 s r r9 zBareQuotedString.__str__ s BGG#9D#9 9::r c 2 dj d | D S )Nr- c 3 2 K | ] }t | y wr$ r/ r0 s r r3 z)BareQuotedString.value.. r4 r5 r6 r8 s r r zBareQuotedString.value ww,t,,,r N)r> rh ri rd r9 rl r rt r r r r s %J; - -r r c < e Zd ZdZd Zd Zed Zed Zy)Commentrw c dj t dg| D cg c] }| j | c}dggg S c c}w )Nr- r r )r7 rG quotery s r r9 zComment.__str__ sK wws E48 9DqTZZ]D 9 E " # $ $ 9s >c |j dk( r t | S t | j dd j dd j dd S )Nrw r r r r r r )rd r r )r( r s r r z
Comment.quote" sR y (u: 5z!!$/77"%u..5g"%u/. .r c 2 dj d | D S )Nr- c 3 2 K | ] }t | y wr$ r/ r0 s r r3 z"Comment.content..+ r4 r5 r6 r8 s r rx zComment.content) r r c | j gS r$ )rx r8 s r rR zComment.comments- s ~ r N) r> rh ri rd r9 r rl rx rR rt r r r r s9 J$. - - r r c @ e Zd ZdZed Zed Zed Zy) AddressListz address-listc L | D cg c] }|j dk( s| c}S c c}w )Naddressrd ry s r addresseszAddressList.addresses5 % ;4a1<<#:4;;; !!c ( t d | D g S )Nc 3 R K | ] }|j d k( r|j ! ywr Nrd mailboxesr0 s r r3 z(AddressList.mailboxes..; s' > !Q\\9%< KK ! %'rG r8 s r r zAddressList.mailboxes9 ! > !>?AC Cr c ( t d | D g S )Nc 3 R K | ] }|j d k( r|j ! ywr rd
all_mailboxesr0 s r r3 z,AddressList.all_mailboxes..@ s' > !Q\\9%< OO !r r r8 s r r zAddressList.all_mailboxes> r r N)r> rh ri rd rl r r r rt r r r r 1 sE J
< < C C C Cr r c @ e Zd ZdZed Zed Zed Zy)Addressr c F | d j dk( r| d j S y )Nr grouprd display_namer8 s r r zAddress.display_nameH s) 7 (7'' ' )r c x | d j dk( r| d gS | d j dk( rg S | d j S Nr mailboxinvalid-mailboxr r8 s r r zAddress.mailboxesM sH 7 *G9
!W
#4
4IAw r c | d j dk( r| d gS | d j dk( r| d gS | d j S r r r8 s r r zAddress.all_mailboxesU sO 7 *G9
!W
#4
4G9 Aw$$$r N)r> rh ri rd rl r r r rt r r r r D sA J
( ( ! ! % %r r c 0 e Zd ZdZed Zed Zy) MailboxList mailbox-listc L | D cg c] }|j dk( s| c}S c c}w )Nr r ry s r r zMailboxList.mailboxesa r r c H | D cg c] }|j dv r| c}S c c}w )N)r r r ry s r r zMailboxList.all_mailboxese s2 ?4a|| == 4 ? ? ?s Nr> rh ri rd rl r r rt r r r r ] s- J
< < ? ?r r c 0 e Zd ZdZed Zed Zy) GroupList
group-listc L | r| d j dk7 rg S | d j S Nr r r r8 s r r zGroupList.mailboxeso s+ tAw))^;IAw r c L | r| d j dk7 rg S | d j S r r r8 s r r zGroupList.all_mailboxesu s+ tAw))^;IAw$$$r Nr rt r r r r k s- J
! !
% %r r c @ e Zd ZdZed Zed Zed Zy)Groupr c H | d j dk7 rg S | d j S N r r r8 s r r zGroup.mailboxes s) 7 -IAw r c H | d j dk7 rg S | d j S r r r8 s r r zGroup.all_mailboxes s) 7 -IAw$$$r c | d j S rI )r r8 s r r zGroup.display_name s Aw###r N)r> rh ri rd rl r r r rt r r r r | sA J
! !
% %
$ $r r c ` e Zd ZdZed Zed Zed Zed Zed Z y)NameAddr name-addrc > t | dk( ry | d j S N r )lenr r8 s r r zNameAddr.display_name s t9>Aw###r c | d j S N
local_partr8 s r r zNameAddr.local_part s Bx"""r c | d j S r domainr8 s r r zNameAddr.domain s Bx r c | d j S r )router8 s r r zNameAddr.route s Bx~~ r c | d j S r addr_specr8 s r r zNameAddr.addr_spec s Bx!!!r N
r> rh ri rd rl r r r r r rt r r r r si J
$ $
# # " "r r c P e Zd ZdZed Zed Zed Zed Zy) AngleAddrz
angle-addrc L | D ] }|j dk( s|j c S y N addr-spec)rd r ry s r r zAngleAddr.local_part s" A||{*||# r c L | D ] }|j dk( s|j c S y r rd r ry s r r zAngleAddr.domain s! A||{*xx r c L | D ] }|j dk( s|j c S y )N obs-route)rd domainsry s r r zAngleAddr.route s" A||{*yy r c | D ]O }|j dk( s|j r|j c S t |j |j z c S y)Nr z<>)rd r r r ry s r r zAngleAddr.addr_spec sF A||{*<< ;;&' 5 CC r N) r> rh ri rd rl r r r r rt r r r r sU J
$ $
! !
r r c e Zd ZdZed Zy)ObsRouter c ` | D cg c] }|j dk( s|j c}S c c}w )Nr r ry s r r zObsRoute.domains s) "&C$Q!,,(*B$CCCrz N)r> rh ri rd rl r rt r r r r s J
D Dr r c ` e Zd ZdZed Zed Zed Zed Zed Z y)Mailboxr c F | d j dk( r| d j S y Nr r r r8 s r r zMailbox.display_name s) 7 ,7'' ' -r c | d j S rI r r8 s r r zMailbox.local_part Aw!!!r c | d j S rI r r8 s r r zMailbox.domain s Aw~~ r c F | d j dk( r| d j S y r )rd r r8 s r r z
Mailbox.route s' 7 ,7== -r c | d j S rI r r8 s r r zMailbox.addr_spec s Aw r Nr rt r r r r si J
( ( " " ! ! ! !r r c 0 e Zd ZdZed ZexZxZxZZ y)InvalidMailboxr c y r$ rt r8 s r r zInvalidMailbox.display_name r Nr rt r r r r s/ "J
/;:J::%)r r c 0 e Zd ZdZdZe fd Z xZS )Domainr Fc R dj t | j S Nr- r7 r% r splitr@ s r r z
Domain.domain wwuw}**,--r )r> rh ri rd rM rl r rm rn s @r r r s JM
. .r r c e Zd ZdZy)DotAtomdot-atomNr~ rt r r r r s Jr r c e Zd ZdZdZy) DotAtomTextz
dot-atom-textTNr> rh ri rd rM rt r r r r s JMr r c e Zd ZdZdZy)
NoFoldLiteralzno-fold-literalFNr! rt r r r# r# s "JMr r# c T e Zd ZdZdZed Zed Zed Zed Z y)AddrSpecr Fc | d j S rI r r8 s r r zAddrSpec.local_part r
r c > t | dk ry | d j S )N r )r r r8 s r r zAddrSpec.domain s t9q=Bx r c t | dk r| d j S | d j j | d j z | d j j z S )Nr( r r r )r r rstriplstripr8 s r r zAddrSpec.value$ sU t9q=7== Aw}}##%d1gmm3DGMM4H4H4JJJr c t | j }t | t |t z
kD rt | j }n | j }| j
|dz | j
z S |S )N@)setr r
DOT_ATOM_ENDSr r )r( namesetlps r r zAddrSpec.addr_spec* s_ doo& w<#gm 34 4 doo.B B ;; "8dkk) ) r N)
r> rh ri rd rM rl r r r r rt r r r% r% s\ JM
" "
K K
r r% c e Zd ZdZdZy) ObsLocalPartzobs-local-partFNr! rt r r r3 r3 6 s !JMr r3 c @ e Zd ZdZdZed Ze fd Z xZS ) DisplayNamez display-nameFc t | }t | dk( r |j S |d j dk( r|j d neOC$Q""f,47I.Q
%%/R##v-48Y/R ''61|D$5$566t; ;7= r ) r> rh ri rd rk rl r r rm rn s @r r5 r5 < s4 J
$ ! !r r5 c 4 e Zd ZdZdZed Zed Zy) LocalPartz
local-partFc b | d j dk( r| d j S | d j S )Nr r )rd r r r8 s r r zLocalPart.valueq s2 7 07'' '7== r c t g}t }d}| d t gz D ] }|j dk( r|r2|j dk( r#|d j dk( rt |d d |d< t |t }|r?|j dk( r0|d j dk( r |j t |dd n|j | |d }|} t |dd }|j
S )NFr r dotr r )DOTrd r" r8 r r )r( r last
last_is_tltokis_tls r r zLocalPart.local_partx s e
7cU?C~~'s~~ 6H''61#D"I.B sI.E$//U2F%%/
9SW-.
3r7D J # Ab "yyr N)r> rh ri rd rM rl r r rt r r r= r= l s2 JM
! ! r r= c @ e Zd ZdZdZe fd Zed Z xZS )
DomainLiteralzdomain-literalFc R dj t | j S r r r@ s r r zDomainLiteral.domain r r c L | D ] }|j dk( s|j c S y )Nptextr ry s r ipzDomainLiteral.ip s! A||w&ww r ) r> rh ri rd rM rl r rK rm rn s @r rG rG s3 !JM
. . r rG c e Zd ZdZdZdZy) MIMEVersionz mime-versionN)r> rh ri rd majorminorrt r r rM rM s J E Er rM c < e Zd ZdZdZdZdZed Zed Z y) Parameter parameterFus-asciic < | j r| d j S dS r ) sectionednumberr8 s r section_numberzParameter.section_number s "& tAw~~6Q6r c | D ]n }|j dk( r|j c S |j dk( s0|D ]: }|j dk( s|D ]# }|j dk( s|j c c c S < p y)Nr r r r- )rd r r s r param_valuezParameter.param_value sx E 7* +++ ?2 "E ''+??%*E $ / /7 :',';'; ; &+ # r N)
r> rh ri rd rU extendedr rl rW rY rt r r rQ rQ s< JIHG
7 7
r rQ c e Zd ZdZy)InvalidParameterinvalid-parameterNr~ rt r r r\ r\ s $Jr r\ c e Zd ZdZed Zy) Attribute attributec d | D ]+ }|j j d s |j c S y )Nattrtext)rd endswithr r s r r zAttribute.stripped_value s* E ((4 {{" r Nr> rh ri rd rl r rt r r r_ r_ s J
# #r r_ c e Zd ZdZdZy)SectionsectionN)r> rh ri rd rV rt r r rf rf s J
Fr rf c e Zd ZdZed Zy)Valuer c | d }|j dk( r| d }|j j d r |j S | j S )Nr r r )r r` zextended-attribute)rd rc r r r s r r zValue.stripped_value sP Q v %GE $ $D F'' 'zzr Nrd rt r r ri ri s J
r ri c * e Zd ZdZdZed Zd Zy)MimeParametersmime-parametersFc # l K i }| D ]w }|j j d s |d j dk7 r2|d j j }||vrg ||< || j |j
|f y |j
D ] \ }}t |t d }|d d }|j }|j sRt | dkD rD|d d dk( r9|d d j j t j d |d d }g }d}|D ] \ } }
| |k7 ri|
j s/|
j j t j d G|
j j t j d |dz
}|
j } |
j rv t j" j% | } | j' |d } t- j. | r.|
j j t j0 |j | d
j5 | } || f y # t( t* f$ r | j' d
d } Y w xY w# t* $ r$ t j" j3 | d } Y w xY ww)NrR r r` )keyr z.duplicate parameter name; duplicate(s) ignoredz+duplicate parameter name; duplicate ignoredz(inconsistent RFC2231 parameter numberingsurrogateescaperS zlatin-1)encodingr- )rd rc r stripr rW itemssortedr r rZ r r' r InvalidHeaderDefectrY urllibparseunquote_to_bytesdecode LookupErrorUnicodeEncodeErrorr _has_surrogatesUndecodableBytesDefectunquoter7 ) r( paramsrS nameparts first_paramr value_partsirW paramr s r r zMimeParameters.params s E##,,[9Qx""k18>>'')D6! !t 4L !5!5u = > "<<>KD%5jm4E (1+K!))G ''CJN8A;!#!HQK''..v/I/IH0J K !"1IE KA).%!Q& !>>
,,V-G-G I.K L
,,V-G-G F.H IQ ))>>R & = =e DP$)LL:K$LE !007 !MM 0 01N1N1P Q""5)C */D GGK(E+ g *R !,-? @ P
%*LL=N$OE P . P !' 4 4UY 4 O PsI F6J49 JI +A2J4 !J>J4 JJ4*J1.J40J11J4c g }| j D ]C \ }}|r+|j dj |t | 3|j | E dj | }|rd|z S dS )N{}={}z; rs r- )r r r= r r7 )r( r r r s r r9 zMimeParameters.__str__2 se ;;KD%
gnnT<3F GH
d# '
6" %sV|-2-r N)r> rh ri rd rj rl r r9 rt r r rl rl s& "JO
C C J.r rl c e Zd ZdZed Zy)ParameterizedHeaderValueFc ` t | D ] }|j dk( s|j c S i S )Nrm )reversedrd r r s r r z ParameterizedHeaderValue.paramsC s0 d^E #44 ||# $ r N)r> rh ri rj rl r rt r r r r = s O
r r c e Zd ZdZdZdZdZy) ContentTypez content-typeFtextplainN)r> rh ri rd rM maintypesubtypert r r r r K s JMHGr r c e Zd ZdZdZdZy)ContentDispositionzcontent-dispositionFN)r> rh ri rd rM content_dispositionrt r r r r R s &JM r r c e Zd ZdZdZdZy)ContentTransferEncodingzcontent-transfer-encodingF7bitN)r> rh ri rd rM r rt r r r r X s ,JM
Cr r c e Zd ZdZdZy) HeaderLabelz header-labelFNr! rt r r r r ^ s JMr r c e Zd ZdZdZd Zy)MsgIDzmsg-idFc 2 t | |j z S r$ )r lineseprX s r rY z
MsgID.foldg s 4y6>>))r N)r> rh ri rd rM rY rt r r r r c s JM*r r c e Zd ZdZy) MessageIDz
message-idNr~ rt r r r r l s Jr r c e Zd ZdZy)InvalidMessageIDzinvalid-message-idNr~ rt r r r r p s %Jr r c e Zd ZdZy)HeaderheaderNr~ rt r r r r t r r r c r e Zd ZdZdZdZ fdZ fdZd Ze d Z
d
fd Z d Z e d Z
d Z xZS ) TerminalTc D t | | | }||_ g |_ |S r$ )r% __new__rd r' )clsr rd r( r+ s r r zTerminal.__new__ s& wsE*$ r c h dj | j j t | S r; r< r@ s r r? zTerminal.__repr__ s& t~~ 6 68H8JKKr c b t | j j dz | j z y )N/)r] r+ r> rd r8 s r r` zTerminal.pprint s"
dnn%%+doo=>r c , t | j S r$ )listr' r8 s r rE zTerminal.all_defects s DLL!!r c dj || j j | j t | | j sd gS dj | j gS )Nz
{}{}/{}({}){}r- z {})r= r+ r> rd r% r? r' )r( r\ r+ s r rb z Terminal._pp sg && NN # # OO G llB
). T\\(B r c y r$ rt r8 s r pop_trailing_wszTerminal.pop_trailing_ws r r c g S r$ rt r8 s r rR zTerminal.comments s r c 0 t | | j fS r$ )r rd r8 s r __getnewargs__zTerminal.__getnewargs__ s 4y$//**r rg )r> rh ri rM rk rj r r? r` rl rE rb r rR r rm rn s @r r r | sZ M O L? " " +r r c " e Zd Zed Zd Zy)WhiteSpaceTerminalc yrr rt r8 s r r zWhiteSpaceTerminal.value ru r c | xr | d t v S rI WSPr8 s r rJ z!WhiteSpaceTerminal.startswith_fws s &Q3&r Nr> rh ri rl r rJ rt r r r r s
'r r c " e Zd Zed Zd Zy)
ValueTerminalc | S r$ rt r8 s r r zValueTerminal.value s r c y)NFrt r8 s r rJ z ValueTerminal.startswith_fws s r Nr rt r r r r s
r r c " e Zd Zed Zd Zy)EWWhiteSpaceTerminalc yr rt r8 s r r zEWWhiteSpaceTerminal.value s r c yr rt r8 s r r9 z EWWhiteSpaceTerminal.__str__ s r N)r> rh ri rl r r9 rt r r r r s
r r c e Zd ZdZy)_InvalidEwErrorz1Invalid encoded word found while parsing headers.N)r> rh ri __doc__rt r r r r s ;r r r@ ,zlist-separatorFr- zroute-component-markerz([{}]+)r- z[^{}]+z[\x00-\x20\x7F]c t | }|r.| j j t j | t j | r/| j j t j d yy)z@If input token contains ASCII non-printables, register a defect.z*Non-ASCII characters found in header tokenN)_non_printable_finderr' r r NonPrintableDefectr r| r} )xtextnon_printabless r _validate_xtextr sc +51N
V 6 6~ FG U#
V : : 8 : ; $r c " t | d ^}}g }d}d}t t | D ]6 }|| dk( r
|rd}d}nd}|rd}n || |v r n|j || 8 dz }dj | dj ||d g|z |fS )ak Scan printables/quoted-pairs until endchars and return unquoted ptext.
This function turns a run of qcontent, ccontent-without-comments, or
dtext-with-quoted-printables into a single string by unquoting any
quoted printables. It returns the string, the remaining value, and
a flag that is True iff there were any quoted printables decoded.
r Fr Tr- N)
_wsp_splitterranger r r7 )r endcharsfragment remaindervcharsescapehad_qpposs r _get_ptext_to_endcharsr s )2Hy
F
F
FS]# C=D F
c]h
&
hsm$ $ Ag
776?BGGXcd^$4y$@ A6 IIr c r | j }t | dt | t | z
d }||fS )zFWS = 1*WSP
This isn't the RFC definition. We're using fws to represent tokens where
folding can be done, but when we are parsing the *un*folding has already
been done so we don't need to watch out for CRLF.
Nfws)r+ r r )r newvaluer s r get_fwsr s: ||~H
U#@ @ABioodA.OC)
eABi%% 0 7 7 >@ @
WWY
F F aq Y q Y #!<<a0yDj4
399;!
&44 ,. /
BF GGI E@'*zz$*t2C'D$gtW BJBGJJg
7c>!$-KE4 IIe )$ 2 e]3
%wwy!
q$
&44 <> ?
u9)
! @ / 6 6rvv >@ @@s I
4I>c t }| r[| d t v r t | \ }} |j | .d}| j d r t | d \ }} d}t
| dkD rB|d j dk7 r0|j j t j d d}|r2t
| d kD r$|d
j d k( rt |d d |d< |j | t | d ^}}|r(t j! | r| j# d ^}}t% |d }t' | |j | d j) | } | r[|S # t $ r d}Y t j $ r Y w xY w)
aO unstructured = (*([FWS] vchar) *WSP) / obs-unstruct
obs-unstruct = *((*LF *CR *(obs-utext) *LF *CR)) / FWS)
obs-utext = %d0 / obs-NO-WS-CTL / LF / CR
obs-NO-WS-CTL is control characters except WSP/CR/LF.
So, basically, we have printable runs, plus control characters or nulls in
the obsolete syntax, separated by whitespace. Since RFC 2047 uses the
obsolete syntax in its specification, but requires whitespace on either
side of the encoded words, I can see no reason to need to separate the
non-printable-non-whitespace from the printable runs if they occur, so we
parse this into xtext tokens separated by WSP tokens.
Because an 'unstructured' value must by definition constitute the entire
value, this 'get' routine does not return a remaining value, only the
parsed TokenList.
r Tr utextr r z&missing whitespace before encoded wordFr r r- )r| r r r r r r rd r' r ru r r r r rfc2047_matchersearch partitionr r r7 )r r} rS valid_ewhave_wsrD r r s r get_unstructuredr W s . )*L
8s?"5>LE5 & D !
/w ? u |$q(#B'22e;$,,33F4N4N D5F G"'s< 01 4#B'22nD+? ( ,e,5 R( ##E*'q1i ..s3 #ood 3OC) c7+ E" "Q R A #
! **
s
E+ + F
8F
F
c X t | d \ }} }t |d }t | || fS )a ctext =
This is not the RFC ctext, since we are handling nested comments in comment
and unquoting quoted-pairs here. We allow anything except the '()'
characters, but if we find any ASCII other than the RFC defined printable
ASCII, a NonPrintableDefect is added to the token's defects list. Since
quoted pairs are converted to their unquoted values, what is returned is
a 'ptext' token. In this case it is a WhiteSpaceTerminal, so it's value
is ' '.
z()rJ )r r r r rJ _s r get_qp_ctextr s4 -UD9OE5! ug .EE %<r c X t | d \ }} }t |d }t | || fS )ao qcontent = qtext / quoted-pair
We allow anything except the DQUOTE character, but if we find any ASCII
other than the RFC defined printable ASCII, a NonPrintableDefect is
added to the token's defects list. Any quoted pairs are converted to their
unquoted values, so what is returned is a 'ptext' token. In this case it
is a ValueTerminal.
r rJ )r r r r s r get_qcontentr s4 -UC8OE5! % )EE %<r c t | }|s$t j dj | |j }| t | d } t
|d }t | || fS )zatext =
We allow any non-ATOM_ENDS in atext, but add an InvalidATextDefect to
the token's defects list if we find non-atext characters.
z expected atext but found '{}'Natext)_non_atom_end_matcherr r r= r r r r )r mr s r get_atextr sk e$A %% + 2 25 9; ;
GGIE #e*+ E % )EE %<r c N | r| d dk7 r$t j dj | t }| dd } | r'| d dk( r t | \ }} |j | | r| d dk7 r| d t v rt | \ }} n| dd dk( rd} t | \ }} |j j t j d d
}|rSt | dkD rE|d j d k( r3|d
j dk( r!t |d d |d < nt | \ }} |j | | r | d dk7 r| s2|j j t j d || fS || dd fS # t j $ r t | \ }} Y w xY w)zbare-quoted-string = DQUOTE *([FWS] qcontent) [FWS] DQUOTE
A quoted-string without the leading or trailing white space. Its
value is the text between the quote marks, with whitespace
preserved and quoted pairs decoded.
r r zexpected '"' but found '{}'r Nr r Fz!encoded word inside quoted stringTr r r r z"end of header inside quoted string)r r r= r r r r r r r' ru r rd r )r bare_quoted_stringrS r s r get_bare_quoted_stringr s E!HO%% * 1 1% 8: :)+ !"IE qS #E* u!!%(
E!HO 8s?"5>LE5
2AY$
H
3 / 6 u"**11&2L2L739 :
C 2 3a 7&r*55>*2.99^K-A*2..7&r* (.LE5!!%(+ E!HO, ""))&*D*D 0+2 3!5(( uQRy ((! **
3 +E 2 u
3s >F !F$#F$c | r,| d dk7 r$t j dj | t }| dd } | rc| d dk7 r[| d t v rt | \ }} n%| d dk( rt
| \ }} nt | \ }} |j | | r | d dk7 r[| s2|j j t j d || fS || dd fS )zcomment = "(" *([FWS] ccontent) [FWS] ")"
ccontent = ctext / quoted-pair / comment
We handle nested comments here, and quoted-pair in our qp-ctext routine.
r r zexpected '(' but found '{}'r Nr z end of header inside comment) r r r= r r r get_commentr r r' ru )r rw rS s r r r s
qS %% ) 0 0 79 9iG !"IE
E!HO 8s?"5>LE5
1X_&u-LE5'.LE5u E!HO v 9 9 * , -~ E!"I r c t }| rR| d t v rG| d t v rt | \ }} nt | \ }} |j | | r | d t v rG|| fS )z,CFWS = (1*([FWS] comment) [FWS]) / FWS
r )r CFWS_LEADERr r r r )r r rS s r get_cfwsr sg :D
E!H + 8s?"5>LE5&u-LE5 E E!H + ;r c t }| r*| d t v r t | \ }} |j | t | \ }} |j | | r*| d t v r t | \ }} |j | || fS )zquoted-string = [CFWS] [CFWS]
'bare-quoted-string' is an intermediate class defined by this
parser and not by the RFC grammar. It is the quoted string
without any attached CFWS.
r )r r r r r )r
quoted_stringrS s r get_quoted_stringr s !NM q[( u U#)%0LE5 q[( u U# % r c t }| r*| d t v r t | \ }} |j | | r/| d t v r$t j dj | | j d r t | \ }} nt | \ }} |j | | r*| d t v r t | \ }} |j | || fS # t
j $ r t | \ }} Y dw xY w)zPatom = [CFWS] 1*atext [CFWS]
An atom could be an rfc2047 encoded word.
r z expected atom but found '{}'r ) r r r r ATOM_ENDSr r r= r r r )r r rS s r get_atomr - s
6D q[( u E qY&%% * 1 1% 8: : ,+E2LE5 !' uKK q[( u E ; && , %U+LE5 ,s :C !C<;C<c t }| r | d t v r$t j dj | | r\| d t vrQt | \ }} |j
| | r"| d dk( r|j
t | dd } | r | d t vrQ|d t u r't j dj d| z || fS )z( dot-text = 1*atext *("." 1*atext)
r z8expected atom at a start of dot-atom-text but found '{}'r r Nr z4expected atom at end of dot-atom-text but found '{}')r r
r r r= r r rA )r
dot_atom_textrS s r get_dot_atom_textr H s MM E!H )%% '++16%=: :
E!HI- ' u U# U1X_ %!"IE E!HI- RC %% ' #VCI .0 0 % r c t }| d t v r t | \ }} |j | | j d r t | \ }} nt | \ }} |j | | r*| d t v r t | \ }} |j | || fS # t j $ r t | \ }} Y dw xY w)z dot-atom = [CFWS] dot-atom-text [CFWS]
Any place we can have a dot atom, we could instead have an rfc2047 encoded
word.
r r ) r r r r r r r r r )r dot_atomrS s r get_dot_atomr [ s yH Qx; u 4+E2LE5 )/ u OOE q[( u U? && 4 -U3LE5 4s B% %!C C c ( | d t v rt | \ }} nd}| st j d | d dk( rt | \ }} n=| d t
v r$t j dj
| t | \ }} ||g|dd || fS )a word = atom / quoted-string
Either atom or quoted-string may start with CFWS. We have to peel off this
CFWS first to determine which type of word to parse. Afterward we splice
the leading CFWS, if any, into the parsed sub-token.
If neither an atom or a quoted-string is found before the next special, a
HeaderParseError is raised.
The token returned is either an Atom or a QuotedString, as appropriate.
This means the 'word' level of the formal grammar is not represented in the
parse tree; this is because having that extra layer when manipulating the
parse tree is more confusing than it is helpful.
r Nz5Expected 'atom' or 'quoted-string' but found nothing.r z1Expected 'atom' or 'quoted-string' but found '{}')r r r r r SPECIALSr= r )r leaderrS s r get_wordr t s
Qx;
%% CE E Qx}(/ u qX %% '77=ve}F F u
Hbq %<r c t } t | \ }} |j | | r| d t vr| d dk( rI|j t |j
j t j d | dd } n t | \ }} |j | | r | d t vr|| fS # t j $ r1 |j
j t j d Y w xY w# t j $ rL | d t v r=t | \ }} |j
j t j d n Y w xY w)a phrase = 1*word / obs-phrase
obs-phrase = word *(word / "." / CFWS)
This means a phrase can be a sequence of words, periods, and CFWS in any
order as long as it starts with at least one word. If anything other than
words is detected, an ObsoleteHeaderDefect is added to the token's defect
list. We also accept a phrase that starts with CFWS followed by a dot;
this is registered as an InvalidHeaderDefect, since it is not supported by
even the obsolete grammar.
z phrase does not start with wordr r zperiod in 'phrase'r Nzcomment found without atom) r r r r r r' ru PHRASE_ENDSrA ObsoleteHeaderDefectr r )r r rS s r
get_phraser sM XF0 u
e E!HK/ 8S= MM# NN ! !&"="=$#&
'!"IE
' u
MM% ! E!HK/" 5=) " " 0 f 8 8 - / 00 **
8{*#+E?LE5NN))&*E*E4+6 7 7
s% B;
D ;AC?>C?A E! E!c t }d}| r| d t v rt | \ }} | s$t j dj | t
| \ }} ||g|dd |j | | r| d dk( s | d t vrt t | | z \ }} |j dk( r/|j j t j d n.|j j t j d ||d< |j" j% d || fS # t j $ rK t | \ }} n7# t j $ r! | d dk7 r | d t v r t }Y nw xY wY 6w xY w# t& $ r4 |j j t j( d Y || fS w xY w)
z= local-part = dot-atom / quoted-string / obs-local-part
Nr z"expected local-part but found '{}'r invalid-obs-local-partz@ @ #E* u Hbq e %(D.E!HK$? 23z?U3J K $ $(@ @ % %f&@&@N'P
Q
% %f&A&A>'@
A&
1
> ( u 1 " " #E?LE5&& Qx4 E!H $; KE * >!!&"@"@;#= > u >sH D6 F 6F
EF1F
F F
FF7GGc N t }d}| rB| d dk( s | d t vr.| d dk( rM|r.|j j t j
d |j t d}| dd } l| d dk( rT|j t | d d | dd } |j j t j
d
d}|r@|d j d k7 r.|j j t j
d
t | \ }} d}|j | | r| d dk( r!| d t vr.|s$t j dj | |d j d k( s2|d j dk( rNt | dkD r@|d j d k( r.|j j t j
d |d j d k( s2|d j dk( rNt | dkD r@|d j d k( r.|j j t j
d |j rd|_ || fS # t j $ r | d t vr t | \ }} Y {w xY w)z' obs-local-part = word *("." word)
Fr r r zinvalid repeated '.'Tr Nmisplaced-specialz/'\' character outside of quoted-string/ccontentr r@ zmissing '.' between wordsz&expected obs-local-part but found '{}'r z!Invalid leading '.' in local partr z"Invalid trailing '.' in local partr )r3 r r' r r ru rA r rd r r r r r= r )r r# last_non_ws_was_dotrS s r r r s "^N
U1Xt^uQx{'B 8s?" &&--f.H.H*/, - ! !# &"& !"IE
1Xt^ ! !-a0C#E
F!"IE " " ) )&*D*DB+D
E"' nR 0 ; ;u D " " ) )&*D*D++-
. +#E?LE5"'
e$7 U1Xt^uQx{'B8 %% 4 ; ;E BD Dq$$- 1 ( (& 0 ! # 1 ( (% / %%f&@&@ /'1 2r%%. 2 ) )6 1 ! # 2 ) )5 0 %%f&@&@ 0'2 3 $<! 5 - && +Qx{*#E?LE5 +s I3 3-J$#J$c t | d \ }} }t |d }|r.|j j t j
d t
| || fS )a dtext = / obs-dtext
obs-dtext = obs-NO-WS-CTL / quoted-pair
We allow anything except the excluded characters, but if we find any
ASCII other than the RFC defined printable ASCII, a NonPrintableDefect is
added to the token's defects list. Quoted pairs are converted to their
unquoted values, so what is returned is a ptext token, in this case a
ValueTerminal. If there were quoted-printables, an ObsoleteHeaderDefect is
added to the returned token's defect list.
z[]rJ z(quoted printable found in domain-literal)r r r' r r r r )r rJ r s r get_dtextr) sZ 2%>E5& % )E
V 8 8 6 8 9E %<r c | ry|j t j d |j t dd y)NFz"end of input inside domain-literal]domain-literal-endT)r r ru r )r domain_literals r _check_for_early_dl_endr. + s? &44,. /--ABC r c n t }| d t v r t | \ }} |j | | st j
d | d dk7 r$t j
dj
| | dd } t | | r|| fS |j t dd | d t v r t | \ }} |j | t | \ }} |j | t | | r|| fS | d t v r t | \ }} |j | t | | r|| fS | d dk7 r$t j
d j
| |j t dd
| dd } | r*| d t v r t | \ }} |j | || fS ) zB domain-literal = [CFWS] "[" *([FWS] dtext) [FWS] "]" [CFWS]
r zexpected domain-literal[z6expected '[' at start of domain-literal but found '{}'r Nzdomain-literal-startr+ z4expected ']' at end of domain-literal but found '{}'r, ) rG r r r r r r= r. r r r r) )r r- rS s r get_domain_literalr1 3 s #_N Qx; u e$ %%&?@@ Qx3%% '!!' 0 0 !"IE un5 u$$--CDE Qx3 u~ u e$ U#LE5% un5 u$$ Qx3 u~ u e$ un5 u$$ Qx3%% '!!' 0 0--ABC !"IE q[( u e$ 5 r c " t }d}| r| d t v rt | \ }} | s$t j dj | | d dk( r+t
| \ }} ||g|dd |j | || fS t | \ }} | r | d dk( rt j d ||g|dd |j | | r| d dk( r|j j t j d |d j d k( r|d |dd | rJ| d dk( rB|j t t | d
d \ }} |j | | r | d dk( rB|| fS # t j $ r t | \ }} Y w xY w) z] domain = dot-atom / domain-literal / obs-domain
obs-domain = atom *("." atom))
Nr z expected domain but found '{}'r0 r- zInvalid Domainr z(domain is not a dot-atom (contains CFWS)r r )r r r r r r= r1 r r r r' r rd rA )r r r rS s r
get_domainr3 Z s
XF
F q[(
%% , 3 3E :< < Qx3)%0 u E"1I
e u} '#E* u
qS %%&677
Hbq
MM% qS f 9 9 6 8 9 !9 : - q F1IaC MM# #E!"I.LE5 MM% aC 5=! " " ' u's E* *!F
Fc N t }t | \ }} |j | | r| d dk7 r2|j j t j
d || fS |j t
dd t | dd \ }} |j | || fS )z( addr-spec = local-part "@" domain
r r- z#addr-spec local part with no domainaddress-at-symbolr N)r% r$ r r' r ru r r3 )r r rS s r
get_addr_specr6 s
I!%(LE5
U E!HO !;!; 1"3 4%
]3(;<= eABi(LE5
U e r c t }| rw| d dk( s | d t v rd| d t v r t | \ }} |j | n"| d dk( r|j t | dd } | r| d dk( rX| d t v rd| r| d dk7 r$t j dj | |j t t | dd \ }} |j | | r| d dk( r|j t | dd } | snw| d t v r t | \ }} |j | | snJ| d dk( r7|j t t | dd \ }} |j | | r | d dk( r| st j d | d dk7 r$t j d j | |j t dd
|| dd fS ) z obs-route = obs-domain-list ":"
obs-domain-list = *(CFWS / ",") "@" domain *("," [CFWS] ["@" domain])
Returns an obs-route token with the appropriate sub-tokens (that is,
there is no obs-domain-list in the parse tree).
r r r Nr- z(expected obs-route domain but found '{}'z%end of header while parsing obs-route:z4expected ':' marking end of obs-route but found '{}'zend-of-obs-route-marker) r r r r
ListSeparatorr r r= RouteComponentMarkerr3 r )r obs_routerS s r
get_obs_router< s
I
U1Xs]eAh+&= 8{ "#E?LE5 U #
1X_ ] +!"IE
U1Xs]eAh+&= E!HO%% 6 = =e DF F
)* eABi(LE5
U
E!HcM 'ab 8{ "#E?LE5 U # 8s? 1 2%eABi0LE5 U # E!HcM %%&MNN Qx3%% (''-ve}6 6
]3(ABC eABi r c x t }| r*| d t v r t | \ }} |j | | r| d dk7 r$t j
dj
| |j t dd | dd } | rZ| d dk( rR|j t dd |j j t j d | dd } || fS t | \ }} |j | | r| d dk( r| dd } n.|j j t j d |j t dd | r*| d t v r t | \ }} |j | || fS # t j
$ r t | \ }} |j j t j d
n;# t j
$ r% t j
d j
| w xY w|j | t | \ }} Y Hw xY w)
z angle-addr = [CFWS] "<" addr-spec ">" [CFWS] / obs-angle-addr
obs-angle-addr = [CFWS] "<" obs-route addr-spec ">" [CFWS]
r zangle-addr-endz null addr-spec in angle-addrz*obsolete route specification in angle-addrz.expected addr-spec or obs-route but found '{}'z"missing trailing '>' on angle-addr)
r r r r r r r= r r' ru r6 r< r )r
angle_addrrS s r get_angle_addrrA s4
J q[( u% E!HO%% 0 7 7 >@ @mC);<= !"IE
qS --=>?!!&"<"< *#, -ab 5 ,$U+ u e qS ab !!&"<"< 0#2 3mC)9:; q[( u% u ) " " , P(/LE5 % %f&A&A<'>
?&& P))@GGNP
P P % $U+ u ,s* "F
H9 ) r r r r= r r r rC r8 r" r rA )r name_addrr rS s r
get_name_addrrF s`
I
F %% / 6 6u =? ? Qx;
))3::6BD
D Qx3 8{ "))3::5AC
C'. u))3::5AC
C %(I. &xa! #Hbq F !%(LE5
Hbq
U e r c l t } t | \ }} t
d |j D rd|_ |j | || fS # t j $ rN t | \ }} n;# t j $ r% t j dj | w xY wY w xY w)z& mailbox = name-addr / addr-spec
z expected mailbox but found '{}'c 3 P K | ] }t |t j y wr$ )r8 r ru r0 s r r3 z get_mailbox..+ s% 3 11 a33 4 1 $&r )
r rF r r r6 r= anyrE rd r )r r rS s r get_mailboxrK s iGA$U+ u 3 % 1 1 3 3 . NN5 E> " " A A(/LE5&& A))188?A
A A As) A B3&A54B358B--B32B3c t }| r_| d |vrX| d t v r$|j t | d d | dd } n t | \ }} |j | | r| d |vrX|| fS )z Read everything up to one of the chars in endchars.
This is outside the formal grammar. The InvalidMailbox TokenList that is
returned acts like a Mailbox, but the data attributes are None.
r r& r N)r r r r r )r r invalid_mailboxrS s r get_invalid_mailboxrN 1 s %&O
E!HH, 8{ " " "=q1D$F
G!"IE%e,LE5 " "5 ) E!HH, E !!r c \ t }| r| d dk7 r t | \ }} |j | | ra| d dvrZ|d }d |_ t | d \ }} |j | |j j t j d | r"| d dk( r|j t | d
d } | r | d dk7 r|| fS # t j $ rL d}| d t
v rt
| \ }} | r| d dv r@|j | |j j t j d nt | d \ }} ||g|dd |j | |j j t j d n| d dk( r/|j j t j d nVt | d \ }} ||g|dd |j | |j j t j d Y w xY w) aJ mailbox-list = (mailbox *("," mailbox)) / obs-mbox-list
obs-mbox-list = *([CFWS] ",") mailbox *("," [mailbox / CFWS])
For this routine we go outside the formal grammar in order to improve error
handling. We recognize the end of the mailbox list only at the end of the
value or at a ';' (the group terminator). This is so that we can turn
invalid mailboxes into InvalidMailbox tokens and continue parsing any
remaining valid mailboxes. We also allow all mailbox entries to be null,
and this condition is handled appropriately at a higher level.
r ;Nz,;z empty element in mailbox-listz invalid mailbox in mailbox-listr r r r )r rK r r r r r r' r rN ru rd rQ r9 )r mailbox_listrS r r s r get_mailbox_listrR C s5 =L
E!HO 8&u-LE5 &4 U1XT) #2&G!2G .ud;LE5 NN5 ! ' '(B(B1)3
4 U1X_
.!"IEQ E!HOR K && 8FQx;& (
aD 0 ''/ ((//0K0K719 : $7ud#CLE5 )%+Hbq ''. ((//0J0J91; <qS $$++F,G,G3-5 6 35$ ? u%!'E"1I ##E* $$++F,F,F5-7 8/ 8s C E H+*H+c t }| s2|j j t j d || fS d}| r{| d t
v rpt
| \ }} | sC|j j t j d |j | || fS | d dk( r|j | || fS t | \ }} t |j dk( rV||j | |j | |j j t j d || fS ||g|dd |j | || fS )zg group-list = mailbox-list / CFWS / obs-group-list
obs-group-list = 1*([CFWS] ",") [CFWS]
z end of header before group-listNr zend of header in group-listrP z group-list with empty entries) r r' r r ru r r rR r r rQ r )r
group_listr rS s r get_group_listrU | sa
J !!&"<"< -#/ 05
F q[(
% %f&@&@-'/
0 f % u$ $ 8s? f % u$ $#E*LE5
5 " f %% !!&"="= +#- .5
Hbq e u r c t }t | \ }} | r| d dk7 r$t j dj | |j | |j t
dd | dd } | r*| d dk( r"|j t
dd || dd fS t | \ }} |j | | s/|j j t j d n,| d dk7 r$t j d
j | |j t
dd | dd } | r*| d t v r t | \ }} |j | || fS ) z7 group = display-name ":" [group-list] ";" [CFWS]
r r8 z8expected ':' at end of group display name but found '{}'z group-display-name-terminatorr NrP zgroup-terminatorzend of header in groupz)expected ';' at end of group but found {}) r rC r r r= r r rU r' ru r r )r r rS s r get_grouprW sa
GE#E*LE5 E!HO%% '**0&-9 9 LL LL s$CDE !"IE qS
]3(:;<eABi !%(LE5 LL
V 7 7 $ & ' qS %% 7 > >u EG G LL s$678 !"IE q[( u
U %<r c & t } t | \ }} |j
| || fS # t j $ rN t | \ }} n;# t j $ r% t j dj | w xY wY uw xY w)a address = mailbox / group
Note that counter-intuitively, an address can be either a single address or
a list of addresses (a group). This is why the returned Address object has
a 'mailboxes' attribute which treats a single address as a list of length
one. When you need to differentiate between to two cases, extract the single
element, which is either a mailbox or a group token.
z expected address but found '{}')r rW r r rK r= r )r r rS s r get_addressrY s " iGA ' u NN5 E> " " A A&u-LE5&& A))188?A
A A As' / BAB8B
BBc ^ t }| r t | \ }} |j | | re| d dk7 r]|d d }d|_ t | d \ }} |j | |j j t j d | r|j t | d d } | r|| fS # t j $ ra d}| d t
v rt
| \ }} | r| d dk( r@|j | |j j t j d nt | d \ }} ||g|dd |j t |g |j j t j d n| d dk( r/|j j t j d n`t | d \ }} ||g|dd |j t |g |j j t j d Y w xY w)
a address_list = (address *("," address)) / obs-addr-list
obs-addr-list = *([CFWS] ",") address *("," [address / CFWS])
We depart from the formal grammar here by continuing to parse until the end
of the input, assuming the input to be entirely composed of an
address-list. This is always true in email parsing, and allows us
to skip invalid addresses to parse additional valid ones.
Nr r z"address-list entry with no contentz invalid address in address-listz empty element in address-listr r r )r rY r r r r r r' r rN r ru rd rQ r9 )r address_listrS r r s r get_address_listr\ s( =L
8&u-LE5 &4 U1X_ #2&q)G!2G .uc:LE5 NN5 ! ' '(B(B1)3
4
.!"IEQ R K && 8FQx;& (
aC ''/ ((//0K0K<1> ? $7uc#BLE5 )%+Hbq ''(89 ((//0J0J91; <qS $$++F,G,G3-5 6 35# > u%!'E"1I ##GUG$45 $$++F,F,F5-7 8/ 8s B7 7E1H,+H,c t }| s$t j dj | | d dk7 r$t j dj | |j t dd | dd } t
| \ }} |j | | r| d dk7 r$t j d j | |j t dd
|| dd fS ) z& no-fold-literal = "[" *dtext "]"
z'expected no-fold-literal but found '{}'r r0 z;expected '[' at the start of no-fold-literal but found '{}'zno-fold-literal-startr Nr+ z9expected ']' at the end of no-fold-literal but found '{}'zno-fold-literal-end)r# r r r= r r r) )r no_fold_literalrS s r get_no_fold_literalr_ s $oO %% 5 < " [CFWS]
id-left = dot-atom-text / obs-id-left
id-right = dot-atom-text / no-fold-literal / obs-id-right
no-fold-literal = "[" *dtext "]"
r r> z expected msg-id but found '{}'z msg-id-startr Nzobsolete id-left in msg-idz4expected dot-atom-text or obs-id-left but found '{}'r- zmsg-id with no id-rightr? z
msg-id-endr5 zobsolete id-right in msg-idzFexpected dot-atom-text, no-fold-literal or obs-id-right but found '{}'z missing trailing '>' on msg-id)r r r r r r r= r r r r' r ru r_ r3 )r msg_idrS s r
get_msg_idrb ) s WF q[( u
e E!HO%% , 3 3E :< <
MM-^45 !"IE 1(/ u MM% E!HO f 8 8 % ' (
U1X_ MM-\: ;!"IEu}
MM-%89: !"IE
5(/ u MM% qS ab f 8 8 , . /
MM-\23 q[( u
e 5=a " " 1 1-e4LE5 NN ! !&"="=,#.
/&& 1))""(&-1
1 1
/ 14 " " 5
5.u5LE5&& 5
5 )% 0 u%%f&A&A1'3 4**
5 --&&,fUm5 5
54 5 5sx G ,I' I$(> ##F$>$> ? F Fv N%P QM&' :; [ M&( ;< q[( uE" E!HO ) ' '(B(BB)D
E
eW = >
c+>?@ !"IE q[( uE" ) ' '(B(BB)D
E
F
E!HK/%(ab E!HK/ >> ##F$>$> ? F Fv N%P QM&' :; [ M&( ;< q[( uE" ##F$>$> 5%7 8M% 9: r c t }| ra| d dk7 rY| d t v r$|j t | d d | dd } n t | \ }} |j | | r | d dk7 rY|| fS )z Read everything up to the next ';'.
This is outside the formal grammar. The InvalidParameter TokenList that is
returned acts like a Parameter, but the data attributes are None.
r rP r& r N)r\ r r r r )r invalid_parameterrS s r get_invalid_parameterrp s )*
E!HO 8{ " $ $]583F&H
I!"IE%e,LE5 $ $U + E!HO e ##r c t | }|s$t j dj | |j }| t | d } t
|d }t | || fS )a8 ttext =
We allow any non-TOKEN_ENDS in ttext, but add defects to the token's
defects list if we find non-ttext characters. We also register defects for
*any* non-printables even though the RFC doesn't exclude all of them,
because we follow the spirit of RFC 5322.
z expected ttext but found '{}'Nttext)_non_token_end_matcherr r r= r r r r )r r rr s r get_ttextrt sk u%A %% + 2 25 9; ;
GGIE #e*+ E % )EE %<r c n t }| r*| d t v r t | \ }} |j | | r/| d t v r$t j dj | t | \ }} |j | | r*| d t v r t | \ }} |j | || fS )ztoken = [CFWS] 1*ttext [CFWS]
The RFC equivalent of ttext is any US-ASCII chars except space, ctls, or
tspecials. We also exclude tabs even though the RFC doesn't.
The RFC implies the CFWS but is not explicit about it in the BNF.
r expected token but found '{}') r r r r
TOKEN_ENDSr r r= rt )r mtokenrS s r get_tokenry s WF q[( u
e qZ'%% + 2 25 9; ; U#LE5
MM% q[( u
e 5=r c t | }|s$t j dj | |j }| t | d } t
|d }t | || fS )aQ attrtext = 1*(any non-ATTRIBUTE_ENDS character)
We allow any non-ATTRIBUTE_ENDS in attrtext, but add defects to the
token's defects list if we find non-attrtext characters. We also register
defects for *any* non-printables even though the RFC doesn't exclude all of
them, because we follow the spirit of RFC 5322.
z expected attrtext but found {!r}Nrb )_non_attribute_end_matcherr r r= r r r r r r rb s r get_attrtextr}
sk #5)A %% . 5 5e <> >wwyH #h-. !E Xz2HH U?r c n t }| r*| d t v r t | \ }} |j | | r/| d t v r$t j dj | t | \ }} |j | | r*| d t v r t | \ }} |j | || fS )aH [CFWS] 1*attrtext [CFWS]
This version of the BNF makes the CFWS explicit, and as usual we use a
value terminal for the actual run of characters. The RFC equivalent of
attrtext is the token characters, with the subtraction of '*', "'", and '%'.
We include tab in the excluded set just as we do for token.
r rv ) r_ r r r ATTRIBUTE_ENDSr r r= r} r r` rS s r
get_attributer s I q[( u q^+%% + 2 25 9; ; &LE5
U q[( u e r c t | }|s$t j dj | |j }| t | d } t
|d }t | || fS )zattrtext = 1*(any non-ATTRIBUTE_ENDS character plus '%')
This is a special parsing routine so that we get a value that
includes % escapes as a single string (which we decode as a single
string later).
z)expected extended attrtext but found {!r}Nextended-attrtext)#_non_extended_attribute_end_matcherr r r= r r r r r| s r get_extended_attrtextr 4 sn ,E2A %% 7 > >u EG GwwyH #h-. !E X':;HH U?r c n t }| r*| d t v r t | \ }} |j | | r/| d t v r$t j dj | t | \ }} |j | | r*| d t v r t | \ }} |j | || fS )z [CFWS] 1*extended_attrtext [CFWS]
This is like the non-extended version except we allow % characters, so that
we can pick up an encoded value as a single string.
r rv ) r_ r r r EXTENDED_ATTRIBUTE_ENDSr r r= r r s r get_extended_attributer F s I q[( u q 44%% + 2 25 9; ;(/LE5
U q[( u e r c l t }| r| d dk7 r$t j dj | |j t dd | dd } | r| d j
s$t j dj | d}| r6| d j
r#|| d z
}| dd } | r| d j
r#|d d k( r3|d k7 r.|j j t j d
t | |_
|j t |d || fS ) a6 '*' digits
The formal BNF is more complicated because leading 0s are not allowed. We
check for that and add a defect. We also assume no CFWS is allowed between
the '*' and the digits, though the RFC is not crystal clear on that.
The caller should already have dealt with leading CFWS.
r *z Expected section but found {}zsection-markerr Nz$Expected section number but found {}r- 0z'section number has an invalid leading 0rh ) rf r r r= r r rj r' ru rk rV )r rg rh s r get_sectionr \ s2 iG E!HO%%&E&L&L(-'/ 0 0 NN=&678 !"IE a((*%% '117 @ @
F
E!H$$&%(ab E!H$$& ayCFcM v 9 99 ; <[GN NN=23 E>r c J t }| st j d d}| d t v rt | \ }} | s$t j dj | | d dk( rt
| \ }} nt | \ }} ||g|dd |j | || fS )z quoted-string / attribute
z&Expected value but found end of stringNr z Expected value but found only {}r ) ri r r r r r= r r r )r vr rS s r get_valuer z s A %%&NOO
F Qx;
%% '006v@ @ Qx3(/ u-e4 u
Hbq HHUO e8Or c 2
t }t | \ }} |j | | r| d dk( rA|j j t j
dj
| || fS | d dk( rm t | \ }} d|_ |j | | st j d | d dk( r'|j t dd | dd } d|_ | d d
k7 rt j d |j t d
d | dd } | r*| d t v r t | \ }} |j | d }|}|j r| r| d d
k( rt | \ }}|j }d}|j dk( r(|r |d dk( rd}n/t# | \ }}|r |d dk( rd}n t% | \ }}|sd} |ra|j j t j
d |j | |D ] } | j& dk( sg | d d | } n |} n0d }|j j t j
d | r | d dk( rd }nt) | \ }} |j r|j dkD rZ| r| d dk7 r"|j | | | rJ | |} || fS |j j t j
d | sF|j j t j
d |j | |#|| fS |I|D ] } | j& dk( s n j& dk( |j | | j* |_ | d dk7 r$t j dj
| |j t dd | dd } | rf| d dk7 r^t# | \ }} |j | |j* |_ | r| d dk7 r$t j dj
| |j t dd | dd } |et1 }
| rV| d t2 v rt5 | \ }} n(| d d
k( rt d
d }| dd } nt7 | \ }} |
j | | rV|
}nt) | \ }} |j | | | rJ | |} || fS # t j $ r Y iw xY w# Y @xY w)aY attribute [section] ["*"] [CFWS] "=" value
The CFWS is implied by the RFC but not made explicit in the BNF. This
simplified form of the BNF from the RFC is made to conform with the RFC BNF
through some extra checks. We do it this way because it makes both error
recovery and working with the resulting parse tree easier.
r rP z)Parameter contains name ({}) but no valuer TzIncomplete parameterzextended-parameter-markerr N=z Parameter not followed by '='parameter-separatorr F'z5Quoted string value for extended parameter is invalidr zZParameter marked as extended but appears to have a quoted string value that is non-encodedzcApparent initial-extended-value but attribute was not marked as extended or was not initial sectionz(Missing required charset/lang delimitersr rb z=Expected RFC2231 char/lang encoding delimiter, but found {!r}zRFC2231-delimiterz;Expected RFC2231 char/lang encoding delimiter, but found {}DQUOTE) rQ r r r' r ru r= r rU r r rZ r r r r rW r} r rd r r r r ri r r r ) r r rS r appendtoqstring inner_value
semi_validr tr s r
get_parameterr s+
KE 'LE5 LL E!HO
V 7 7 9%%+VE] 4 5e| Qx3 &u-LE5 "EO LL ))*@A A 8s? LL s,GH I!"IE !EN Qx3%%&EFF LL s$9:; !"IE q[( u
UIH ~~%E!HO /u 5 ,,
1 ${1~ 4 !
*; 7 tDGsN!%J
& 3K @ t !%J MM !;!;G"I
J LL ! <<#77 AaD H
E I MM !;!;:";
<
qS ' u >>U 1 1A 5aC OOE "$ '%'y!%<
V 7 7
D E F
V 7 7 6 8 9 %< <<#66
LLJ & OOA GGEM 8s?)) +FFLfUmU
U
c+>?@ab U1X_'.LE5 OOE " EJE!HO -- /<?@ab GQx3 &u~ uqS %c84 ab +E 2 u
HHUO ' u OOE % y %<i && D
s >&S7 T 7T
TTc t }| r t | \ }} |j | | rp| d dk7 rh|d }d|_ t | \ }} |j | |j j t j dj | | r |j t dd | d
d } | r|S # t j $ r d}| d t
v rt
| \ }} | s|j | |cY S | d dk( rB||j | |j j t j d ndt | \ }} |r|g|dd |j | |j j t j dj | Y w xY w) a! parameter *( ";" parameter )
That BNF is meant to indicate this routine should only be called after
finding and handling the leading ';'. There is no corresponding rule in
the formal RFC grammar, but it is more convenient for us for the set of
parameters to be treated as its own TokenList.
This is 'parse' routine because it consumes the remaining value, but it
would never be called to parse a full header. Instead it is called to
parse everything after the non-parameter value of a specific MIME header.
Nr rP z parameter entry with no contentzinvalid parameter {!r}r r] z)parameter with invalid trailing text {!r}r r )rl r r r r r r r' ru rp r= rd rQ r )r mime_parametersrS r r s r parse_mime_parametersr
s %&O
=(/LE5 " "5 )( U1X_ $B'E 2E 07LE5 LL # # * *6+E+E;BB5I,K
L " "=6K#L M!"IEG H A && =FQx;& (
&&v.&&Qx3%#**62 ''..v/I/I507 8 5U ; u!'E"1I &&u- ''..v/I/I,33E:0< =# =s C AF= B.F=<F=c @ |ra|d dk7 rY|d t v r$| j t |d d |dd }n t | \ }}| j | |r |d dk7 rY|sy| j t dd | j t |dd y)zBDo our best to find the parameters in an invalid MIME header
r rP r& r Nr )r r r r r ) tokenlistr rS s r _find_mime_parametersr Q
s E!HO 8{ " ]585H I J!"IE%e,LE5 U #
E!HO
]3(=>?
*5956r c 8 t }| s0|j j t j d |S t | \ }} |j | | r| d dk7 r>|j j t j d | r t || |S |j j j |_
|j t dd | dd } t | \ }} |j | |j j j |_ | s|S | d d
k7 rO|j j t j d j | |`
|`t || |S |j t d
d |j t! | dd |S # t j $ rN |j j t j dj | t || |cY S w xY w# t j $ rN |j j t j d j | t || |cY S w xY w)
z maintype "/" subtype *( ";" parameter )
The maintype and substype are tokens. Theoretically they could
be checked against the official IANA list + x-token, but we
don't do that.
z"Missing content type specificationz(Expected content maintype but found {!r}r r zInvalid content typezcontent-type-separatorr Nz'Expected content subtype but found {!r}rP z > 0 2 3 ' u
LL E!HO
V 7 7 " $ % !% / [[&&(..0EN LL s$<=> !"IE ' u
LLKK%%'--/EM Qx3
V 7 7
( )
NEM eU+ LL s$9:; LL&uQRy12 LQ " "
V 7 7 6 = =e D F G eU+ & " "
V 7 7 5 < . s% . ,q a!>!>? ,rI unknown-8bitTrm rU r r! r r rJ rw r r )"max_line_lengthsysmaxsizeutf8r r r7 r rd
SPECIALSNL
isdisjointNLSETr! r{ rJ rE _fold_mime_parametersrM rj rY r r r r re _fold_as_ewrk rJ r r7 r r r insert)
parse_treerV maxlenrq r leading_whitespacelast_ew last_charsetr
want_encodingend_ew_not_allowedr rN tstrr encoded_partnewlinewhitespace_accumulatorcharnewpartsps r rW rW
s
#
#
2s{{F ++w:H
DE GLM!"&:; E
yy| % % ! # 4y "44$.$9$9$$? ?
%*$4$4T$: :
! KK ! G ?? / / !$vx @ !3%% %
''#'99F9#;Q=Q#RL ~~\9 |,vE"I/FF&CE&JG !LL 1 b \1
4* T
U* %
## '|+!^3!W,J1F "G%dE67&*&=&=wHZ\ &(" & %
%
t9U2Y / / "I I
D A
'3E:G$--/
Wt^,)+& !"ID3 *11$7 & &(WW-C%D" tX&DzH"66
#301 &( & ##4Q#7A &(( #3012
)+"301 '( & / ##9!#> u % 66} " ! . , ,. .( " M !B( (s :P) # Q 1-Q!),QQc |+|r)t t |d |d | z } |d d| |d< nM| d t v rB| d }| dd } t |d |k( r|j t | |dxx |z
cc< d}| d t v r
| d }| dd } |t |d n|} |dk( rdn|}
t |
dz } | dz |k\ rt
j d | r!|t |d z
} | | z
t | z
}
|
dk r|j d
b [ L} } crN $+O#eBi.K"j0gI Y !#JQ6!%% AC C 3uRy>1$z1C8J4KK
? LL u:>c%)n 16H ::&8)LL "I %I!# ";J/zz.)D \"_4qj ,CR 0N ::niHL & 8F qj b \! c. 1 23 LL eBi.K? @
"I I,;6$6r c | j D ] \ }}|d j j d s
|dxx dz
cc< |}d} |j | d}|r6t j j |d |
} d j ||| }
nd j |t | }
t |d t |
z d
z |k r|d dz |
z |d< t |
dz |k r|j d|
z d} |dz } |st | t t | z dz t | z }
||
dz k rd}||
z
dz
x}} |d| }t j j |d |
} t | |k rn|d
z }<|j dj || | | d } | d
z
} ||d }|r
|dxx dz
cc< |r y# t $ r" d}t j | rd}d}nd}Y w xY w)a> Fold TokenList 'part' into the 'lines' list as mime parameters.
Using the decoded list of parameters and values, format them according to
the RFC rules, including using RFC2231 encoding if the value cannot be
expressed in 'encoding' and/or the parameter+value is too long to fit
within 'maxlen'.
r rP strictFTr rp r r- )safer z
{}*={}''{}r r rs r r z''r( N Nz {}*{}*={}{})r r* rc r! r{ r r| rv rw r r= r r r r )rN r r rq r r r
error_handlerencoding_required
encoded_valuer rg extra_chromer
splitpointmaxcharspartials r r r sA {{ e Ry !**3/ "I I
" LL " % "LL . .B} / 6M &&tWmDD>>$ U(;CI % )F 2 b C$.E"I
Y]f
$ LLt $ ~ TSW %66:S =NNJa '
$*Z$7!$; ;J , & 2 2"] !3 !<
}%1a
LL ..g|]<
= L qLG*+&Eb S - I # " " $ $$U+( 1
!
"s G'G>=G>)r )r rer rv stringr operatorr emailr r r r r. r r r r
r/ r TSPECIALSrw ASPECIALSr r r r r r r compileVERBOSE MULTILINEr r r" rp r| r r r r r r r r r r r r r r r r r r r r r r r# r% r3 r5 r= rG rM rQ r\ r_ rf ri rl r r r r r r r r r r r r r r r r rA r9 rM rj r: r= r7 r r r matchr findallr rs r{ r r r r r r r r r r r r r r r r r r r$ r r) r. r1 r3 r6 r< rA rC rF rK rN rR rU rW rY r\ r_ rb rf rm rp rt ry r} r r r r r r r r r r r r rW r r rt r r r s: CJ
'
%jCHn sN CH$
U#
E
"c#h .
_
E
" S (3s83
t
@
1 "** ZZ",, @, @,FD) D I Y 9 " 9 I
) #9 #6 -| - ! 4C) C&%i %2 ?) ? % %"$I $*"y "6 DDy D!i !6;Y ;.Y . i )
I
y B9 -!& -!`! !H
I
) 8%y %
# #i I S.Y S.l y * 1 i )
*I * &y &Y (+s (+V' 'H - > #I$4$4
BIIbggj!"%$ %%*U 'RZZ (8(8
BIIbggn%&)( )). &0bjj1A1A
BIIbgg-./21 '227% $; J<
/bAF"
))V 2 $6 &2 D$L% N2!h(%!N$L ) V, \ " H*"$6 r# J <:4 n&,BJ8BH$$&.& .$ ,<,KZ2h7 6p < ^`7DJ7XI!r