$70 GRAYBYTE WORDPRESS FILE MANAGER $76

3

���i!��@sV
dZd
dl
Z
d
dlZd
dlmZ
dddddd	gZd
ZdZdZGd
d�de�Z	Gdd�de	�Z
Gdd�de	�ZGdd�de	�ZGdd�de	�Z
e	eefZdZdZGdd�d�Zyd
dlZWnek
r�


dZYn0XejZGdd�de�Zejd�

e	eeejfZdadd�Zdadd�Zdd�Zdd�Z d d!�Z!d)d$d%�
Z"d&d'�Z#e$d(k�
rRe#�
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�error_reply�
error_temp�
error_perm�error_proto�
all_errors�
�i c
@seZ
dZd
S)�ErrorN)�__name__�
__module__�__qualname__�rr�/usr/lib64/python3.6/ftplib.pyr9src
@seZ
dZd
S)rN)rr
rrrrrr:sc
@seZ
dZd
S)rN)rr
rrrrrr;sc
@seZ
dZd
S)rN)rr
rrrrrr<sc
@seZ
dZd
S)rN)rr
rrrrrr=sz
s
c@s�
eZ
dZd
ZdZdZeZeZ	dZ
dZdZdZ
dZdZddddedfdd	�
Zd
d�Zdd
�Zd]dd�
Zdd�Zdd�ZeZdd�Zdd�Zdd�Zdd�Zdd�Zdd �Zd!d"�Zd#d$�Zd%d&�Z d'd(�Z!d)d*�Z"d+d,�Z#d-d.�Z$d/d0�Z%d1d2�Z&d^d3d4�
Z'd_d5d6�
Z(d`d7d8�
Z)dad:d;�
Z*dbd<d=�
Z+dcd>d?�
Z,ddd@dA�
Z-dBdC�Z.dDdE�Z/dFdG�Z0dgfdHdI�
Z1dJdK�Z2dLdM�Z3dNdO�Z4dPdQ�Z5dRdS�Z6dTdU�Z7dVdW�Z8dXdY�Z9dZd[�Z:dS)erayAn 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
�Nr	zlatin-1FcCs0||_||_
|
r,|j|
�

|r,|j|||�
dS)
N)�source_address�timeout�connect�login)�self�host�user�passwd�acctrrrrr�__init__rs





zFTP.__init__c


Cs|S)
Nr)
rrrr�	__enter__{s
z
FTP.__enter__c
GsN|jdk	rJz*y|j
�
Wnttfk
r0


YnXWd|jdk	rH|j�
XdS)
N)�sock�quit�OSError�EOFError�close)r�argsrrr�__exit__s








zFTP.__exit__i�cCs�|
d
kr|
|_|dkr||_
|dkr*||_|dk	r8||_tj|j|j
f|j|jd�|_|jj|_|jj	d|j
d�|_|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�N)
r�
r)
�encodingi���)r�portrr�socket�create_connectionrZfamily�af�makefiler%�file�getresp�welcome)rrr&rrrrrr�s














zFTP.connectc

Cs|jrt
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-)
rrrr�
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�levelrrr�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�valrrr�set_pasv�szFTP.set_pasvcCsJ|
dd
�dkrBt|
j
d�
�
}|
dd
�d|d
|
|d�}
t|
�
S)N��pass �PASS z
�
*>r8r9)�len�rstrip�repr)r�
s�
irrrr0�s


$
zFTP.sanitizecCsRd
|
ksd|
krtd�
�
|
t
}
|jdkr:td|j|
�
�
|jj|
j|j�
�

dS)N�

�

z4an illegal newline character should not be containedr	z*put*)	�
ValueError�CRLFr.r/r0r�sendall�encoder%)r�linerrr�putline�s






zFTP.putlinecCs$|jrt
d
|j|
�
�
|j|
�

dS)Nz*cmd*)r.r/r0rG)rrFrrr�putcmd�s

z
FTP.putcmdc
Cs�|jj
|jd
�
}
t|
�
|jkr.td|j�
�
|jd
krHtd|j|
�
�
|
sPt�
|
dd�t	krn|
dd�}
n|
dd�t	kr�|
dd�}
|
S)	Nr	zgot more than %d bytesz*get*����rJ���rK)
r+�readline�maxliner;rr.r/r0r rC)rrFrrr�getline�s












zFTP.getlinec
Csd|j�}
|
d
d�dkr`|
dd
�}x:|j�}|
d|}
|dd
�|kr&|d
d�dkr&Pq&W|
S)N���
-rA)
rN)rrF�codeZnextlinerrr�getmultiline�s









zFTP.getmultilinec
Csp|j�}
|j
rtd
|j|
�
�
|
dd�|_|
dd�}|d	krD|
S|dkrTt|
�
�
|dkrdt|
�
�
t|
�
�
dS)
Nz*resp*rOr	�
1�
2�
3�
4�
5>rUrVrT)rSr.r/r0Zlastresprrr)r�resp�
crrrr,�s











zFTP.getrespc
Cs$|j�}
|
d
d�dkr t
|
�
�
|
S)z%Expect a response beginning with '2'.Nr	rU)r,r)rrYrrr�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.sABORr	z*put urgent*NrO�426�225�226>r]r\r^)	�B_CRLFr.r/r0rrD�MSG_OOBrSr)rrFrYrrr�abort
s







z	FTP.abortcCs|j|
�

|j
�S)
z'Send a command and return the response.)rHr,)r�cmdrrr�sendcmd
s

zFTP.sendcmdcCs|j|
�

|j
�S)
z8Send a command and expect a response beginning with '2'.)rHr[)rrbrrr�voidcmd
s

zFTP.voidcmdcCsB|
jd
�
}t
|d�
t
|d�
g}||}ddj|�
}|j|�
S)zUSend a PORT command with the current host and the given
        port number.
        �
.�
zPORT �
,)�splitr=�joinrd)rrr&ZhbytesZpbytes�bytesrbrrr�sendport
s





zFTP.sendportcCsbd
}|jt
jkrd}|jt
jkr$d}|d
kr4td�
�
dt|�
|
t|�
dg}ddj|�
}|j|�
S)zESend an EPRT command with the current host and the given port number.r
r	rIzunsupported address familyrzEPRT �
|)r)r'�AF_INETZAF_INET6rr=rird)rrr&r)Zfieldsrbrrr�sendeprt$
s








zFTP.sendeprtc

Cs
d
}
d
}x�tj
d
d|jtjdtj�D]j}|\}}}}}ytj|||�}|j|�

Wn8tk
r�
}	
z|	}
|rt|j�
d
}w$WYd
d
}	~	XnXPq$W|d
kr�|
d
k	r�|
�
ntd�
�
|jd�

|j	�d}
|j
j	�d}|jtjkr�|j||
�}n|j
||
�}|jtk	�
r|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!ZlistenZgetsocknamerrmrkrnrr�
settimeout)
r�errr�resr)Zsocktype�protoZ	canonnameZsa�
_r&rrYrrr�makeport1
s6

 






















zFTP.makeportc
Cs\|jt
jkr:t|jd
�
�
\}
}|jr*|
}qT|jj�d}nt|jd�
|jj��\}}||fS)z<Internal: Does the PASV or EPSV handshake -> (address, port)�PASVr
ZEPSV)	r)r'rm�parse227rc�trust_server_pasv_ipv4_addressrZgetpeername�parse229)rZuntrusted_hostr&rrrr�makepasvQ
s



zFTP.makepasvc

Cs6
d
}|jr�|j
�\}}tj||f|j|jd�}yL|d
k	rF|jd|�

|j|
�
}|ddkrd|j�}|ddkrxt|�
�
Wn


|j	�
�YnXn�|j
��r}|d
k	r�|jd|�

|j|
�
}|ddkr�|j�}|ddkr�t|�
�
|j�\}}	|jtk	�
r
|j
|j�

Wd
QRX|d
d�dk�
r.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.
        N)
rzREST %sr
rUrTrO�150)r4ryr'r(rrrcr,rr!rtZacceptrro�parse150)
rrb�rest�sizerr&�connrYrZsockaddrrrr�ntransfercmd]
s<





























zFTP.ntransfercmdcCs|j|
|�d
S)z0Like ntransfercmd() but returns only the socket.r
)
r)rrbr|rrr�transfercmd�
szFTP.transfercmdcCs�|
sd
}
|sd}|sd}|
d
kr0|dkr0|d}|jd|
�
}|ddkrX|jd|�
}|ddkrr|jd	|�
}|dd
kr�t
|�
�
|S)zLogin, default anonymous.Z	anonymousrrQz
anonymous@zUSER r
rVzPASS zACCT rU>rrQ)rcr)rrrrrYrrrr�
s 













z	FTP.login� c
Csb|jd
�

|j
|
|��>}x|j|�
}|s*P||�

qWtdk	rPt|t�rP|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)rdr�Zrecv�
_SSLSocket�
isinstance�unwrapr[)rrb�callback�	blocksizer|r~�datarrr�
retrbinary�
s









zFTP.retrbinarycCs�|d
krt}|j
d�
}|j|
�
��}|jd|jd���}x�|j|jd�
}t|�
|jkrbtd|j�
�
|j	dkrzt
dt|�
�
|s�P|d
d
�tkr�|d
d�}n|dd
�d	kr�|d
d
�}||�

q6Wt
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%r	zgot more than %d bytesrIz*retr*rArJrJrKrK)�
print_linercr�r*r%rLrMr;rr.r/r=rCr�r�r�r[)rrbr�rYr~�fprFrrr�	retrlines�
s*




















z
FTP.retrlinesc
Csp|jd
�

|j
|
|��L}x*|j|�
}|s*P|j|�

|r||�

qWtdk	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)rdr��readrDr�r�r�r[)rrbr�r�r�r|r~�bufrrr�
storbinary�
s












zFTP.storbinaryc
Cs�|jd
�

|j
|
�
��}x||j|jd�
}t|�
|jkrDtd|j�
�
|sJP|dd�tkrz|dtkrr|dd�}|t}|j|�

|r||�

qWtdk	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 Ar	zgot more than %d bytesrINrJrKrK)rdr�rLrMr;rr_rDr�r�r�r[)rrbr�r�r~r�rrr�	storliness$
















z
FTP.storlinescCsd
|
}|j|�
S)zSend new account name.zACCT )
rd)rZpasswordrbrrrr+s
zFTP.acctc
Gs4d
}x|
D]}|d|}q
Wg}|j||j
�
|S)zBReturn a list of files in a given directory (default the current).ZNLST�
 )r��append)rr"rb�arg�filesrrr�nlst0s





zFTP.nlstc
Gsld
}d}|
dd�r>t|
d�
td�
kr>|
dd�|
d	}
}x|
D]}|rD|d|}qDW|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.)ZLISTNr	rr�rKrKrKrK)�typer�)rr"rb�funcr�rrr�dir9s

 





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

|
r*d|
}nd}g}|j||j�
xh|D]`}|jt�
jd�
\}}}i}	x6|dd	�jd�
D] }
|
jd�
\}}}||	|j�<qxW||	fV
qFWdS)
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	�
=rK)	rcrir�r�r<rC�	partitionrh�lower)
r�pathZfactsrb�linesrFZfacts_foundrs�name�entryZfact�key�valuerrr�mlsdHs













zFTP.mlsdcCs0|jd
|
�
}|ddkr"t
|�
�
|jd|�
S)zRename a file.zRNFR r
rVzRNTO )rcrrd)rZfromnameZtonamerYrrr�renameds


z
FTP.renamecCs.|jd
|
�
}|dd�dkr"|St
|�
�
dS)zDelete a file.zDELE NrO�250�200>r�r�)rcr)r�filenamerYrrr�deleteks

z
FTP.deletecCsn|
d
krPy
|jd�
St
k
rL
}
z|jddd�dkr<�WYdd}~Xq\Xn|
dkr\d}
d	|
}|j|�
S)
zChange to a directory.z..ZCDUPr
NrO�500rrezCWD )rdrr")r�dirname�msgrbrrr�cwdss









zFTP.cwdcCs:|jd
|
�
}|dd�dkr6|dd�j
�}t|�
SdS)zRetrieve the size of a file.zSIZE NrOZ213)rc�strip�int)rr�rYr>rrrr}�s


zFTP.sizecCs$|jd
|
�
}|j
d�
sdSt|�
S)z+Make a directory, return its full pathname.zMKD �257r)rd�
startswith�parse257)rr�rYrrr�mkd�s


zFTP.mkdcCs|jd
|
�
S)zRemove a directory.zRMD )
rd)rr�rrr�rmd�szFTP.rmdc
Cs |jd
�
}
|
j
d�
sdSt|
�
S)z!Return current working directory.ZPWDr�r)rdr�r�)rrYrrr�pwd�s



zFTP.pwdc
Cs|jd
�
}
|j
�
|
S)zQuit, and close the connection.ZQUIT)rdr!)rrYrrrr�s


zFTP.quitc
CsDz |j}
d
|_|
d
k	r|
j
�
Wd
|j}d
|_|d
k	r>|j
�
Xd
S)z8Close the connection without assuming anything about it.N)r+r!r)rr+rrrrr!�s






z	FTP.close����)rr
r�N)
N)
N)rrr)r�N)
N)r�NN)
N);rr
r�__doc__r.r�FTP_PORTr&�MAXLINErMrr+r-r4r%rwrrrr#rr1r3�debugr6r0rGrHrNrSr,r[rarcrdrkrnrtryrr�rr�r�r�r�rr�r�r�r�r�r�r}r�r�r�rr!rrrrrJsl










	

 
7



#

	
		c	@sneZ
dZd
ZejZdddddddedf	dd�
Zddd�
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	rtd
�
�
|dk	r0|dk	r0td�
�
|dk	s@|dk	rVddl
}
|
jdtd�
||_||_|dkr|tj|j||d�}||_	d|_
tj||
|||||	�
dS)Nz4context and keyfile arguments are mutually exclusivez5context and certfile arguments are mutually exclusiver
zAkeyfile and certfile are deprecated, use a custom context insteadrI)�certfile�keyfileF)
rB�warnings�warn�DeprecationWarningr�r��sslZ_create_stdlib_context�ssl_version�context�_prot_prr)rrrrrr�r�r�rrr�rrrr�s"













zFTP_TLS.__init__TcCs,|rt|j
tj�r|j�
tj||
||�S)
N)r�rr��	SSLSocket�authrr)rrrrZsecurerrrr�s


z
FTP_TLS.loginc
Csft|j
tj�rtd
�
�
|jtjkr.|jd�
}
n
|jd�
}
|jj	|j
|j
d�|_
|j
jd|jd�|_
|
S)z2Set up secure control connection by using TLS/SSL.zAlready using TLSzAUTH TLSzAUTH SSL)
�server_hostnamer$)�moder%)r�rr�r�rBr��PROTOCOL_SSLv23rdr��wrap_socketrr*r%r+)rrYrrrr��s








zFTP_TLS.authc
Cs0t|j
tj�std
�
�
|jd�
}
|j
j�|_
|
S)z/Switch back to a clear-text control connection.z
not using TLSZCCC)r�rr�r�rBrdr�)rrYrrr�cccs





zFTP_TLS.cccc
Cs|jd
�

|jd�
}
d|_
|
S)zSet up secure data connection.zPBSZ 0zPROT PT)rdr�)rrYrrr�prot_ps




zFTP_TLS.prot_pc
Cs|jd
�
}
d|_
|
S)z"Set up clear text data connection.zPROT CF)rdr�)rrYrrr�prot_cs


zFTP_TLS.prot_ccCs2tj
||
|�\}}|jr*|jj||jd
�}||fS)N)
r�)rrr�r�r�r)rrbr|r~r}rrrr$s






zFTP_TLS.ntransfercmdc
Cs8d
t}
|j
j|
�

|j�}|dd�dkr4t|�
�
|S)NsABORrOr\r]r^>r]r\r^)r_rrDrSr)rrFrYrrrra+s




z
FTP_TLS.abort)rrrT)
N)rr
rr�r�r�r�rrrr�r�r�r�rrarrrrr��s 






r�c
Cs\|d
d�dkrt|�
�
t
d
kr<dd
l}
|
jd|
j|
jB�a
t
j|�
}|sNd
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.
    NrOrzr
z150 .* \((\d+) bytes\)r	)	r�_150_re�re�compile�
IGNORECASE�ASCII�matchr��group)rYr��
mrrrr{:s








r{c
Cs�|d
d�dkrt|�
�
t
d
kr6dd
l}
|
jd|
j�a
t
j|�
}|sLt|�
�
|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.NrOZ227r
z#(\d+),(\d+),(\d+),(\d+),(\d+),(\d+)rerP�r7)
r�_227_rer�r�r��searchr�groupsrir�)rYr�r�Znumbersrr&rrrrvNs










rvcCs�|d
d�dkrt|�
�
|j
d�
}|dkr2t|�
�
|j
d|d�}|dkrRt|�
�
||d||dkrrt|�
�
||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.NrOZ229�
(r
�
)r	r7)r�findrrhr;r�)rYZpeer�left�right�partsrr&rrrrxbs 














rxc
Cs�|d
d�dkrt|�
�
|dd�dkr,dSd}
d}t
|�
}xJ||kr�||}|d}|dkr|||ksr||dkrtP|d}|
|}
q>W|
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.NrOr�r7z "rr	�
")rr;)rYr�r?�
nrZrrrr�xs 















r�c

Cst|�

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

|j|�

t
|jd�
�
\}}|j||�
|jd|�
}|dd�d	krdt�
|jd|
�
}|dd�d
kr�t�
|j�
|j�
dS)z+Copy file from one FTP-instance to another.zTYPE ruzSTOR NrO�125rzzRETR >rzr�>rzr�)rdrvrcrkrr[)	�sourceZ
sourcename�targetZ
targetnamer�Z
sourcehostZ
sourceportZtreplyZsreplyrrr�ftpcp�s














r�cCs�
tt
j�
d
kr"ttj�

t
jd�

ddl}d}
d}x"t
jddkrT|
d}
t
jd=q4Wt
jddd
�dkr�t
jdd
d�}t
jd=t
jd}t|�
}|j	|
�

d}}}y|j|�
}Wn(t
k
r�


|dk	r�t
jjd�

Yn:Xy|j
|�
\}}}Wn"tk
�
r


t
jjd	�

YnX|j|||�
x�t
jd
d�D]�}	|	dd
�d
k�
rf|j|	d
d��

nt|	dd
�dk�
r�d}
|	d
d��
r�|
d|	d
d�}
|j|
�
}n0|	d
k�
r�|j|j�

n|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
    rIr
Nr	z-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�netrcrr3r�stderr�writeZauthenticators�KeyErrorrr�rcr6r4r��stdoutr)r�r.ZrcfilerZftpZuseridrrZnetrcobjr+rbrYrrrr��sP	





































r��__main__)rr�)%r�r�r'r�__all__r`r�r��	Exceptionrrrrrrr rrCr_rr��ImportErrorr�r�r�r�ZSSLErrorr�r{r�rvrxr�r�r�r�rrrrr�<module>sP










k



|


9