3
\ @ s d Z ddlZddlZddgZdd Zdd Zdd Zd
d Zd d
Zdd Z dd Z
ddg fddZ d ddZ g fddZ
dd Zdd Zd d Zed kre dS )!z%Mailcap file handling. See RFC 1524. Ngetcaps findmatchc C s d| krd| d fS dS d S )Nlinenor )r r )entryr r /usr/lib64/python3.6/mailcap.pylineno_sort_key s r c C s i } d}xt D ]}yt|d}W n tk
r8 wY nX | t||\}}W dQ R X x6|j D ]*\}}|| kr||| |< qb| | | | |< qbW qW | S )a Return a dictionary containing the mailcap database.
The dictionary maps a MIME type (in all lowercase, e.g. 'text/plain')
to a list of dictionaries corresponding to mailcap entries. The list
collects all the entries for that MIME type from all available mailcap
files. Each dictionary contains key-value pairs for that MIME type,
where the viewing command is stored with the key "view".
r rN)listmailcapfilesopenOSError_readmailcapfileitems)capsr ZmailcapfpZmorecapskeyvaluer r r r s
c C sP dt jkr"t jd } | jt j}n*dt jkr8t jd }nd}|d dddg}|S )z7Return a list of all mailcap files found on the system.ZMAILCAPSHOME.z /.mailcapz /etc/mailcapz/usr/etc/mailcapz/usr/local/etc/mailcap)osenvironsplitpathsep)ZpathstrZmailcapshomer r r r - s
r c C s t jdtd t| d\}}|S )z?Read a mailcap file and return a dictionary keyed by MIME type.z2readmailcapfile is deprecated, use getcaps instead N)warningswarnDeprecationWarningr )r r _r r r readmailcapfile? s r c C s i }x| j }|sP |d dks|j dkr.q|}x4|d d dkrf| j }|sTd}|dd | }q4W t|\}}|oz|s~q|dk r||d< |d 7 }|jd
}x$tt|D ]}|| j ||< qW d
j|j }||kr|| j| q|g||< qW ||fS )
a Read a mailcap file and return a dictionary keyed by MIME type.
Each MIME type is mapped to an entry consisting of a list of
dictionaries; the list will contain more than one such dictionary
if a given MIME type appears more than once in the mailcap file.
Each dictionary contains key-value pairs for that MIME type, where
the viewing command is stored with the key "view".
r # r Nz\
r r /r% ) readlinestrip parseliner rangelenjoinlowerappend) r r r lineZnextliner fieldstypesjr r r r G s6
r c
C s g }dt | }}x.||k r@t| ||\}}|j| |d }qW t |dk rRdS |d |d |dd }}}d|i}x^|D ]V}|jd}|dk r|}d} n$|d| j }||d d j } ||krq| ||< qW ||fS ) zParse one entry in a mailcap file and return a dictionary.
The viewing command is stored as the value with the key "view",
and the rest of the fields produce key-value pairs in the dict.
r r r Nview=r" )NN)r*
parsefieldr- findr' )
r. r/ infieldr r2 restZfkeyZfvaluer r r r( p s*
r( c C sT |}x:||k r>| | }|dkr"P q|dkr4|d }q|d }qW | || j |fS )z/Separate one key-value pair in a mailcap entry.;\r r )r' )r. r6 r7 startcr r r r4 s
r4 r2 z /dev/nullc C sb t | ||}xP|D ]H}d|krBt|d ||}|rBtj|dkrBqt|| |||}||fS W dS )a Find a match for a mailcap entry.
Return a tuple containing the command line, and the mailcap entry
used; (None, None) if no match is found. This may invoke the
'test' command of several matching entries before deciding which
entry to use.
testr N)NN)lookupsubstr system) r MIMEtyper filenameplistentrieser> commandr r r r s
c sl g }|| kr|| | }|j d}|d d }|| krB|| | } d k r\ fdd|D }t|td}|S )Nr$ r z/*c s g | ]} |kr|qS r r ).0rF )r r r
<listcomp> s zlookup.<locals>.<listcomp>)r )r sortedr )r rB r rE Z MIMEtypesr )r r r? s
r? c
C s d}dt | }}x||k r| | }|d }|dkr`|dkrV| ||d }|d }|| }q| | }|d }|dkr|| }q|dkr|| }q|dkr|| }q|dkr|}x ||k r| | d kr|d }qW | || } |d }|t| | }q|d | }qW |S )
Nr" r r %r; st{})r* findparam)
r8 rB rC rD resr6 r7 r= r< namer r r r@ s6
r@ c C sF | j d } t| }x,|D ]$}|d | j | kr||d S qW dS )Nr3 r" )r, r* )rR rD r7 pr r r rP s
rP c C s dd l } t }| jdd s(t| d S xtdt| jdD ]}| j||d }t|dk rjtd d S |d }|d }t||d|\}}|stdt q<td| t j
|}|r<td| q<W d S ) Nr r r z"usage: mailcap [MIMEtype file] ...r2 zNo viewer found forz
Executing:z Exit status:) sysr argvshowr) r* printr typer rA ) rT r r6 argsrB filerG rF stsr r r r> s&
r> c C s t d xt D ]}t d| qW t | s4t } t d t t| }xX|D ]P}t | | | }x:|D ]2}t|}x |D ]}t d| || q|W t qjW qPW d S )NzMailcap files: zMailcap entries:z %-15s)rW r r rJ )r fnZckeysrX rE rF keyskr r r rV s"
rV __main__)N)__doc__r r __all__r r r r r r( r4 r r? r@ rP r> rV __name__r r r r <module> s$
)