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