$53 GRAYBYTE WORDPRESS FILE MANAGER $63



��Yf���@s�
dZd
dl
Z
d
dlZd
dlZd
dlZd
dlmZ
dg
ZdZdZdZ	Gdd	�d	e
�ZGd
d�de�ZGdd
�d
e�Z
Gdd�de�ZGdd�de�ZeeefZdZdZGdd�d�Zyd
dlZWnek
r'



dZYnBXejZGdd�de�Zejd�

eeeejfZdadd�Zdadd�Z dd�Z!dd�Z"dd �Z#d!d"d#d$�Z$d%d&�Z%e&d'kr�
e%�
dS)(aSAn FTP client class and some helper functions.

Based on RFC 959: File Transfer Protocol (FTP), by J. Postel and J. Reynolds

Example:

>>> from ftplib import FTP
>>> ftp = FTP('ftp.python.org') # connect to host, default port
>>> ftp.login() # default, i.e.: user anonymous, passwd anonymous@
'230 Guest login ok, access restrictions apply.'
>>> ftp.retrlines('LIST') # list directory contents
total 9
drwxr-xr-x   8 root     wheel        1024 Jan  3  1994 .
drwxr-xr-x   8 root     wheel        1024 Jan  3  1994 ..
drwxr-xr-x   2 root     wheel        1024 Jan  3  1994 bin
drwxr-xr-x   2 root     wheel        1024 Jan  3  1994 etc
d-wxrwxr-x   2 ftp      wheel        1024 Sep  5 13:43 incoming
drwxr-xr-x   2 root     wheel        1024 Nov 17  1993 lib
drwxr-xr-x   6 1094     wheel        1024 Sep 13 19:07 pub
drwxr-xr-x   3 root     wheel        1024 Jan  3  1994 usr
-rw-r--r--   1 root     root          312 Aug  1  1994 welcome.msg
'226 Transfer complete.'
>>> ftp.quit()
'221 Goodbye.'
>>>

A nice test that reveals some of the network dialogue would be:
python ftplib.py -d localhost -l -p -l
�N)
�_GLOBAL_DEFAULT_TIMEOUT�FTP�
�i c
@seZ
dZd
S)�ErrorN)�__name__�
__module__�__qualname__�r
r
�+/opt/alt/python35/lib64/python3.5/ftplib.pyr:src
@seZ
dZd
S)�error_replyN)rrr	r
r
r
rr;src
@seZ
dZd
S)�
error_tempN)rrr	r
r
r
rr
<sr
c
@seZ
dZd
S)�
error_permN)rrr	r
r
r
rr=src
@seZ
dZd
S)�error_protoN)rrr	r
r
r
rr>srz
s
c@s�eZ
dZd
ZdZdZeZeZ	dZ
dZdZdZ
dZddddeddd�Zd	d
�Zdd�Zddd[ddd�Zdd�Zdd�ZeZdd�Zdd�Zdd�Zdd�Zdd�Zdd�Zd d!�Zd"d#�Zd$d%�Zd&d'�Z d(d)�Z!d*d+�Z"d,d-�Z#d.d/�Z$d0d1�Z%dd2d3�
Z&dd4d5�
Z'dddd6d7�Z(d8dd9d:�Z)dd;d<�
Z*d8ddd=d>�Z+dd?d@�
Z,dAdB�Z-dCdD�Z.dEdF�Z/dgdGdH�Z0dIdJ�Z1dKdL�Z2dMdN�Z3dOdP�Z4dQdR�Z5dSdT�Z6dUdV�Z7dWdX�Z8dYdZ�Z9dS)\rayAn FTP client class.

    To create a connection, call the class using these arguments:
            host, user, passwd, acct, timeout

    The first four arguments are all strings, and have default value ''.
    timeout must be numeric and defaults to None if not passed,
    meaning that no timeout will be set on any ftp socket(s)
    If a timeout is passed, then this is now the default timeout for all ftp
    socket operations for this instance.

    Then use self.connect() with optional host and port argument.

    To download a file, use ftp.retrlines('RETR ' + filename),
    or ftp.retrbinary() with slightly different arguments.
    To upload a file, use ftp.storlines() or ftp.storbinary(),
    which have an open file as argument (see their definitions
    below for details).
    The download/upload functions first issue appropriate TYPE
    and PORT or PASV commands.
    r
�Nrzlatin-1cCsB||_||_
|
r>|j|
�

|r>|j|||�
dS)
N)�source_address�timeout�connect�login)�self�host�user�passwd�acctrrr
r
r�__init__qs	
	




zFTP.__init__c


Cs|S)
Nr
)
rr
r
r�	__enter__zs
z
FTP.__enter__c
Gs]|jdk	rYz-y|j
�
Wnttfk
r:


Yn
XWd|jdk	rX|j�
XdS)
N)�sock�quit�OSError�EOFError�close)r�argsr
r
r�__exit__~s




	
zFTP.__exit__i�cCs�|
d
kr|
|_|dkr*||_
|dkr?||_|dk	rT||_tj|j|j
f|jd|j�
|_|jj|_|jj	dd|j
�

|_|j�|_
|j
S)	aw
Connect to host.  Arguments are:
         - host: hostname to connect to (string, default previous host)
         - port: port to connect to (integer, default previous port)
         - timeout: the timeout to set against the ftp socket(s)
         - source_address: a 2-tuple (host, port) for the socket to bind
           to as its source address before connecting.
        rr
i�Nr�
r�encodingi���)r�portrr�socket�create_connectionrZfamily�af�makefiler$�file�getresp�welcome)rrr%rrr
r
rr�s
	

	

	

	





zFTP.connectc

Cs)|jr"t
d
|j|j�
�
|jS)z`Get the welcome message from the server.
        (this is read and squirreled away by connect())z	*welcome*)�	debugging�print�sanitizer,)
rr
r
r�
getwelcome�s	

zFTP.getwelcomecCs
|
|_d
S)z�Set the debugging level.
        The required argument level means:
        0: no debugging output (default)
        1: print commands and responses but not body text etc.
        2: also print raw lines read and sent before stripping CR/LFN)
r-)r�levelr
r
r�set_debuglevel�szFTP.set_debuglevelcCs
|
|_d
S)z�Use passive or active mode for data transfers.
        With a false argument, use the normal PORT mode,
        With a true argument, use the PASV command.N)
�
passiveserver)r�valr
r
r�set_pasv�szFTP.set_pasvcCs_|
dd
�dkrUt|
j
d�
�
}|
dd
�d|d
|
|d�}
t|
�
S)N��pass �PASS z
�
*>r8r7)�len�rstrip�repr)r�
s�
ir
r
rr/�s


*
zFTP.sanitizecCssd
|
ksd|
kr$td�
�
|
t
}
|jdkrStd|j|
�
�
|jj|
j|j�
�

dS)N�

�

z4an illegal newline character should not be containedrz*put*)	�
ValueError�CRLFr-r.r/r�sendall�encoder$)r�liner
r
r�putline�s






zFTP.putlinecCs0|jrt
d
|j|
�
�
|j|
�

dS)Nz*cmd*)r-r.r/rF)rrEr
r
r�putcmd�s
	
z
FTP.putcmdc
Cs�|jj
|jd
�
}
t|
�
|jkrAtd|j�
�
|jd
krftd|j|
�
�
|
srt�
|
dd�t	kr�|
dd�}
n&|
dd�t	kr�|
dd�}
|
S)	Nrzgot more than %d bytesz*get*����rI���rJ)
r*�readline�maxliner:rr-r.r/rrB)rrEr
r
r�getline�s











zFTP.getlinec
Cs�|j�}
|
d
d�dkr�|
dd
�}xK|j�}|
d|}
|dd
�|kr5|d
d�dkr5Pq5W|
S)N���
-r@)
rM)rrE�codeZnextliner
r
r�getmultiline�s









zFTP.getmultilinec
Cs�|j�}
|j
r+td
|j|
�
�
|
dd�|_|
dd�}|d	kr^|
S|dkrvt|
�
�
|dkr�t|
�
�
t|
�
�
dS)
Nz*resp*rNr�
1�
2�
3�
4�
5>rTrSrU)rRr-r.r/Zlastrespr
rr)r�resp�
cr
r
rr+�s

	









zFTP.getrespc
Cs2|j�}
|
d
d�dkr.t
|
�
�
|
S)z%Expect a response beginning with '2'.NrrT)r+r)rrXr
r
r�voidresp�s


zFTP.voidrespc
Cstd
t}
|j
dkr/td|j|
�
�
|jj|
t�
|j�}|dd�d	krpt|�
�
|S)
z�Abort a file transfer.  Uses out-of-band data.
        This does not follow the procedure from the RFC to send Telnet
        IP and Synch; that doesn't seem to work with the servers I've
        tried.  Instead, just send the ABOR command as OOB data.sABORrz*put urgent*NrN�426�225�226>r[r]r\)	�B_CRLFr-r.r/rrC�MSG_OOBrRr)rrErXr
r
r�abort

s







z	FTP.abortcCs|j|
�

|j
�S)
z'Send a command and return the response.)rGr+)r�cmdr
r
r�sendcmd
s

zFTP.sendcmdcCs|j|
�

|j
�S)
z8Send a command and expect a response beginning with '2'.)rGrZ)rrar
r
r�voidcmd
s

zFTP.voidcmdcCsY|
jd
�
}t
|d�
t
|d�
g}||}ddj|�
}|j|�
S)zUSend a PORT command with the current host and the given
        port number.
        �
.�
zPORT �
,)�splitr<�joinrc)rrr%ZhbytesZpbytes�bytesrar
r
r�sendport
s

 



zFTP.sendportcCs�d
}|jt
jkrd}|jt
jkr6d}|d
krNtd�
�
dt|�
|
t|�
dg}ddj|�
}|j|�
S)zESend an EPRT command with the current host and the given port number.r
rrHzunsupported address familyrzEPRT �
|)r(r&�AF_INETZAF_INET6rr<rhrc)rrr%r(Zfieldsrar
r
r�sendeprt#
s






!

zFTP.sendeprtc

Csz
d
}
d
}x�tj
d
d|jtjdtj�D]�}|\}}}}}y&tj|||�}|j|�

WnDtk
r�
}	
z$|	}
|r�|j�
d
}w4WYd
d
}	~	Xn
XPq4W|d
kr�|
d
k	r�|
�
ntd�
�
|jd�

|j	�d}
|j
j	�d}|jtjkrE
|j||
�}n|j
||
�}|jtk	rv
|j|j�

|S)z3Create a new socket and send a PORT command for it.Nr
z!getaddrinfo returns an empty listr)r&Zgetaddrinfor(ZSOCK_STREAMZ
AI_PASSIVEZbindrr ZlistenZgetsocknamerrlrjrmrr�
settimeout)
r�errr�resr(Zsocktype�protoZ	canonnameZsa�
_r%rrXr
r
r�makeport0
s6

.














	








zFTP.makeportc
Csa|jt
jkr0t|jd
�
�
\}
}n't|jd�
|jj��\}
}|
|fS)N�PASVZEPSV)r(r&rl�parse227rb�parse229rZgetpeername)rrr%r
r
r�makepasvP
s

'
zFTP.makepasvc

Cs�
d
}|jr�|j
�\}}tj||f|jd|j�
}yh|d
k	re|jd|�

|j|
�
}|ddkr�|j�}|ddkr�t|�
�
Wqs



|j	�
�Yqs
Xn�|j
���}|d
k	r�|jd|�

|j|
�
}|ddkr
|j�}|ddkr;
t|�
�
|j�\}}	|jtk	rl
|j
|j�

Wd
QRX|d
d�dkr�
t|�
}||fS)	a�Initiate a transfer over the data connection.

        If the transfer is active, send a port command and the
        transfer command, and accept the connection.  If the server is
        passive, send a pasv command, connect to it, and start the
        transfer command.  Either way, return the socket for the
        connection and the expected size of the transfer.  The
        expected size may be None if it could not be determined.

        Optional `rest' argument can be a string that is sent as the
        argument to a REST command.  This is essentially a server
        marker used to tell the server to skip over any data up to the
        given marker.
        NrzREST %sr
rTrSrN�150)r3rwr&r'rrrbr+rr rsZacceptrrn�parse150)
rra�rest�sizerr%�connrXrZsockaddrr
r
r�ntransfercmdW
s<
	
























zFTP.ntransfercmdcCs|j|
|�d
S)z0Like ntransfercmd() but returns only the socket.r
)
r})rrarzr
r
r�transfercmd�
szFTP.transfercmdcCs�|
sd
}
|sd}|s$d}|
d
krF|dkrF|d}|jd|
�
}|ddkr||jd|�
}|ddkr�|jd	|�
}|dd
kr�t
|�
�
|S)zLogin, default anonymous.Z	anonymousrrPz
anonymous@zUSER r
rUzPASS zACCT rT>rrP)rbr)rrrrrXr
r
rr�
s 














z	FTP.logini c
Cs|jd
�

|j
|
|��S}x$|j|�
}|s;P||�

q%Wtdk	rnt|t�rn|j�
WdQRX|j�S)a�
Retrieve data in binary mode.  A new port is created for you.

        Args:
          cmd: A RETR command.
          callback: A single parameter callable to be called on each
                    block of data read.
          blocksize: The maximum number of bytes to read from the
                     socket at one time.  [default: 8192]
          rest: Passed to transfercmd().  [default: None]

        Returns:
          The response code.
        zTYPE IN)rcr~Zrecv�
_SSLSocket�
isinstance�unwraprZ)rra�callback�	blocksizerzr|�datar
r
r�
retrbinary�
s









zFTP.retrbinarycCsR
|d
krt}|j
d�
}|j|
�
�
}|jdd|j�

��}x�|j|jd�
}t|�
|jkr�td|j�
�
|j	dkr�t
dt|�
�
|s�P|d
d
�tkr�|d
d�}n&|dd
�d	kr
|d
d
�}||�

qQWt
d
k	r:
t|t
�r:
|j�
Wd
QRXWd
QRX|j�S)ah
Retrieve data in line mode.  A new port is created for you.

        Args:
          cmd: A RETR, LIST, or NLST command.
          callback: An optional single parameter callable that is called
                    for each line with the trailing CRLF stripped.
                    [default: print_line()]

        Returns:
          The response code.
        NzTYPE Ar#r$rzgot more than %d bytesrHz*retr*r@rIrIrJrJ)�
print_linerbr~r)r$rKrLr:rr-r.r<rBrr�r�rZ)rrar�rXr|�fprEr
r
r�	retrlines�
s*



















z
FTP.retrlinesc
Cs�|jd
�

|j
|
|��f}x7|j|�
}|s;P|j|�

|r%||�

q%Wtdk	r�t|t�r�|j�
WdQRX|j�S)a9Store a file in binary mode.  A new port is created for you.

        Args:
          cmd: A STOR command.
          fp: A file-like object with a read(num_bytes) method.
          blocksize: The maximum data size to read from fp and send over
                     the connection at once.  [default: 8192]
          callback: An optional single parameter callable that is called on
                    each block of data after it is sent.  [default: None]
          rest: Passed to transfercmd().  [default: None]

        Returns:
          The response code.
        zTYPE IN)rcr~�readrCrr�r�rZ)rrar�r�r�rzr|�bufr
r
r�
storbinary�
s












zFTP.storbinaryc
Cs�|jd
�

|j
|
�
��}x�|j|jd�
}t|�
|jkr`td|j�
�
|sgP|dd�tkr�|dtkr�|dd�}|t}|j|�

|r"||�

q"Wtdk	r�t	|t�r�|j
�
WdQRX|j�S)	ah
Store a file in line mode.  A new port is created for you.

        Args:
          cmd: A STOR command.
          fp: A file-like object with a readline() method.
          callback: An optional single parameter callable that is called on
                    each line after it is sent.  [default: None]

        Returns:
          The response code.
        zTYPE Arzgot more than %d bytesrHNrIrJrJ)rcr~rKrLr:rr^rCrr�r�rZ)rrar�r�r|r�r
r
r�	storliness$


















z
FTP.storlinescCsd
|
}|j|�
S)zSend new account name.zACCT )
rc)rZpasswordrar
r
rr%s

zFTP.acctc
GsBd
}x|
D]}|d|}q
Wg}|j||j
�
|S)zBReturn a list of files in a given directory (default the current).ZNLST�
 )r��append)rr!ra�arg�filesr
r
r�nlst*s





zFTP.nlstc
Gs�d
}d}|
dd�rSt|
d�
td�
krS|
dd�|
d	}
}x"|
D]}|rZ|d|}qZW|j
||�
dS)
a
List a directory in long form.
        By default list current directory to stdout.
        Optional last argument is callback function; all
        non-empty arguments before it are concatenated to the
        LIST command.  (This *should* only be used for a pathname.)ZLISTNrrr�rJrJrJrJ)�typer�)rr!ra�funcr�r
r
r�dir3s

,





zFTP.dirc
cs�|r$|jd
dj
|�
d�

|
r7d|
}nd}g}|j||j�
x�|D]�}|jt�
jd�
\}}}i}	xI|dd	�jd�
D].}
|
jd�
\}}}||	|j�<q�W||	fV
q]WdS)
a<List a directory in a standardized format by using MLSD
        command (RFC-3659). If path is omitted the current directory
        is assumed. "facts" is a list of strings representing the type
        of information desired (e.g. ["type", "size", "perm"]).

        Return a generator object yielding a tuple of two elements
        for every file found in path.
        First element is the file name, the second one is a dictionary
        including a variable number of "facts" depending on the server
        and whether "facts" argument has been provided.
        z
OPTS MLST �
;zMLSD %sZMLSDr�Nr�
=rJ)	rbrhr�r�r;rB�	partitionrg�lower)
r�pathZfactsra�linesrEZfacts_foundrr�name�entryZfact�key�valuer
r
r�mlsdBs








!

 


zFTP.mlsdcCs@|jd
|
�
}|ddkr/t
|�
�
|jd|�
S)zRename a file.zRNFR r
rUzRNTO )rbrrc)rZfromnameZtonamerXr
r
r�rename^s


z
FTP.renamecCs=|jd
|
�
}|dd�dkr-|St
|�
�
dS)zDelete a file.zDELE NrN�250�200>r�r�)rbr)r�filenamerXr
r
r�deletees

z
FTP.deletecCs�|
d
krhy|jd�
SWqzt
k
rd
}
z%|jddd�dkrR�WYdd}~XqzXn|
dkrzd}
d	|
}|j|�
S)
zChange to a directory.z..ZCDUPr
NrN�500rrdzCWD )rcrr!)r�dirname�msgrar
r
r�cwdms









zFTP.cwdcCsM|jd
|
�
}|dd�dkrI|dd�j
�}t|�
SdS)zRetrieve the size of a file.zSIZE NrNZ213)rb�strip�int)rr�rXr=r
r
rr{zs


zFTP.sizecCs0|jd
|
�
}|j
d�
s&dSt|�
S)z+Make a directory, return its full pathname.zMKD �257r)rc�
startswith�parse257)rr�rXr
r
r�mkd�s

zFTP.mkdcCs|jd
|
�
S)zRemove a directory.zRMD )
rc)rr�r
r
r�rmd�szFTP.rmdc
Cs,|jd
�
}
|
j
d�
s"dSt|
�
S)z!Return current working directory.ZPWDr�r)rcr�r�)rrXr
r
r�pwd�s

zFTP.pwdc
Cs|jd
�
}
|j
�
|
S)zQuit, and close the connection.ZQUIT)rcr )rrXr
r
rr�s


zFTP.quitc
Cs\z,|j}
d
|_|
d
k	r+|
j
�
Wd
|j}d
|_|d
k	rW|j
�
Xd
S)z8Close the connection without assuming anything about it.N)r*r r)rr*rr
r
rr �s
	
	

	
	

z	FTP.closei���):rrr	�__doc__r-r�FTP_PORTr%�MAXLINErLrr*r,r3r$rrrr"rr0r2�debugr5r/rFrGrMrRr+rZr`rbrcrjrmrsrwr}r~rr�r�r�r�rr�r�r�r�r�r�r{r�r�r�rr r
r
r
rrKsj









	

 7#	
		c@s�eZ
dZd
ZejZdddddddeddd�	Zdddddd�Z	d	d
�Z
dd�Zd
d�Zdd�Z
ddd�
Zdd�ZdS)�FTP_TLSa�A FTP subclass which adds TLS support to FTP as described
        in RFC-4217.

        Connect as usual to port 21 implicitly securing the FTP control
        connection before authenticating.

        Securing the data connection requires user to explicitly ask
        for it by calling prot_p() method.

        Usage example:
        >>> from ftplib import FTP_TLS
        >>> ftps = FTP_TLS('ftp.python.org')
        >>> ftps.login()  # login anonymously previously securing control channel
        '230 Guest login ok, access restrictions apply.'
        >>> ftps.prot_p()  # switch to secure data connection
        '200 Protection level set to P'
        >>> ftps.retrlines('LIST')  # list directory content securely
        total 9
        drwxr-xr-x   8 root     wheel        1024 Jan  3  1994 .
        drwxr-xr-x   8 root     wheel        1024 Jan  3  1994 ..
        drwxr-xr-x   2 root     wheel        1024 Jan  3  1994 bin
        drwxr-xr-x   2 root     wheel        1024 Jan  3  1994 etc
        d-wxrwxr-x   2 ftp      wheel        1024 Sep  5 13:43 incoming
        drwxr-xr-x   2 root     wheel        1024 Nov 17  1993 lib
        drwxr-xr-x   6 1094     wheel        1024 Sep 13 19:07 pub
        drwxr-xr-x   3 root     wheel        1024 Jan  3  1994 usr
        -rw-r--r--   1 root     root          312 Aug  1  1994 welcome.msg
        '226 Transfer complete.'
        >>> ftps.quit()
        '221 Goodbye.'
        >>>
        rNc

Cs�|dk	r$|dk	r$td
�
�
|dk	rH|dk	rHtd�
�
||_
||_|dkr�tj|jd|d|�
}||_d|_tj	||
|||||	�
dS)Nz4context and keyfile arguments are mutually exclusivez5context and certfile arguments are mutually exclusive�certfile�keyfileF)
rAr�r��sslZ_create_stdlib_context�ssl_version�context�_prot_prr)
rrrrrr�r�r�rrr
r
rr�s

	
	



	
	
	
zFTP_TLS.__init__TcCs<|r&t|j
tj�r&|j�
tj||
||�S)
N)r�rr��	SSLSocket�authrr)rrrrZsecurer
r
rr�s



z
FTP_TLS.loginc
Cs�t|j
tj�r!td
�
�
|jtjkrE|jd�
}
n|jd�
}
|jj	|j
d|j
�

|_
|j
jddd|j�|_
|
S)z2Set up secure control connection by using TLS/SSL.zAlready using TLSzAUTH TLSzAUTH SSL�server_hostname�moder#r$)r�rr�r�rAr��PROTOCOL_SSLv23rcr��wrap_socketrr)r$r*)rrXr
r
rr��s





!
zFTP_TLS.authc
CsFt|j
tj�s!td
�
�
|jd�
}
|j
j�|_
|
S)z/Switch back to a clear-text control connection.z
not using TLSZCCC)r�rr�r�rArcr�)rrXr
r
r�ccc�s




zFTP_TLS.cccc
Cs)|jd
�

|jd�
}
d|_
|
S)zSet up secure data connection.zPBSZ 0zPROT PT)rcr�)rrXr
r
r�prot_ps


	
zFTP_TLS.prot_pc
Cs|jd
�
}
d|_
|
S)z"Set up clear text data connection.zPROT CF)rcr�)rrXr
r
r�prot_cs
	
zFTP_TLS.prot_ccCsItj
||
|�\}}|jr?|jj|d
|j�

}||fS)Nr�)rr}r�r�r�r)rrarzr|r{r
r
rr}s


	


zFTP_TLS.ntransfercmdc
CsLd
t}
|j
j|
�

|j�}|dd�dkrHt|�
�
|S)NsABORrNr[r\r]>r[r]r\)r^rrCrRr)rrErXr
r
rr`!s





z
FTP_TLS.abort)rrr	r�r�r�r�rrrr�r�r�r�r}r`r
r
r
rr��s 
	


r�c
Cs�|d
d�dkr"t|�
�
t
d
krVdd
l}
|
jd|
j|
jB�a
t
j|�
}|sod
St|jd�
�
S)z�Parse the '150' response for a RETR request.
    Returns the expected transfer size or None; size is not guaranteed to
    be present in the 150 message.
    NrNrxr
z150 .* \((\d+) bytes\)r)	r�_150_re�re�compile�
IGNORECASE�ASCII�matchr��group)rXr��
mr
r
rry0s







ryc
Cs�|d
d�dkr"t|�
�
t
d
krOdd
l}
|
jd|
j�a
t
j|�
}|spt|�
�
|j�}dj|d
d��
}t	|d�
d>t	|d	�
}||fS)
z�Parse the '227' response for a PASV request.
    Raises error_proto if it does not contain '(h1,h2,h3,h4,p1,p2)'
    Return ('host.addr.as.numbers', port#) tuple.NrNZ227r
z#(\d+),(\d+),(\d+),(\d+),(\d+),(\d+)rdrO�r6)
r�_227_rer�r�r��searchr�groupsrhr�)rXr�r�Znumbersrr%r
r
rruDs








"
rucCs
|d
d�dkr"t|�
�
|j
d�
}|dkrIt|�
�
|j
d|d�}|dkrwt|�
�
||d||dkr�t|�
�
||d|�j||d�
}t|�
dkr�t|�
�
|
d}t|d�
}||fS)	z�Parse the '229' response for an EPSV request.
    Raises error_proto if it does not contain '(|||port|)'
    Return ('host.addr.as.numbers', port#) tuple.NrNZ229�
(r
�
)rr6)r�findrrgr:r�)rXZpeer�left�right�partsrr%r
r
rrvXs 








%





rvc
Cs�|d
d�dkr"t|�
�
|dd�dkr<dSd}
d}t
|�
}xa||kr�||}|d}|dkr�||ks�||dkr�P|d}|
|}
qWW|
S)	z�Parse the '257' response for a MKD or PWD request.
    This is a response to a MKD or PWD request: a directory name.
    Returns the directoryname in the 257 reply.NrNr�r6z "rr�
")rr:)rXr�r>�
nrYr
r
rr�ns 


















r�c

Cst|�

d
S)z+Default retrlines callback to print a line.N)
r.)
rEr
r
rr��sr�r�
Ic	Cs�|s|
}d
|}|j|�

|j|�

t
|jd�
�
\}}|j||�
|jd|�
}|dd�d	kr�t�
|jd|
�
}|dd�d
kr�t�
|j�
|j�
dS)z+Copy file from one FTP-instance to another.zTYPE rtzSTOR NrN�125rxzRETR >r�rx>r�rx)rcrurbrjrrZ)	�sourceZ
sourcename�targetZ
targetnamer�Z
sourcehostZ
sourceportZtreplyZsreplyr
r
r�ftpcp�s
















r�cCsntt
j�
d
kr/ttj�

t
jd�

ddl}d}
d}x+t
jddkrt|
d}
t
jd=qJWt
jddd
�dkr�t
jdd
d�}t
jd=t
jd}t|�
}|j	|
�

d}}}y|j|�
}Wn.t
k
r*



|dk	r&
t
jjd�

YnBXy|j
|�
\}}}Wn"tk
rk



t
jjd	�

Yn
X|j|||�
x�t
jd
d�D]�}	|	dd
�d
kr�
|j|	d
d��

q�
|	dd
�dkrd}
|	d
d�r
|
d|	d
d�}
|j|
�
}q�
|	d
kr?|j|j�

q�
|jd|	t
jjd�
q�
W|j�
dS)z�Test program.
    Usage: ftp [-d] [-r[file]] host [-l[dir]] [-d[dir]] [-p] [file] ...

    -d dir
    -l list
    -p password
    rHr
Nrz-dz-rrz5Could not open account file -- using anonymous login.z$No account -- using anonymous login.z-lZCWDr�z-pzRETR i)r:�sys�argvr.�testr��exit�netrcrr2r�stderr�writeZauthenticators�KeyErrorrr�rbr5r3r��stdoutr)r�r-ZrcfilerZftpZuseridrrZnetrcobjr*rarXr
r
rr��sP	


























	













r��__main__)'r��osr�r&�warningsr�__all__r_r�r��	Exceptionrrr
rrrrZ
all_errorsrBr^rr��ImportErrorrr�r�r�ZSSLErrorr�ryr�rurvr�r�r�r�rr
r
r
r�<module>sN




	




��b



	x

9