/* 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,'') call writeln(HTML_fp,addr) call writeln(HTML_fp,'

AWebFTP Configuration

') call writeln(HTML_fp,'
') call writeln(HTML_fp,'
*Default Save Directory:'left(' ',4)'
')
        call writeln(HTML_fp,' AmiFTP Executable Path:'left(' ',4)'
')
        call writeln(HTML_fp,'* Required Parameters')
        call writech(HTML_fp,'
AWebFTP by Josef Faulkner (panther@gate.net) IRC: Josef')
	call writeln(HTML_fp,left(' ',17)'')
	call writeln(HTML_fp,'')
	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