!A?hE 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 ZdS )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 ` t | }|sdS |d d|d< t | S )zQConvert a date string to a time tuple.
Accounts for military timezones.
N r )
_parsedate_tztuple)dataress =/opt/alt/python-internal/lib64/python3.11/email/_parseaddr.pyr r - s<
C
1v~A :: c
| sdS | } | sdS | d d s!| d t v r| d= n7| d d }|dk r| d |dz d | d< t | dk r;| d d }t | dk r
|| dd z } t | dk rm| d }| d }|d k r| d }|dk r|d| ||d g| dd< n| d
t | d k rdS | dd } | \ }}}}}|r|r|sdS | }|t vr!|| }}|t vrdS t | dz }|d k r|d z }|d dk r
|dd }| d
}|dk r||}}|d dk r|dd }|sdS |d
s||}}|d dk r
|dd }| d
}t | dk r|\ } }
d} nt | dk r|\ } }
} nqt | dk r\d|d v rR|d d }t | dk r|\ } }
d} n t | dk r|\ } }
} ndS dS t | }t | }t | } t |
}
t | } n# t $ r Y dS w xY w|dk r|dk r|dz
}n|dz
}d} |
}|t v rt | } n> t | } n# t $ r Y nw xY w| dk r| d rd} | r"| dk rd }
| } nd}
|
| dz dz | dz dz z z } |||| |
| ddd | g
S )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 t ::< 2wwHH D Q;;2==--;H J a<<F yHHFx}d 2hnb5H HI BS#q!R ::s% 6A N
NNO( (
O54O5c b t | }t |t r
|dd S |S )z&Convert a time string to a time tuple.Nr6 )r
isinstancer8 r9 ts r; r r s3 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 sE Aw{48e+,,, OD ! !47{r< c V | dd 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% 8 88r< c d e Zd ZdZd Zd Zd Zd Zd Zd Z d Z
dd
Z d Z d Z
d
ZddZd ZdS )
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 dd | _ || _ g | _ dS )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__ sw (
8dg%
047:
-//R88
r< c g }| j t | j k r| j | j | j dz v rJ| j | j dvr%| | j | j | xj dz
c_ nD| j | j dk r-| j | nn | j t | j k t | S )z&Skip white space and extract comments.z
r? () r~ rS r r rU r
getcomment EMPTYSTRINGjoin)r wslists r; gotonextzAddrlistClass.gotonext s hTZ ((z$(#tx&'888:dh'v55MM$*TX"6777A
DH%,, ''(9(9:::: hTZ (( '''r< c g }| j t | j k rN| }|r||z
}n| d | j t | j k N|S )zVParse all addresses.
Returns a list containing all of the addresses.
)r r )r~ rS r
getaddressrU )r resultads r; getaddrlistzAddrlistClass.getaddrlist sp
hTZ (( ""B
("
h''' hTZ ((
r< c g | _ | | j }| j }| }| g }| j t | j k r,|r(t | j |d fg}n| j | j dv rF|| _ || _ | }t | j |fg}n| j | j dk rg }t | j }| xj dz
c_ | j t | j k rz| | j |k r'| j | j dk r| xj dz
c_ n4|| z }| j t | j k zn| j | j dk rx|
}| j r?t | dz d | j z d z |fg}nrt | |fg}nT|r)t | j |d fg}n)| j | j | j v r| xj dz
c_ | | j t | j k r&| 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
""$$
8s4: & &
H $zz$*: ; ;U1X F G
Z
!T
)
) DH $D ''))H ::d&677BCJJ
Z
!S
(
(J4:H HHMHH(S__,,
8h&&4:dh+?3+F+FHHMHH '$//*;*; ;
(S__,, Z
!S
(
( ))++I
> $zz% 0 04 7 "xx(8 9 9 :#*E*E HHMHHr< c | j | j dk rdS d}| xj dz
c_ | d}| j t | j k r|r| d}n| j | j dk r| xj dz
c_ n| j | j dk r| xj dz
c_ d}nL| j | j d k r| xj dz
c_ n%| }| xj dz
c_ n1| | j t | j k |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:
:dh 3 & & F A
hTZ ((
# DH%,,A
DH%,,A
" DH%,,A
))++A
MMOOO! hTZ (($
r< c g }| | j t | j k rzd}| j | j dk rX|r.|d s| | d | xj dz
c_ d}n| j | j dk r8| dt | z nq| j | j | j v r1|r.|d s| nr| |
| }|r|r| | | j t | j k z| j t | j k s| j | j dk rt | S | d | xj dz
c_ | |
}|st S t | |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
hTZ (( Kz$(#s** !&*"2"2"4"4 !JJLLL
c"""A
# DH%,,
fuT]]__'='= =>>>>DH% 66 !&*"2"2"4"4 !JJLLL
dllnn--- B
"r
"
b!!!% hTZ ((( 8s4: & &$*TX*>#*E*E ##F++ +
c A
!! ''&00r< c > g }| j t | j k rd| j | j | j v r| xj dz
c_ n| j | j dk r-| j | n| j | j dk r(| | n| j | j dk r&| xj dz
c_ | d n^| j | j dk rt S | j | j | j v rnE| |
| j t | j k dt | 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 sd hTZ ((z$(#tx//A
DH%,, ''(9(9::::DH%,,
d 3 3 5 56666DH%,,A
c""""DH%,, #"DH% 66
dllnn---# hTZ (($ '''r< Tc | j | j |k rdS dg}d}| xj dz
c_ | j t | j k r|r(| | j | j d}n| j | j |v r| xj dz
c_ n|r>| j | j dk r(| | | j | j dk rd}n%| | j | j | xj dz
c_ | j t | j k t
| 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 sI :dh 9 , ,2 A
hTZ ((
3 TZ 1222 DH%11A
34:dh#73#>#> T__ . .///DH%-- TZ 1222 HHMHH hTZ (( &&&r< c 0 | ddd S )z1Get a quote-delimited fragment from self's field.rw z"
Fr r s r; r zAddrlistClass.getquote s eU333r< c 0 | ddd S )z7Get a parenthesis-delimited fragment from self's field.r z)
Tr r s r; r zAddrlistClass.getcomment s eT222r< c 6 d| 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 sN
I I I
> = = AQA$$$$$
z; z; z;z 9 9 9k k k k k k k kZ -' -' -' -' -'- -' -' -' -' -'r<