Current File : //usr/lib/mailman/Mailman/Utils.pyc
�
��ac x @ sP d Z d d l m Z d d l Z d d l Z d d l Z d d l Z d d l Z d d l Z d d l Z d d l
Z
d d l Z d d l Z d d l
Z d d l Z d d l m Z d d l m Z d d l m Z m Z y d d l m Z Wn' e k
rd Z e e j � Z n Xd d l m Z d d
l m Z d d l m Z d d l m Z d d
l! m" Z" y" d d l# Z# e# j$ Z% e# j& Z' Wn; e k
r�d d l$ Z$ d d l( Z( e$ j) Z% e( j) Z' n Xy e* e+ f Wn e, k
r�d Z* d Z+ n Xy2 d d l- Z. d d l/ Z. d d l0 m1 Z1 e* Z2 Wn e k
rCe+ Z2 n Xd Z3 d Z4 d Z5 d Z6 e e d Z7 e j8 d e j9 � Z: e j8 d e j9 � Z; d � Z< d � Z= d e* d � Z> d � Z? d � Z@ d � ZA e j8 d � ZB e j8 d e j9 � ZC d! � ZD e j8 d" � ZE d# d$ � ZF d e+ d% � ZH d& � ZI e+ d' � ZJ d� ZK d� ZL g ZM xA eK D]9 ZN x0 eL D]( ZO eM jP eO eN � eM jP eN eO � qbWqUW[O [N d> � ZQ d? � ZR e jS d@ � ZT dA � ZU e* dB � ZV e* dC � ZW e* dD � ZX e j8 dE e j9 � ZY dF � ZZ dG � Z[ e+ dH � Z\ dI � Z] dJ e^ f dK � � YZ_ d e+ d d dL � Z` d e+ d d dM � Za i d� dN 6d� dO 6d� dP 6d� dQ 6d� dR 6d� dT 6d� dU 6d� dW 6d� dX 6d� dY 6d� dZ 6Zb d[ � Zc d e* d\ � Zd d e+ d] � Ze d^ � Zf d_ � Zg d` � Zh da � Zi db � Zj d d dc � Zk d al dd � Zm d de � Zn df � Zo dg � Zp dh � Zq di � Zr d dj � Zs d dk � Zt dl � Zu dm � Zv dn do dp dq dr ds dt du dv dw dx dy dz d{ d| d} d~ d d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� d� gx Zw e j8 d� jx ew � e j9 � Zy e j8 d� � Zz e j8 d� e j9 � Z{ d� � Z| d� � Z} d� � Z~ d S(� s� Miscellaneous essential routines.
This includes actual message transmission routines, address checking and
message and address munging, a handy-dandy routine to map a function on all
the mailing lists, and whatever else doesn't belong elsewhere.
i����( t
nested_scopesN( t HeaderParseError( t UnicodeType( t
whitespacet digits( t
ascii_letterst abcdefghijklmnopqrstuvwxyz( t mm_cfg( t Errors( t Site( t SafeDict( t syslogi i ( t DNSExceptiont u s
t .t _s %\(([_a-z]\w*?)\)s?s% (\${2})|\$([_a-z]\w*)|\${([_a-z]\w*)}c C s� t t j t j d | � � d k r8 t d d | � t St j | � } x= d
D]5 } t j
j | d | � } t j
j | � rN t
SqN Wt S( s' Return true iff list `listname' exists.R
i t mischiefs Hostile listname: %ss .pcks .pck.lasts .dbs .db.lastt config( s .pcks .pck.lasts .dbs .db.last( t lent ret subR t ACCEPTABLE_LISTNAME_CHARACTERSR t FalseR t get_listpatht ost patht joint existst True( t listnamet basepatht extt dbfile( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt list_exists` s
$
c C s
t j � S( s8 Return the names of all lists in default list directory.( R t
get_listnames( ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
list_namesu s iF c C sz d } t j d | � } xW| D]O} g } t } x� | j t � D]� } | s` | j | � qA n | r | d t k r t } n t } | r� | r� | d j � d | | d <n
| j | � | } qA Wx�| D]�} x| rUt | � | k r� | } d } nJ| }
x* |
d k r0| |
t k r0|
d 8}
qW|
} x* | d k rc| | t k rc| d 8} q:W| d k r�| } x0 | t | � k r�| | t k r�| d 7} qyW| }
x0 |
t | � k r�| |
t k r�|
d 7}
q�W|
d 8}
n | | d d } |
d 7}
x0 |
t | � k r=| |
t k r=|
d 7}
qW| |
} | | 7} q� W| d 7} q� W| d 7} q W| d S( s� Wrap and fill the text to the specified column.
Wrapping is always in effect, although if it is not possible to wrap a
line (because some word is longer than `column' characters) the line is
broken at the next available whitespace boundary. Paragraphs are also
always filled, unless honor_leading_ws is true and the line begins with
whitespace. This is the algorithm that the Python FAQ wizard uses, and
seems like a good compromise.
R
s
i i����t i s
i����( R t splitR t NLt appendR R t rstripR ( t textt columnt honor_leading_wst wrappedt parast parat linest fillprevt linet fillthist bolt eol( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt wrap} sX
%%
%
c C s" d } d } | j | j | � � S( Ns
.
s
.
( R R% ( R) t JOINERt SEP( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt QuotePeriods� s c C sn d } d } | j � } | j d � } | d k r= | d f S| | } | | d } | j d � } | | f S( Nt @i R ( t Nonet lowert findR% ( t emailt usert domaint at_signt rest( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
ParseEmail� s
c C s= | j d � } | d k r | S| | d | | d j � S( s3 returns the address with the domain part lowercasedR9 i����i ( R< R; ( t addrt atind( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt LCDomain� s s" [][()<>|:;^,\\"\000-\037\177-\377]s [-a-z0-9]c C s� | s | j d � d k r( t j � n t j | � sG | d d k rV t j | � n t | � \ } } | s} t j | � n t | � d k r� t j | � n x; | D]3 } t t j d | � � d k r� t j | � q� q� Wd S( s0 Verify that an email address isn't grossly evil.R$ i t -i R
N(
t countR t MMBadEmailErrort _badcharst searcht MMHostileAddressRB R t
_valid_domainR ( t sR> t domain_partst p( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
ValidateEmail� s
s [^\x21-\x7e]t PATH_INFOc C s3 t j j | � } | r/t j j d t j j d t j j d d � � � } t j | � r} t j | � d } t d d � n g | j d � D] } | r� | ^ q� } t � r� t g t � D] } t | � ^ q� � } n d } | r+t | d � | k r+t d
d | d | � | d | d | d <n | Sd S(
Nt HTTP_FORWARDED_FORt HTTP_X_FORWARDED_FORt REMOTE_ADDRs unidentified origini t errors( Warning: Possible malformed path attack.t /i R s( Hostile listname: listname=%s: remote=%ss ...( R t environt gett CRNLpatRJ R% R R# t maxR R: ( t envarR t remoteRO t piecest xt longest( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
GetPathPieces s& ( + c C s& | d k r< t j t � } | d d k r< | d } q< n t j j d � } | d k r� t j j d d � t j j d d � } n t j | � d } | r| j | � r| t | � } | j
d � } | d k r� | j d d | � } n | j d � } d
| | } n
| | } | t j S( s� target - scriptname only, nothing extra
web_page_url - the list's configvar of the same name
absolute - a flag which if set, generates an absolute url
i����RV t REQUEST_URIt SCRIPT_NAMER
RQ i t ?i s ../N(
R: R t DEFAULT_URL_PATTERNt
get_domainR RW RX t urlparset
startswithR R< RG t CGIEXT( t targett web_page_urlt absolutet fullpatht baseurlt iRG R ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt ScriptURL s$
c C s� | j � } t | � \ } } | g } | r} | d } xC t | � d k ry | j d | t j | � f � | d } q: Wn | S( s returns a sorted list of addresses that could possibly match
a given name.
For Example, given scott@pobox.com, return ['scott@pobox.com'],
given scott@blackbox.pobox.com return ['scott@blackbox.pobox.com',
'scott@pobox.com']i i s %s@%s( R; RB R R' t DOTR ( t nameR> R? t res( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt GetPossibleMatchingAddrs: s
c C sO i } | r0 x< | D] } t | | j � <q Wn x | D] } t | | <q7 W| S( s< Return a dict keyed by the entries in the list passed to it.( R R; ( t Lt foldcaset dRn ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt List2DictN s
t at eRn t ot ut bt cRv t ft gt ht kt mt nRO t rRM t tt vt wR^ t zc C sJ g } x0 t | � d | k r8 | j t j t � � q Wt j | � | S( Ni ( R R' t randomt choicet
_syllablest EMPTYSTRINGR ( t lengtht syls( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt UserFriendly_MakeRandomPasswordf s c C sG d } g } d } zx� | | k r� y t j | | � } Wn� t t f k
r� | d k r� y t j d t j � } Wq� t k
r� } | j t j k r� � n t
d d � t | � SXn t j | | | � } n X| j
| � | t | � 7} q Wt j t j | � � } | j d d � | SWd | d k rBt j | � n Xd S( Ni s /dev/urandomRU s+ urandom not available, passwords not secures
R
( R: R t urandomt AttributeErrort NotImplementedErrort opent O_RDONLYt OSErrort errnot ENOENTR R� t readR' R t base64t encodestringR� R t replacet close( R� t bytesreadt bytest fdt newbytesRy RM ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt Secure_MakeRandomPasswordm s0
c C s t j r t | � St | � S( N( R t USER_FRIENDLY_PASSWORDSR� R� ( R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt MakeRandomPassword� s
c C sR t t j � d � } t t j � d � } d � } d t t | | | f � � S( Ni4 c S sV d | k o d k n r) | d 7} n d | k o@ d k n rR | d 7} n | S( Ni i iA i4 iG ( ( R} ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt mkletter� s
s %c%c( t intR� t tuplet map( t chr1t chr2R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
GetRandomSeed� s c C sy | r t j } n t j } t j d � } z: t | d � } | j t | � j � d � | j � Wd t j | � Xd S( Ni R� s
(
R t SITE_PW_FILEt LISTCREATOR_PW_FILER t umaskR� t writet sha_newt hexdigestR� ( t pwt siteadmint filenamet omaskt fp( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt set_global_password� s c C sx | r t j } n t j } y* t | � } | j � d } | j � Wn, t k
rs } | j t j k ro � n d SX| S( Ni����(
R R� R� R� R� R� t IOErrorR� R� R: ( R� R� R� t challengeRy ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt get_global_password� s c C s2 t | � } | d k r d S| t | � j � k S( N( R� R: R� R� ( t responseR� R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt check_global_password� s s &((?:#[0-9]+|[a-z]+);)c C sj t j rK t | t � rK x- t j D] } | j | t j | � } q" WqK n t j d t j | d t
�� S( Ns &\1t quote( R t BROKEN_BROWSER_WORKAROUNDt
isinstancet strt BROKEN_BROWSER_REPLACEMENTSR� t _ampreR t cgit escapeR ( RM R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt websafe� s
#c C sa | j d d � } t | � d k rW y | d t | d � f SWqW t k
rS qW Xn | d f S( Nt :i i i iw ( R% R R� t
ValueError( RM t parts( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt nntpsplit� s
c C s* | r | j d d � S| j d d � Sd S( s� Make email address unrecognizable to web spiders, but invertable.
When for_text option is set (not default), make a sentence fragment
instead of a token.R9 s at s --at--N( R� ( RC t for_text( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt ObscureEmail� s c C s | j d d � S( s! Invert ObscureEmail() conversion.s --at--R9 ( R� ( RC ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt UnobscureEmail� s t OuterExitc B s e Z RS( ( t __name__t
__module__( ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyR� � s c C s� g } | d k r" | j | � n | d k rA | j | j � n | j t j � g } | d k r� | j | j � � | j t j j t j | j
� � n | j t j j t j d � � | j t j � d } y� x� | D]y } xp | D]h } t j j | | | � } y t | � } t � Wq� t
k
rN}
|
j t j k rE� n d } q� Xq� Wq� WWn t k
rkn X| d k r�y+ t j j t j d | � } t | � } Wq�t
k
r�}
|
j t j k r�� n t
t j d | � � q�Xn | j � } | j � | } | d k r�y^ t | � }
y |
j | � } Wn8 t k
rmt | t | � d � } |
j | � } n XWq�t t f k
r�}
t d d | |
� q�Xn | r�| | f St | � | f S( Nt sitet ens No template file foundR� RU s broken template: %s
%s( R: R' t preferred_languageR t DEFAULT_SERVER_LANGUAGERl R R R t TEMPLATE_DIRt host_nameR� R� R� R� R� R� R� R
t interpolatet UnicodeErrort unicodet
GetCharSett TypeErrorR� R R5 ( t templatefilet dictt rawt langt mlistt languagest
searchdirsR� t dirR� Ry t templateR) t sdictt utemplate( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt findtext� sf 4 %
c C s t | | | | | � d S( Ni ( R� ( R� R� R� R� R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt maketextg s t confirmt helpt infot listst optionsi t passwordt removei t sett subscribet unsubscribet whoc C s� d } g } xc t j j | � D]O } | d k r5 Pn | j � rN | d 7} n | t j k ra t S| j | � q Wt j | � } t
j | j � j � � r� t
S| d } t | j d d � � } | j | � x� | D]� } | j � s� q� n g | j � D] } | j � ^ q� } t
j | d d � \ } }
| d k rM|
d k rMq� n | t | d � k on|
k n r� | d d k r�| d d k r�q� n t
Sq� Wt S(
Ni s -- i i t subjectR
R� i t ont off( NN( R� R� ( R= t Iteratorst body_line_iteratort stripR t DEFAULT_MAIL_COMMANDS_MAX_LINESR R' R& R t ADMINDATAt has_keyR; R R� RX R% R: R ( t msgt linecntR/ R1 t bodytextt bodylinesR� t wordt wordst minargst maxargs( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt is_administrivia~ s8
% & c C s{ | } t j j d � r( t j d } n? t j j d � rg t j j d � rg t j d t j d } n | rw t | � S| S( s Return the full virtual path this CGI script was invoked with.
Newer web servers seems to supply this info in the REQUEST_URI
environment variable -- which isn't part of the CGI/1.1 spec.
Thus, if REQUEST_URI isn't available, we concatenate SCRIPT_NAME
and PATH_INFO, both of which are part of CGI/1.1.
Optional argument `fallback' (default `None') is returned if both of
the above methods fail.
The url will be cgi escaped to prevent cross-site scripting attacks,
unless `escape' is set to 0.
Ra Rb RQ ( R RW R� R� ( t fallbackR� t url( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
GetRequestURI� s $
c C s� x� | r� | r | � n y t j d t j � \ } } Wn6 t k
rp } | j t j k rb � n | j � Pn X| d k r� y | | =Wq� t k
r� q� Xn | r Pq q Wd S( Ni����i ( R t waitpidt WNOHANGR� R� t ECHILDt cleart KeyError( t kidst funct oncet pidt statusRy ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt reap� s"
c C s t j | d S( Ni ( R t LC_DESCRIPTIONS( R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt GetLanguageDescr� s c C s t j | d S( Ni ( R R ( R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyR� � s c C s t j | d S( Ni ( R R ( R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt GetDirection� s c C s t j j | � S( N( R R R� ( R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
IsLanguage� s c C s� t j j d t j j d � � } t j j d � } | rd | j d | � rd | t | � d } n t j r} | r} | j � St j r� t j t j � d p� t j
} | j � Sd S( Nt HTTP_HOSTt SERVER_NAMEt SERVER_PORTR� i ( R RW RX t endswithR R t VIRTUAL_HOST_OVERVIEWR; t DEFAULT_URLRf t DEFAULT_URL_HOST( t hostt portt hostname( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyRe � s !
c C s[ | d k r* t j j t � t � � } n | d k rG d t j | f Sd t j | | f S( Ns %s@%ss %s-%s@%s( R: R t
VIRTUAL_HOSTSRX Re t MAILMAN_SITE_LIST( R t extra( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt get_site_email� s
c C s< d t t j � t j � | j � | j f } t d 7a | S( Ns <mailman.%d.%d.%d.%s@%s>i ( t _serialt timeR t getpidt
internal_nameR� ( R� t msgid( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt unique_message_id s
c C s4 | d k r t j � d } n t j | d d � S( Ni i i i����( i ( i i i i i ( i����( R: R% t localtimet mktime( t date( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt midnight s c C s� | j d d � j d d � } t j | � } xq t d t | � d � D]W } | | d r� | | d d t k r� d | | d | | <qF d | | | | <qF Wt j | � S(
s$ Convert from %-strings to $-strings.t $s $$s %%t %i i i s ${t }( R� t creR% t rangeR t
IDENTCHARSR� R ( RM R� Rn ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt to_dollar s &c C s� | j d d � j d d � } t j | � } x� t d t | � d � D]v } | | d
k ri d | | <qF | | d d
k r� d | | d d | | d <qF d | | d d | | d <qF Wt j t d
| � � S( s$ Convert from $-strings to %-strings.R/ s %%s $$R. i i s %(s )si N( R� t dreR% R2 R R: R� R t filter( RM R� Rn ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
to_percent, s
!"c C s_ i } xR t d g t j | � D]! \ } } } | p= | p= d ^ q � D] } t | | <qG W| S( s? Return the set (dictionary) of identifiers found in a $-string.N( R6 R: R5 t findallR ( RM Rv Rx R| R} Rq ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt dollar_identifiers: s Gc C s. i } x! t j | � D] } t | | <q W| S( s? Return the set (dictionary) of identifiers found in a %-string.( R1 R8 R ( RM Rv Rq ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt percent_identifiersB s c sD g � t j d | � } � f d � } � f d � } x� t r0� j | | j d � � � | se Pn | j d � } | j d � r� y | t | d � � Wq-t k
r� � j | d | d � � q-Xq9 t j j
| d � } | j d � r| j d � r| t | d d
!� � q9 � j | | � � q9 Wt j
� � } | S( Ns &(?P<ref>[^;]+);c s � j t | � � d S( N( R' t unichr( Rn ( t newparts( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt appchrP s c sY t | t � r | S� d k r( d } n! t � � } | d k rI d } n t | | d � S( Ns
iso-8859-1s us-asciiR� ( R� R� R: R� ( RM t charset( R� ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt tounicodeS s i t #i t &t ;Rc i����( R R% R R' t popRg R� R� t htmlentitydefst
entitydefsRX R R� R ( RM R� R� R= R? t refR} t newstr( ( R� R< s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt canonstrM s(
" c C s� | d k r d } n | d k r* d } n t | � } y3 t | t � rU | j | � St | | � } | SWn t k
r� t | � SXd S( Nu s us-ascii( R: R� R� R t encodeR� R� t uquote( RM R� R> R{ ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
uncanonstr| s
c C sc g } xG | D]? } t | � } | d k r? | j d | � q
| j | � q
Wt t j | � � S( Ni s &#%3d;( t ordR' R� R� R ( RM Rx R} Rz ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyRJ � s
c C s� yS t j j t j j | � � } | j � } t j | j � � } | j | d � SWn- t t
t t f k
r� t
j | j � � SXd S( NR� ( R= t Headert make_headert
decode_headert __unicode__t UEMPTYSTRINGR t
splitlinesRI t LookupErrorR� R� R R� ( RM t csetR� t ustrR1 ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt oneline� s s <i?frames2 <link(?! rel="SHORTCUT ICON" href="<mm-favicon>">)s <metas <objects <scripts
@keyframess \bj(?:ava)?script\bs \bvbs(?:cript)?\bs \bdomactivate\bs \bdomattrmodified\bs \bdomcharacterdatamodified\bs \bdomfocus(?:in|out)\bs \bdommenuitem(?:in)?active\bs \bdommousescroll\bs$ \bdomnodeinserted(?:intodocument)?\bs# \bdomnoderemoved(?:fromdocument)?\bs \bdomsubtreemodified\bs
\bfscommand\bs \bonabort\bs \bon(?:de)?activate\bs \bon(?:after|before)print\bs \bon(?:after|before)update\bs+ \b(?:on)?animation(?:end|iteration|start)\bs8 \bonbefore(?:(?:de)?activate|copy|cut|editfocus|paste)\bs \bonbeforeunload\bs \bonbegin\bs
\bonblur\bs \bonbounce\bs \bonbroadcast\bs \boncanplay(?:through)?\bs \bon(?:cell)?change\bs \boncheckboxstatechange\bs \bon(?:dbl)?click\bs \bonclose\bs \boncommand(?:update)?\bs \boncomposition(?:end|start)\bs \boncontextmenu\bs \boncontrolselect\bs
\boncopy\bs \boncut\bs \bondataavailable\bs! \bondataset(?:changed|complete)\bs5 \bondrag(?:drop|end|enter|exit|gesture|leave|over)?\bs \bondragstart\bs
\bondrop\bs \bondurationchange\bs
\bonemptied\bs \bonend(?:ed)?\bs \bonerror(?:update)?\bs \bonfilterchange\bs \bonfinish\bs \bonfocus(?:in|out)?\bs
\bonhelp\bs \boninput\bs \bonkey(?:up|down|press)\bs \bonlayoutcomplete\bs \bon(?:un)?load\bs \bonloaded(?:meta)?data\bs \bonloadstart\bs \bonlosecapture\bs \bonmedia(?:complete|error)\bs
\bonmessage\bs6 \bonmouse(?:down|enter|leave|move|out|over|up|wheel)\bs \bonmove(?:end|start)?\bs \bon(?:off|on)line\bs
\bonopen\bs \bonoutofsync\bs \bonoverflow(?:changed)?\bs \bonpage(?:hide|show)\bs \bonpaint\bs \bonpaste\bs \bonpause\bs \bonplay(?:ing)?\bs \bonpopstate\bs* \bonpopup(?:hidden|hiding|showing|shown)\bs \bonprogress\bs \bonpropertychange\bs \bonradiostatechange\bs \bonratechange\bs \bonreadystatechange\bs \bonrepeat\bs \bonreset\bs \bonresize(?:end|start)?\bs \bonresume\bs
\bonreverse\bs' \bonrow(?:delete|enter|exit|inserted)\bs# \bonrows(?:delete|enter|inserted)\bs \bonscroll\bs \bonsearch\bs \bonseek(?:ed|ing)?\bs \bonselect(?:start)?\bs \bonselectionchange\bs
\bonshow\bs \bonstart\bs
\bonstalled\bs
\bonstop\bs
\bonstorage\bs \bonsubmit\bs
\bonsuspend\bs \bonsync(?:from|to)preference\bs \bonsyncrestored\bs
\bontext\bs \bontime(?:error|update)\bs \bontoggle\bs$ \bontouch(?:cancel|end|move|start)\bs \bontrackchange\bs \b(?:on)?transitionend\bs \bonunderflow\bs
\bonurlflip\bs \bonvolumechange\bs
\bonwaiting\bs \bonwheel\bs \bseeksegmenttime\bs \bsvgabort\bs \bsvgerror\bs \bsvgload\bs
\bsvgresize\bs
\bsvgscroll\bs
\bsvgunload\bs \bsvgzoom\bt |s
[ - - -�]s, (&#[0-9]+;?)|(&#x[0-9a-f]+;?)|(%[0-9a-f]{2})c C s� | j � j � j d � } yG | j d � s< | j d � rR t | d d � } n t | d � } Wn t k
rv d SX| d k r� t | � Sd Sd S(
s= Translate &#... and %xx encodings into the encoded character.s &#;R^ R/ i i i
R
i N( t groupR; R� Rg R� R� t chr( t mot matcht val( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt
_translate9 s
c C s3 t j t j d t j t | � � � r+ t St Sd S( sW Check HTML string for various tags, script language names and
'onxxx' actions that can be used in XSS attacks.
Currently, this a very simple minded test. It just looks for
patterns without analyzing context. Thus, it potentially flags lots
of benign stuff.
Returns True if anything suspicious found, False otherwise.
R
N( t _badhtmlRJ t _filtercharsR t
_encodedcharsR] R R ( t html( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt suspiciousHTMLI s c
C ss t s
t S| j � } | j d � } | d k r5 t Sd | | d } yO t j j � } t t j � | _
t t j � | _ | j
| t j j � } WnP t j j t j j f k
r� t St k
r� } t d d | | | j � t SXd } i } i } t | d g � }
x� | j j D]� } | j t j j k r\| j d j j � | | j j � <n | j t j j k rwqn | j | j j � g � j d j | j d j! � � qWt" |
� } t | � }
x~ | rH| j# d � } | | k r�| | |
k rq�n | j | | � |
j$ | | � |
j$ | | � |
j% | � q�q�Wt& |
� d k rnt d d | � n x� |
D]� } | | k r�qun t' d
� | | � } t& | � d k r�t St& | � d k r�t d d | t& t( � � n x� | D]y } t) j* d | t) j+ � r)t d
d | | | | � t, S| j- r�t) j* d | t) j+ � r�t d
d | | | | � t, Sq�WquWt S( NR9 i s _dmarc.RU s: DNSException: Unable to query DMARC policy for %s (%s). %sR
R i sY multiple DMARC entries in results for %s,
processing each to be strictc S s
| j d � S( Ns v=DMARC1;( Rg ( R� ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt <lambda>� s s\ RRset of TXT records for %s has %d v=DMARC1 entries;
testing them alls \bp=reject\bt vettes2 DMARC lookup for %s (%s) found p=reject in %s = %ss \bp=quarantine\bs6 DMARC lookup for %s (%s) found p=quarantine in %s = %s(. t dns_resolverR R; R< t dnst resolvert Resolvert floatR t DMARC_RESOLVER_TIMEOUTt timeoutt DMARC_RESOLVER_LIFETIMEt lifetimet queryt rdatatypet TXTt NXDOMAINt NoAnswerR R t __class__R� R� t answert rdtypet CNAMEt itemsRi t to_textRq t
setdefaultR' R t stringst listRC t addt discardR R6 t dmarcR RJ t
IGNORECASER t" dmarc_quarantine_moderation_action( R� R= R@ t dmarc_domainRg t txt_recsRy t full_recordt results_by_namet cnamest
want_namest txt_rect expandst seent itemRq t dmarcst entry( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt IsDMARCProhibited] s� &
( Rx Ry Rn Rz R{ ( R| R} Rv R~ R R� R� R� R� RO R� RM R� R� R� R^ R� ( i i ( i i ( i i ( i i ( i i ( i i ( i i ( i i ( i i ( i i ( i i ( t __doc__t
__future__R R t sysR R� R% R� R� R� Rf RD t email.HeaderR= t email.Iteratorst email.ErrorsR t typesR t stringR R R t ImportErrort _lowert uppert MailmanR R R t Mailman.SafeDictR
t Mailman.Logging.SyslogR t hashlibt md5t md5_newt sha1R� t shat newR R t NameErrort dns.resolverRf t
dns.rdatatypet
dns.exceptionR Re R� RQ R& Rp R3 t compileR R1 R5 R! R# R5 R8 RB RE RI RL RP RY R` R: Ro Rs Rw t _vowelst _consonantsR� R� R} R' R� R� t MEMBER_PASSWORD_LENGTHR� R� R� R� R� R� R� R� R� R� t ExceptionR� R� R� R� R R R R R� R R Re R# R$ R) R- R4 R7 R9 R: RH RK RJ RV t _badwordsR R^ R_ R` R] Rb R� ( ( ( s[ /builddir/build/BUILDROOT/mailman-2.1.15-30.el7_9.2.x86_64/usr/lib/mailman/Mailman/Utils.pyt <module> s�
K
!
o
' /
Mini Shell