REBOL [
    Title: "List FTP upload"
    Date: 22-Jun-1999
    Version: 1
    File: %listftpupload.r
    Home: http://www.qsl.net/n0ukf/
    Author: "Elliott Olson"
    Purpose: {
      FTP upload multiple files using login and password.
      Supports a full upload or partial for updates
      from lists in %sitedata.reb and %siteupdate.reb.
      }
    Comment: {
      Edit the site: line for username, password, site address and directory
      Edit filepath: line to direct the script to the directory containing files for the site
      Change sitedata.reb and siteupdate.reb to your list filenames. 
      Make 2 files, one for full site upload containing the names of all files starting with %,
      one per line, and one for updates containing the names of only those files that will be updated
      (html pages, other changed or added files), one per line.  Save as ASCII text files.
      }
    Email: ejolson@means.net
    library: [
        level: 'intermediate 
        platform: none 
        type: none 
        domain: [other-net ftp] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]

which: ask " Is this a full site upload (y/n)? "
site: ftp://username:password@ftp.site.dom/directory/
filepath: %/c/full/path/filedir/   ;path to directory containing files for the site

files: load either which = "y" [%sitedata.reb] [%siteupdate.reb]
;change sitedata.reb and siteupdate.reb to your list filenames.

foreach file files [
    print file
    write/binary join site file read/binary file
]