B
ӉnN @ s d Z dZddlmZmZmZ ddlmZ ddlZddl Z ddl
Z ddl m
Z
ddlmZ ddlmZ ddlZddlZddlZd d
d d d
ddddddddddgZdadadd Zdd Zd d Zd d Zea da de j ddd!fd"d Z d8d#d Z d9d$d
Z!d:d'dZ"d(d) Z#d*d Z$G d+d d Z%G d,d
d
Z&e j fd-dZ'd;d.dZ(e j fd/dZ)d0d Z*d1d Z+d2d Z,d3d Z-d s z#parse_multipart..)r= formatr Zset_typeKeyErrorr
)r@ rE r+ rN r0 rK rD rM r" )rR r# r s
c c s x| d d dkr| dd } | d}x<|dkrd| dd|| dd| d rd| d|d }q*W |dk rvt| }| d | }| V | |d } qW d S )Nr3 ;r "z\"rG )findcountlenstrip)sendfr" r" r# _parseparam s
*
r_ c C s t d| }| }i }x|D ]}|d}|dkr |d| }||d d }t|dkr|d |d krdkrn n |dd }|d d
d d}|||< q W ||fS ) zfParse a Content-type like header.
Return the main content-type and a dictionary of options.
rV =r Nr3 rG rW z\\\z\")r_ __next__rX r[ lowerrZ rJ )linepartskeyrE pinamevaluer" 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)rj rk )selfrj rk r" r" r# __init__ s zMiniFieldStorage.__init__c C s d| j | jf S )z Return printable representation.zMiniFieldStorage(%r, %r))rj rk )rl r" r" r# __repr__ s zMiniFieldStorage.__repr__)__name__
__module__ __qualname____doc__filenamelisttypefile type_options dispositiondisposition_optionsrM rm rn 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;ddZd encodelocaleZgetpreferredencodingr r7 r r TypeErrorrM r5 r8 r@ r r6 r+ rN bytesru ro
outerboundary
bytes_readlimitr rx ry rj rs _binary_filerw
innerboundaryr9 r; r: lengthrt rv doneread_urlencoded
read_multi read_single)rl r@ rM r rA rB rC r r+ rN r~ r0 methodrF ZcdisprE rD Zclenr" r" r# rm P s /
zFieldStorage.__init__c C s( y| j W n tk
r" Y nX d S )N)rv r( AttributeError)rl r" r" r# __del__ s zFieldStorage.__del__c C s | S )Nr" )rl r" r" r# __enter__ s zFieldStorage.__enter__c G s | j d S )N)rv 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))rj rs rk )rl r" r" r# rn s zFieldStorage.__repr__c C s t | S )N)iterkeys)rl r" r" r# __iter__ s zFieldStorage.__iter__c C sT |dkrt || jr:| jd | j }| jd n| jd k rL| j}nd }|S )Nrk r )r rv seekr< rt )rl rj rk r" r" r# __getattr__ s
zFieldStorage.__getattr__c C sb | j dkrtdg }x"| j D ]}|j|kr || q W |sFt|t|dkrZ|d S |S dS )zDictionary style indexing.Nz
not indexabler3 r )rt r rj appendrU rZ )rl rg founditemr" r" r# __getitem__ s
zFieldStorage.__getitem__c C s8 || kr0| | }t |tr(dd |D S |jS n|S dS )z8Dictionary style get() method, including 'value' lookup.c S s g | ]
}|j qS r" )rk )rP xr" r" r#
) s z)FieldStorage.getvalue..N)r7 rt rk )rl rg defaultrk r" r" r# getvalue$ s
zFieldStorage.getvaluec C s4 || kr,| | }t |tr$|d jS |jS n|S dS )z! Return the first value received.r N)r7 rt rk )rl rg r rk r" r" r# getfirst/ s
zFieldStorage.getfirstc C s: || kr2| | }t |tr(dd |D S |jgS ng S dS )z Return list of received values.c S s g | ]
}|j qS r" )rk )rP r r" r" r# r ? s z(FieldStorage.getlist..N)r7 rt rk )rl rg rk r" r" r# rO : s
zFieldStorage.getlistc C s* | j dkrtdt tdd | j D S )z Dictionary style keys() method.Nz
not indexablec s s | ] }|j V qd S )N)rj )rP r r" r" r# I s z$FieldStorage.keys..)rt r set)rl r" r" r# r E s
zFieldStorage.keysc s* | j dkrtdt fdd| j D S )z%Dictionary style __contains__ method.Nz
not indexablec 3 s | ]}|j kV qd S )N)rj )rP r )rg r" r# r O s z,FieldStorage.__contains__..)rt r any)rl rg r" )rg r# __contains__K s
zFieldStorage.__contains__c C s t | S )z Dictionary style len(x) support.)rZ r )rl r" r" r# __len__Q s zFieldStorage.__len__c C s | j d krtdt| j S )Nz Cannot be converted to bool.)rt r bool)rl r" r" r# __bool__U s
zFieldStorage.__bool__c C s | j | j}t|ts0td| 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.z %s should return bytes, got %sr* )r+ rN r~ r0 c S s g | ]\}}t ||qS r" )r )rP rg rk r" r" r# r g s z0FieldStorage.read_urlencoded..N)r@ r< r r7 r r; ru ro r= r+ rN r r? r r
rB rC r~ r0 rt
skip_lines)rl rF queryr" r" r# r Z s
z FieldStorage.read_urlencodedc C sT | j }t|s td|f g | _| jrftjj| j| j| j | j
| j | j | j
d}| jdd |D | jpp| j}| j }t|tstd| jt|jf | jt|7 _x6| d| j kr|r| j }| jt|7 _qW | j }|dk r|t| j8 }x>t } d}
x$| j } |
| 7 }
| sP qW |
sBP | jt|
7 _| |
| j
| j | } d | kr| d = | j dkrdn
| j | j }
|| j| |||||
| j
| j || j
}|dk r|d
8 }|jr|t|j8 }|d k rtd | j|j7 _| j | |j s@| j| j! kr.z %s should return bytes, got %ss --Nrz zcontent-lengthr3 r z Max number of fields exceeded)#r valid_boundaryr; rt r r? r r
rB rC r+ rN r~ r0 extendFieldStorageClass __class__r@ r| r7 r ru ro r rZ r[ r Zfeedr= r( r r r r r )rl rA rB rC Zibr klassZ
first_liner~ parserZhdr_textdatarM r partr" r" r# r l sl
(zFieldStorage.read_multic C s4 | j dkr | | n| | jd dS )z Internal: read an atomic part.r N)r read_binaryr
read_linesrv r )rl r" r" r# r s
zFieldStorage.read_singlei c C s | | _| j}|dkrxx|dkr| jt|| j}t|tsXt d| jt
|j f | j t
|7 _ |svd| _P | j| |t
| }qW dS )zInternal: read binary data.r z %s should return bytes, got %sra N) make_filerv r r@ r< minbufsizer7 r r; ru ro r rZ 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 rv _FieldStorage__filer r read_lines_to_outerboundaryread_lines_to_eof)rl 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 tellrZ r rv r r& r r= r+ rN )rl re r r" r" r# Z__write s
zFieldStorage.__writec C s> x8| j d}| jt|7 _|s,d| _P | | qW dS )z Internal: read lines until EOF.i ra N)r@ r| r rZ r _FieldStorage__write)rl re r" r" r# r s z FieldStorage.read_lines_to_eofc C sH d| j }|d }d}d}d}x"| jdk rHd| j krB|krHn nP | jd}| jt|7 _|t|7 }|s~d| _P |dkr|| }d}|dr|r| }||krP ||krd | _P |}| d
rd
}|dd }d}nL| d rd }|dd }d}n*| dr*d}|dd }d
}nd}d
}|
|| q"W dS )zInternal: read lines until outerboundary.
Data is read as bytes: boundaries and line ends must be converted
to bytes for comparisons.
s --rz Tr Ni ra
r3 s
F) r r r@ r| r rZ r
startswithrstripendswithr ) rl
next_boundary
last_boundaryZdelimlast_line_lfendZ_readre strippedlineZodelimr" r" r# r sP
$
z(FieldStorage.read_lines_to_outerboundaryc C s | j r | jrdS d| j }|d }d}xh| jd}| jt|7 _|sRd| _P |dr|r| }||krrP ||krd| _P |d}q(W dS )z5Internal: skip lines until outer boundary if defined.Ns --Ti ra r3 r )r r r@ r| r rZ r r[ )rl r r r re r r" r" r# r # s&
zFieldStorage.skip_linesc C s& | j rtdS tjd| jddS 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+ )rl r" r" r# r 9 s
zFieldStorage.make_file)N)N)!ro rp rq rr osrA rm r r r rn r r r r r rO r r r r r r r r r r r r r r r r r" r" r" r# r
% s@ * #
E
2c C s t d t tjt_yNt }t t t| t| t dd }|fdd}t d | W n t
Y nX t d da y&t }t t t| t| W n t
Y nX d S )
zRobust 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() -- italics?)execr" r" r" r# r^ l s ztest..fc S s
| d S )Nr" )r^ r" r" r# gn s ztest..gz9What follows is a test, not an actual exception:
z*Second try with a small maxlen...
2 N) printr4 stdoutstderrr
r r r r r r r: )rA formr^ r r" r" r# r [ s4
c C sx | d krt \} }}dd l}t td ||||| | }tdtd|d d t|d f ~d S )Nr z+Traceback (most recent call last):
z%s%s
r ra ) r4 exc_info tracebackr format_tbformat_exception_onlyhtmlr join)ru rk tbr r rt r" r" r# r s
c C s` t | }t td td x*|D ]"}tdt|dt| | q(W td t dS )z#Dump the shell environment as HTML.zShell Environment:
zz- z
- z
N)sortedr r r r )rA r rg r" r" r# r s
"c C s t | }t td |s&td td xb|D ]Z}tdt| d dd | | }tdttt| d td
tt| q4W td t d S )
z$Dump the contents of a form as HTML.zForm Contents:
zNo form fields.z
z- : )r] zzz
- z
N)r r r r r reprru )r r rg rk r" r" r# r s
c
C sj t t d y t } W n6 tk
rP } zt dtt| W dd}~X Y nX t t| t dS )z#Dump the current directory as HTML.z#Current Working Directory:
zOSError:N)r r getcwdr r r str)pwdmsgr" r" r# r s &c C s( t t d t t tj t d S )Nz Command Line Arguments:
)r r4 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
These environment variables could have been set:
- AUTH_TYPE
- CONTENT_LENGTH
- CONTENT_TYPE
- DATE_GMT
- DATE_LOCAL
- DOCUMENT_NAME
- DOCUMENT_ROOT
- DOCUMENT_URI
- GATEWAY_INTERFACE
- LAST_MODIFIED
- PATH
- PATH_INFO
- PATH_TRANSLATED
- QUERY_STRING
- REMOTE_ADDR
- REMOTE_HOST
- REMOTE_IDENT
- REMOTE_USER
- REQUEST_METHOD
- SCRIPT_NAME
- SERVER_NAME
- SERVER_PORT
- SERVER_PROTOCOL
- SERVER_ROOT
- SERVER_SOFTWARE
In addition, HTTP headers sent by the server may be passed in the
environment as well. Here are some common variable names:
- HTTP_ACCEPT
- HTTP_CONNECTION
- HTTP_HOST
- HTTP_PRAGMA
- HTTP_REFERER
- HTTP_USER_AGENT
N)r r" r" r" r# r s 'c C sF t dtdd | dd} | dd} | dd } |rB| d
d } | S ) zDeprecated API.z1cgi.escape is deprecated, use html.escape insteadrG )
stacklevelr* z&z>rW z")r rH rJ )r\ Zquoter" r" r# r s
c C s( dd l }t| trd}nd}||| S )Nr s ^[ -~]{0,200}[!-~]$z^[ -~]{0,200}[!-~]$)rer7 r match)r\ r Z _vb_patternr" r" r# r s
r __main__)r r )r r )rI rJ r* )NNNN)N)1rr __version__ior r r Zcollections.abcr r4 r Z urllib.parser? Z email.parserr Z
email.messager warningsr r r r __all__r r r$ r r r) r r: rA r r r
r r_ r r r
r r r r r r r r r ro r" r" r" r# sb # H
:'
/