REBOL[
	auteur: "Jardin_Zen"
	nom: "FTPBase"
	version: 0.1
]

system/schemes/ftp/passive: true

FtpBase: make object![
	user: 			none
	password: 		none
	hote: 			none
	ftp:			none
	filesOnServer: 	none
	command: 		none
	margin: 		"     "
	route:			none

	connect: make function! [user password hote][

		user: 		ask "     Nom d'utilisation >>>"
		password: 	ask "     Mot de passe >>>"
		hote: 		ask "     Nom d'hote >>>"

		ftp: ftp://u58397286:240889@s326359202.onlinehome.fr/3Dleaf/

	]

	dir: make function! [][

		foreach file read %.[
			info: info? file
   			print [margin file margin info/size margin info/date margin info/type]
   			route: file
    	]

	]

	list: make function! [][

		foreach file read ftp [
			info: info? file
			print [margin file]
		]

	]

	transfer: make function! [chaine] [

		print chaine

	]

]

jardinZen: make FtpBase[

    while [command != "exit"][

        command:  ask ">>>"

		if(command != "")[
			liste: parse command none
			command: first liste
		]

		switch/default command [
			"connect" [
				connect user password hote
			]
			"dir" [
				dir
			]
			"list" [
				list
			]
			"road" [
				print what-dir
			]
			"transfer" [
				transfer liste/2
			]
		][ ]

    ]

]