home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / setSerVars.avm < prev    next >
Encoding:
Text File  |  1994-12-08  |  779 b   |  31 lines
  1. /*--------------------------------------------------------------*/
  2. /*reading serial settings and writing them into some vars*/
  3.  
  4.  
  5.   call open('cservcfg', 'avm:servers.cfg', 'r')
  6.  
  7.  do forever
  8.     csersetl = readln('cservcfg')
  9.     equpos = index(csersetl,'=')
  10.     if equpos > 0 then cserseth = left(csersetl, (equpos - 1))
  11.     clength = length(csersetl)
  12.     clength = clength - equpos
  13.     cserset = right(csersetl, clength)
  14.  
  15.    if eof('cservcfg') then break
  16.  
  17.     if cserseth = 'serialname' then
  18.      do
  19.       address command 'c:setenv AVMSerDev '|| cserset
  20.      end
  21.     else
  22.     if cserseth = 'unitnumber' then
  23.      do
  24.       address command 'c:setenv AVMSerUnit '|| cserset
  25.      end
  26.  end
  27.  
  28.   call close('cservcfg')
  29.  
  30. /*--------------------------------------------------------------*/
  31.