home *** CD-ROM | disk | FTP | other *** search
- /* Adds /ALIAS's to Amirc prefs */
-
- parse arg cfg
- if ~show('l','rexxreqtools.library') then call addlib('rexxreqtools.library',0,-30,0)
- if cfg=='' then do; call req('AmIRSay install','Please run from AmIRSay-Install','_OK'); exit; end
-
- 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 ''
-