[REBOL] Very Simple FTP Uploader

[Carl Sassenrath]

Here is a very simple FTP uploader that I use all the
time... so I thought perhaps some of you might also
be interested. Uploads one or more files to a web site.
0.5KB.

-Carl

REBOL [Title: "Simplest FTP Uploader" Version: 1.0.0 File: %ftp-up.r]

site: ftp:[EMAIL PROTECTED]/www/view
system/schemes/ftp/passive: on

pass: request-pass/user "www06201"
insert next pass ":"
insert find site "@" pass

while [files: request-file/keep/title "Select File(s) to Upload:" "Upload"]
[
    foreach file files [
        set [path name] split-path file
        flash reform ["Uploading:" name]
        write/binary site/:name read/binary file
        unview
    ]
]

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.