֦iE d Z g dZddlZddlZdZdZdZg dZg dZddddd d
d d d d d
d dd
dZ d Z
d Z d Z d Z
d Z G d d Z G d de Zy)zcEmail address parsing code.
Lifted directly from rfc822.py. This should eventually be rewritten.
) mktime_tz parsedate parsedate_tzquote N z, )janfebmaraprmayjunjulaugsepoctnovdecjanuaryfebruarymarchaprilr
junejulyaugust septemberoctobernovemberdecember)montuewedthufrisatsunipii iiDi)UTUTCGMTZASTADTESTEDTCSTCDTMSTMDTPSTPDTc H t | }|sy|d d|d< t | S )zQConvert a date string to a time tuple.
Accounts for military timezones.
N r )
_parsedate_tztuple)dataress )/usr/lib64/python3.12/email/_parseaddr.pyr r - s0
C
1v~A : c
| sy| j } | sy| d j d s| d j t v r| d= n'| d j d }|dk\ r| d |dz d | d< t | dk( r*| d j d }t | dk( r|| dd z } t | dk( rP| d }|j
d }|d k( r|j
d }|dkD r|d| ||d g| dd n| j d
t | d k ry| dd } | \ }}}}}|r|r|sy|j }|t vr||j }}|t vryt j | dz }|d kD r|d z }|d dk( r|dd }|j
d
}|dkD r||}}|d dk( r|dd }|sy|d j s||}}|d dk( r|dd }|j d
}t | dk( r|\ } }
d} nkt | dk( r|\ } }
} nVt | dk( rGd|d v r@|d j d }t | dk( r|\ } }
d} nt | dk( r|\ } }
} nyy t | }t | }t | } t |
}
t | } |dk r|dkD r|dz
}n|dz
}d} |j }|t v r
t | } n$ t | } | dk( r|j d rd} | r!| dk rd }
| } nd}
|
| dz dz | dz dz z z } |||| |
| ddd | g
S # t $ r Y yw xY w# t $ r Y aw xY w)a Convert date to extended time tuple.
The last (additional) element is the time zone offset in seconds, except if
the timezone was specified as -0000. In that case the last element is
None. This indicates a UTC timestamp that explicitly declaims knowledge of
the source timezone, as opposed to a +0000 timestamp that indicates the
source timezone really was UTC.
Nr , - +r : 0.d D il i i < )splitendswithlower _daynamesrfindlenfindappend _monthnamesindexisdigitint
ValueErrorupper
_timezones
startswith)r9 istuffsddmmyytmtzthhtmmtsstzoffsettzsigns r; r7 r7 9 s :: 2wH Q;2==-H a<F yHFx}d 2hnb5H HI BS#q!R ::E * s$ +7L. L= . L:9L:= M M c F t | }t |t r|dd S |S )z&Convert a time string to a time tuple.Nr6 )r
isinstancer8 r9 ts r; r r s& TA!U!u r< c | | d t j | dd dz S t j | }|| d z
S )zETurn a 10-tuple as returned by parsedate_tz() into a POSIX timestamp.r6 N )rD )timemktimecalendartimegmrm s r; r r sA Aw{{48e+,, OOD !47{r< c F | j dd j dd S )zPrepare string to be used in a quoted string.
Turns backslash and double quote characters into quoted pairs. These
are the only characters that need to be quoted inside a quoted string.
Does not add the surrounding double quotes.
\z\\"z\")replace)strs r; r r s" ;;tV $ , ,S% 88r< c b e Zd ZdZd Zd Zd Zd Zd Zd Z d Z
dd Z d
Z d Z
d ZddZd Zy
)
AddrlistClassa Address parser class by Ben Escoto.
To understand what this class does, it helps to have a copy of RFC 2822 in
front of you.
Note: this class interface is deprecated and may be removed in the future.
Use email.utils.AddressList instead.
c , d| _ d| _ d| _ d| _ | j | j z | _ | j | j z | j z | _ | j
j
dd | _ || _ g | _ y)zInitialize a new instance.
`field' is an unparsed address header field, containing
one or more addresses.
z ()<>@,:;."[]r z z
rJ r N)
specialsposLWSCRFWSatomendsrx
phraseendsfield commentlistselfr s r; __init__zAddrlistClass.__init__ sz (
88dgg%
0477:
--//R8
r< c J g }| j t | j k r| j | j | j dz v rY| j | j dvr(|j | j | j | xj dz
c_ nG| j | j dk( r*| j
j | j
nn#| j t | j k rt j | S )z&Skip white space and extract comments.z
r? () r~ rS r r rU r
getcomment EMPTYSTRINGjoin)r wslists r; gotonextzAddrlistClass.gotonext s hhTZZ (zz$((#txx&'88::dhh'v5MM$**TXX"67A
DHH%, ''(9: hhTZZ ( ''r< c g }| j t | j k rL| j }|r||z
}n|j d | j t | j k rL|S )zVParse all addresses.
Returns a list containing all of the addresses.
)r r )r~ rS r
getaddressrU )r resultads r; getaddrlistzAddrlistClass.getaddrlist s^
hhTZZ ( "B"
h' hhTZZ (
r< c g | _ | j | j }| j }| j }| j g }| j t | j
k\ r*|rft j | j |d fg}n?| j
| j dv rB|| _ || _ | j }t j | j |fg}n| j
| j dk( rg }t | j
}| xj dz
c_ | j t | j
k rw| j | j |k r3| j
| j dk( r| xj dz
c_ n%|| j z }| j t | j
k rn| j
| j dk( rp| j }| j r;t j | dz dj | j z d z |fg}n{t j | |fg}nb|r&t j | j |d fg}n:| j
| j | j v r| xj dz
c_ | j | j t | j
k r1| j
| j d
k( r| xj dz
c_ |S ) zParse the next address.r z.@rG r? ; ) r r r~
getphraselistrS r SPACEr getaddrspecr getrouteaddrr} )r oldposoldclplist
returnlistaddrspecfieldlen routeaddrs r; r zAddrlistClass.getaddress s
""$
88s4:: & $zz$*:*: ;U1X F G
ZZ
!T
) DH $D '')H ::d&6&67BCJ
ZZ
!S
(J4::H HHMH((S_,
88h&4::dhh+?3+FHHMH '$//*; ;
((S_, ZZ
!S
( ))+I $zz% 04 7 "xx(8(8 9 :#*E HHMHr< c | j | j dk7 ryd}| xj dz
c_ | j d}| j t | j k r |r| j d}n| j | j dk( r| xj dz
c_ |S | j | j dk( r| xj dz
c_ d}nZ| j | j d k( r| xj dz
c_ n(| j }| xj dz
c_ |S | j | j t | j k r |S )
zParse a route address (Return-path value).
This method just skips all the route stuff and returns the addrspec.
r NFr? r >@TrG )r r~ r rS getdomainr )r expectrouteadlists r; r zAddrlistClass.getrouteaddrG s&
::dhh 3 & A
hhTZZ ( # DHH%,A
DHH%,A
" DHH%,A
))+A
MMO! hhTZZ ($
r< c g }| j | j t | j k rgd}| j | j dk( rN|r#|d j s|j |j
d | xj dz
c_ d}n| j | j dk( r,|j
dt | j z nj| j | j | j v r&|r#|d j s|j nh|j
| j | j }|r|r|j
| | j t | j k rg| j t | j k\ s | j | j dk7 rt j | S |j
d | xj dz
c_ | j | j }|st S t j | |z S ) z Parse an RFC 2822 addr-spec.TrJ rD r? Frw z"%s"r )r r~ rS r strippoprU r getquoter getatomr r r )r aslist preserve_wswsdomains r; r zAddrlistClass.getaddrspecg s
hhTZZ ( Kzz$((#s*&*"2"2"4JJL
c"A
# DHH%,
fuT]]_'= =>DHH% 6&*"2"2"4JJL
dlln- Br
b!% hhTZZ (( 88s4:: &$**TXX*>#*E ##F+ +
c A
! '&00r< c g }| j t | j k r| j | j | j v r| xj dz
c_ n,| j | j dk( r*| j j | j
n| j | j dk( r |j | j n| j | j dk( r'| xj dz
c_ |j d ng| j | j dk( rt S | j | j | j v rnC|j | j | j t | j k rt j | S )z-Get the complete domain name from an address.r? r [rJ r ) r~ rS r r r rU r getdomainliteralr r r r )r sdlists r; r zAddrlistClass.getdomain s= hhTZZ (zz$((#txx/A
DHH%, ''(9:DHH%,
d 3 3 56DHH%,A
c"DHH%, #"DHH% 6
dlln-# hhTZZ ($ ''r< c | j | j |k7 rydg}d}| xj dz
c_ | j t | j k r |r+|j | j | j d}n| j | j |v r| xj dz
c_ n|r<| j | j dk( r |j | j | j | j dk( rd}n(|j | j | j | xj dz
c_ | j t | j k r t
j
| S )a Parse a header fragment delimited by special characters.
`beginchar' is the start character for the fragment.
If self is not looking at an instance of `beginchar' then
getdelimited returns the empty string.
`endchars' is a sequence of allowable end-delimiting characters.
Parsing stops when one of these is encountered.
If `allowcomments' is non-zero, embedded RFC 2822 comments are allowed
within the parsed fragment.
r Fr? r rv T)r r~ rS rU r r r )r begincharendchars
allowcommentsslistr s r; getdelimitedzAddrlistClass.getdelimited s% ::dhh 9 , A
hhTZZ ( TZZ 12 DHH%1A
4::dhh#73#> T__ ./DHH%- TZZ 12 HHMH hhTZZ ( &&r< c ( | j ddd S )z1Get a quote-delimited fragment from self's field.rw z"
Fr r s r; r zAddrlistClass.getquote s eU33r< c ( | j ddd S )z7Get a parenthesis-delimited fragment from self's field.r z)
Tr r s r; r zAddrlistClass.getcomment s eT22r< c . d| j ddd z S )z!Parse an RFC 2822 domain-literal.z[%s]r z]
Fr r s r; r z AddrlistClass.getdomainliteral s ))#ue<<r s
I
> AQA$$$$$
z;z9k kZ -'- -'r<