Mailing List Archive: Re: Rebol, FTP and quotas

[REBOL] Re: Rebol, FTP and quotas

From: henrik:webz:dk at: 10-Mar-2002 3:19


Hi, Doc

10-03-2002 00:39:22, Nenad Rakocevic <[dockimbel--free--fr]> wrote:

>This patch will correct your error:
>>> system/schemes/ftp/handler/active-check/2: ["200" "226"]


Thanks! :-) It helped along with the two other patches, but another error shows up (session 
continued from last posting):

>> system/schemes/ftp/handler/active-check/2: ["200" "226"]
== [
    ["PORT" port/locals/active-check] ["200" "226"]
]
>> print read join ftp-dir ["file.txt"]
URL Parse: <user> <pass> <url> none path/ file.txt
Net-log: ["Opening" "tcp" "for" "FTP"]
Net-log: [
    none ["220" "230"]]
Net-log: {220 ProFTPD 1.2.1 Server (<server>)}
Net-log: [
    ["USER" port/user] "331"]
Net-log: "331 Password required for <user>."
Net-log: [
    ["PASS" port/pass] "230"]
Net-log: "230 Welcome to <server>"
Net-log: [
    "SYST" "*"]
Net-log: "215 UNIX Type: L8"
Net-log: [
    ["PORT" port/locals/active-check] ["200" "226"]]
Net-log: "200 PORT command successful."
Net-log: [
    ["CWD" either empty? port/path ["./"] [join "./" port/path]] "250"]
Net-log: "250 CWD command successful."
Net-log: [
    ["TYPE A"] ["200"]]
Net-log: "200 Type set to A."
Net-log: [
    [join "LIST " port/target] ["150" "125"]]
Net-log: {150 Opening ASCII mode data connection for file list.}
Net-log: [
    none "226"]
Net-log: "226-Transfer complete."
Net-log: [
    ["PORT" port/locals/active-check] ["200" "226"]]
Net-log: "226 Quotas on: using 0.00 of 10.00 MegaBytes"
Net-log: [
    ["TYPE I"] ["200"]]
Net-log: "200 PORT command successful."
Net-log: [
    ["RETR" port/target] ["150" "125" "200"]]
Net-log: "200 Type set to I."
Net-log: ["low level read of " 1985 "bytes"]
Net-log: ["low level read of " 1485 "bytes"]
Net-log: ["low level read of " 985 "bytes"]
Net-log: ["low level read of " 485 "bytes"]
Net-log: [
    none "226"]
** Access Error: Port none not open
** Where: halt-view
** Near: print read join ftp-dir ["file.txt"]


I've seen this one before in another posting, where the directory was empty, but it's 
not empty here and I'm sure I'm reading the file correctly.


Actually I performed this three times (I've shown the second, the third is identical 
to the second), but the first one didn't show the last two low level reads:

Net-log: ["low level read of " 985 "bytes"]
Net-log: ["low level read of " 485 "bytes"]


as if it stops reading at a random position. file.txt is 1985 bytes long, so I presume 
it has been read correctly, but other things are still considered garbage to Rebol.

>> Net-log: [
>>     ["PORT" port/locals/active-check] "200"]
>> ** User Error: Server error: tcp 226 Quotas on: using 0.00 of 10.00 MegaBytes
>> ** Near: print read join ftp-dir ["<dir-to-read-from>"]

Regards,
Henrik Mikael Kristensen