GRAYBYTE WORDPRESS FILE MANAGER6682

U

e5d9��@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�Zzd
dlZWnek
r�


dZYn0XejZGdd�de�Ze�d�

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�
�� c
@seZ
dZd
S)�ErrorN��__name__�
__module__�__qualname__�rr�/usr/lib64/python3.8/ftplib.pyr9src
@seZ
dZd
S)rNr
rrrrr:sc
@seZ
dZd
S)rNr
rrrrr;sc
@seZ
dZd
S)rNr
rrrrr<sc
@seZ
dZd
S)rNr
rrrrr=s�
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)d`d:d;�
Z*dad<d=�
Z+dbd>d?�
Z,dcd@dA�
Z-dBdC�Z.dDdE�Z/dFdG�Z0dgfdHdI�
Z1dJdK�Z2dLdM�Z3dNdO�Z4dPdQ�Z5dRdS�Z6dTdU�Z7dVdW�Z8dXdY�Z9dZd[�Z:dS)drayAn 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,|�|
�

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





zFTP.__init__c


Cs|Srr�
rrrr�	__enter__{s
z
FTP.__enter__c
	GsN|jdk	rJz*z|��
Wnttfk
r0


YnXW5|jdk	rH|�
�
XdSr)�sock�close�quit�OSError�EOFError)r�argsrrr�__exit__s








zFTP.__exit__����cCs�|
d
kr|
|_|dkr||_
|dkr*||_|dk	r8||_t�d||j|j
�
tj|j|j
f|j|jd�|_|jj	|_
|jjd|jd�|_
|��|_|jS)	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
r)Nzftplib.connect�
r�
r�
�encoding)r�portrr�sys�audit�socket�create_connectionr"�family�af�makefiler-�file�getresp�welcome)rrr.rrrrrr�s 









�




zFTP.connectc

Cs|jrt
d
|�|j�
�
|jS)z`Get the welcome message from the server.
        (this is read and squirreled away by connect())z	*welcome*)�	debugging�print�sanitizer8r rrr�
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)
r9)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|
�
d�
�
}|
dd
�d|d
|
|d�}
t|
�
S)N�>�PASS �pass r�
*)�len�rstrip�repr)r�
s�
irrrr;�s


$
zFTP.sanitizecCs`d
|
ksd|
krtd�
�
t
�d||
�
|
t}
|jdkrHtd|�|
�
�
|j�|
�	|j
�
�

dS)N�

�

z4an illegal newline character should not be containedzftplib.sendcmdr	z*put*)�
ValueErrorr/r0�CRLFr9r:r;r"�sendall�encoder-�r�linerrr�putline�s







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

dS)Nz*cmd*)r9r:r;rSrQrrr�putcmd�s

z
FTP.putcmdc
Cs�|j�
|jd
�
}
t|
�
|jkr.td|j�
�
|jd
krHtd|�|
�
�
|
sPt�
|
dd�t	krn|
dd�}
n|
dd�t	kr�|
dd�}
|
S)Nr	�got more than %d bytesz*get*������)
r6�readline�maxlinerFrr9r:r;r&rNrQrrr�getline�s












zFTP.getlinec
Cs`|��}
|
d
d�dkr\|
dd
�}|��}|
d|}
|dd
�|kr$|d
d�dkr$q\q$|
S)N���
-rL)
rZ)rrR�codeZnextlinerrr�getmultiline�s





�
zFTP.getmultilinec
Csp|��}
|j
rtd
|�|
�
�
|
dd�|_|
dd�}|dkrD|
S|dkrTt|
�
�
|dkrdt|
�
�
t|
�
�
dS)Nz*resp*r[r	>�
1�
3�
2�
4�
5)r_r9r:r;Zlastresprrr)r�resp�
crrrr7�s











zFTP.getrespc
Cs$|��}
|
d
d�dkr t
|
�
�
|
S)z%Expect a response beginning with '2'.Nr	rb)r7r�rrerrr�voidresp�s


zFTP.voidrespc
CsTd
t}
|j
dkr"td|�|
�
�
|j�|
t�
|��}|dd�dkrPt|�
�
|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.�ABORr	z*put urgent*Nr[��225�426�226)	�B_CRLFr9r:r;r"rO�MSG_OOBr_r�rrRrerrr�abort
s







z	FTP.abortcCs|�|
�

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

zFTP.sendcmdcCs|�|
�

|�
�S)
z8Send a command and expect a response beginning with '2'.)rTrhrrrrr�voidcmd
s

zFTP.voidcmdcCsB|
�d
�
}t
|d�
t
|d�
g}||}dd�|�
}|�|�
S)zUSend a PORT command with the current host and the given
        port number.
        �
.�
zPORT �
,)�splitrH�joinru)rrr.ZhbytesZpbytes�bytesrsrrr�sendport
s





zFTP.sendportcCsbd
}|jt
jkrd}|jt
jkr$d}|d
kr4td�
�
dt|�
|
t|�
dg}dd�|�
}|�|�
S)zESend an EPRT command with the current host and the given port number.r
r	�zunsupported address familyrzEPRT �
|)r4r1�AF_INETZAF_INET6rrHrzru)rrr.r4Zfieldsrsrrr�sendeprt&
s








zFTP.sendeprtc
Csltj
d
|jdd�}
|
��d}|j��d}|jtjkrF|�||�}n|�||�}|jt	k	rh|
�
|j�

|
S)z3Create a new socket and send a PORT command for it.)rr
r	)r3Zbacklogr
)r1Z
create_serverr4Zgetsocknamer"rr|r�rr�
settimeout)rr"r.rrerrr�makeport3
s







zFTP.makeportc
Cs\|jt
jkr:t|�d
�
�
\}
}|jr*|
}qT|j��d}nt|�d�
|j���\}}||fS)z<Internal: Does the PASV or EPSV handshake -> (address, port)�PASVr
ZEPSV)	r4r1r�parse227rt�trust_server_pasv_ipv4_addressr"Zgetpeername�parse229)rZuntrusted_hostr.rrrr�makepasv@
s



zFTP.makepasvc
	Cs6
d
}|jr�|�
�\}}tj||f|j|jd�}zL|d
k	rF|�d|�

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


|�	�
�YnXn�|�
��r}|d
k	r�|�d|�

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

W5QRX|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.
        Nr*zREST %sr
rbr`r[�150)r?r�r1r2rrrtr7rr#r�Zacceptrr��parse150)
rrs�rest�sizerr.�connrer"Zsockaddrrrr�ntransfercmdL
s>



�























zFTP.ntransfercmdcCs|�|
|�d
S)z0Like ntransfercmd() but returns only the socket.r
)
r�)rrsr�rrr�transfercmd�
szFTP.transfercmdcCs�|
sd
}
|sd}|sd}|
d
kr0|dkr0|d}|�d|
�
}|ddkrX|�d|�
}|ddkrr|�d	|�
}|dd
kr�t
|�
�
|S)zLogin, default anonymous.Z	anonymousr>rr]z
anonymous@zUSER r
rarC�ACCT rb�rtr)rrrrrerrrr�
s 













z	FTP.loginrc	Cs^|�d
�

|�
|
|��:}|�|�
}|s(q2||�

qtdk	rLt|t�rL|��
W5QRX|��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.
        �TYPE IN)rur�Zrecv�
_SSLSocket�
isinstance�unwraprh)rrs�callback�	blocksizer�r��datarrr�
retrbinary�
s








zFTP.retrbinaryc
Cs�|d
krt}|�
d�
}|�|
�
��}|jd|jd���}|�|jd�
}t|�
|jkr`td|j�
�
|j	dkrxt
dt|�
�
|s~q�|d	d
�tkr�|d
d	�}n|d
d
�dkr�|d
d
�}||�

q4t
d
k	r�t|t
�r�|��
W5QRXW5QRX|��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.
        N�TYPE Ar+r,r	rUr}z*retr*rVrWrL)�
print_linertr�r5r-rXrYrFrr9r:rHrNr�r�r�rh)rrsr�rer��fprRrrr�	retrlines�
s,




�















z
FTP.retrlinesc	Csl|�d
�

|�
|
|��H}|�|�
}|s(q@|�|�

|r||�

qtdk	rZt|t�rZ|��
W5QRX|��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.
        r�N)rur��readrOr�r�r�rh)rrsr�r�r�r�r��bufrrr�
storbinary�
s











zFTP.storbinaryc	Cs�|�d
�

|�
|
�
��}|�|jd�
}t|�
|jkrBtd|j�
�
|sHq�|dd�tkrx|dtkrp|dd�}|t}|�|�

|r||�

qtdk	r�t	|t�r�|�
�
W5QRX|��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.
        r�r	rUrVNrW)rur�rXrYrFrrnrOr�r�r�rh)rrsr�r�r�r�rrr�	storlines�
s"















z
FTP.storlinescCsd
|
}|�|�
S)zSend new account name.r��
ru)rZpasswordrsrrrrs
zFTP.acctc
Gs0d
}|
D]}|d|}qg}|�||j
�
|S)zBReturn a list of files in a given directory (default the current).ZNLST�
 )r��append)rr'rs�arg�filesrrr�nlsts




zFTP.nlstc
Gshd
}d}|
dd�r>t|
d�
td�
kr>|
dd�|
d}
}|
D]}|rB|d|}qB|�
||�
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.)ZLISTNrWrr�)�typer�)rr'rs�funcr�rrr�dir(s

 




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

|
r*d|
}nd}g}|�||j�
|D]\}|�t�
�d�
\}}}i}	|dd��d�
D] }
|
�d�
\}}}||	|��<qt||	fV
qDdS)	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�NrW�
=)	rtrzr�r�rGrN�	partitionry�lower)
r�pathZfactsrs�linesrRZfacts_found�
_�name�entryZfact�key�valuerrr�mlsd7s












zFTP.mlsdcCs0|�d
|
�
}|ddkr"t
|�
�
|�d|�
S)zRename a file.zRNFR r
razRNTO )rtrru)rZfromnameZtonamererrr�renameSs


z
FTP.renamecCs.|�d
|
�
}|dd�dkr"|St
|�
�
dS)zDelete a file.zDELE Nr[>�250�200r�)r�filenamererrr�deleteZs

z
FTP.deletec
Csp|
d
krRz|�d�
WSt
k
rN
}
z|jddd�dkr>�W5d}~XYq^Xn|
dkr^d}
d	|
}|�|�
S)
zChange to a directory.z..ZCDUPr
Nr[�500rrvzCWD )rurr')r�dirname�msgrsrrr�cwdbs








zFTP.cwdcCs:|�d
|
�
}|dd�dkr6|dd��
�}t|�
SdS)zRetrieve the size of a file.zSIZE Nr[Z213)rt�strip�int)rr�rerIrrrr�os


zFTP.sizecCs$|�d
|
�
}|�
d�
sdSt|�
S)z+Make a directory, return its full pathname.zMKD �257r�ru�
startswith�parse257)rr�rerrr�mkdws


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



zFTP.pwdc
Cs|�d
�
}
|�
�
|
S)zQuit, and close the connection.ZQUIT)rur#rgrrrr$�s


zFTP.quitc
CsDz |j}d
|_|d
k	r|�
�
W5|j}
d
|_|
d
k	r>|
�
�
Xd
S)z8Close the connection without assuming anything about it.N)r"r#r6)rr"r6rrrr#�s






z	FTP.close)rr
r)N)
N)
N)rrr)rN)
N)rNN)
N);rrr�__doc__r9r�FTP_PORTr.�MAXLINErYr"r6r8r?r-r�rrr!r(rr<r>�debugrAr;rSrTrZr_r7rhrqrtrur|r�r�r�r�r�rr�r�r�r�rr�r�r�r�r�r�r�r�r�r�r$r#rrrrrJsp








�
	






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
}
|
�dtd�
||_||_|dkr|tj|j||d�}||_	d|_
t�||
|||||	�
dS)Nz4context and keyfile arguments are mutually exclusivez5context and certfile arguments are mutually exclusiver
zAkeyfile and certfile are deprecated, use a custom context insteadr})�certfile�keyfileF)
rM�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�s|��
t�||
||�Sr)r�r"r��	SSLSocket�authrr)rrrrZsecurerrrr�s


z
FTP_TLS.loginc
Csft|j
tj�rtd
�
�
|jtjkr.|�d�
}
n
|�d�
}
|jj	|j
|j
d�|_
|j
jd|jd�|_
|
S)z2Set up secure control connection by using TLS/SSL.zAlready using TLSzAUTH TLSzAUTH SSL�
Zserver_hostnamer+)�moder-)r�r"r�r�rMr�ZPROTOCOL_TLSrur��wrap_socketrr5r-r6rgrrrr��s






�
zFTP_TLS.authc
Cs0t|j
tj�std
�
�
|�d�
}
|j
��|_
|
S)z/Switch back to a clear-text control connection.z
not using TLSZCCC)r�r"r�r�rMrur�rgrrr�ccc�s





zFTP_TLS.cccc
Cs|�d
�

|�d�
}
d|_
|
S)zSet up secure data connection.zPBSZ 0zPROT PT�rur�rgrrr�prot_p�s




zFTP_TLS.prot_pc
Cs|�d
�
}
d|_
|
S)z"Set up clear text data connection.zPROT CFr�rgrrr�prot_cs


zFTP_TLS.prot_ccCs2t�
||
|�\}}|jr*|jj||jd
�}||fS)Nr�)rr�r�r�r�r)rrsr�r�r�rrrr�s



�zFTP_TLS.ntransfercmdc
Cs8d
t}
|j
�|
�

|��}|dd�dkr4t|�
�
|S)Nrir[rj)rnr"rOr_rrprrrrqs




z
FTP_TLS.abort)rrrT)
N)rrrr�r�ZPROTOCOL_TLS_CLIENTr�rrrr�r�r�r�r�rqrrrrr��s
 


�



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




�



r�c
Cs�|d
d�dkrt|�
�
t
d
kr6dd
l}
|
�d|
j�a
t
�|�
}|sLt|�
�
|��}d�|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.Nr[Z227r
z#(\d+),(\d+),(\d+),(\d+),(\d+),(\d+)rvr\�rB)
r�_227_rer�r�r��searchr�groupsrzr�)rer�r�Znumbersrr.rrrr�=s










r�cCs�|d
d�dkrt|�
�
|�
d�
}|dkr2t|�
�
|�
d|d�}|dkrRt|�
�
||d||dkrrt|�
�
||d|��||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.Nr[Z229�
(r
�
)r	rB)r�findrryrFr�)reZpeer�left�right�partsrr.rrrr�Qs 














r�c
Cs�|d
d�dkrt|�
�
|dd�dkr,dSd}
d}t
|�
}||kr�||}|d}|dkrz||ks�||dkrrq�|d}|
|}
q<|
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.Nr[r�rBz "rr	�
")rrF)rer�rJ�
nrfrrrr�gs 















r�c

Cst|�

d
S)z+Default retrlines callback to print a line.N)
r:)
rRrrrr�~sr�r�
Ic	Cs�|s|
}d
|}|�|�

|�|�

t
|�d�
�
\}}|�||�
|�d|�
}|dd�dkrdt�
|�d|
�
}|dd�dkr�t�
|��
|��
dS)z+Copy file from one FTP-instance to another.zTYPE r�zSTOR Nr[>�125r��RETR )rur�rtr|rrh)	�sourceZ
sourcename�targetZ
targetnamer�Z
sourcehostZ
sourceportZtreplyZsreplyrrr�ftpcp�s














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

t
�d�

ddl}d}
d}t
jddkrR|
d}
t
jd=q2t
jddd
�dkr�t
jdd
d�}t
jd=t
jd}t|�
}|�	|
�

d}}}z|�|�
}Wn(t
k
r�


|dk	r�t
j�d�

Yn:Xz|�
|�
\}}}Wn"tk
�
r


t
j�d	�

YnX|�|||�
t
jd
d�D]�}	|	dd
�d
k�
r`|�|	d
d��

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

n|�d|	t
jjd�
�
q6|��
dS)z�Test program.
    Usage: ftp [-d] [-r[file]] host [-l[dir]] [-d[dir]] [-p] [file] ...

    -d dir
    -l list
    -p password
    r}r
Nr	z-dz-rrz5Could not open account file -- using anonymous login.z$No account -- using anonymous login.z-lZCWDr�z-pr�i)rFr/�argvr:�testr��exit�netrcrr>r%�stderr�writeZauthenticators�KeyErrorrr�rtrAr?r��stdoutr$)r�r9ZrcfilerZftpZuseridrrZnetrcobjr6rsrerrrr��sV	
























�












�r��__main__)rr�)%r�r/r1r�__all__ror�r��	Exceptionrrrrrr%r&rrNrnrr��ImportErrorr�r�r�r�ZSSLErrorr�r�r�r�r�r�r�r�r�rrrrr�<module>
sR&



�





Z



|


9