$61 GRAYBYTE WORDPRESS FILE MANAGER $33

�
e f
�@s�dZd
dl
Z
ddgZdd�Zdd�Zdd	�Zd
d�Zdd
�Zddgdd�Zddd�
Z	gdd�
Z
dd�Zdd�Zdd�Z
edkr�e�
ndS)z%Mailcap file handling.  See RFC 1524.�N�getcaps�	findmatchcCs�i}x�t�D]�}
yt
|
d
�}Wntk
r@


wYn
X|�
t|�
}WdQXxE|j�D]7\}}||kr�|||<qg|||||<qgWqW|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













cCspd
tj
kr1tj
d
}|jtj�
}
n;dtj
krPtj
d}nd}|ddddg}
|
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�homerrrr"s







rc
CsG
i}
x:
|j�}|sPn|d
dks	|j
�dkrGq	n|}xI|d	d�dkr�|j�}|s�d}n|dd
�|}qPWt|�
\}}|o�|s�q	n|jd�
}x.tt|�
�
D]}||j
�||<q�Wdj|�
j�}||
kr2
|
|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)rr
�lineZnextliner�fields�types�
jrrrr5s0	


"



	







rc

Cs2
g}
d
t|�
}}x?||krZt
|||�\}}|
j|�

|d}qWt|
�
dkrqdS|
d
|
d|
dd�}}}i
|d6}
x�|D]y}|jd�
}|d
kr�|}d}	n0|d|�j�}||dd�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
�
rN�view�
=r)NN)r!�
parsefieldr$�findr)
r%r&�
i�
n�fieldrr*�restZfkeyZfvaluerrrr[s*








&







	


rcCsp|
}xM|
|krU||
}|d
kr/Pq	|dkrH|
d}
q	|
d}
q	W|||
�j�|
fS)z/Separate one key-value pair in a mailcap entry.�
;�
\rr))
r)r%r.r/�start�
crrrr,zs








r,r*z	/dev/nullc	Cs�t||
|�}xt|D]l}d
|kret
|d
||�}|retj|�
dkreqqent
|||
||�}||fSWdS)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�commandrrrr�s	




	


cs�g}|
|kr#|||
}n|
jd
�
}|dd}
|
|kr]|||
}n�dk	r��f
dd�|D�
}n|S)Nrr
z/*c
s"g|]}
�|
kr|
�qSrr)�.0r>)
rrr�
<listcomp>�s	zlookup.<locals>.<listcomp>)
r)r
r:rr=Z	MIMEtypesr)
rrr7�s









r7c
Csf
d
}dt|�
}}xF
||kra
||}|d}|dkr�|dkru|||d�}|d}n||}q||}|d}|dkr�||}q|dkr�||}q|dkr�||
}q|dkrP
|}x*||kr
||d	kr
|d}q�W|||�}	|d}|t
|	|�}q|d|}qW|S)
Nrr
r)�
%r3�
s�
t�
{�
})r!�	findparam)
r0r:r;r<�resr.r/r5r4�namerrrr8�s6






























r8cCs[|j�d
}t
|�
}x8|
D]0}|d|�j�|kr#||d�Sq#WdS)Nr+r)r#r!)rIr<r/�
prrrrG�s






rGc	Cs
d
dl}t
�}
|jdd�s6t|
�

dSx�tdt|j�
d�D]�}|j||d�}t|�
dkr�td�

dS|d
}|d}t|
|d|�\}}|s�tdt�
qRtd|�
t	j
|�
}|rRtd|�
qRqRWdS)	Nr
r)rz"usage: mailcap [MIMEtype file] ...r*zNo viewer found forz
Executing:zExit status:)�sysr�argv�showr r!�printr�typerr9)	rKr
r.�argsr:�filer?r>�stsrrrr6�s&

	




"















r6c
Cs�td
�

xt
�D]}
td|
�

qWt�
|sEt�}ntd�

t�
t|�
}xl|D]d}t|�

||}xG|D]?}t|�
}x#|D]}td|||�
q�Wt�
q�WqiWdS)NzMailcap files:�
	zMailcap entries:z  %-15s)rNrr�sorted)r
�fnZckeysrOr=r>�keys�
krrrrM�s"





















rM�__main__)�__doc__r�__all__rrrrr,rr7r8rGr6rM�__name__rrrr�<module>
s&