Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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