3
� f� � @ s� d Z ddlZddlZddgZdd� Zdd� Zdd � Zd
d � Zd d
� Zdd� Z dd� Z
ddg fdd�Z d dd�Z g fdd�Z
dd� Zdd � Zd d � Zed kr�e� dS )!z%Mailcap file handling. See RFC 1524.� N�getcaps� findmatchc C s d| krd| d fS dS d S )N�linenor � )r r � )�entryr r �,/opt/alt/python36/lib64/python3.6/mailcap.py�lineno_sort_key s r c C s� i } d}x�t � 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)�listmailcapfiles�open�OSError�_readmailcapfile�items)�capsr Zmailcap�fpZmorecaps�key�valuer 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.ZMAILCAPS�HOME�.z /.mailcapz /etc/mailcapz/usr/etc/mailcapz/usr/local/etc/mailcap)�os�environ�split�pathsep)ZpathstrZmailcaps�homer 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)�warnings�warn�DeprecationWarningr )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� ||< q�W 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% ) �readline�strip� parseliner �range�len�join�lower�append) r r r �lineZnextliner �fields�types�jr 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� } ||kr�q�| ||< q�W ||fS ) z�Parse 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 N�view�=r" )NN)r* �
parsefieldr- �findr' )
r. r/ �i�n�fieldr 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 �start�cr 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)�lookup�substr �system) r �MIMEtyper �filename�plist�entries�er> �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 }q�W | ||� } |d }|t| |� }q|d | }qW |S )
Nr" r r �%r; �s�t�{�})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 x�tdt| j�d�D ]�}| j||d � }t|�dk rjtd� d S |d }|d }t||d|�\}}|s�tdt� 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 �argv�showr) 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 �keys�kr 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$
)