home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 August - Disc 3
/
chip_20018103_hu.iso
/
amiga
/
browser
/
aweb.lzx
/
AWebFTP.lha
/
AWebFTPConfig.awebrx
< prev
next >
Wrap
Text File
|
1996-07-07
|
2KB
|
73 lines
/*
Configuration for AWebFTP AREXX plugin for AWeb-II
by Gabiele Favrin (gfavrin@mbox.vol.it)
Version 1.0 - 30/06/1996 by AmiTrix Development (support@amitrix.com)
*/
/* Main Script */
fname = 'T:config.html'
save_dir = 'ram:'
AmiFTPexe = ''
options results
if ~show('L','rexxsupport.library') then
if ~addlib('rexxsupport.library',0,-30,0) then
exit(20)
parse arg arguements
parse source prog_type result_flag called resolved ext host .
last_slash = lastpos('/',called)
last_colon = lastpos(':',called)
dir_pos = max(last_slash,last_colon)
if dir_pos > 0 then
current_dir = left(called,dir_pos)
else
current_dir = ''
Address Value host
if Open(config_fp,current_dir||"AWebFTP.config",r) then
do
save_dir = readln(config_fp)
AmiFTPexe = readln(config_fp)
call close(config_fp)
end
if arguements = '' then
if open(HTML_fp,fname,w) then
do
call writeln(HTML_fp,'<html><head><title>')
call writeln(HTML_fp,addr)
call writeln(HTML_fp,'</title></head><body><h1>AWebFTP Configuration</h1>')
call writeln(HTML_fp,'<form action="x-aweb:rexx/'||called||'">')
call writeln(HTML_fp,'<pre>*Default Save Directory:'left(' ',4)'<input size=60 maxlength=255 name="save_dir" value="'save_dir'"><br>')
call writeln(HTML_fp,' AmiFTP Executable Path:'left(' ',4)'<input size=60 maxlength=255 name="AmiFTPexe" value="'AmiFTPexe'"><br>')
call writeln(HTML_fp,'* Required Parameters')
call writech(HTML_fp,'<hr>AWebFTP by Josef Faulkner (panther@gate.net) IRC: Josef')
call writeln(HTML_fp,left(' ',17)'<input type="submit" value=" Save "></form>')
call writeln(HTML_fp,'</body></html>')
call close(HTML_fp)
'OPEN file://localhost/'fname 'RELOAD'
end
else
address command 'RequestChoice "AWebFTP Config" "Error" "Ok" >NIL:'
else
do
interpret translate(strip(arguements),';',' ')
if Open(save_config_fp,current_dir||"AWebFTP.config",w) then
do
call writeln(save_config_fp,translate(save_dir,,';'))
call writeln(save_config_fp,translate(AmiFTPexe,,';'))
call close(save_config_fp)
end
address command 'DELETE' fname
end
exit