home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / browser / nets202d.arj / RPLPATH.CMD < prev    next >
Encoding:
Text File  |  1997-11-03  |  2.0 KB  |  86 lines

  1. /* Rexx */
  2.  
  3. trace o
  4.  
  5. lanpath = ''
  6.  
  7. Call Determine_RIPL_Directory
  8.  
  9. "@SET NSWSDIRENV="rpldir
  10. "@SET NSWSSERVER="servername
  11.  
  12. return
  13.  
  14.  
  15.  
  16.  
  17. Determine_RIPL_Directory:
  18.    /* find out where IBMLAN is installed */
  19.    os2path = value('PATH',,'OS2ENVIRONMENT')
  20.  
  21.    If lanpath = '' Then Do
  22.       ibmlanp = pos(':\IBMLAN', translate(os2path))
  23.       if ibmlanp = 0 Then return 4
  24.  
  25.       landrv = substr(os2path, ibmlanp-1, 1)
  26.       lanpath = landrv || ':\IBMLAN'
  27.    end
  28.  
  29.    fname = lanpath || '\IBMLAN.INI'
  30.    servername = ''
  31.    domainname = ''
  32.    rpldir = ''
  33.    rpluserdir = ''
  34.  
  35.    /* read IBMLAN.INI looking for the COMPUTERNAME, DOMAIN, RPLDIR, and */
  36.    /* RPLUSERDIR entries */
  37.    parmcnt = 4
  38.    do until lines(fname) = 0
  39.       data = translate(linein(fname))
  40.       If substr(data, 1, 1) <> ';' Then Do
  41.          keyword = word(data, 1)
  42.          dpos = pos('=', keyword)
  43.          If dpos > 0 Then keyword = substr(keyword, 1, dpos-1)
  44.          eqpos = pos('=', data)
  45.          If eqpos > 0 Then Do
  46.             Select
  47.               When keyword = 'COMPUTERNAME' Then Do
  48.                    servername = strip(substr(data, eqpos+1))
  49.                    parmcnt = parmcnt - 1
  50.               end
  51.  
  52.               When keyword = 'DOMAIN' Then Do
  53.                    domainname = strip(substr(data, eqpos+1))
  54.                    parmcnt = parmcnt - 1
  55.               end
  56.  
  57.               When keyword = 'RPLDIR' Then Do
  58.                    rpldir = strip(substr(data, eqpos+1))
  59.                    parmcnt = parmcnt - 1
  60.               end
  61.  
  62.               When keyword = 'RPLUSERDIR' Then Do
  63.                    rpluserdir = strip(substr(data, eqpos+1))
  64.                    parmcnt = parmcnt - 1
  65.               end
  66.  
  67.               otherwise;
  68.             end
  69.          end
  70.          If parmcnt <= 0 Then Leave
  71.       end
  72.    end
  73.    Call stream fname, 'C', 'close'
  74.  
  75.    if servername = '' then return 4
  76.  
  77.    if domainname = '' then return 4
  78.  
  79.    if rpldir = '' then return 4
  80.  
  81.    if rpluserdir = '' then return 4
  82.  
  83.    return 0
  84.  
  85.  
  86.