home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / tcpv21cn.zip / TCPV21CN.EXE / TCPCSD.BAT < prev    next >
DOS Batch File  |  1993-02-19  |  7KB  |  256 lines
  1. @echo off
  2.  
  3. rem
  4. rem  Licensed Materials - Property of IBM
  5. rem
  6. rem  (C) Copyright IBM Corp. 1991,1993. All rights reserved.
  7. rem  US Government Users Restricted Rights - Use, duplication or
  8. rem  disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
  9. rem
  10. rem
  11. rem  Written by:  William T. Nelson
  12. rem               IBM Corporation
  13. rem               March 23, 1991
  14. rem
  15. rem  Updated by:  Lee Cole
  16. rem               IBM Corporation
  17. rem               Feb. 15, 1993
  18. rem
  19.  
  20.  
  21. set DSK=%1
  22. if %1.==. SET DSK=A:\
  23. if not exist %DSK%lpt1 goto slash
  24. goto noslash
  25. :slash
  26. SET DSK=%DSK%\
  27. if not exist %DSK%lpt1 goto help
  28. goto CONTINUE
  29. :noslash
  30. if exist %DSK%ASK.EXE goto CONTINUE
  31. :help
  32.  
  33. cls
  34. echo.
  35. echo IBM TCP/IP for DOS Version 2.1
  36. echo Network File System Toolkit
  37. echo Corrective Service Diskette (1)
  38. echo Feburary 15, 1993
  39. echo.
  40. echo.
  41. echo If you are running this program from anything other than diskette
  42. echo drive A, you must enter:
  43. echo.
  44. echo           %0 [drive letter][\path]
  45. echo.
  46. echo to override diskette drive A (i.e. %0 B).
  47. echo.
  48. echo.
  49. echo The drive:\path %DSK% is invalid.  Correct and try again.
  50. goto QUIT
  51.  
  52. SET D=B
  53. if "%D%"=="" goto QUIT
  54. if EXIST %DSK%ASK.EXE SET D=
  55. if "%D%"=="B" goto QUIT
  56.  
  57. :CONTINUE
  58. %DSK%TCPCHKV BASE 2.1.0.1
  59. if not errorlevel 1 goto chkprog
  60. echo This CSD prereqs BASE CSD 1, please install BASE CSD first.
  61. goto QUIT
  62. :chkprog
  63. %DSK%TCPCHKV NFS  2.1.0.1
  64. if errorlevel 1 goto  CHKBASE
  65.  
  66. echo.
  67. echo.
  68. echo.
  69. echo.
  70. echo This CSD has already been installed.  If you install it again
  71. echo you may backlevel your system.
  72. echo Do you want the Corrective Service to be applied again? (Y, N or Q):
  73. %DSK%ask Yy Nn Qq
  74. if ERRORLEVEL 3 goto QUIT
  75. if ERRORLEVEL 2 goto QUIT
  76.  
  77. :CHKBASE
  78. if %tcpbase%.==. set tcpbase=%ETC%\..
  79.  
  80. echo.
  81. echo.
  82. echo.
  83. echo.
  84. echo Your TCPBASE environment variable is set to:  %TCPBASE%
  85. echo.
  86. echo Do you want the Corrective Service to be applied to the TCP/IP for DOS
  87. echo installed at %TCPBASE% (Y, N or Q):
  88.  
  89. %DSK%ask Yy Nn Qq
  90. if ERRORLEVEL 3 goto QUIT
  91. if ERRORLEVEL 2 goto BADBASE
  92. if ERRORLEVEL 1 goto CHKDECOMP
  93. echo.
  94. echo.
  95. echo ERROR:  Your entry must be Y(es), N(o) or Q(uit)
  96. echo.
  97. goto CHKBASE
  98.  
  99.  
  100. :BADBASE
  101.  
  102. echo.
  103. echo.
  104. echo The environment variable TCPBASE must be set in order for this CSD to
  105. echo install correctly.  TCPBASE points to the base directory for the
  106. echo TCP/IP for DOS product.  Please set this variable by entering:
  107. echo.
  108. echo        SET TCPBASE=[base directory]
  109. echo.
  110. echo For example:
  111. echo.
  112. echo        SET TCPBASE=C:\TCPDOS
  113. echo.
  114. goto QUIT
  115.  
  116.  
  117. :CHKDECOMP
  118.  
  119. IF EXIST %TCPBASE%\BIN\DECOMP.EXE goto DOCSDSECT
  120. echo.
  121. echo.
  122. echo ERROR:
  123. echo.
  124. echo You must have installed the IBM TCP/IP for DOS Product in the directory
  125. echo indicated by the environment variable TCPBASE.  This BIN subdirectory
  126. echo should contain the file DECOMP.EXE.  If you have deleted this file, you
  127. echo must reinstall the TCP/IP for DOS before this CSD can be applied.
  128. echo.
  129. goto QUIT
  130.  
  131. :DOCSDSECT
  132. cls
  133.  
  134. :DOCSD
  135.  
  136. echo.
  137. echo.
  138. echo This CSD replaces several files within the %TCPBASE%\BIN and
  139. echo %TCPBASE%\ETC directories.  If you wish, a backup copy of each
  140. echo original file will be saved under under a different name.  The backup
  141. echo file will be created by changing the last character in each file type
  142. echo to an "@" (i.e. TELNET.EXE will be saved as TELNET.EX@).
  143. echo.
  144. echo Please note that only one backup of each file will be saved and if
  145. echo you have any backup copies that you wish to retain, you must back these
  146. echo files up by hand.
  147. echo.
  148. echo WARNING:  To perform this backup, you must have at lease 1.7MB free
  149. echo           (1,700,000 bytes) on the disk drive that contains %TCPBASE%.
  150. echo           There is no error checking to verify if you have enough free
  151. echo           disk space so, YOU MUST ASSURE THAT YOU HAVE ENOUGH ROOM TO
  152. echo           BACKUP THE FILES.
  153. echo.
  154. echo Do you want the previous versions to be saved (Y, N or Q):
  155. %DSK%PUSHD %TCPBASE%
  156. if errorlevel 1 goto QUIT
  157.  
  158. %DSK%ask Yy Nn Qq
  159. if ERRORLEVEL 3 goto QUIT
  160. if ERRORLEVEL 2 goto REALLYDOCSD
  161. if ERRORLEVEL 1 goto COPYFILES
  162. echo.
  163. echo.
  164. echo ERROR:  Your entry must be Y(es), N(o) or Q(uit)
  165. echo.
  166. goto DOCSD
  167.  
  168. :COPYFILES
  169.  
  170. cls
  171.  
  172. echo.
  173. echo.
  174. echo PLEASE WAIT WHILE THE ORIGINAL FILES ARE BEING BACKED UP....
  175. echo.
  176. echo.
  177.  
  178. COPY %ETC%\..\BIN\COMPRESS.EXE CP$.EXE>nul
  179.  
  180. echo .... DOSNFS.EXE    -- DOSNFS.EX@
  181. if exist BIN\DOSNFS.EXE CP$ BIN\DOSNFS.EXE BIN\DOSNFS.EX@ >NUL
  182. echo .... IBMNFS.EXE    -- IBMNFS.EX@
  183. if exist BIN\IBMNFS.EXE CP$ BIN\IBMNFS.EXE BIN\IBMNFS.EX@ >NUL
  184. echo .... MVSLOGIN.EXE  -- MVSLOGIN.EX@
  185. if exist BIN\MVSLOGIN.EXE CP$ BIN\MVSLOGIN.EXE BIN\MVSLOGIN.EX@ >NUL
  186. echo .... MVSLOGUT.EXE  --  MVSLOGUT.EX@
  187. if exist BIN\MVSLOGUT.EXE CP$ BIN\MVSLOGUT.EXE BIN\MVSLOGUT.EX@ >NUL
  188. echo .... NFSCHK.EXE    -- NFSCHK.EX@
  189. if exist BIN\NFSCHK.EXE CP$ BIN\NFSCHK.EXE BIN\NFSCHK.EX@ >NUL
  190. echo .... DOSNFS.MAP    -- DOSNFS.MA@
  191. if exist ETC\MAPS\DOSNFS.MAP CP$ ETC\MAPS\DOSNFS.MAP ETC\MAPS\DOSNFS.MA@ >NUL
  192. echo .... MOUNT.LST     -- MOUNT.LS@
  193. if exist HELP\MOUNT.LST  CP$ HELP\MOUNT.LST HELP\MOUNT.LS@ >NUL
  194. echo .... NFSSET.LST     -- NFSSET.LS@
  195. if exist HELP\NFSSET.LST  CP$ HELP\NFSSET.LST HELP\NFSSET.LS@ >NUL
  196. ERASE CP$.EXE>nul
  197.  
  198. :REALLYDOCSD
  199.  
  200. cls
  201.  
  202. echo.
  203. echo.
  204. echo PLEASE WAIT WHILE THE CSD IS BEING APPLIED....
  205. echo.
  206. echo.
  207.  
  208. @echo off
  209. COPY %ETC%\..\BIN\DECOMP.EXE DC$.EXE>nul
  210. echo ....NFSCSD.DOC
  211. if exist %DSK%NFSCSD.DOC COPY %DSK%NFSCSD.DOC   DOC\NFSCSD.DOC > NUL
  212.  
  213. echo .... DOSNFS.EX#    -- DOSNFS.EXE
  214. DC$ %DSK%DOSNFS.EX# BIN\DOSNFS.EXE >nul
  215. echo .... IBMNFS.EX#    -- IBMNFS.EXE
  216. DC$ %DSK%IBMNFS.EX# BIN\IBMNFS.EXE >nul
  217. echo .... MVSLOGIN.EX#  -- MVSLOGIN.EXE
  218. DC$ %DSK%MVSLOGIN.EX# BIN\MVSLOGIN.EXE >nul
  219. echo .... MVSLOGUT.EX#  -- MVSLOGUT.EXE
  220. DC$ %DSK%MVSLOGUT.EX# BIN\MVSLOGUT.EXE >nul
  221. echo .... NFSCHK.EX#    -- NFSCHK.EXE
  222. DC$ %DSK%NFSCHK.EX# BIN\NFSCHK.EXE >nul
  223. echo .... SHOWATTR.EX#  -- SHOWATTR.EXE
  224. DC$ %DSK%SHOWATTR.EX# BIN\SHOWATTR.EXE >nul
  225. echo .... DOSNFS.MA#    -- DOSNFS.MAP
  226. DC$ %DSK%DOSNFS.MA# ETC\MAPS\DOSNFS.MAP >nul
  227. echo .... MOUNT.LS#     -- MOUNT.LST
  228. DC$ %DSK%MOUNT.LS# HELP\MOUNT.LST >nul
  229. echo .... NFSSET.LS#     -- NFSSET.LST
  230. DC$ %DSK%NFSSET.LS# HELP\NFSSET.LST >nul
  231. ERASE DC$.EXE>nul
  232.  
  233. echo.
  234. echo.
  235. cls
  236. echo.
  237. echo The Corrective Service has been installed correctly...
  238. echo.
  239. if not exist DOC\NFSCSD.DOC goto nodoc
  240. echo Please look at the file %TCPBASE%\DOC\NFSCSD.DOC to see what has been
  241. echo fixed in this CSD.
  242. :nodoc
  243. echo.
  244. echo.
  245.  
  246. %DSK%TCPSETV NFS  2.1.0.1
  247. call POPD$
  248. ERASE %TCPBASE%\POPD$.BAT>nul
  249. :edit %TCPBASE%\DOC\NFSCSD.DOC
  250. :installed
  251. echo CSD NFS  2.1.0.1 is installed.
  252.  
  253. :QUIT
  254. SET DSK=
  255. SET D=
  256.