Rebol FTP

[destroy]

Hello, I'm new in writing in Rebol and there is one thing I can't handle with. My code is working if I go through the local directories but I can't make it works in FTP directory.
Could you please tell where I'm wrong

REBOL []

my_path: copy system/options/path
files_data: []
feedback_data: []

do-update-files-data: func []
[
change-dir my_path
if exists? %../ [append files_data %../]
append files_data sort read my_path
]

update-text-list: func [current_list [object!]]
[
current_list/sld/data: 0
current_list/sn: 0
current_list/sld/redrag
current_list/lc / max 1 length?
head current_list/lines
show current_list
]

do-change-folder: func [selected [file!]]
[
test_selection: to-file rejoin [my_path selected]
if dir? test_selection
[
my_path: copy test_selection
lab_path/text: clean-path my_path
show lab_path
clear files_data
do-update-files-data
update-text-list list_files
]
]

do-update-files-data

view layout [
across
label "Current Folder:"
lab_path: label to-string my_path 300x50 top
return
list_files: text-list data files_data
[do-change-folder value]
btn_quit: button "Quit" [quit]
]

[btiffin]

Hey. A rebol. Very cool.

Check out http://www.rebol.org/view-script.r?script=ftpdir.r
and
http://www.rebol.org/cgi-bin/cgiwrap/rebol/documentation.r?script=ftpwrite.r

for some possible hints.

Just as a note, rebols complain quite a bit about the FTP scheme. It has bugs and even the gurus are not looking forward to being the one tasked with writing the FTP handler for the new REBOL/3. FTP is an overly detailed and some what ill-specced out internet protocol.

Welcome to REBOL land. It's handy.

If you want in on the inner discussions, check out http://www.rebol.org/aga-join.r It has instructions on getting in on the "by invitation only" REBOL communication channel. Worth the hassle, very helpful bunch, and the "by invite" method keeps the riffraff (usually) out of the very detailed discussions.

Cheers

[notchent]

Hi Destroy I didn't see any of your FTP code, so not sure what you're having trouble with. You can treat FTP folders much like local file folders, as long as you've got the username and password in the URL path. You can write and read files/folders, make-dir, use the editor function, change permissions with write/allow, etc. Maybe this will help:

code:

REBOL [title: "FTP Tool"] connect: does [     either (to-string last p/text) = "/" [     if error? try [         f/data: sort append read to-url p/text "../" show f         ][         alert "That is not a valid FTP address, or the connection failed."         ]     ][         editor to-url p/text     ] ] view center-face layout [     p: field 600 "ftp://user:pass@website.com/" [connect]     across     btn "Connect" [connect]     btn "Load URL" [         config: to-file request-file/file %/c/ftp.cfg         either exists? config [             if (config <> %none) [                 my-urls: copy []                 foreach item read/lines config [append my-urls item]                 if error? try [                     p/text: copy request-list "Select a URL:" my-urls                 ] [break]             ]         ][             alert "First, save some URLs to that file..."         ]         show p focus p     ]     btn "Save URL" [         url: request-text/title/default "URL to save:" p/text         if url = none [break]         config-file: to-file request-file/file/save %/c/ftp.cfg         if (url <> none) and (config-file <> %none) [             if not exists? config-file [                 write/lines config-file ftp://user:pass@website.com/             ]             write/append/lines config-file to-url url             alert "Saved"         ]     ]     below     f: text-list 600x350 [         either (to-string value) = "../" [             for i ((length? p/text) - 1) 1 -1 [                 if (to-string (pick p/text i)) = "/" [                     clear at p/text (i + 1) show p                     f/data: sort append read to-url p/text "../" show f                     break                 ]             ]         ][             either (to-string last value) = "/" [                 p/text: rejoin [p/text value] show p                 f/data: sort append read to-url p/text "../" show f             ][                 if ((request "Edit/view this file?") = true) [                     either find [%.jpg %.png %.gif %.bmp] suffix? value [                         view/new layout [                             image load to-url join p/text value                         ]                     ][                         editor to-url rejoin [p/text value]                     ]                 ]             ]         ]     ]     across     btn "Get Info" [         p-file: to-url rejoin [p/text f/picked]         alert rejoin ["Size: " size? p-file " Date: " modified? p-file]     ]     btn "Delete" [         p-file: to-url request-text/title/default "File to delete:"             join p/text f/picked         if ((confirm: request "Are you sure?") = true) [delete p-file]         f/data: sort append read to-url p/text "../" show f         if confirm = true [alert "File deleted"]     ]     btn "Rename" [         new-name: to-file request-text/title/default "New File Name:"             to-string f/picked         if ((confirm: request "Are you sure?") = true) [             rename (to-url join p/text f/picked) new-name         ]         f/data: sort append read to-url p/text "../" show f         if confirm = true [alert "File renamed"]     ]     btn "Copy" [         new-name: to-url request-text/title/default "New Path:"             (join p/text f/picked)         if ((confirm: request "Are you sure?") = true) [             write/binary new-name read/binary to-url join p/text f/picked         ]         f/data: sort append read to-url p/text "../" show f         if confirm = true [alert "File copied"]     ]     btn "New File" [         p-file: to-url request-text/title/default "New File Name:"             join p/text "ENTER-A-FILENAME.EXT"         if ((confirm: request "Are you sure?") = true) [             write p-file ""             ; editor p-file         ]         f/data: sort append read to-url p/text "../" show f         if confirm = true [alert "Empty file created - click to edit."]     ]     btn "New Dir" [         make-dir x: to-url request-text/title/default "New folder:" p/text         alert "Folder created"         p/text: x show p         f/data: sort append read to-url p/text "../" show f     ]     btn "Download" [         file: request-text/title/default "File:" (join p/text f/picked)         l-file: next to-string (find/last (to-string file) "/")         save-as: request-text/title/default "Save as..." to-string l-file         write/binary (to-file save-as) (read/binary to-url file)         alert "Download Complete"     ]     btn "Upload" [         file: to-file request-file         r-file: request-text/title/default "Save as..."             join p/text (to-string to-relative-file file)         write/binary (to-url r-file) (read/binary file)         f/data: sort append read to-url p/text "../" show f         alert "Upload Complete"     ]     btn "Chmod" [         p-file: to-url request-text/default rejoin [p/text f/picked]         chmod: to-block request-text/title/default "Permissions:"             "read write execute"         write/binary/allow p-file (read/binary p-file) chmod         alert "Permissions changed"     ]     do [focus p] ]

HTH


ps - You may be interested in having a peek at http://musiclessonz.com/rebol.html