Mailing List Archive: Re: Rebol, FTP and quotas (fixed!)

[REBOL] Re: Rebol, FTP and quotas (fixed!)

From: henrik::webz::dk at: 10-Mar-2002 6:23


Hi, Brett

10-03-2002 04:02:51, "Brett Handley" <[brett--codeconscious--com]> wrote:

>Hi
>
>> User Error: Server error: tcp 226 Quotas on: using 0.00 of 10.00 MegaBytes
>
>Try this line and repeat your tests:
>
>    do http://www.codeconscious.com/rebsite/rebol-library/patches.r

ok, here goes (fresh rebol session):

>> do %/c/rebol/patches.r
== {Replace DEBASE to avoid crash - Applied.
ctx-text/back-field to cycle properly - Applied.
FTP Scheme for 226 multiline server r...
>> ftp-dir: ftp://<user>:<pass>@<url>/path/
>> trace/net on
>> 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"]
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"]
** User Error: Server error: tcp 226 Quotas on: using 0.00 of 10.00 MegaBytes
** Near: print read join ftp-dir ["file.txt"]

Nope. Same error. But not to worry, this has a happy ending. :-)

I checked if it really applied it (fresh rebol session):

>> print do http://www.codeconscious.com/rebsite/rebol-library/patches.r
Replace DEBASE to avoid crash - Applied.
ctx-text/back-field to cycle properly - Applied.
FTP Scheme for 226 multiline server response bug - Not Applied.

and it didn't.

>If fixes a bug in the FTP scheme that handles response 226.
>The bug does not exist in some later versions of Rebol.

Which is why it doesn't apply the 226 patch.

I checked my Rebol/View version

>> system/version
== 1.2.1.3.1


Then I peeked at your code and changed the minimum version number from 1.2.0.255.255 
to 1.2.1.255.255 so the patch would be applied to Rebol/view.

After that the 226 error was gone!

Thanks for your help everyone. :-)

Regards,
Henrik Mikael Kristensen