/* Adds /ALIAS's to Amirc prefs */ parse arg cfg if ~show('l','rexxreqtools.library') then call addlib('rexxreqtools.library',0,-30,0) call open(ih,cfg) call open(oh,'T:Default.AmIRCfg',W) at=0 alias0=0 do while ~eof(ih) ln = readln(ih); if at=="a" then do if ln=="" then do; at="e" ; call checkalias() end else do alias0=alias0+1 alias.alias0=ln end end if at==0 then do if ln=="# Alias list" then at="a" call writeln(oh,ln) end if at=="e" then call writeln(oh,ln) end call close(ih) call close(oh) rq=0 call req('AmIRSay install','Default.AmIRCfg Will be Changed.' || '0A'X || '' || '0A'X || 'Backup: Default.AmIRCfg' || '0A'X || ' As: Default.AmIRCfg.bak ?','_YES|_NO|_Abort') if rq == 0 then call deteteit() if rq == 1 then address command 'copy clone "'cfg'" "'cfg'.bak"' address command 'copy clone T:Default.AmIRCfg "'cfg'"' deleteit: address command 'delete <>nil: T:Default.AmIRCfg' exit(0) checkalias: do c=1 to alias0 wd=upper(word(alias.c,2)) if wd=="SAYS" | wd=='SAYV' | wd=='SAYN' | wd=='SAY#' | wd=="SAYG" | wd=="SAYQ" | wd=="SAYU" | wd=="SAY?" | wd=="SAYH" | wd=='SAYH' | wd=="SAYHELP" then nop else; call writeln(oh,alias.c) end call writeln(oh,'ALIAS SAYS /rx AmIRSay %p') call writeln(oh,'ALIAS SAYG /rx AmIRSay SAYG') call writeln(oh,'ALIAS SAYV /rx AmIRSay SAYV') call writeln(oh,'ALIAS SAYN /rx AmIRSay SAYN') call writeln(oh,'ALIAS SAYQ /rx AmIRSay SAYQ %p') call writeln(oh,'ALIAS SAY# /rx AmIRSay SAY# %p') call writeln(oh,'ALIAS SAY? /rx AmIRSay SAY?') return req: rq = rtezrequest(arg(2),arg(3),arg(1),'rt_reqpos = reqpos_centerscr rt_leftoffset = 120') return ps: if arg(1)>1 then return 's'; return ''