a
R�f�� � @ sR d Z ddlmZmZmZ ddlmZ ddlZddlZddl Z
ddl m Z ddl
mZ ddlZddlZddlZg d�Zdadad d
� Zd d � Zd
d� Zdd� Zeadadejdddfdd�Z d1dd�Z dd� Z dd� Z G d d � d �Z G d d � d �Z!ejfd d!�Z"d2d"d#�Z#ejfd$d%�Z$d&d'� Z%d(d)� Z&d*d+� Z'd,d-� Z(d.d/� Z)e*d0k�rNe"� dS )3z2.6� )�StringIO�BytesIO�
TextIOWrapper)�MappingN)�
FeedParser)�Message) �MiniFieldStorage� FieldStorage�parse�parse_multipart� parse_header�test�print_exception�
print_environ�
print_form�print_directory�print_arguments�print_environ_usage� c G sD t r*ts*ztt d�aW n ty( Y n0 ts4tantat| � d S )N�a)�logfile�logfp�open�OSError�nolog�log�dolog�Zallargs� r �(/opt/alt/python39/lib64/python3.9/cgi.py�initlog8 s r c G s t �| | d � d S )N�
)r �write)Zfmt�argsr r r r [ s r c G s d S �Nr r r r r r _ s r c C s da trt�� d atad S )Nr )r r �closer r r r r r �closelogc s
r& �&c
C s^ | d u rt j} t| d�r | j}nd}t| t�r4| j} d|vrDd|d< |d dk�r t|d �\}}|dkrxt| ||d�S |d kr�t |d
�}t
r�|t
kr�t d ��| � |��
|�} nd } d
|v r�| r�| d } | |d
} n*t jdd � �r| r�| d } | t jd } | |d
< n<d
|v �r |d
} n(t jdd � �r<t jd } nd } | |d
< tjj| ||||d�S )N�encodingzlatin-1�REQUEST_METHOD�GET�POST� CONTENT_TYPEzmultipart/form-data)� separator�!application/x-www-form-urlencoded�CONTENT_LENGTH� Maximum content length exceededr � QUERY_STRINGr' � )r( r- )�sys�stdin�hasattrr( �
isinstancer �bufferr r �int�maxlen�
ValueError�read�decode�argv�urllibr
Zparse_qs)
�fp�environ�keep_blank_values�strict_parsingr- r( �ctype�pdictZclength�qsr r r r
v sF
�r
�utf-8�replacec sv |d � d�}d�|�}t� }|�|� z|d |d< W n tyJ Y n0 t| |||ddi|d�� � fd d
�� D �S ) N�boundary�asciiz multipart/form-data; boundary={}zCONTENT-LENGTHzContent-Lengthr) r+ )�headersr( �errorsr@ r- c s i | ]}|� � |��qS r )�getlist)�.0�k�Zfsr r �
<dictcomp>� � z#parse_multipart.<locals>.<dictcomp>)r< �formatr Zset_type�KeyErrorr )r? rD r( rK r- rH rC rJ r rO r r � s
�r c c s� | d d� dkr�| dd � } | � d�}|dkr`| �dd|�| �dd|� d r`| � d|d �}q&|dk rpt| �}| d |� }|�� V | |d � } q d S )Nr2 �;r �"�\"� )�find�count�len�strip)�s�end�fr r r � _parseparam� s
(
r_ c C s� t d| �}|�� }i }|D ]�}|�d�}|dkr |d |� �� �� }||d d � �� }t|�dkr�|d |d kr�dkr�n n |dd� }|�dd ��d
d�}|||< q ||fS ) NrT �=r r2 rW ���rU z\\�\rV )r_ �__next__rX r[ �lowerrZ rG )�line�parts�keyrD �p�i�name�valuer r r r � s
,
r c @ s< e Zd ZdZdZdZdZi ZdZi Z i Z
dd� Z dd� Z dS )r Nc C s || _ || _d S r$ �rj rk ��selfrj rk r r r �__init__ s zMiniFieldStorage.__init__c C s d| j | jf S )NzMiniFieldStorage(%r, %r)rl �rn r r r �__repr__ s zMiniFieldStorage.__repr__)
�__name__�
__module__� __qualname__�filename�list�type�file� type_options� disposition�disposition_optionsrJ ro rq r r r r r � s r c @ s� e Zd Zdddejdddddddf dd�Zd d
� Zd d � Zd
d� Zdd� Z dd� Z
dd� Z dd� Z d:dd�Z
d;dd�Zdd � Zd d � Zd d � Zd!d"� Zd#d$� Zd%d&� ZdZd'd(� Zd)d*� Zd+Zd,d-� Zd.d/� Zd0d1� Zd2d3� Z d4d5� Z d6d7� Z d8d9� Z dS )<r NrQ r rF rG r' c C sX d} || _ || _|
| _| | _d|v r0|d �� } d | _| dksF| dkr�d|v rX|d }
n tjdd � rrtjd }
nd}
|
�t �
� d�}
t |
�}|d u r�dd i}|d u r�i }| d
kr�d |d< d |v r�|d |d< d|v r�|d | _d |v r�|d |d
< nt |t
tf��std��|| _|d u �r*tjj| _n<t |t��r@|j| _n&t|d��rXt|d��s`td��|| _|| _| | _t |t��s�tdt|�j ��|| _d| _ || _ di }}d| jv �r�t | jd �\}}|| _ || _ d | _!d|v �r�|d | _!d | _"d|v �r
|d | _"| j"d u| _#d| jv �r6t | jd �\}}n(| j�sH| d
k�rTdi }}n
d i }}|| _|| _$d|v �r�|d �| j| j�| _%nd| _%d}d
| jv �r�zt&| jd
�}W n t'�y� Y n0 t(�r�|t(k�r�t'd��|| _)| j d u �r|dk�r|| _ d | _*| _+d| _,|d k�r*| �-� n*|d d � d k�rL| �.|||� n| �/� d S ) Nr* r) ZHEADr1 r2 r �surrogateescapez content-typer. r+ r, r/ �content-lengthz?headers must be mapping or an instance of email.message.Messager; �readlinezfp must be file pointerz#outerboundary must be bytes, not %sr zcontent-dispositionrj ru z
text/plainrH rQ ra r0 �
z
multipart/)0rA rB �max_num_fieldsr- �upper�
qs_on_postr3 r= �encode�localeZgetpreferredencodingr r6 r r � TypeErrorrJ r4 r7 r? r r5 r( rK �bytesrw rr �
outerboundary�
bytes_read�limitr rz r{ rj ru � _binary_filery �
innerboundaryr8 r: r9 �lengthrv rx �done�read_urlencoded�
read_multi� read_single)rn r? rJ r� r@ rA rB r� r( rK r� r- �methodrE ZcdisprD rC Zclenr r r ro ? s� /
�
�
�
zFieldStorage.__init__c C s& z| j �� W n ty Y n0 d S r$ )rx r% �AttributeErrorrp r r r �__del__� s zFieldStorage.__del__c C s | S r$ r rp r r r � __enter__� s zFieldStorage.__enter__c G s | j �� d S r$ )rx r% )rn r# r r r �__exit__� s zFieldStorage.__exit__c C s d| j | j| jf S )NzFieldStorage(%r, %r, %r))rj ru rk rp r r r rq � s �zFieldStorage.__repr__c C s t | �� �S r$ )�iter�keysrp r r r �__iter__� s zFieldStorage.__iter__c C sT |dkrt |��| jr:| j�d� | j�� }| j�d� n| jd urL| j}nd }|S )Nrk r )r� rx �seekr; rv rm r r r � __getattr__� s
zFieldStorage.__getattr__c C s^ | j d u rtd��g }| j D ]}|j|kr |�|� q |sBt|��t|�dkrV|d S |S d S )N�
not indexabler2 r )rv r� rj �appendrS rZ )rn rg �found�itemr r r � __getitem__ s
zFieldStorage.__getitem__c C s8 || v r0| | }t |t�r(dd� |D �S |jS n|S d S )Nc S s g | ]
}|j �qS r �rk �rM �xr r r �
<listcomp> rQ z)FieldStorage.getvalue.<locals>.<listcomp>�r6 rv rk �rn rg �defaultrk r r r �getvalue s
zFieldStorage.getvaluec C s4 || v r,| | }t |t�r$|d jS |jS n|S d S �Nr r� r� r r r �getfirst s
zFieldStorage.getfirstc C s: || v r2| | }t |t�r(dd� |D �S |jgS ng S d S )Nc S s g | ]
}|j �qS r r� r� r r r r� . rQ z(FieldStorage.getlist.<locals>.<listcomp>r� )rn rg rk r r r rL ) s
zFieldStorage.getlistc C s* | j d u rtd��t tdd� | j D ���S )Nr� c s s | ] }|j V qd S r$ �rj �rM r� r r r � <genexpr>8 rQ z$FieldStorage.keys.<locals>.<genexpr>)rv r� �setrp r r r r� 4 s
zFieldStorage.keysc s* | j d u rtd��t� fdd�| j D ��S )Nr� c 3 s | ]}|j � kV qd S r$ r� r� �rg r r r� > rQ z,FieldStorage.__contains__.<locals>.<genexpr>)rv r� �any)rn rg r r� r � __contains__: s
zFieldStorage.__contains__c C s t | �� �S r$ )rZ r� rp r r r �__len__@ s zFieldStorage.__len__c C s | j d u rtd��t| j �S )Nz Cannot be converted to bool.)rv r� �boolrp r r r �__bool__D s
zFieldStorage.__bool__c C s� | j �| j�}t|t�s0td| j t|�jf ��|�| j | j
�}| j rT|d| j 7 }t j
j|| j| j| j | j
| j| jd�}dd� |D �| _| �� d S )N� %s should return bytes, got %sr' �r( rK r� r- c S s g | ]\}}t ||��qS r �r �rM rg rk r r r r� V rQ z0FieldStorage.read_urlencoded.<locals>.<listcomp>)r? r; r� r6 r� r: rw rr r< r( rK r� r> r
� parse_qslrA rB r� r- rv �
skip_lines)rn rE �queryr r r r� I s
�
�z FieldStorage.read_urlencodedc C sL | j }t|�s td|f ��g | _| jrftjj| j| j| j | j
| j | j | j
d�}| j�dd� |D �� | jpp| j}| j�� }t|t�s�td| jt|�jf ��| jt|�7 _|�� d| j kr�|r�| j�� }| jt|�7 _q�| j }|d u�r|t| j�8 }t� } d}
| j�� } |
| 7 }
| �� �s �q0�q |
�s:�q@| jt|
�7 _| �|
� | j
| j �� | � � } d| v �rz| d= | j d u �r�d n
| j | j }
|| j| |||||
| j
| j || j
� }|d u�r�|d 8 }|j�r�|t|j�8 }|d
k �r�td ��| j|j7 _| j� |� |j �s@| j| j! k�r4d
k�rn n�q@�q| �"� d S ) Nz&Invalid boundary in multipart form: %rr� c s s | ]\}}t ||�V qd S r$ r� r� r r r r� f rQ z*FieldStorage.read_multi.<locals>.<genexpr>r� � --rQ r} r2 r z Max number of fields exceeded)#r� �valid_boundaryr: rv r� r> r
r� rA rB r( rK r� r- �extend�FieldStorageClass� __class__r? r~ r6 r� rw rr r� rZ r[ r Zfeedr< r% r� r� r� r� r� )rn r@ rA rB Zibr� �klassZ
first_liner� �parserZhdr_text�datarJ r� �partr r r r� [ sr �
��
��
(zFieldStorage.read_multic C s4 | j dkr | �� | �� n| �� | j�d� d S r� )r� � read_binaryr� �
read_linesrx r� rp r r r r� � s
zFieldStorage.read_singlei c C s� | � � | _| j}|dkr�|dkr�| j�t|| j��}t|t�sVt d| jt
|�j f ��| j t
|�7 _ |std| _q�| j�|� |t
|� }qd S )Nr r� ra )� make_filerx r� r? r; �min�bufsizer6 r� r: rw rr r� rZ r� r" )rn Ztodor� r r r r� � s
� zFieldStorage.read_binaryc C s@ | j rt� | _| _nt� | _| _| jr4| �� n| �� d S r$ )r� r rx �_FieldStorage__filer r� �read_lines_to_outerboundary�read_lines_to_eofrp r r r r� � s
zFieldStorage.read_linesc C sv | j d urF| j �� t|� dkrF| �� | _| j �� }| j�|� d | _ | jrZ| j�|� n| j�|�| j | j
�� d S )Ni� ) r� �tellrZ r� rx r� r" r� r< r( rK )rn re r� r r r Z__write� s
zFieldStorage.__writec C s: | j �d�}| jt|�7 _|s*d| _q6| �|� q d S )N� ra )r? r~ r� rZ r� �_FieldStorage__write)rn re r r r r� � s z FieldStorage.read_lines_to_eofc C sJ d| j }|d }d}d}d}| jd urFd| j kr>|krFn n�qF| j�d�}| jt|�7 _|t|�7 }|s~d| _�qF|dkr�|| }d}|�d�r�|r�|�� }||kr��qF||kr�d| _�qF|}|� d �r�d }|d d
� }d}nL|� d ��r d }|d d� }d}n*|� d��r.d}|d d� }d }nd}d }| �
|| � q d S )
Nr� rQ Tr r� ra �
r2 s
����
F) r� r� r? r~ r� rZ r� �
startswith�rstrip�endswithr� ) rn �
next_boundary�
last_boundaryZdelim�last_line_lfendZ_readre � strippedlineZodelimr r r r� � sN
$
z(FieldStorage.read_lines_to_outerboundaryc C s� | j r | jrd S d| j }|d }d}| j�d�}| jt|�7 _|sPd| _q�|�d�r�|r�|�� }||krpq�||kr�d| _q�|�d�}q&d S )Nr� Tr� ra r2 r� )r� r� r? r~ r� rZ r� r[ )rn r� r� r� re r� r r r r� s$
zFieldStorage.skip_linesc C s& | j rt�d�S tjd| jdd�S d S )Nzwb+zw+r! )r( �newline)r� �tempfileZ
TemporaryFiler( rp r r r r� ( s
�zFieldStorage.make_file)N)N) rr rs rt �osr@ ro r� r� r� rq r� r� r� r� r� rL r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r r r r r s@ +�
&
E
2r c C s� t d� t � tjt_zNt� }t� t� t|� t| � t � dd� }|fdd�}t d� |� W n t
� Y n0 t d� da z&t� }t� t� t|� t| � W n t
� Y n0 d S ) NzContent-type: text/htmlc S s t d� d S )Nz,testing print_exception() -- <I>italics?</I>)�execr r r r r^ [ s ztest.<locals>.fc S s
| � d S r$ r )r^ r r r �g] s ztest.<locals>.gz9<H3>What follows is a test, not an actual exception:</H3>z*<H1>Second try with a small maxlen...</H1>�2 ) �printr3 �stdout�stderrr r r r r r r r9 )r@ �formr^ r� r r r r
J s4
r
c C sx | d u rt �� \} }}dd l}t� td� |�||�|�| |� }tdt�d�|d d� ��t�|d �f � ~d S )Nr z+<H3>Traceback (most recent call last):</H3>z<PRE>%s<B>%s</B></PRE>r ra ) r3 �exc_info� tracebackr� � format_tb�format_exception_only�html�escape�join)rw rk �tbr� r� rv r r r r q s
� �r c C s\ t | �� �}t� td� td� |D ]"}tdt�|�dt�| | �� q&td� t� d S )Nz<H3>Shell Environment:</H3>�<DL>�<DT>�<DD>�</DL>)�sortedr� r� r� r� )r@ r� rg r r r r s r c C s� t | �� �}t� td� |s&td� td� |D ]Z}tdt�|� d dd� | | }tdt�tt|��� d � td
t�t|�� � q2td � t� d S ) Nz<H3>Form Contents:</H3>z<P>No form fields.r� r� �:� )r] z<i>z</i>r� r� )r� r� r� r� r� �reprrw )r� r� rg rk r r r r � s r c
C sl t � t d� z t�� } W n8 tyR } z t dt�t|��� W Y d }~nd }~0 0 t t�| �� t � d S )Nz#<H3>Current Working Directory:</H3>zOSError:)r� r� �getcwdr r� r� �str)�pwd�msgr r r r � s *r c C s( t � t d� t � t tj� t � d S )Nz <H3>Command Line Arguments:</H3>)r� r3 r= r r r r r � s
r c C s t d� d S )Na�
<H3>These environment variables could have been set:</H3>
<UL>
<LI>AUTH_TYPE
<LI>CONTENT_LENGTH
<LI>CONTENT_TYPE
<LI>DATE_GMT
<LI>DATE_LOCAL
<LI>DOCUMENT_NAME
<LI>DOCUMENT_ROOT
<LI>DOCUMENT_URI
<LI>GATEWAY_INTERFACE
<LI>LAST_MODIFIED
<LI>PATH
<LI>PATH_INFO
<LI>PATH_TRANSLATED
<LI>QUERY_STRING
<LI>REMOTE_ADDR
<LI>REMOTE_HOST
<LI>REMOTE_IDENT
<LI>REMOTE_USER
<LI>REQUEST_METHOD
<LI>SCRIPT_NAME
<LI>SERVER_NAME
<LI>SERVER_PORT
<LI>SERVER_PROTOCOL
<LI>SERVER_ROOT
<LI>SERVER_SOFTWARE
</UL>
In addition, HTTP headers sent by the server may be passed in the
environment as well. Here are some common variable names:
<UL>
<LI>HTTP_ACCEPT
<LI>HTTP_CONNECTION
<LI>HTTP_HOST
<LI>HTTP_PRAGMA
<LI>HTTP_REFERER
<LI>HTTP_USER_AGENT
</UL>
)r� r r r r r � s r c C s( dd l }t| t�rd}nd}|�|| �S )Nr s ^[ -~]{0,200}[!-~]$z^[ -~]{0,200}[!-~]$)�rer6 r� �match)r\ r� Z _vb_patternr r r r� � s
r� �__main__)rF rG r' )NNNN)+� __version__�ior r r �collections.abcr r3 r� Z urllib.parser> Z email.parserr Z
email.messager r� r� r� �__all__r r r r r r& r r9 r@ r
r r_ r r r r
r r r r r r r� rr r r r r �<module> sR # �
F
:'
/