�
e f
� @ s� d Z d d l Z d d g Z d d � Z d d � Z d d � Z d
d � Z d d
� Z d d g d d � Z d d d � Z g d d � Z
d d � Z d d � Z d d � Z
e d k r� e � n d S) z%Mailcap file handling. See RFC 1524.� N�getcaps� findmatchc C s� i } x� t � D]� } y t | d � } Wn t k
r@ w Yn X| � t | � } Wd QXxE | j � D]7 \ } } | | k r� | | | <qg | | | | | <qg Wq W| 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".
�rN)�listmailcapfiles�open�OSError�readmailcapfile�items)�capsZmailcap�fpZmorecaps�key�value� r �,/opt/alt/python34/lib64/python3.4/mailcap.pyr s
c C sp d t j k r1 t j d } | j t j � } n; d t j k rP t j d } n d } | d d d d g } | 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 sG i } x:| j � } | s Pn | d d k s | j � d k rG q n | } xI | d d � d k r� | j � } | s� d } n | d d
� | } qP Wt | � \ } } | o� | s� q n | j d � } x. t t | � � D] } | | j � | | <q� Wd j | � j � } | | k r2| | j | � q | g | | <q W| S) 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 �#� � Nz\
�
�/���r ) �readline�strip� parseliner �range�len�join�lower�append)r r
�lineZnextliner �fields�types�jr r r r 5 s0 " r c
C s2 g } d t | � } } x? | | k rZ t | | | � \ } } | j | � | d } q Wt | � d k rq d S| d | d | d d � } } } i | d 6} x� | D]y } | j d � } | d k r� | } d } n0 | d | � j � } | | d d � j � } | | k rq� | | | <q� W| | f S) 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 N�view�=r )NN)r! �
parsefieldr$ �findr )
r% r& �i�n�fieldr r* �restZfkeyZfvaluer r r r [ s*
&
r c C sp | } xM | | k rU | | } | d k r/ Pq | d k rH | d } q | d } q W| | | � j � | f S)z/Separate one key-value pair in a mailcap entry.�;�\r r) )r )r% r. r/ �start�cr r r r, z s
r, r* z /dev/nullc C s� t | | | � } xt | D]l } d | k re t | d | | � } | re t j | � d k re q qe n t | | | | | � } | | f SWd S)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�er6 �commandr r r r � s
c s� g } | | k r# | | | } n | j d � } | d d } | | k r] | | | } n � d k r� � f d d � | D� } n | S)Nr r z/*c s" g | ] } � | k r | � q Sr r )�.0r> )r r r �
<listcomp>� s zlookup.<locals>.<listcomp>)r )r
r: r r= Z MIMEtypesr )r r r7 � s r7 c
C sf d } d t | � } } xF| | k ra| | } | d } | d k r� | d k ru | | | d � } | d } n | | } q | | } | d } | d k r� | | } q | d k r� | | } q | d k r� | | } q | d k rP| } x* | | k r | | d k r | d } q� W| | | � } | d } | t | | � } q | d | } q W| S)
Nr r r) �%r3 �s�t�{�})r! � findparam)
r0 r: r; r< �resr. r/ r5 r4 �namer r r r8 � s6
r8 c C s[ | j � d } t | � } x8 | D]0 } | d | � j � | k r# | | d � Sq# Wd S)Nr+ r )r# r! )rI r< r/ �pr r r rG � s
rG c C s d d l } t � } | j d d � s6 t | � d Sx� t d t | j � d � D]� } | j | | d � } t | � d k r� t d � d S| d } | d } t | | d | � \ } } | s� t d t � qR t d | � t j
| � } | rR t d | � qR qR Wd S) Nr r) r z"usage: mailcap [MIMEtype file] ...r* zNo viewer found forz
Executing:z Exit status:) �sysr �argv�showr r! �printr �typer r9 ) rK r
r. �argsr: �filer? r> �stsr r r r6 � s&
"
r6 c C s� t d � x t � D] } t d | � q Wt � | sE t � } n t d � t � t | � } xl | D]d } t | � | | } xG | D]? } t | � } x# | D] } t d | | | � q� Wt � q� Wqi Wd S)NzMailcap files:� zMailcap entries:z %-15s)rN r r �sorted)r
�fnZckeysrO r= r> �keys�kr r r rM � s"
rM �__main__)�__doc__r �__all__r r r r r, r r7 r8 rG r6 rM �__name__r r r r �<module> s &