home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / on-line / amirsay / rexx / add2amirc.rexx next >
Encoding:
OS/2 REXX Batch file  |  2000-06-01  |  1.8 KB  |  74 lines

  1. /* Adds /ALIAS's to Amirc prefs */
  2.  
  3. parse arg cfg
  4. if ~show('l','rexxreqtools.library') then call addlib('rexxreqtools.library',0,-30,0)
  5. if cfg=='' then do; call req('AmIRSay install','Please run from AmIRSay-Install','_OK'); exit; end
  6.  
  7. call open(ih,cfg)
  8. call open(oh,'T:Default.AmIRCfg',W)
  9. at=0
  10. alias0=0
  11.  
  12.   do while ~eof(ih)
  13.   ln = readln(ih);
  14.  
  15.     if at=="a" then do
  16.        if ln=="" then do;
  17.        at="e" ; call checkalias()
  18.        end
  19.        else do
  20.        alias0=alias0+1
  21.        alias.alias0=ln
  22.        end
  23.     end
  24.  
  25.      if at==0 then do
  26.      if ln=="# Alias list" then at="a"
  27.      call writeln(oh,ln)
  28.      end
  29.  
  30.   if at=="e" then call writeln(oh,ln)
  31.  
  32.   end
  33.  
  34. call close(ih)
  35. call close(oh)
  36.  
  37. rq=0
  38. 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')
  39. if rq == 0 then call deteteit()
  40. if rq == 1 then address command 'copy clone "'cfg'" "'cfg'.bak"'
  41.  
  42. address command 'copy clone T:Default.AmIRCfg "'cfg'"'
  43.  
  44. deleteit:
  45. address command 'delete <>nil: T:Default.AmIRCfg'
  46. exit(0)
  47.  
  48.  
  49. checkalias:
  50.  
  51. do c=1 to alias0
  52. wd=upper(word(alias.c,2))
  53.  
  54. 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
  55. else; call writeln(oh,alias.c)
  56.  
  57. end
  58.  
  59. call writeln(oh,'ALIAS SAYS /rx AmIRSay %p')
  60. call writeln(oh,'ALIAS SAYG /rx AmIRSay SAYG')
  61. call writeln(oh,'ALIAS SAYV /rx AmIRSay SAYV')
  62. call writeln(oh,'ALIAS SAYN /rx AmIRSay SAYN')
  63. call writeln(oh,'ALIAS SAYQ /rx AmIRSay SAYQ %p')
  64. call writeln(oh,'ALIAS SAY# /rx AmIRSay SAY# %p')
  65. call writeln(oh,'ALIAS SAY? /rx AmIRSay SAY?')
  66. return
  67.  
  68.  
  69. req:
  70.  rq = rtezrequest(arg(2),arg(3),arg(1),'rt_reqpos = reqpos_centerscr   rt_leftoffset = 120')
  71. return
  72.  
  73. ps: if arg(1)>1 then return 's'; return ''
  74.