I have more clues and a challenge to 
the most expert rebolutionaries...
See if you can figure this one out.

Actually you get 2 free web-sites just for
reading this message...

I list below 4 sites that allow you to set 
up free web-sites (not necessarily talking about CGI space here).
You go into each of these sites, fill out the form
and set up a free web-site.
These two work with rebol ftp scripts.(No problems.)

1.   http://www.50megs.com/  
2.   http://www.hypermart.net/  

Go ahead and set up your rebol/view test.r scripts on these
and show them to the world.
---------------------------

3 and 4 below do not work with rebol ftp (not yet)
I have tried various 'schemes' and

rebol/core 2.2 and
rebol/view - but can't copy any files
to these websites with rebol ftp.

3. http://www.angelfire.com/     
4. http://www.freeyellow.com/   

The problem has something to do with "passive ftp"
I think. 

Feel free to modify the ftp-upload function below
to make it work. Or create your own ftp-upload function
from scratch...


;---------------------------------------------------------------------------
-------------
ftp-upload: function [
    "Upload the html reports via FTP to the web server."
    orpt     ; object that specifies path/target-file and local file to
transfer
][
   ftp-block
][
    ftp-block: [ 
        scheme: 'ftp
        host: server-name
        user: user-name
        pass: password
        path: orpt/ftp-path         
       target: orpt/filename
    ]

    print rejoin ["Transfering file " orpt/filename " via ftp..."  ] 
   
    write ftp-block read orpt/htm-file 
]

Reply via email to