⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.30
Server IP:
45.79.8.107
Server:
Linux localhost 5.15.0-140-generic #150-Ubuntu SMP Sat Apr 12 06:00:09 UTC 2025 x86_64
Server Software:
nginx/1.18.0
PHP Version:
8.1.2-1ubuntu2.21
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
lib
/
python3.10
/
email
/
__pycache__
/
View File Name :
_header_value_parser.cpython-310.pyc
o }5h7 @ s d Z ddlZddlZddlZddlmZ ddlmZ ddlm Z ddlm Z ddlm Z e dZee d B Ze d ZeeB Zee d Zee d Zee d B e d ZeeB Zee dB ZeeB Zee d ZddhZeeB Zdd Ze dej ej B Z G dd de Z!G dd de!Z"G dd de!Z#G dd d e!Z$G d d d e!Z%G d d d e"Z&G d!d" d"e!Z'G d#d$ d$e!Z(G d%d& d&e!Z)G d'd( d(e!Z*G d)d* d*e*Z+G d+d, d,e"Z,G d-d. d.e!Z-G d/d0 d0e!Z.G d1d2 d2e!Z/G d3d4 d4e!Z0G d5d6 d6e!Z1G d7d8 d8e!Z2G d9d: d:e!Z3G d;d< d<e!Z4G d=d> d>e!Z5G d?d@ d@e!Z6G dAdB dBe!Z7G dCdD dDe!Z8G dEdF dFe!Z9G dGdH dHe!Z:G dIdJ dJe!Z;G dKdL dLe!Z<G dMdN dNe$Z=G dOdP dPe!Z>G dQdR dRe!Z?G dSdT dTe!Z@G dUdV dVe!ZAG dWdX dXeAZBG dYdZ dZe!ZCG d[d\ d\e!ZDG d]d^ d^e!ZEG d_d` d`e!ZFG dadb dbe!ZGG dcdd ddeGZHG dedf dfeGZIG dgdh dhe!ZJG didj dje!ZKG dkdl dle!ZLG dmdn dneLZMG dodp dpeMZNG dqdr dre!ZOG dsdt dtePZQG dudv dveQZRG dwdx dxeQZSG dydz dzeRZTG d{d| d|e jUZVeSd d}ZWeSd~dZXdeX_YdeX_ZeSddZ[e d\d]ej^Z_e d\e`d]ejaZbe djcZde d\e`d]ejaZee d\e`d]ejaZfe d\e`d]ejaZgdd Zhdd Zidd Zjdd Zkdd Zldd Zmdd Zndd Zodd Zpdd Zqdd Zrdd Zsdd Ztdd Zudd Zvdd Zwdd Zxdd Zydd Zzdd Z{dd Z|dd Z}dd Z~dd Zdd Zdd Zdd Zdd Zdd Zdd ZddĄ ZddƄ ZddȄ Zddʄ Zdd̄ Zdd΄ ZddЄ Zdd҄ ZddԄ Zddք Zdd Zddڄ Zdd܄ Zddބ Zdd Zdd Zdd Zdd Zdd Zdd Zdd Zdd Zdd Zdd Zdd Zdd Zdd Zdd ZdS )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 C s dt | dddd d S )N"\\\z\")strreplacevalue r 1/usr/lib/python3.10/email/_header_value_parser.py quote_stringb s r z =\? # literal =? [^?]* # charset \? # literal ? [qQbB] # literal 'q' or 'b', case insensitive \? # literal ? .*? # encoded word \?= # literal ?= c s e Zd ZdZdZdZ fddZdd Z fddZe d d Z e d d Z d d Z e dd Z e dd Zdd Zd ddZd ddZd ddZ ZS ) TokenListNTc s t j|i | g | _d S N)super__init__defects)selfargskw __class__r r r { s zTokenList.__init__c C d dd | D S )N c s | ]}t |V qd S r r .0xr r r <genexpr> z$TokenList.__str__.<locals>.<genexpr>joinr r r r __str__ zTokenList.__str__c d | jjt S Nz{}({})formatr __name__r __repr__r+ r r r r3 s zTokenList.__repr__c C r )Nr! c s s | ] }|j r|j V qd S r r r$ r r r r' s z"TokenList.value.<locals>.<genexpr>r) r+ r r r r zTokenList.valuec C s t dd | D | jS )Nc s | ]}|j V qd S r ) all_defectsr$ r r r r' z(TokenList.all_defects.<locals>.<genexpr>)sumr r+ r r r r6 s zTokenList.all_defectsc C s | d S Nr )startswith_fwsr+ r r r r: zTokenList.startswith_fwsc C s t dd | D S )zATrue if all top level tokens of this part may be RFC2047 encoded.c s r5 r ) as_ew_allowed)r% partr r r r' r7 z*TokenList.as_ew_allowed.<locals>.<genexpr>)allr+ r r r r< s zTokenList.as_ew_allowedc C s g }| D ]}| |j q|S r )extendcomments)r r@ tokenr r r r@ s zTokenList.commentsc C s t | |dS )Npolicy)_refold_parse_treer rC r r r fold r; zTokenList.foldr! c C s t | j|d d S )Nindent)printppstrr rH r r r pprint r- zTokenList.pprintc C s d | j|dS )Nr rG )r* _pprK r r r rJ s zTokenList.ppstrc c s| d || jj| jV | D ]}t|ds |d | V q||d E d H q| jr3d | j}nd}d ||V d S )Nz{}{}/{}(rM z* !! invalid element in token list: {!r}z z Defects: {}r! z{}){})r1 r r2 token_typehasattrrM r )r rH rA extrar r r rM s z TokenList._ppr! )r2 __module__ __qualname__rN syntactic_breakew_combine_allowedr r, r3 propertyr r6 r: r< r@ rF rL rJ rM __classcell__r r r r r u s( r c @ s$ e Zd Zedd Zedd ZdS )WhiteSpaceTokenListc C dS N r r+ r r r r zWhiteSpaceTokenList.valuec C dd | D S )Nc S g | ] }|j d kr|jqS )comment)rN contentr$ r r r <listcomp> z0WhiteSpaceTokenList.comments.<locals>.<listcomp>r r+ r r r r@ z WhiteSpaceTokenList.commentsN)r2 rR rS rV r r@ r r r r rX s rX c @ e Zd ZdZdS )UnstructuredTokenList unstructuredNr2 rR rS rN r r r r re re c @ rd )PhrasephraseNrg r r r r ri rh ri c @ rd )WordwordNrg r r r r rk rh rk c @ rd )CFWSListcfwsNrg r r r r rm rh rm c @ rd )AtomatomNrg r r r r ro rh ro c @ e Zd ZdZdZdS )TokenrA FN)r2 rR rS rN encode_as_ewr r r r rr rr c @ s e Zd ZdZdZdZdZdS ) EncodedWord encoded-wordN)r2 rR rS rN ctecharsetlangr r r r ru ru c @ 4 e Zd ZdZedd Zedd Zedd ZdS ) QuotedString quoted-stringc C " | D ] }|j dkr|j S qd S Nbare-quoted-stringrN r r r& r r r r` zQuotedString.contentc C s> g }| D ]}|j dkr|t| q||j qd|S )Nr r! )rN appendr r r* )r resr& r r r quoted_value s zQuotedString.quoted_valuec C r~ r r r rA r r r stripped_value r zQuotedString.stripped_valueN)r2 rR rS rN rV r` r r r r r r r| s r| c @ s$ e Zd ZdZdd Zedd ZdS )BareQuotedStringr c C s t ddd | D S )Nr! c s r" r r# r$ r r r r' r( z+BareQuotedString.__str__.<locals>.<genexpr>)r r* r+ r r r r, s zBareQuotedString.__str__c C r )Nr! c s r" r r# r$ r r r r' r( z)BareQuotedString.value.<locals>.<genexpr>r) r+ r r r r r4 zBareQuotedString.valueN)r2 rR rS rN r, rV r r r r r r s r c @ s8 e Zd ZdZdd Zdd Zedd Zedd Zd S ) Commentr_ c s( d tdg fdd D dggg S )Nr! r c s g | ]} |qS r )quoter$ r+ r r ra s z#Comment.__str__.<locals>.<listcomp>))r* r8 r+ r r+ r r, s zComment.__str__c C s2 |j dkr t|S t|ddddddS )Nr_ r r r z\(r z\))rN r r )r r r r r r s z Comment.quotec C r )Nr! c s r" r r# r$ r r r r' r( z"Comment.content.<locals>.<genexpr>r) r+ r r r r` r4 zComment.contentc C s | j gS r )r` r+ r r r r@ s zComment.commentsN) r2 rR rS rN r, r rV r` r@ r r r r r s r c @ r{ ) AddressListz address-listc C r] )Nc S g | ] }|j d kr|qS )addressrN r$ r r r ra ) z)AddressList.addresses.<locals>.<listcomp>r r+ r r r addresses' rc zAddressList.addressesc C t dd | D g S )Nc s | ] }|j d kr|jV qdS r NrN mailboxesr$ r r r r' - z(AddressList.mailboxes.<locals>.<genexpr>r8 r+ r r r r + zAddressList.mailboxesc C r )Nc s r r rN all_mailboxesr$ r r r r' 2 r z,AddressList.all_mailboxes.<locals>.<genexpr>r r+ r r r r 0 r zAddressList.all_mailboxesN)r2 rR rS rN rV r r r r r r r r # s r c @ r{ ) Addressr c C | d j dkr | d jS d S )Nr grouprN display_namer+ r r r r : zAddress.display_namec C s4 | d j dkr | d gS | d j dkrg S | d jS Nr mailboxinvalid-mailboxr r+ r r r r ? s zAddress.mailboxesc C s: | d j dkr | d gS | d j dkr| d gS | d jS r r r+ r r r r G s zAddress.all_mailboxesN)r2 rR rS rN rV r r r r r r r r 6 s r c @ ( e Zd ZdZedd Zedd ZdS ) MailboxList mailbox-listc C r] )Nc S r )r r r$ r r r ra U r z)MailboxList.mailboxes.<locals>.<listcomp>r r+ r r r r S rc zMailboxList.mailboxesc C r] )Nc S s g | ] }|j d v r|qS ))r r r r$ r r r ra Y s z-MailboxList.all_mailboxes.<locals>.<listcomp>r r+ r r r r W rc zMailboxList.all_mailboxesNr2 rR rS rN rV r r r r r r r O s r c @ r ) GroupList group-listc C | r | d j dkr g S | d jS Nr r r r+ r r r r a zGroupList.mailboxesc C r r r r+ r r r r g r zGroupList.all_mailboxesNr r r r r r ] s r c @ r{ ) Groupr c C | d j dkr g S | d jS N r r r+ r r r r r zGroup.mailboxesc C r r r r+ r r r r x r zGroup.all_mailboxesc C | d j S r9 )r r+ r r r r ~ zGroup.display_nameN)r2 rR rS rN rV r r r r r r r r n s r c @ L e Zd ZdZedd Zedd Zedd Zedd Zed d Z d S ) NameAddr name-addrc C s t | dkrd S | d jS N r )lenr r+ r r r r zNameAddr.display_namec C r N local_partr+ r r r r r zNameAddr.local_partc C r r domainr+ r r r r r zNameAddr.domainc C r r )router+ r r r r r zNameAddr.routec C r r addr_specr+ r r r r r zNameAddr.addr_specN r2 rR rS rN rV r r r r r r r r r r s r c @ s@ e Zd ZdZedd Zedd Zedd Zedd Zd S ) AngleAddrz angle-addrc C r~ N addr-spec)rN r r r r r r r zAngleAddr.local_partc C r~ r rN r r r r r r r zAngleAddr.domainc C r~ )N obs-route)rN domainsr r r r r r zAngleAddr.routec C s< | D ]}|j dkr|jr|j S t|j|j S qdS )Nr z<>)rN r r r r r r r r s zAngleAddr.addr_specN) r2 rR rS rN rV r r r r r r r r r s r c @ e Zd ZdZedd ZdS )ObsRouter c C r] )Nc S r^ r r r$ r r r ra rb z$ObsRoute.domains.<locals>.<listcomp>r r+ r r r r rc zObsRoute.domainsN)r2 rR rS rN rV r r r r r r r c @ r ) Mailboxr c C r Nr r r r+ r r r r r zMailbox.display_namec C r r9 r r+ r r r r r zMailbox.local_partc C r r9 r r+ r r r r r zMailbox.domainc C r r )rN r r+ r r r r r z Mailbox.routec C r r9 r r+ r r r r r zMailbox.addr_specNr r r r r r s r c @ s, e Zd ZdZedd Ze Z Z ZZ dS )InvalidMailboxr c C d S r r r+ r r r r r\ zInvalidMailbox.display_nameNr r r r r r s r c s( e Zd ZdZdZe fddZ ZS )Domainr Fc d t j S Nr! r* r r splitr+ r r r r z Domain.domain)r2 rR rS rN r< rV r rW r r r r r s r c @ rd )DotAtomdot-atomNrg r r r r r rh r c @ rq ) DotAtomTextz dot-atom-textTNr2 rR rS rN r< r r r r r rt r c @ rq ) NoFoldLiteralzno-fold-literalFNr r r r r r rt r c @ sD e Zd ZdZdZedd Zedd Zedd Zed d Z d S ) AddrSpecr Fc C r r9 r r+ r r r r r zAddrSpec.local_partc C s t | dk rd S | d jS )N r )r r r+ r r r r r zAddrSpec.domainc C s< t | dk r | d jS | d j | d j | d j S )Nr r r r )r r rstriplstripr+ r r r r s &zAddrSpec.valuec C sL t | j}t|t|t krt| j}n| j}| jd ur$|d | j S |S )N@)setr r DOT_ATOM_ENDSr r )r namesetlpr r r r s zAddrSpec.addr_specN) r2 rR rS rN r< rV r r r r r r r r r s r c @ rq ) ObsLocalPartzobs-local-partFNr r r r r r ( r c s4 e Zd ZdZdZedd Ze fddZ ZS ) DisplayNamez display-nameFc C s t | }t|dkr |jS |d jdkr|d n|d d jdkr/t |d dd |d< |d jdkr=| |jS |d d jdkrRt |d d d |d< |jS )Nr rn r r )r r r rN pop)r r r r r r 3 s zDisplayName.display_namec s d}| j rd}n | D ] }|jdkrd}q t| dkrM|rMd }}| d jdks0| d d jdkr2d}| d jdksB| d d jdkrDd}|t| j | S t jS ) NFTr} r r! rn r[ r )r rN r r r r r )r r r& prepostr r r r D s zDisplayName.value) r2 rR rS rN rU rV r r rW r r r r r . s r c @ s, e Zd ZdZdZedd Zedd ZdS ) LocalPartz local-partFc C s" | d j dkr | d jS | d jS )Nr r} )rN r r r+ r r r r ] s zLocalPart.valuec C s t g}t }d}| d t g D ]J}|jdkrq|r.|jdkr.|d jdkr.t|d d |d< t|t}|rM|jdkrM|d jdkrM|t|dd n|| |d }|}qt|dd }|jS )NFr rn dotr r )DOTrN r isinstancer r )r r last last_is_tltokis_tlr r r r d s$ zLocalPart.local_partN)r2 rR rS rN r< rV r r r r r r r X s r c s4 e Zd ZdZdZe fddZedd Z ZS ) DomainLiteralzdomain-literalFc r r r r+ r r r r r zDomainLiteral.domainc C r~ )Nptextr r r r r ip r zDomainLiteral.ip) r2 rR rS rN r< rV r r rW r r r r r | s r c @ s e Zd ZdZdZdZdS ) MIMEVersionz mime-versionN)r2 rR rS rN majorminorr r r r r s r c @ s4 e Zd ZdZdZdZdZedd Zedd Z dS ) Parameter parameterFus-asciic C s | j r| d jS dS r ) sectionednumberr+ r r r section_number s zParameter.section_numberc C sf | D ].}|j dkr|j S |j dkr0|D ]}|j dkr/|D ]}|j dkr.|j S q qqdS )Nr r} r r! )rN r r r r r param_value s zParameter.param_valueN) r2 rR rS rN r extendedrx rV r r r r r r r s r c @ rd )InvalidParameterinvalid-parameterNrg r r r r r s r c @ r ) Attribute attributec C s$ | D ] }|j dr|j S qd S )Nattrtext)rN endswithr r r r r r s zAttribute.stripped_valueNr2 rR rS rN rV r r r r r r r r c @ s e Zd ZdZdZdS )SectionsectionN)r2 rR rS rN r r r r r r r r c @ r )Valuer c C s2 | d }|j dkr | d }|j dr|jS | jS )Nr rn r )r} r zextended-attribute)rN r r r r r r r r s zValue.stripped_valueNr r r r r r r r c @ s( e Zd ZdZdZedd Zdd ZdS )MimeParametersmime-parametersFc c s i }| D ]*}|j dsq|d j dkrq|d j }||vr%g ||< || |j|f q| D ]\}}t|tdd}|d d }|j }|j smt |dkrm|d d dkrm|d d j t d |d d }g }d}|D ]n\} } | |kr| j s| j t d qs| j t d |d7 }| j} | j rztj| } W n ty tjj| d d } Y n(w z| |d } W n ttfy | d d } Y nw t| r| j t || qsd |} || fV q4d S )Nr r r )keyr z.duplicate parameter name; duplicate(s) ignoredz+duplicate parameter name; duplicate ignoredz(inconsistent RFC2231 parameter numberingzlatin-1)encodingsurrogateescaper r! )rN r r stripr r itemssortedr rx r r r r InvalidHeaderDefectr urllibparseunquote_to_bytesUnicodeEncodeErrorunquotedecode LookupErrorr _has_surrogatesUndecodableBytesDefectr* ) r paramsrA nameparts first_paramrx value_partsir paramr r r r r sh zMimeParameters.paramsc C sT g }| j D ]\}}|r|d|t| q|| qd|}|r(d| S dS )N{}={}z; r[ r! )r r r1 r r* )r r r! r r r r r, s zMimeParameters.__str__N)r2 rR rS rN rT rV r r, r r r r r s Er c @ r )ParameterizedHeaderValueFc C s& t | D ] }|jdkr|j S qi S )Nr )reversedrN r r r r r r / s z ParameterizedHeaderValue.paramsN)r2 rR rS rT rV r r r r r r( ) s r( c @ s e Zd ZdZdZdZdZdS ) ContentTypez content-typeFtextplainN)r2 rR rS rN r< maintypesubtyper r r r r* 7 rz r* c @ s e Zd ZdZdZdZdS )ContentDispositionzcontent-dispositionFN)r2 rR rS rN r< content_dispositionr r r r r/ > r/ c @ s e Zd ZdZdZdZdS )ContentTransferEncodingzcontent-transfer-encodingF7bitN)r2 rR rS rN r< rw r r r r r2 D r1 r2 c @ rq ) HeaderLabelz header-labelFNr r r r r r4 J rt r4 c @ s e Zd ZdZdZdd ZdS )MsgIDzmsg-idFc C s t | |j S r )r lineseprE r r r rF S rc z MsgID.foldN)r2 rR rS rN r< rF r r r r r5 O s r5 c @ rd ) MessageIDz message-idNrg r r r r r7 X rh r7 c @ rd )InvalidMessageIDzinvalid-message-idNrg r r r r r8 \ rh r8 c @ rd )HeaderheaderNrg r r r r r9 ` rh r9 c sr e Zd ZdZdZdZ fddZ fddZdd Ze dd Z d fd d Z d d Z e dd Z dd Z ZS )TerminalTc s t | |}||_g |_|S r )r __new__rN r )clsr rN r r r r r< n s zTerminal.__new__c r. r/ r0 r+ r r r r3 t s zTerminal.__repr__c C s t | jjd | j d S )N/)rI r r2 rN r+ r r r rL w s zTerminal.pprintc C s t | jS r )listr r+ r r r r6 z r zTerminal.all_defectsr! c s6 d || jj| jt | jsdgS d | jgS )Nz {}{}/{}({}){}r! z {})r1 r r2 rN r r3 r rK r r r rM ~ s z Terminal._ppc C r r r r+ r r r pop_trailing_ws r\ zTerminal.pop_trailing_wsc C s g S r r r+ r r r r@ r\ zTerminal.commentsc C s t | | jfS r )r rN r+ r r r __getnewargs__ s zTerminal.__getnewargs__rQ )r2 rR rS r< rU rT r< r3 rL rV r6 rM r@ r@ rA rW r r r r r; h s r; c @ e Zd Zedd Zdd ZdS )WhiteSpaceTerminalc C rY rZ r r+ r r r r r\ zWhiteSpaceTerminal.valuec C rY )NTr r+ r r r r: z!WhiteSpaceTerminal.startswith_fwsNr2 rR rS rV r r: r r r r rC rC c @ rB ) ValueTerminalc C s | S r r r+ r r r r r\ zValueTerminal.valuec C rY )NFr r+ r r r r: rD z ValueTerminal.startswith_fwsNrE r r r r rG rF rG c @ rB )EWWhiteSpaceTerminalc C rY r r r+ r r r r r\ zEWWhiteSpaceTerminal.valuec C rY r r r+ r r r r, rD z EWWhiteSpaceTerminal.__str__N)r2 rR rS rV r r, r r r r rH rF rH c @ rd )_InvalidEwErrorz1Invalid encoded word found while parsing headers.N)r2 rR rS __doc__r r r r rI rh rI r ,zlist-separatorFr zroute-component-markerz([{}]+)r! z[^{}]+z[\x00-\x20\x7F]c C sB t | }|r| jt| t| r | jtd dS dS )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_printablesr r r _validate_xtext s rP c C s t | d^}}g }d}d}tt|D ]&}|| dkr%|r"d}d}nd}q|r*d}n|| |v r2 n ||| q|d }d|d||d g| |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 r* )r endcharsfragment remaindervcharsescapehad_qpposr r r _get_ptext_to_endchars s$ $rZ c C s. | }t| dt| t| 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 rC r )r newvaluer[ r r r get_fws s r] c C s t }| dstd| | dd dd^}}|| dd kr,td| d|}t|dkrX|d tv rX|d tv rX| d dk rX|dd^}}|d | }t| dkri|j t d | |_ d|} ztd| d \}}}} W n ttfy td |j w ||_||_|j | |r|d tv rt|\} }| | qt|d^} }t| d } t| | | d|}|s| r| d tvr|j t d || fS )zE encoded-word = "=?" charset "?" encoding "?" encoded-text "?=" =?z"expected encoded word but found {}r Nz?=r r! r ?z whitespace inside encoded wordz!encoded word format invalid: '{}'vtextz.missing trailing whitespace after encoded-word)ru startswithr HeaderParseErrorr1 r r* r r countr r r rw _ewr ValueErrorKeyErrorrI rx ry r? WSPr] rQ rG rP ) r ewr rU remstrrestr+ rx ry r rA charsr` r r r get_encoded_word sb rl c C s> t }| r| d tv rt| \}} || qd}| drszt| \}} W n ty1 d}Y nB tjy: Y n9w d}t |dkrU|d j dkrU|j t d d}|rmt |dkrm|d j d krmt |d d|d< || qt| d^}}|rt|r| d^}}t|d }t| || d |} | s|S ) 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^ Fr r[ z&missing whitespace before encoded wordr rv r` r! )re rg r] r ra rl rI r rb r rN r r rH rQ rfc2047_matchersearch partitionrG rP r* )r rf rA valid_ewhave_wsr rU r` r r r get_unstructuredC sL )rs c C * t | d\}} }t|d}t| || fS )a ctext = <printable ascii except \ ( )> 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()r )rZ rC rP r r _r r r get_qp_ctext s rw c C rt )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 r )rZ rG rP ru r r r get_qcontent s rx c C N t | }|std| | }| t|d } t|d}t| || fS )zatext = <matches _atext_matcher> 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 rb r1 r r rG rP )r mrz r r r get_atext s r} c C sn | d dkrt d| t }| dd } | r*| d dkr*t| \}} || | r| d dkr| d tv r?t| \}} nT| dd dkrd}zt| \}} |j t d d }W n t jyl t| \}} Y nw |rt |dkr|d j d kr|d j dkrt |d d |d < nt| \}} || | r| d dks2| s|j t d || fS || dd fS )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[ rm rv z"end of header inside quoted string)r rb r1 r rx r rg r] rl r r r rN rH )r bare_quoted_stringrA rq r r r get_bare_quoted_string sN r c C s | r| d dkrt d| t }| dd } | rN| d dkrN| d tv r.t| \}} n| d dkr;t| \}} nt| \}} || | rN| d dks!| s]|j t 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 rb r1 r rg r] get_commentrw r r r )r r_ rA r r r r s( r c C s^ t }| r+| d tv r+| d tv rt| \}} nt| \}} || | r+| d tv s || fS )z,CFWS = (1*([FWS] comment) [FWS]) / FWS r )rm CFWS_LEADERrg r] r r )r rn rA r r r get_cfws s r c C sp t }| r| d tv rt| \}} || t| \}} || | r4| d tv r4t| \}} || || fS )zquoted-string = [CFWS] <bare-quoted-string> [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_stringrA r r r get_quoted_string s r c C s t }| r| d tv rt| \}} || | r&| d tv r&td| | drDzt | \}} W n tjyC t | \}} Y nw t | \}} || | rb| d tv rbt| \}} || || fS )zPatom = [CFWS] 1*atext [CFWS] An atom could be an rfc2047 encoded word. r z expected atom but found '{}'r^ ) ro r r r ATOM_ENDSr rb r1 ra rl r} )r rp rA r r r get_atom s( r c C s t }| r | d tv rtd| | rA| d tvrAt| \}} || | r9| d dkr9|t | dd } | rA| d tvs|d tu rQtdd| || 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 rb r1 r} r r )r dot_atom_textrA r r r get_dot_atom_text4 s" r c C s t }| d tv rt| \}} || | dr2zt| \}} W n tjy1 t| \}} Y nw t| \}} || | rP| d tv rPt| \}} || || fS )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 ra rl r rb r )r dot_atomrA r r r get_dot_atomG s r c C s | d t v r t| \}} nd}| std| d dkr#t| \}} n| d tv r1td| t| \}} |durB|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 rb r SPECIALSr1 r )r leaderrA r r r get_word` s" r c C s t }z t| \}} || W n tjy# |jtd Y nw | r~| d tvr~| d dkrG|t |jt d | dd } n/zt| \}} W n! tjyp | d t v rmt | \}} |jt d n Y nw || | r~| d tvs,|| fS )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) ri r r r rb r r PHRASE_ENDSr ObsoleteHeaderDefectr r )r rj rA r r r get_phrase s< r c C sl t }d}| d tv rt| \}} | std| zt| \}} W n- tjyP zt| \}} W n tjyM | d dkrH| d tv rH t }Y nw Y nw |dur\|g|dd< | | | r| d dkso| d tvrt t || \}} |j dkr|j td n |j td ||d< z |jd W || fS ty |j td Y || fS w ) z= local-part = dot-atom / quoted-string / obs-local-part Nr z"expected local-part but found '{}'r invalid-obs-local-partz<local-part is not dot-atom, quoted-string, or obs-local-partz,local-part is not a dot-atom (contains CFWS)asciiz)local-part contains non-ASCII characters))r r r r rb r1 r r r r r get_obs_local_partr rN r r r r encoder NonASCIILocalPartDefect)r r r rA obs_local_partr r r get_local_part sT r c C s t }d}| r| d dks| d tvr| d dkr2|r$|jtd |t d}| dd } q| d dkrT|t| d d | dd } |jtd d}q|rf|d jd krf|jtd z t | \}} d}W n tj y | d t vr t | \}} Y nw || | r| d dks| d tvs|d jd ks|d jdkr|d jd kr|jtd |d jd ks|d jdkr|d jd kr|jtd |jrd|_|| fS )z' obs-local-part = word *("." word) Fr r r zinvalid repeated '.'Tr Nmisplaced-specialz/'\' character outside of quoted-string/ccontentr r zmissing '.' between wordsrn z!Invalid leading '.' in local partrm z"Invalid trailing '.' in local partr ) r r r r r r r rG rN r rb r r )r r last_non_ws_was_dotrA r r r r sf r c C s@ t | d\}} }t|d}|r|jtd t| || fS )a dtext = <printable ascii except \ [ ]> / 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[]r z(quoted printable found in domain-literal)rZ rG r r r r rP )r r rX r r r get_dtext s r c C s, | rdS | td | tdd dS )NFz"end of input inside domain-literal]domain-literal-endT)r r r rG )r domain_literalr r r _check_for_early_dl_end s r c C sd t }| d tv rt| \}} || | std| d dkr)td| | dd } t| |r8|| fS |tdd | d t v rQt | \}} || t | \}} || t| |re|| fS | d t v rvt | \}} || t| |r|| fS | d dkrtd | |tdd | dd } | r| d tv rt| \}} || || 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 ) r r r r r rb r1 r rG rg r] r )r r rA r r r get_domain_literal sH r c C sr t }d}| d tv rt| \}} | std| | d dkr;t| \}} |dur2|g|dd< || || fS zt| \}} W n tjyS t | \}} Y nw | ra| d dkratd|durl|g|dd< || | r| d dkr|j t d |d j d kr|d |dd< | r| d dkr|t t | d d \}} || | r| d dks|| fS ) z] domain = dot-atom / domain-literal / obs-domain obs-domain = atom *("." atom)) Nr z expected domain but found '{}'r r zInvalid Domainr z(domain is not a dot-atom (contains CFWS)r r )r r r r rb r1 r r r r r r rN r )r r r rA r r r get_domainA sH r c C s| t }t| \}} || | r| d dkr#|jtd || fS |tdd t| dd \}} || || 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 r rG r )r r rA r r r get_addr_specg s r c C s t }| rB| d dks| d tv rB| d tv r#t| \}} || n| d dkr4|t | dd } | rB| d dks| d tv s| rJ| d dkrRtd| |t t | dd \}} || | r| d dkr|t | dd } | s|n3| d tv rt| \}} || | d dkr|t t | dd \}} || | r| d dksn| std| d dkrtd | |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 rK 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 rb r1 RouteComponentMarkerr rG )r obs_routerA r r r get_obs_routew sJ r c C s t }| d tv rt| \}} || | r | d dkr$td| |tdd | dd } | d dkrS|tdd |jt d | dd } || fS zt | \}} W n7 tjy zt | \}} |jt d W n tjy td | w || t | \}} Y nw || | r| d dkr| dd } n |jt d |tdd | r| d tv rt| \}} || || fS ) z angle-addr = [CFWS] "<" addr-spec ">" [CFWS] / obs-angle-addr obs-angle-addr = [CFWS] "<" obs-route addr-spec ">" [CFWS] r <z"expected angle-addr but found '{}'zangle-addr-startr N>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 rb r1 rG r r r r r )r angle_addrrA r r r get_angle_addr sX r c C s< t }t| \}} ||dd |jdd |_|| fS )z display-name = phrase Because this is simply a name-rule, we don't return a display-name token containing a phrase, but rather a display-name token with the content of the phrase. N)r r r? r )r r rA r r r get_display_name s r c C s t }d}| d tv rt| \}} | std|| d dkrS| d tv r/td| t| \}} | s?td||durN|g|d dd< d}|| t | \}} |durd|g|dd< || || fS )z, name-addr = [display-name] angle-addr Nr z!expected name-addr but found '{}'r ) r r r r rb r1 r r r r )r name_addrr rA r r r get_name_addr s6 r c C s t }zt| \}} W n# tjy. zt| \}} W n tjy+ td| w Y nw tdd |jD r<d|_| | || fS )z& mailbox = name-addr / addr-spec z expected mailbox but found '{}'c s | ] }t |tjV qd S r )r r r r$ r r r r' z get_mailbox.<locals>.<genexpr>r ) r r r rb r r1 anyr6 rN r )r r rA r r r get_mailbox s& r c C sr t }| r5| d |vr5| d tv r"|t| d d | dd } n t| \}} || | r5| d |vs || 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 rG r )r rS invalid_mailboxrA r r r get_invalid_mailbox r c C s t }| r| d dkrz t| \}} || W n tjy d}| d tv rft| \}} | r6| d dv rE|| |jtd nQt | d\}} |durW|g|dd< || |jt d n0| d dkrv|jtd n t | d\}} |dur|g|dd< || |jt d Y nw | r| d dvr|d }d |_ t | d\}} | | |jt d | r| d dkr|t | d d } | r| d dks || fS ) 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-listrK r r r )r r r r rb r r r r r r rN r? r )r mailbox_listrA r r r r r get_mailbox_list" s^ )r c C s t }| s|jtd || fS d}| rE| d tv rEt| \}} | s6|jtd || || fS | d dkrE|| || fS t| \}} t|j dkrm|dur[|| | | |jt d || fS |durx|g|dd< || || 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-listr z group-list with empty entries) r r r r r r r r r r r? r )r group_listr rA r r r get_group_list[ s> r c C s t }t| \}} | r| d dkrtd| || |tdd | dd } | rD| d dkrD|tdd || dd fS t| \}} || | s[|jt d n| d dkritd | |tdd | dd } | r| d t v rt | \}} || || fS ) z7 group = display-name ":" [group-list] ";" [CFWS] r r z8expected ':' at end of group display name but found '{}'z group-display-name-terminatorr Nr zgroup-terminatorzend of header in groupz)expected ';' at end of group but found {}) r r r rb r1 r rG r r r r r )r r rA r r r get_group s8 r c C sp t }zt| \}} W n# tjy. zt| \}} W n tjy+ td| w Y nw || || fS )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 r r rb r r1 r )r r rA r r r get_address s r c C s t }| rz t| \}} || W n tjy } zd}| d tv rdt| \}} | r1| d dkr@|| |jtd nWt | d\}} |durR|g|dd< |t |g |jt d n3| d dkrt|jtd n#t | d\}} |dur|g|dd< |t |g |jt d W Y d}~nd}~ww | r| d dkr|d d }d|_ t | d\}} | | |jt d | r|t | d d } | s|| fS ) 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 rK z"address-list entry with no contentz invalid address in address-listz empty element in address-listr r r )r r r r rb r r r r r r r rN r? r )r address_listrA errr r r r r get_address_list s^ )r c C s t }| s td| | d dkrtd| |tdd | dd } t| \}} || | r<| d dkrDtd | |tdd || dd fS ) z& no-fold-literal = "[" *dtext "]" z'expected no-fold-literal but found '{}'r r 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 rb r1 r rG r )r no_fold_literalrA r r r get_no_fold_literal s* r c C sp t }| r| d tv rt| \}} || | r | d dkr&td| |tdd | dd } zt| \}} W n, tjyh zt | \}} |j t d W n tjye td| w Y nw || | rv| d d kr|j t d | r| d d kr|td d | dd } || fS |td d | dd } zt| \}} W nH tjy zt | \}} W n5 tjy } z(zt| \}} |j t d W n tjy td| w W Y d}~nd}~ww Y nw || | r| d d kr| dd } n |j t d |td d | r4| d tv r4t| \}} || || fS )zmsg-id = [CFWS] "<" id-left '@' id-right ">" [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-endr zobsolete id-right in msg-idzFexpected dot-atom-text, no-fold-literal or obs-id-right but found '{}'z missing trailing '>' on msg-id)r5 r r r r rb r1 rG r r r r r r r )r msg_idrA er r r get_msg_id s r c C s t }z t| \}} || W n( tjy8 } zt| }t|}|jtd | W Y d}~|S d}~ww | rG|jtd | |S )z2message-id = "Message-ID:" msg-id CRLF zInvalid msg-id: {!r}NzUnexpected {!r}) r7 r r r rb rs r8 r r r1 )r message_idrA exr r r parse_message_idM s$ r c C s t }| s|jtd |S | d tv r,t| \}} || | s,|jtd d}| rV| d dkrV| d tvrV|| d 7 }| dd } | rV| d dkrV| d tvs<| so|jtd | |t |d n t ||_ |t |d | r| d tv rt| \}} || | r| d dkr|j dur|jtd | r|t | d |S |t dd | dd } | r| d tv rt| \}} || | s|j dur|jtd |S d}| r| d tvr|| d 7 }| dd } | r| d tvs| s |jtd | |t |d n t ||_ |t |d | rA| d tv rAt| \}} || | rU|jtd |t | d |S )zE mime-version = [CFWS] 1*digit [CFWS] "." [CFWS] 1*digit [CFWS] z%Missing MIME version number (eg: 1.0)r z0Expected MIME version number but found only CFWSr! r r Nz1Expected MIME major version number but found {!r}rN digitsz0Incomplete MIME version; found only major numberzversion-separatorz1Expected MIME minor version number but found {!r}z'Excess non-CFWS text after MIME version)r r r r HeaderMissingRequiredValuer r isdigitr r1 rG intr r )r mime_versionrA r r r r parse_mime_versioni s r c C sr t }| r5| d dkr5| d tv r"|t| d d | dd } n t| \}} || | r5| d dks || 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 r r r N)r r r rG r )r invalid_parameterrA r r r get_invalid_parameter r r c C ry )a8 ttext = <matches _ttext_matcher> 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 rb r1 r r rG rP )r r| r r r r get_ttext r c C t }| r| d tv rt| \}} || | r&| d tv r&td| t| \}} || | rD| d tv rDt| \}} || || 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 '{}') rr r r r TOKEN_ENDSr rb r1 r )r mtokenrA r r r get_token r c C ry )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}Nr )_non_attribute_end_matcherr rb r1 r r rG rP r r| r r r r get_attrtext r r c C r )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 r ) r r r r ATTRIBUTE_ENDSr rb r1 r r r rA r r r get_attribute r r c C ry )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 rb r1 r r rG rP r r r r get_extended_attrtext s r c C r )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 r ) r r r r EXTENDED_ATTRIBUTE_ENDSr rb r1 r r r r r get_extended_attribute% s r c C s t }| r | d dkrtd| |tdd | dd } | r)| d s1td| d}| rO| d rO|| d 7 }| dd } | rO| d s;|d d krb|d krb|jtd t ||_ |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 0r ) r r rb r1 r rG r r r r r )r r r r r r get_section; s. r c C s t }| s tdd}| d tv rt| \}} | s"td|| d dkr/t| \}} nt| \}} |dur@|g|dd< || || fS )z quoted-string / attribute z&Expected value but found end of stringNr z Expected value but found only {}r ) r r rb r r r1 r r r )r vr rA r r r get_valueY s" r c C s t }t| \}} || | r| d dkr&|jtd| || fS | d dkrezt| \}} d|_|| W n tj yF Y nw | sNt d| d dkre|t dd | dd } d|_ | d d krpt d |t d d | dd } d }| r| d t v rt | \}} || d }|}|j r| r| d d krt| \}}|j}d}|jdkr|r|d dkrd}n#t|\}} | r| d dkrd}nzt|\}} W n Y n| sd}|r |jtd || |D ]} | jdkrg | d d < | } nq|} n d }|jtd | r$| d dkr$d }nt| \}} |j r4|jdkr^| r>| d dkrU|| |d urQ| rOJ | |} || fS |jtd | sy|jtd || |d u rx|| fS nw|d ur|D ] } | jdkr nq| jdk || | j|_| d dkrt d| |t dd | dd } | r| d dkrt| \}} || |j|_| r| d dkrt d| |t dd | dd } |d ur-t } | r*| d tv r t| \}} n| d d kr t d d}| dd } nt| \}} | | | s| }nt| \}} || |d urF| rDJ | |} || fS )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 r 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 r z=Expected RFC2231 char/lang encoding delimiter, but found {!r}zRFC2231-delimiterz;Expected RFC2231 char/lang encoding delimiter, but found {}DQUOTE) r r r r r r r1 r r rb rG r r r r r r r r rN r r rx ry r rg r] rx ) r r& rA r rU appendtoqstring inner_value semi_validrj tr r r r get_parametero s r c C sl t }| rz t| \}} || W ni tjy{ } z\d}| d tv r)t| \}} | s8|| |W Y d}~S | d dkrQ|durG|| |jtd n t | \}} |r`|g|dd< || |jtd | W Y d}~nd}~ww | r| d dkr|d }d|_ t | \}} | | |jtd | | r|t dd | d d } | s|S ) 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 r z parameter entry with no contentzinvalid parameter {!r}r r z)parameter with invalid trailing text {!r}r r )r r r r rb r r r r r r1 rN r? rG )r mime_parametersrA r r r& r r r parse_mime_parameters sP $r c C s |r2|d dkr2|d t v r | t|d d |dd }n t|\}}| | |r2|d dks|s6dS | tdd | t|dd dS )zBDo our best to find the parameters in an invalid MIME header r r r r Nr )r r rG r r ) tokenlistr rA r r r _find_mime_parameters1 s r c C s t }d}| s|jtd |S zt| \}} W n tjy7 |jtd| t || | Y S w || | rE| d dkrW|jtd | rUt || |S |j |_ |tdd | dd } zt| \}} W n tjy |jtd | t || | Y S w || |j |_| s|S | d d kr|jtd | |` |`t || |S |td d |t| dd |S )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. Fz"Missing content type specificationz(Expected content maintype but found {!r}r r> zInvalid content typezcontent-type-separatorr Nz'Expected content subtype but found {!r}r z<Only parameters are valid after content type, but found {!r}r )r* r r r r r rb r r1 r r r lowerr- rG r. r )r ctyperecoverrA r r r parse_content_type_headerA sf r c C s t }| s|jtd |S zt| \}} W n tjy5 |jtd| t || | Y S w || |j |_ | sG|S | d dkr`|jtd| t || |S |tdd |t| dd |S ) z* disposition-type *( ";" parameter ) zMissing content dispositionz+Expected content disposition but found {!r}r r zCOnly parameters are valid after content disposition, but found {!r}r r N)r/ r r r r r rb r r1 r r r r r0 rG r )r disp_headerrA r r r parse_content_disposition_headerz s: r c C s t }| s|jtd |S zt| \}} W n tjy. |jtd| Y nw || |j |_ | s@|S | ro|jtd | d t v rb|t| d d | dd } n t| \}} || | sB|S )z mechanism z!Missing content transfer encodingz1Expected content transfer encoding but found {!r}z*Extra text after content transfer encodingr r r N)r2 r r r r r rb r r1 r r r rw r rG r )r cte_headerrA r r r &parse_content_transfer_encoding_header s8 r c C sD d}| r | d r | d d t v r | d d }| d d d | d< |S )Nr! r )rg )lineswspr r r _steal_trailing_WSP_if_exists s r c C s |j ptj}|jr dnd}dg}d}d}d}tdd}t| } | r\| d} | |u r0|d8 }q t| } |sH| jd krBt | }nt | }z | | |} W n t yk td d | jD red } nd} d }Y nw | jdkryt| ||| q |r|s| jsd}d}| jr| j|ddt|j } |j| vrt| |t|d krt|}|| |d | 7 < q t| dst| | } d}q | jrt| |||| j| }d}q d}d}t| |t|d kr|d | 7 < q | jrt| d |krt|}|s| r||| d}q t| ds.t| }| js)|d7 }|| || } q | jr>|s>| d| d }q t|}|sJ| rR||| n|d | 7 < | s"|j ||j S )zLReturn string of contents of parse_tree folded according to RFC rules. utf-8r r! Nr Fwrap_as_ew_blockedr r c s r r )r r r r$ r r r r' r z%_refold_parse_tree.<locals>.<genexpr> unknown-8bitTr rB r r ) max_line_lengthsysmaxsizeutf8r; r? r r rN SPECIALSNL isdisjointNLSETr r r r6 _fold_mime_parametersr< rT rF r r6 r r rO _fold_as_ewrU r: insertr* ) parse_treerC maxlenr r last_ewr want_encodingend_ew_not_allowedr" r= tstrrx encoded_partnewlinenewpartsr r r rD s erD c C s |dur |r t t|d |d | } |d d| |d< | d tv rE| d }| dd } t|d |kr=|t| |d |7 < d}| d tv rW| d }| dd } |du rat|d n|}|dkridn|} t| d } | d |kr|td | r|t|d } | | } | dkr|d q|| d| } tj | | d }t|| }|dkr| dd } tj | | d }t|| }|dks|d |7 < | t| d } | r|d t|d }| s~|d |7 < |r|S dS ) a Fold string to_encode into lines as encoded word, combining if allowed. Return the new value for last_ew, or None if ew_combine_allowed is False. If there is already an encoded word in the last line of lines (indicated by a non-None value for last_ew) and ew_combine_allowed is true, decode the existing ew, combine it with to_encode, and re-encode. Otherwise, encode to_encode. In either case, split to_encode as necessary so that the encoded segments fit within maxlen. Nr r r r! r r z3max_line_length is too small to fit an encoded wordr[ )rx ) r rs rg r r r r rb rd r ) to_encoder r r rU rx leading_wsp trailing_wsp new_last_ew encode_as chrome_lenremaining_space text_spaceto_encode_word encoded_wordexcessr r r r B sX r c C s | j D ]\}}|d ds|d d7 < |}d}z || d}W n ty< d}t|r8d}d}nd}Y nw |rPtjj |d |d } d ||| } nd |t |} t |d t | d |k rq|d d | |d< qt | d |kr| d| qd} |d } |rt |t t| d t | } || d krd}|| d }} |d| }tjj |d |d } t | |krn|d 8 }q| d || | | d } | d 7 } ||d }|r|d d7 < |sqdS )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 r strictFTr r r r! )safer z {}*={}''{}r' r r[ r r z''r N Nz {}*{}*={}{})r r r r r r r r r r r1 r r r r )r= r r r r! r rx error_handlerencoding_required encoded_valuer r extra_chromer splitpointmaxcharspartialr r r r sn r )rJ rer r stringr operatorr emailr rd r r r rg r r r r r TSPECIALSr ASPECIALSr r r r r compileVERBOSE MULTILINErn r? r rX re ri rk rm ro rr ru 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 r r r r r( r* r/ r2 r4 r5 r7 r8 r9 r r; rC rG rH rb rI r r r< rT r r1 r* r rQ rW matchr{ findallrL r r r rP rZ r] rl rs rw rx 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 r r r r r r r r r r r r r r r r r r r r r r r rD r r r r r r <module> sH E C " !*$ V + 1C+ "&'/'&). 9% 7E D 49 /t A