World: r3wp

anyone can test this http://rebol.wik.is/Rebol3/Schemes/Ftp

the default timeout times out waiting for ftp.debian .. so I put 
a wait 10 seconds there!

I was trying to find a ftp site with a lot of data to read from ...

I may have some redundant waits there in the handler

try /debian/pool/main/x/ instead of /debian/dists/lenny/

that should give you a huge directory listing :)

ok

eeek... r3alpha crashed on me :(

heh :)

yeah ..doesn't get a complete directory listing ...

something must be wrong in my dataport event handler

missing a read port in the read event

only picks up 5355 bytes

I can pick up the rest doing a 
read cmd

sounds like it should be

...

i think with PASV you should just re-read on the data port until 
the port is closed, no?

i just tried a bit from the console

i got LIST reponse for /debian/pool/main/x with two read events

first returned 32000 bytn

bytes*

second appended another 13901 bytes

Does the server always close the dataport after sending data?

if so I can keep trying to read until the port is closed

yes, that's how PASV works, as far as i know

client sends PASV, gets a port number, connects to that port

client/spec/dataport/awake: func [event /local port] [
											port: event/port
											print ["==TCP-event on dataport:" event/type]
											switch/default event/type [
												read [print ["^\read:" length? port/data] 
													print to-string port/data
													clear port/data
													read port
												]
												wrote [read port]
												lookup [print query port open port]
												connect [read port]
												close [ ]
											][true]
										]

yep

so this is my data port handler ..

if you really want to collect the response, drop the CLEAR

and then store port/data away in the close event

let me try that

you'll have to do a PASV before each new request

to avoid that, there was APSV ("all passive"), dunno how support 
for that is

Still needs two reads

yeah, that's ok, no?

switch/default event/type [
												read [print ["^\read:" length? port/data] 
													read port
												]
												wrote [read port]
												lookup [print query port open port]
												connect [read port]
												close [ print to-string port/data]
											][true]

so keep reading until the port is closed ...

exactly

well, gotta run now. good luck!

ok,

they must be sending me two lots of data

40k+ for the LIST in pool/x

a good test :)

and it's good to know that data is appended

saves me the separate buffer in my pop3 prot

and the buffer keeps expanding too

Using a timeout value, largish, I can read a 5000 file listing in 
a ftp directory.  Posted latest code.

It sounds to me that the timeout is counting down while you are receiving 
data. That's not logical?

Henrik ..I have little idea of what I'm doing .. just stumbling around 
here.