home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / lan / tkncca12.zip / TREN120.DSK / unc.dsk / TRNETOS2.IDP < prev    next >
Text File  |  1993-06-30  |  9KB  |  292 lines
  1. .*
  2. .*  IDP for PCMCIA Token-Ring Adapters
  3. .*
  4. .*  Change History
  5. .*
  6. .*  05/18/93 Tiffany Sweitzer   Created
  7. .*  06/08/93 Tiffany Sweitzer   Added check for files in config.sys
  8. .*                                before adding corresponding files
  9. .*                              Added check for paths at beginning of
  10. .*                                LIBPATH and SET DPATH
  11. .*  06/09/93 Tiffany Sweitzer   Fixed PROTMAN.OS2 statement with 2nd %d%
  12. .*                              Incorporated external program to move socket
  13. .*                               services and rmu in config.sys
  14. .*  06/16/93 Tiffany Sweitzer   Changed LAPS detection to use GETLAPS.EXE
  15. .*  06/29/93 Tiffany Sweitzer   Added reinstallation code
  16. .*  06/30/93 Tiffany Sweitzer   Added text screen for LAPS users
  17. .*
  18.  
  19. :install choose=drive path='\'.
  20.  
  21. :help id='Install IBM Token-Ring 16/4 Credit Card Files for Novell (OS/2)' langid=enu.
  22. Choose this install menu selection if your network software
  23. uses a Novell Netware driver.
  24. In order to use your IBM Token-Ring 16/4 Credit Card
  25. under OS/2, you must have OS/2 2.1 or higher and
  26. Card Services must be present for your PCMCIA socket.
  27. See the READ.ME file for detailed information
  28. on customizing the configuration for your system.
  29. :ehelp.
  30.  
  31. .*--------------------------------------------------*
  32. .* Check configuration for Card Services
  33. .*--------------------------------------------------*
  34. :RUN fn='cfgcheck.exe'.
  35.  
  36. :if %r% > 1
  37.   :msg sev=i type=q.
  38.   :msgtxt langid=enu.
  39.   Card Services was not found on your machine.
  40.   OS/2 2.1 or higher and Card Services are required for
  41.   this installation. Press ESC to quit.
  42.   :emsgtxt.
  43.   :emsg.
  44. :eif.
  45.  
  46. .*--------------------------------------------------*
  47. .* Check for OS/2 2.1 or higher
  48. .*--------------------------------------------------*
  49. :RUN fn='os2ver.exe'
  50.  
  51. :if %r% = 0
  52.   :msg sev=i type=q.
  53.   :msgtxt langid=enu.
  54.   Your operating system is not OS/2 2.1 or
  55.   higher, which is required for
  56.   this installation. Press ESC to quit.
  57.   :emsgtxt.
  58.   :emsg.
  59. :eif.
  60.  
  61. .*--------------------------------------------------*
  62. .* look for LAPS
  63. .*--------------------------------------------------*
  64. :RUN fn='getlaps.exe' parms='%d%'.
  65.  
  66. .* LAPS found
  67. :if %r% = 1
  68.   :msg sev=i type=e.
  69.   :msgtxt langid=enu.
  70.   Your machine is properly configured with
  71.   OS/2 2.1 or higher and Card Services.
  72.  
  73.   Press ENTER to continue.
  74.   :emsgtxt.
  75.   :emsg.
  76.  
  77.   :copy fn='BT0.MSG' path='\' force=yes.
  78.   :RUN fn='nettxt.exe'.
  79.   :cancel.
  80.  
  81. .*  LAPS not present
  82. :else.
  83.   :msg sev=i type=eq.
  84.   :msgtxt langid=enu.
  85.   Your machine is properly configured with
  86.   OS/2 2.1 or higher and Card Services.
  87.  
  88.   Press ENTER to continue or ESC to quit.
  89.   :emsgtxt.
  90.   :emsg.
  91.  
  92. .*  copy over essential LAPS files
  93.   :copy fn='PROTOCOL.INI' path='\IBMCOM\' force=yes.
  94.   :copy fn='NWFIXUP.EXE' path='\IBMCOM\' force=yes.
  95.   :copy fn='PROTMAN.OS2' path='\IBMCOM\' force=yes.
  96.   :copy fn='LTG.MSG' path='\IBMCOM\' force=yes.
  97.   :copy fn='LT8.MSG' path='\IBMCOM\' force=yes.
  98.   :copy fn='PRO.MSG' path='\IBMCOM\' force=yes.
  99.   :copy fn='LTGH.MSG' path='\IBMCOM\' force=yes.
  100.   :copy fn='LT8H.MSG' path='\IBMCOM\' force=yes.
  101.   :copy fn='PROH.MSG' path='\IBMCOM\' force=yes.
  102.   :copy fn='NETBIND.EXE' path='\IBMCOM\PROTOCOL\' force=yes.
  103.   :copy fn='ODI2NDI.OS2' path='\IBMCOM\PROTOCOL\' force=yes.
  104.   :copy fn='ODI2NDI.NIF' path='\IBMCOM\PROTOCOL\' force=yes.
  105.   :copy fn='IBMTOKCS.OS2' path='\IBMCOM\MACS\' force=yes.
  106.   :copy fn='IBMTOKCS.NIF' path='\IBMCOM\MACS\' force=yes.
  107.  
  108. .*  add to LIBPATH and DPATH
  109.   :update fn='config.sys' path='\' rename='config.s01'.
  110.   :txt find='LIBPATH=%d%\IBMCOM\DLL;' remove=check.
  111.   :etxt.
  112.   :eupdate.
  113.  
  114.   :if %r% = 1
  115.     :update fn='config.sys' path='\' rename='config.sys'.
  116.     :txt find='LIBPATH=' remove=yes insert=before.
  117.     :li.LIBPATH=%d%\IBMCOM\DLL;%o%
  118.     :etxt.
  119.     :eupdate.
  120.   :eif.
  121.  
  122.   :update fn='config.sys' path='\' rename='config.sys'.
  123.   :txt find='SET DPATH=%d%\IBMCOM;' remove=check.
  124.   :etxt.
  125.   :eupdate.
  126.  
  127.   :if %r% = 1
  128.     :update fn='config.sys' path='\' rename='config.sys'.
  129.     :txt find='SET DPATH=' remove=yes insert=before.
  130.     :li.SET DPATH=%d%\IBMCOM;%o%
  131.     :etxt.
  132.     :eupdate.
  133.   :eif.
  134.  
  135. .*  remove statements if previously installed
  136.   :update fn='config.sys' path='\' rename='config.sys'.
  137.   :txt find='DEVICE=%d%\IBMCOM\PROTMAN.OS2' remove=yes.
  138.   :etxt.
  139.   :txt find='RUN=%d%\IBMCOM\PROTOCOL\NETBIND.EXE' remove=yes.
  140.   :etxt.
  141.   :txt find='DEVICE=%d%\IBMCOM\PROTOCOL\ODI2NDI.OS2' remove=yes.
  142.   :etxt.
  143.   :txt find='DEVICE=%d%\IBMCOM\MACS\IBMTOKCS.OS2' remove=yes.
  144.   :etxt.
  145.   :eupdate.
  146.  
  147.  
  148. .*  add statements around NetWare Requester statements
  149.   :update fn='config.sys' path='\' rename='config.sys'.
  150.   :txt find='REM --- NetWare Requester statements BEGIN' remove=no insert=before.
  151.   :li.DEVICE=%d%\IBMCOM\PROTMAN.OS2 /I:%d%\IBMCOM
  152.   :li.RUN=%d%\IBMCOM\PROTOCOL\NETBIND.EXE
  153.   :etxt.
  154.   :eupdate.
  155.  
  156.   :update fn='config.sys' path='\' rename='config.sys'.
  157.   :txt find='RUN=%d%%p0%DDAEMON.EXE' remove=check.
  158.   :etxt.
  159.   :eupdate.
  160.  
  161.   :if %r% = 0
  162.     :update fn='config.sys' path='\' rename='config.sys'.
  163.     :txt find='RUN=%d%%p0%DDAEMON.EXE' remove=no insert=after.
  164.     :li.DEVICE=%d%\IBMCOM\PROTOCOL\ODI2NDI.OS2
  165.     :etxt.
  166.     :eupdate.
  167.   :else.
  168.     :msg sev=i type=q.
  169.     :msgtxt langid=enu.
  170.     A RUN statement for DDAEMON.EXE was not found
  171.     in your CONFIG.SYS file.  Install your Novell
  172.     Netware software before performing this
  173.     installation.  Press ESC to quit.
  174.     :emsgtxt.
  175.     :emsg.
  176.   :eif.
  177.  
  178.   :update fn='config.sys' path='\' rename='config.sys'.
  179.   :txt find='DEVICE=%d%%p0%TOKEN.SYS' remove=check.
  180.   :etxt.
  181.   :eupdate.
  182.  
  183.   :if %r% = 0
  184.     :update fn='config.sys' path='\' rename='config.sys'.
  185.     :txt find='DEVICE=%d%%p0%TOKEN.SYS' remove=yes insert=after.
  186.     :li.REM DEVICE=%d%\NETWARE\TOKEN.SYS
  187.     :etxt.
  188.     :eupdate.
  189.   :eif.
  190.  
  191.   :update fn='config.sys' path='\' rename='config.sys'.
  192.   :txt find='REM --- NetWare Requester statements END' remove=no insert=after.
  193.   :li.DEVICE=%d%\IBMCOM\MACS\IBMTOKCS.OS2
  194.   :etxt.
  195.   :eupdate.
  196.  
  197. .*  fix order of LAPS and NetWare Requester if necessary
  198.  
  199.   :update fn='config.sys' path='\' rename='config.sys'.
  200.   :txt find='DEVICE=%d%%p0%IBM2SS' remove=check.
  201.   :etxt.
  202.   :eupdate.
  203.  
  204.   :if %r% = 1
  205.     :update fn='config.sys' path='\' rename='config.sys'.
  206.     :txt find='DEVICE=%d%%p4%ICRMU' remove=check.
  207.     :etxt.
  208.     :eupdate.
  209.  
  210.     :if %r% = 1
  211.       :msg sev=i type=e.
  212.       :msgtxt langid=enu.
  213.       Socket Services and the Resource Map Utility
  214.       are not installed on your machine.  Refer to
  215.       the READ.ME file on this diskette for more
  216.       information.  Press ENTER to continue.
  217.       :emsgtxt.
  218.       :emsg.
  219.     :else.
  220.       :msg sev=i type=e.
  221.       :msgtxt langid=enu.
  222.       Socket Services is not installed on
  223.       your machine.  Refer to the READ.ME file on
  224.       this diskette for more information.
  225.       Press ENTER to continue.
  226.       :emsgtxt.
  227.       :emsg.
  228.     :eif.
  229.   :else.
  230.     :update fn='config.sys' path='\' rename='config.sys'.
  231.     :txt find='DEVICE=%d%%p4%ICRMU' remove=check.
  232.     :etxt.
  233.     :eupdate.
  234.  
  235.     :if %r% = 1
  236.       :msg sev=i type=e.
  237.       :msgtxt langid=enu.
  238.       The Resource Map Utility is not installed on
  239.       your machine.  Refer to the READ.ME file on
  240.       this diskette for more information.  Press
  241.       ENTER to continue.
  242.       :emsgtxt.
  243.       :emsg.
  244.     :else.
  245.  
  246. .*  this program moves both device statements to the bottom of CONFIG.SYS
  247.       :RUN fn='move2bot.exe' parms='%d%'.
  248.  
  249.     :eif.
  250.   :eif.
  251.  
  252.  
  253. .*  modify PROTOCOL.INI with user's chosen address
  254.  
  255.   :copy fn='UINST.VAR' path='\' force=yes.
  256.   :copy fn='AT0.MSG' path='\' force=yes.
  257.   :RUN fn='getaddr.exe'.
  258.  
  259.   :update fn='uinst.var' path='\' rename='uinst.var'.
  260.   :txt find='ADDRESS=' remove=check.
  261.   :etxt.
  262.   :eupdate.
  263.  
  264.   :if %r% = 0
  265.     :update fn='uinst.var' path='\' rename='uinst.var'.
  266.     :txt find='ADDRESS=' remove=yes.
  267.     :etxt.
  268.     :eupdate.
  269.  
  270.     :update fn='protocol.ini' path='\ibmcom\' rename='protocol.io1'.
  271.     :txt find='Netaddress = "T400000000001"' remove=no insert=after.
  272.     :li.   Netaddress = "T%o%"
  273.     :etxt.
  274.     :txt find='Netaddress = "T400000000001"' remove=yes.
  275.     :etxt.
  276.     :eupdate.
  277.   :eif.
  278. :eif.
  279.  
  280. :msg sev=i type=e.
  281. :msgtxt langid=enu.
  282. The installation is complete.  Your old
  283. CONFIG.SYS and PROTOCOL.INI files were saved
  284. as CONFIG.S01 and PROTOCOL.I01 .  Press ENTER
  285. to return to the main menu and then press F3
  286. to exit.
  287. :emsgtxt.
  288. :emsg.
  289.  
  290. :einstall.
  291.  
  292.