U
��,a�� � @ sj d Z dZddlmZmZmZ ddlmZ ddlZddl Z ddl
Z ddl m
Z
ddlmZ ddlZddlZddlZdd d
d d d
ddddddg Zdadadd� Zdd� Zdd� Zdd � Zeadade j ddd fd d
�Z d1d!d �Z d"d#� Z d$d � Z G d%d� d�Z!G d&d � d �Z"e j fd'd
�Z#d2d(d�Z$e j fd)d�Z%d*d� Z&d+d� Z'd,d� Z(d-d� Z)d.d/� Z*e+d0k�rfe#� dS )3z�Support module for CGI (Common Gateway Interface) scripts.
This module defines a number of utilities for use by CGI scripts
written in Python.
z2.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| � dS )a� Write a log message, if there is a log file.
Even though this function is called initlog(), you should always
use log(); log is a variable that is set either to initlog
(initially), to dolog (once the log file has been opened), or to
nolog (when logging is disabled).
The first argument is a format string; the remaining arguments (if
any) are arguments to the % operator, so e.g.
log("%s: %s", "a", "b")
will write "a: b" to the log file, followed by a newline.
If the global logfp is not None, it should be a file object to
which log data is written.
If the global logfp is None, the global logfile may be a string
giving a filename to open, in append mode. This file should be
world writable!!! If the file can't be opened, logging is
silently disabled (since there is no safe place where we could
send an error message).
�aN)�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 � dS )z=Write a log message to the log file. See initlog() for docs.�
N)r �write)Zfmt�argsr r r r [ s r c G s dS )z9Dummy function, assigned to log when logging is disabled.Nr r r r r r _ s r c C s da trt�� datadS )zClose the log file.r N)r r �closer r r r r r �closelogc s
r% �&c
C s^ | dkrt 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 )a� Parse a query in the environment or from a file (default stdin)
Arguments, all optional:
fp : file pointer; default: sys.stdin.buffer
environ : environment dictionary; default: os.environ
keep_blank_values: flag indicating whether blank values in
percent-encoded forms should be treated as blank strings.
A true value indicates that blanks should be retained as
blank strings. The default false value indicates that
blank values are to be ignored and treated as if they were
not included.
strict_parsing: flag indicating what to do with parsing errors.
If false (the default), errors are silently ignored.
If true, errors raise a ValueError exception.
separator: str. The symbol to use for separating the query arguments.
Defaults to &.
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 ) a� Parse multipart input.
Arguments:
fp : input file
pdict: dictionary containing other parameters of content-type header
encoding, errors: request encoding and error handler, passed to
FieldStorage
Returns a dictionary just like parse_qs(): keys are the field names, each
value is a list of values for that field. For non-file fields, the value
is a list of strings.
�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> rC r' rJ r, rG rB rI r rN 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 )Nr1 �;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� }|�d d
��d d�}|||< q ||fS ) zfParse a Content-type like header.
Return the main content-type and a dictionary of options.
rR �=r Nr1 rU ���rS z\\�\rT )r] �__next__rV rY �lowerrX rF )�line�parts�keyrC �p�i�name�valuer r r r � s
,
c @ s@ e Zd ZdZdZdZdZdZi ZdZ i Z
i Z dd� Z dd� Z
dS )r z=Like FieldStorage, for use when no file uploads are possible.Nc C s || _ || _dS )z&Constructor from field name and value.N�rh ri ��selfrh ri r r r �__init__ s zMiniFieldStorage.__init__c C s d| j | jf S )z Return printable representation.zMiniFieldStorage(%r, %r)rj �rl r r r �__repr__ s zMiniFieldStorage.__repr__)�__name__�
__module__� __qualname__�__doc__�filename�list�type�file� type_options� disposition�disposition_optionsrI rm ro r r r r r � s c @ s� e Zd ZdZdddejdddddddf dd �Zd
d � Zd d
� Zdd� Z dd� Z
dd� Z dd� Z dd� Z
d;dd�Zd<dd�Zd d � Zd d � Zd d!� Zd"d#� Zd$d%� Zd&d'� ZdZd(d)� Zd*d+� Zd,Zd-d.� Zd/d0� Zd1d2� Z d3d4� Z d5d6� Z d7d8� Z d9d:� Z dS )=r a� Store a sequence of fields, reading multipart/form-data.
This class provides naming, typing, files stored on disk, and
more. At the top level, it is accessible like a dictionary, whose
keys are the field names. (Note: None can occur as a field name.)
The items are either a Python list (if there's multiple values) or
another FieldStorage or MiniFieldStorage object. If it's a single
object, it has the following attributes:
name: the field name, if specified; otherwise None
filename: the filename, if specified; otherwise None; this is the
client side filename, *not* the file name on which it is
stored (that's a temporary file you don't deal with)
value: the value as a *string*; for file uploads, this
transparently reads the file every time you request the value
and returns *bytes*
file: the file(-like) object from which you can read the data *as
bytes* ; None if the data is stored a simple string
type: the content-type, or None if not specified
type_options: dictionary of options specified on the content-type
line
disposition: content-disposition, or None if not specified
disposition_options: dictionary of corresponding options
headers: a dictionary(-like) object (sometimes email.message.Message or a
subclass thereof) containing *all* headers
The class is subclassable, mostly for the purpose of overriding
the make_file() method, which is called internally to come up with
a file open for reading and writing. This makes it possible to
override the default choice of storing all files in a temporary
directory and unlinking them as soon as they have been opened.
N� r rE rF r& c C sZ d} || _ || _|
| _| | _d|kr0|d �� } d| _| dksF| dkr�d|krX|d }
n tjdd� rrtjd }
nd}
|
�t �
� d�}
t |
�}|dkr�d d
i}|dkr�i }| d kr�d
|d < d |kr�|d |d < d|kr�|d | _d
|kr�|d
|d< nt |t
tf��std��|| _|dk�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"dk | _#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 dk�r|dk�r|| _ d | _*| _+d| _,|d
k�r,| �-� n*|dd � d k�rN| �.|||� n| �/� dS ) a$ Constructor. Read multipart/* until last part.
Arguments, all optional:
fp : file pointer; default: sys.stdin.buffer
(not used when the request method is GET)
Can be :
1. a TextIOWrapper object
2. an object whose read() and readline() methods return bytes
headers : header dictionary-like object; default:
taken from environ as per CGI spec
outerboundary : terminating multipart boundary
(for internal use only)
environ : environment dictionary; default: os.environ
keep_blank_values: flag indicating whether blank values in
percent-encoded forms should be treated as blank strings.
A true value indicates that blanks should be retained as
blank strings. The default false value indicates that
blank values are to be ignored and treated as if they were
not included.
strict_parsing: flag indicating what to do with parsing errors.
If false (the default), errors are silently ignored.
If true, errors raise a ValueError exception.
limit : used internally to read parts of multipart/form-data forms,
to exit from the reading loop when reached. It is the difference
between the form content-length and the number of bytes already
read
encoding, errors : the encoding and error handler used to decode the
binary stream to strings. Must be the same as the charset defined
for the page sending the form (content-type : meta http-equiv or
header)
max_num_fields: int. If set, then __init__ throws a ValueError
if there are more than n fields read by parse_qsl().
r) r( NZHEADr0 r1 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-dispositionrh rt z
text/plainrG r{ r_ r/ �
z
multipart/)0r@ rA �max_num_fieldsr, �upper�
qs_on_postr2 r< �encode�localeZgetpreferredencodingr r5 r r � TypeErrorrI r3 r6 r> r r4 r' rJ �bytesrv rp �
outerboundary�
bytes_read�limitr ry rz rh rt � _binary_filerx �
innerboundaryr7 r9 r8 �lengthru rw �done�read_urlencoded�
read_multi� read_single)rl r> rI r� r? r@ rA r� r' rJ r� r, �methodrD ZcdisprC rB Zclenr r r rm ? s� /
�
�
�
zFieldStorage.__init__c C s( z| j �� W n tk
r" Y nX d S �N)rw r$ �AttributeErrorrn r r r �__del__� s zFieldStorage.__del__c C s | S r� r rn r r r � __enter__� s zFieldStorage.__enter__c G s | j �� d S r� )rw r$ )rl r# r r r �__exit__� s zFieldStorage.__exit__c C s d| j | j| jf S )z"Return a printable representation.zFieldStorage(%r, %r, %r))rh rt ri rn r r r ro � s
�zFieldStorage.__repr__c C s t | �� �S r� )�iter�keysrn r r r �__iter__� s zFieldStorage.__iter__c C sT |dkrt |��| jr:| j�d� | j�� }| j�d� n| jd k rL| j}nd }|S )Nri r )r� rw �seekr: ru rk r r r � __getattr__� s
zFieldStorage.__getattr__c C s^ | j dkrtd��g }| j D ]}|j|kr |�|� q |sBt|��t|�dkrV|d S |S dS )zDictionary style indexing.N�
not indexabler1 r )ru r� rh �appendrQ rX )rl re �found�itemr r r � __getitem__ s
zFieldStorage.__getitem__c C s8 || kr0| | }t |t�r(dd� |D �S |jS n|S dS )z8Dictionary style get() method, including 'value' lookup.c S s g | ]
}|j �qS r �ri �rL �xr r r �
<listcomp> s z)FieldStorage.getvalue.<locals>.<listcomp>N�r5 ru ri �rl re �defaultri r r r �getvalue s
zFieldStorage.getvaluec C s4 || kr,| | }t |t�r$|d jS |jS n|S dS )z! Return the first value received.r Nr� r� r r r �getfirst s
zFieldStorage.getfirstc C s: || kr2| | }t |t�r(dd� |D �S |jgS ng S dS )z Return list of received values.c S s g | ]
}|j �qS r r� r� r r r r� . s z(FieldStorage.getlist.<locals>.<listcomp>Nr� )rl re ri r r r rK ) s
zFieldStorage.getlistc C s* | j dkrtd��t tdd� | j D ���S )z Dictionary style keys() method.Nr� c s s | ] }|j V qd S r� �rh �rL r� r r r � <genexpr>8 s z$FieldStorage.keys.<locals>.<genexpr>)ru r� �setrn r r r r� 4 s
zFieldStorage.keysc s* | j dkrtd��t� fdd�| j D ��S )z%Dictionary style __contains__ method.Nr� c 3 s | ]}|j � kV qd S r� r� r� �re r r r� > s z,FieldStorage.__contains__.<locals>.<genexpr>)ru r� �any)rl re r r� r � __contains__: s
zFieldStorage.__contains__c C s t | �� �S )z Dictionary style len(x) support.)rX r� rn r r r �__len__@ s zFieldStorage.__len__c C s | j d krtd��t| j �S )Nz Cannot be converted to bool.)ru r� �boolrn 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 �| _| �� dS )z+Internal: read data in query string format.� %s should return bytes, got %sr& �r' rJ r� r, c S s g | ]\}}t ||��qS r �r �rL re ri r r r r� V s z0FieldStorage.read_urlencoded.<locals>.<listcomp>N)r> r: r� r5 r� r9 rv rp r; r' rJ r� r= r
� parse_qslr@ rA r� r, ru �
skip_lines)rl rD �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 }|dk �r|t| j�8 }t� } d}
| j�� } |
| 7 }
| �� �s �q0�q |
�s:�q@| jt|
�7 _| �|
� | j
| j �� | � � } d | k�rz| d = | j dk�r�dn
| j | j }
|| j| |||||
| j
| j || j
� }|dk �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| �"� dS )
z/Internal: read a part that is itself multipart.z&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� � --Nr{ r} r1 r z Max number of fields exceeded)#r� �valid_boundaryr9 ru r� r= r
r� r@ rA r' rJ r� r, �extend�FieldStorageClass� __class__r> r~ r5 r� rv rp r� rX rY r Zfeedr; r$ r� r� r� r� r� )rl r? r@ rA Zibr� �klassZ
first_liner� �parserZhdr_text�datarI r� �partr r r r� [ s� �
��
� �
(zFieldStorage.read_multic C s4 | j dkr | �� | �� n| �� | j�d� dS )z Internal: read an atomic part.r N)r� � read_binaryr� �
read_linesrw r� rn 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
|� }qdS )zInternal: read binary data.r r� r_ N)� make_filerw r� r> r: �min�bufsizer5 r� r9 rv rp r� rX r� r" )rl Ztodor� r r r r� � s
� zFieldStorage.read_binaryc C s@ | j rt� | _| _nt� | _| _| jr4| �� n| �� dS )z0Internal: read lines until EOF or outerboundary.N)r� r rw �_FieldStorage__filer r� �read_lines_to_outerboundary�read_lines_to_eofrn r r r r� � s
zFieldStorage.read_linesc C sv | j dk rF| j �� t|� dkrF| �� | _| j �� }| j�|� d| _ | jrZ| j�|� n| j�|�| j | j
�� dS )z line is always bytes, not stringNi� ) r� �tellrX r� rw r� r" r� r; r' rJ )rl rc r� r r r Z__write� s
zFieldStorage.__writec C s: | j �d�}| jt|�7 _|s*d| _q6| �|� q dS )z Internal: read lines until EOF.� r_ N)r> r~ r� rX r� �_FieldStorage__write)rl rc r r r r� � s z FieldStorage.read_lines_to_eofc C sJ d| j }|d }d}d}d}| jdk 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
}|dd � }d}nL|� d ��r d }|dd� }d}n*|� d��r.d}|dd� }d
}nd}d
}| �
|| � q dS )z�Internal: read lines until outerboundary.
Data is read as bytes: boundaries and line ends must be converted
to bytes for comparisons.
r� r{ Tr Nr� r_ �
r1 s
����
F) r� r� r> r~ r� rX r� �
startswith�rstrip�endswithr� ) rl �
next_boundary�
last_boundaryZdelim�last_line_lfendZ_readrc � strippedlineZodelimr r r r� � sN
$
z(FieldStorage.read_lines_to_outerboundaryc C s� | j r | jrdS d| j }|d }d}| j�d�}| jt|�7 _|sPd| _q�|�d�r�|r�|�� }||krpq�||kr�d| _q�|�d�}q&dS )z5Internal: skip lines until outer boundary if defined.Nr� Tr� r_ r1 r� )r� r� r> r~ r� rX r� rY )rl r� r� r� rc r� r r r r� s$
zFieldStorage.skip_linesc C s& | j rt�d�S tjd| jdd�S dS )a� Overridable: return a readable & writable file.
The file will be used as follows:
- data is written to it
- seek(0)
- data is read from it
The file is opened in binary mode for files, in text mode
for other fields
This version opens a temporary file for reading and writing,
and immediately deletes (unlinks) it. The trick (on Unix!) is
that the file can still be used, but it can't be opened by
another process, and it will automatically be deleted when it
is closed or when the current process terminates.
If you want a more permanent file, you derive a class which
overrides this method. If you want a visible temporary file
that is nevertheless automatically deleted when the script
terminates, try defining a __del__ method in a derived class
which unlinks the temporary files you have created.
zwb+zw+r! )r' �newlineN)r� �tempfileZ
TemporaryFiler' rn r r r r� ( s
�zFieldStorage.make_file)N)N)!rp rq rr rs �osr? rm r� r� r� ro r� r� r� r� r� rK r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r� r r r r r sL ) �
&
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 )
z�Robust test CGI script, usable as main program.
Write minimal HTTP headers and dump all information provided to
the script in HTML form.
zContent-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 N) �printr2 �stdout�stderrr r r r r r r r8 )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_ ) r2 �exc_info� tracebackr� � format_tb�format_exception_only�html�escape�join)rv ri �tbr� r� ru r r r r q s
� �c C s\ t | �� �}t� td� td� |D ]"}tdt�|�dt�| | �� q&td� t� dS )z#Dump the shell environment as HTML.z<H3>Shell Environment:</H3>�<DL>�<DT>�<DD>�</DL>N)�sortedr� r� r� r� )r? r� re 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 )
z$Dump the contents of a form as HTML.z<H3>Form Contents:</H3>z<P>No form fields.r� r� �:� )r[ z<i>z</i>r� r� N)r� r� r� r� r� �reprrv )r� r� re ri 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 � dS )z#Dump the current directory as HTML.z#<H3>Current Working Directory:</H3>zOSError:N)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� r2 r< r r r r r � s
c C s t d� dS )z9Dump a list of environment variables used by CGI as HTML.a�
<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>
N)r� r r r r r � s c C s( dd l }t| t�rd}nd}|�|| �S )Nr s ^[ -~]{0,200}[!-~]$z^[ -~]{0,200}[!-~]$)�rer5 r� �match)rZ r� Z _vb_patternr r r r� � s
r� �__main__)rE rF r& )NNNN),rs � __version__�ior r r Zcollections.abcr r2 r� Z urllib.parser= Z email.parserr Z
email.messager r� r� r� �__all__r r r r r r% r r8 r? r
r r] r r r r
r r r r r r r� rp r r r r �<module> sh �# �
F
:'
/