home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 14
/
AACD14.ISO
/
CDTools
/
S
/
AAGoFetch
< prev
next >
Wrap
Text File
|
2000-02-25
|
1KB
|
46 lines
/*
$VER: AAGoFetch.br 1.1 (4.1.00)
by Neil Bothwick
AAGoFetch is used by the AACD SearchCDs program to add found files
to the GoFetch! download queue. It requires the GOFETCH environment
variable as created by the GoFetch! installer.
*/
AminetServer = 'de.aminet.net' /* You can set this to use one of the Aminet mirrors instead of the main site */
/* Do not change anything below here */
address command
options results
parse arg URL
call addlib('rexxsupport.library',0,-30,0)
call addlib('rexxdossupport.library',0,-30,0)
/* Load GoFetch! if not already running */
if ~show('P','GOFETCH') then do
GFPath = GetVar('GOFETCH')
if GFPath = '' then do
'RequestChoice >NIL: "Amiga Active CD" "You need to install GoFetch*Nfor this function to work" "OK"'
exit
end
GFPath = AddPart(GFPath,'GoFetch!')
end
if ~show('P','GOFETCH') then do
'run >NIL:' GFPath
do i = 1 to 6 until RC = 0
'waitforport GOFETCH'
end
address 'GOFETCH' 'iconify'
end
/* Create download profile */
address 'GOFETCH'
'getdownloadpath'
DownloadDir = result
parse var URL . '://' Server '/' Path
'addanonprofile site' Server 'port 21 remotepath' PathPart(Path) 'filename' FilePart(Path) 'downloaddir' DownloadDir