/* $VER: FTPGET v1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se
 *
 * IMPORTANT: You MUST have FTPMOUNT installed which makes any ftp site
 *            a part of amigados. Look at aminet:pub/disk/ftpmount.lha
 *
 */

parse arg source dest

call addlib('rexxreqtools.library',0,-30,0)
call addlib('rexxsupport.library',0,-30,0)

if source = '' then source=rtfilerequest('ftp:','','Select a ftp site and file...')
if source ~= '' & dest = '' then dest=rtfilerequest('','','Select destination...')
if dest = '' then dest = '""'

if source = '?' | source = '' then do
	say 'FTPGET V1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se'
	say ''
	say 'USAGE: ftpget [ftp:address/path/file] [dest]'
	say ''
	say 'Example: ftpget ftp:ftp.luth.se/pub/aminet/index work:trashcan'
	say ''
	say 'If anything is omitted, a reqtools requester will appear..'
	say 'Its also possible to use wildcards...'
	exit
	end

address command 'makedir 'source
address command 'copy 'source' 'dest
