[REBOL] Re: [FTP] patch
From: atruter:labyrinth:au at: 20-Nov-2003 12:41
Hi Romano,
> Beta version 2 for download:
>
> do load-thru http://www.rebol.it/%7Eromano/ftp-patch.r
my test case is fairly simple:
<code>
do %ftp-patch.r
;do %ftp-proposed.r
sumtree: function [dir [file! url!]] [val] [
val: 0
foreach file read dir [
val: val + either #"/" = last file [sumtree dir/:file][1]
]
val
]
sites: [
ftp://userid:[password--www--site1--com--au]/public_html/
ftp://userid:[password--www--site2--com]/public_html/
]
foreach site sites [
print reform ["Testing" site]
print read join site %test/ ; non-empty dir
print read join site %test2/ ; empty dir
print sumtree site
]
</code>
This now fails (more than halfway through?!) in the sumtree function with
the following error:
...
Net-log: {250 OK. Current directory is /public_html/documents}
Net-log: "Type: dir"
Net-log: ["TYPE A" "200"]
Net-log: "200 TYPE is now ASCII"
Net-log: ["LIST" ["150" "125"]]
Net-log: "150 Connecting to port 1412"
Net-log: ["Closing sub-port" tcp 20 20 1412]
Net-log: [none "226"]
Net-log: "226-Options: -l "
Net-log: "226 5 matches total"
URL Parse: userid password www.site.com.au none public_html/images/ none
Net-log: ["PWD" "25"]
Net-log: {257 "/public_html/documents" is your current location}
Net-log: ["Opening" "tcp" "for" "FTP"]
Net-log: [none ["220" "230"]]
Net-log: ["Opening listen tcp port for FTP"]
Net-log: [["PORT" port/locals/active-check] "200"]
Net-log: ["PASV" "227"]
** User Error: Server error: tcp connection failed
** Near: foreach file read dir [
val: val + either #"/" = last file [sumtree dir/:file] [1]
]
>>
If you need the full log and / or the log of Brett's run (which works) I
can email it to you direct.
Regards,
Ashley