home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / callup.avm < prev    next >
Encoding:
Text File  |  1994-12-08  |  496 b   |  20 lines
  1. /* */
  2. parse upper arg number
  3.  
  4. prevdir = pragma('directory', 'avmrexx:')
  5. call open('configfile', 'avm:player.cfg', 'r')
  6. foundServer = 0
  7. do while ~eof('configfile')
  8.   line = readln('configfile')
  9.   parse upper var line variable '=' value
  10.   if variable = 'SERVER' then do
  11.     address rexx 'usebracket.avm' value 'secretary.avm' value number
  12.     foundServer = 1
  13.   end
  14. end
  15.  
  16. call close('configfile')
  17.  
  18. if ~foundServer then say "Couldn't find a server in avm:player.cfg"
  19. call pragma('directory', prevdir)
  20.