U
��,a�� � @ sf d Z ddlmZmZmZ ddlmZ ddlZddlZddl Z
ddl m Z ddl
mZ ddlZddlZddlZddd d
d d d
dddddg Zdadadd� Zdd� Zdd� Zdd� Zeadadejddd fd d �Z d0d d
�Z d!d"� Z d#d � Z G d$d� d�Z G d%d� d�Z!ejfd&d �Z"d1d'd
�Z#ejfd(d�Z$d)d� Z%d*d� Z&d+d� Z'd,d� Z(d-d.� Z)e*d/k�rbe"� dS )2z2.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 sF t r,ts,ztt d�aW n tk
r* Y nX ts6tantat| � d S )N�a)�logfile�logfp�open�OSError�nolog�log�dolog�Zallargs� r �(/opt/alt/python38/lib64/python3.8/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 krt j} t| d�r | j}nd}t| t�r4| j} d|krDd|d< |d dk�r t|d �\}}|dkrxt| ||d�S |d kr�t |d
�}t
r�|t
kr�t d ��| � |��
|�} nd } d
|kr�| r�| d } | |d
} n*t jdd � �r| r�| d } | t jd } | |d
< n<d
|k�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 sL
��utf-8�replacec sx |d � d�}d�|�}t� }|�|� z|d |d< W n tk
rL Y nX 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>� s z#parse_multipart.<locals>.<dictcomp>)r< �formatr Zset_type�KeyErrorr )r? rD r( rK r- rH rC rJ r rO r r � s
�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 ) NrS �=r r2 rV ���rT z\\�\rU )r^ �__next__rW rZ �lowerrY rG )�line�parts�keyrD �p�i�name�valuer r r r � s
,
c @ s< e Zd ZdZdZdZdZi ZdZi Z i Z
dd� Z dd� Z dS )r Nc C s || _ || _d S r$ �ri rj ��selfri rj r r r �__init__ s zMiniFieldStorage.__init__c C s d| j | jf S )NzMiniFieldStorage(%r, %r)rk �rm r r r �__repr__ s zMiniFieldStorage.__repr__)
�__name__�
__module__� __qualname__�filename�list�type�file� type_options� disposition�disposition_optionsrJ rn rp r r r r r � s 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 N� r rF rG r' c C sZ d} || _ || _|
| _| | _d|kr0|d �� } d | _| dksF| dkr�d|krX|d }
n tjdd � rrtjd }
nd}
|
�t �
� d�}
t |
�}|d kr�dd i}|d kr�i }| d
kr�d |d< d |kr�|d |d< d|kr�|d | _d |kr�|d |d
< nt |t
tf��std��|| _|d k�r*tjj| _n<t |t��r@|j| _n&t|d��rXt|d��s`td��|| _|| _| | _t |t��s�tdt|�j ��|| _d| _ || _ di }}d| jk�r�t | jd �\}}|| _ || _ d | _!d|k�r�|d | _!d | _"d|k�r
|d | _"| j"d k | _#d| jk�r6t | jd �\}}n(| j�sH| d
k�rTdi }}n
d i }}|| _|| _$d|k�r�|d �| j| j�| _%nd| _%d}d
| jk�r�zt&| jd
�}W n t'k
�r� Y nX t(�r�|t(k�r�t'd��|| _)| j d k�r|dk�r|| _ d | _*| _+d| _,|d k�r,| �-� n*|d d � d k�rN| �.|||� 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-dispositionri rt z
text/plainrH r{ r` 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 �bytesrv rq �
outerboundary�
bytes_read�limitr ry rz ri rt � _binary_filerx �
innerboundaryr8 r: r9 �lengthru rw �done�read_urlencoded�
read_multi� read_single)rm r? rJ r� r@ rA rB r� r( rK r� r- �methodrE ZcdisprD rC Zclenr r r rn ? s� /
�
�
�
zFieldStorage.__init__c C s( z| j �� W n tk
r" Y nX d S r$ )rw r% �AttributeErrorro r r r �__del__� s zFieldStorage.__del__c C s | S r$ r ro r r r � __enter__� s zFieldStorage.__enter__c G s | j �� d S r$ )rw r% )rm r# r r r �__exit__� s zFieldStorage.__exit__c C s d| j | j| jf S )NzFieldStorage(%r, %r, %r))ri rt rj ro r r r rp � s
�zFieldStorage.__repr__c C s t | �� �S r$ )�iter�keysro r r r �__iter__� s zFieldStorage.__iter__c C sT |dkrt |��| jr:| j�d� | j�� }| j�d� n| jd k rL| j}nd }|S )Nrj r )r� rw �seekr; ru rl r r r � __getattr__� s
zFieldStorage.__getattr__c C s^ | j d krtd��g }| j D ]}|j|kr |�|� q |sBt|��t|�dkrV|d S |S d S )N�
not indexabler2 r )ru r� ri �appendrR rY )rm rf �found�itemr r r � __getitem__ s
zFieldStorage.__getitem__c C s8 || kr0| | }t |t�r(dd� |D �S |jS n|S d S )Nc S s g | ]
}|j �qS r �rj �rM �xr r r �
<listcomp> s z)FieldStorage.getvalue.<locals>.<listcomp>�r6 ru rj �rm rf �defaultrj r r r �getvalue s
zFieldStorage.getvaluec C s4 || kr,| | }t |t�r$|d jS |jS n|S d S �Nr r� r� r r r �getfirst s
zFieldStorage.getfirstc C s: || kr2| | }t |t�r(dd� |D �S |jgS ng S d S )Nc S s g | ]
}|j �qS r r� r� r r r r� . s z(FieldStorage.getlist.<locals>.<listcomp>r� )rm rf rj r r r rL ) s
zFieldStorage.getlistc C s* | j d krtd��t tdd� | j D ���S )Nr� c s s | ] }|j V qd S r$ �ri �rM r� r r r � <genexpr>8 s z$FieldStorage.keys.<locals>.<genexpr>)ru r� �setro r r r r� 4 s
zFieldStorage.keysc s* | j d krtd��t� fdd�| j D ��S )Nr� c 3 s | ]}|j � kV qd S r$ r� r� �rf r r r� > s z,FieldStorage.__contains__.<locals>.<genexpr>)ru r� �any)rm rf r r� r � __contains__: s
zFieldStorage.__contains__c C s t | �� �S r$ )rY r� ro r r r �__len__@ s zFieldStorage.__len__c C s | j d krtd��t| j �S )Nz Cannot be converted to bool.)ru r� �boolro 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 rf rj r r r r� V s z0FieldStorage.read_urlencoded.<locals>.<listcomp>)r? r; r� r6 r� r: rv rq r< r( rK r� r> r
� parse_qslrA rB r� r- ru �
skip_lines)rm 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 k �r|t| j�8 }t� } d}
| j�� } |
| 7 }
| �� �s �q0�q |
�s:�q@| jt|
�7 _| �|
� | j
| j �� | � � } d| k�rz| d= | j d k�r�d n
| j | j }
|| j| |||||
| j
| j || j
� }|d k �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 s z*FieldStorage.read_multi.<locals>.<genexpr>r� � --r{ r} r2 r z Max number of fields exceeded)#r� �valid_boundaryr: ru r� r> r
r� rA rB r( rK r� r- �extend�FieldStorageClass� __class__r? r~ r6 r� rv rq r� rY rZ r Zfeedr< r% r� r� r� r� r� )rm r@ rA rB Zibr� �klassZ
first_liner� �parserZhdr_text�datarJ r� �partr r r r� [ s� �
��
� �
(zFieldStorage.read_multic C s4 | j dkr | �� | �� n| �� | j�d� d S r� )r� � read_binaryr� �
read_linesrw r� ro 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� r` )� make_filerw r� r? r; �min�bufsizer6 r� r: rv rq r� rY r� r" )rm Ztodor� r r r r� � s
� zFieldStorage.read_binaryc C s@ | j rt� | _| _nt� | _| _| jr4| �� n| �� d S r$ )r� r rw �_FieldStorage__filer r� �read_lines_to_outerboundary�read_lines_to_eofro r r r r� � s
zFieldStorage.read_linesc C sv | j d k rF| j �� t|� dkrF| �� | _| j �� }| j�|� d | _ | jrZ| j�|� n| j�|�| j | j
�� d S )Ni� ) r� �tellrY r� rw r� r" r� r< r( rK )rm rd r� r r r Z__write� s
zFieldStorage.__writec C s: | j �d�}| jt|�7 _|s*d| _q6| �|� q d S )N� r` )r? r~ r� rY r� �_FieldStorage__write)rm rd r r r r� � s z FieldStorage.read_lines_to_eofc C sJ d| j }|d }d}d}d}| jd k rFd| 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� r{ Tr r� r` �
r2 s
����
F) r� r� r? r~ r� rY r� �
startswith�rstrip�endswithr� ) rm �
next_boundary�
last_boundaryZdelim�last_line_lfendZ_readrd � 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� r` r2 r� )r� r� r? r~ r� rY r� rZ )rm r� r� r� rd 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( ro r r r r� ( s
�zFieldStorage.make_file)N)N) rq rr rs �osr@ rn r� r� r� rp 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 sJ + �
&
E
2c C s� t d� t � tjt_zNt� }t� t� t|� t| � t � dd� }|fdd�}t d� |� W n t
� Y nX t d� da z&t� }t� t� t|� t| � W n t
� Y nX 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
c C sx | d krt �� \} }}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 r` ) r3 �exc_info� tracebackr� � format_tb�format_exception_only�html�escape�join)rv rj �tbr� r� ru r r r r q s
� �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� rf r r r r s 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� �reprrv )r� r� rf rj r r r r � s c
C sj t � t d� z t�� } W n6 tk
rP } zt dt�t|��� W 5 d }~X Y nX t t�| �� t � d S )Nz#<H3>Current Working Directory:</H3>zOSError:)r� r� �getcwdr r� r� �str)�pwd�msgr r r r � s &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
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 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 Zcollections.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� rq r r r r �<module> sf �# �
F
:'
/