[Oberon] Oberon FTP.Client (2)

[Patrick.Hunziker at unibas.ch]

(*problems with the newest native sources from FTP.Mod; the same problems are 
encounterd with the FTPDocs.Mod sources.*)
Here the FTP.Log of the working FTP client when a Unix server is used,
but the malfunction when a Windows NT/2000 Server is used.
Loggin in works, but FTP.Dir and FTP.GetFiles produce strange results, with FTP 
entering the 'passive mode' instead of delivering a directory or transferring a 
file.
Greetings
Patrick
-------------------------
(*FTP.Open ftp.inf.ethz.ch user at host*)

220 ProFTPD 1.2.5 Server (ProFTPD for ftp.inf.ethz.ch) [dump]
331 Anonymous login ok, send your complete email address as your password.
230-+-------------------------------------------------------------------------+
 |                 ETH-Zurich, Departement of Informatik                   |
	(* here follows also the usual welcome text*) 
230 Anonymous access granted, restrictions apply.
200 Type set to I.
215 UNIX Type: L8
(*FTP.Dir: here, a file list is correctly shown in the System.Log*)
(*FTP.Close*)
221 Goodbye.(*Now with an internal Microsoft FTP Server:
FTP.Open mips:pwd at 10.249.6.60*)

220 miptdm Microsoft FTP Service (Version 3.0).
331 Password required for mips.
230 User mips logged in.
200 Type set to I.
215 Windows_NT version 4.0

(* FTP.Dir: here, things begin to fail*)
227 Entering Passive Mode (10,249,6,60,4,102).
125 Data connection already open; Transfer starting.
(*Here, other FTP clients show a list of files available, Oberon FTP client 
does not*)

(*FTP.Dir again*)
226 Transfer complete.
(*FTP.Dir again*)

227 Entering Passive Mode (10,249,6,60,4,103).
(*FTP.Dir again*)

227 Entering Passive Mode (10,249,6,60,4,104).
(*FTP.Dir again*)

227 Entering Passive Mode (10,249,6,60,4,105).

(*FTP.Close*)

227 Entering Passive Mode (10,249,6,60,4,106).

(*New try on the Windows FTP Server*)
220 miptdm Microsoft FTP Service (Version 3.0).
331 Password required for mips.
230 User mips logged in.
200 Type set to I.
215 Windows_NT version 4.0
(*FTP.CurDir*)
257 "/" is current directory.
(*FTP.GetFiles TestFile.dat => Test.dat~*)
227 Entering Passive Mode (10,249,6,60,4,114).
550 TestFile.dat: Das System kann die angegebene Datei nicht finden. 
(*FTP.Close*)
221 




-------------------------------------------------
This mail sent through IMP: igor.urz.unibas.ch