home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / networks / tcpv21c1.zip / TCPCSD.BAT < prev    next >
DOS Batch File  |  1993-06-11  |  17KB  |  502 lines

  1. @ECHO OFF
  2. SET CSDTYPE=BASE
  3. SET CSDNO=BASE 2.1.0.3
  4. rem
  5. rem  Licensed Materials - Property of IBM
  6. rem
  7. rem  (C) Copyright IBM Corp. 1991,1993. All rights reserved.
  8. rem  US Government Users Restricted Rights - Use, duplication or
  9. rem  disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
  10. rem
  11. rem
  12. rem  Written by:  William T. Nelson
  13. rem               IBM Corporation
  14. rem               March 23, 1991
  15. rem
  16. rem  Updated by:  Lee Cole
  17. rem               IBM Corporation
  18. rem               Feb. 15, 1993
  19. rem
  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. :MOUNT
  29. if not exist %DSK%%CSDTYPE%CSD.DOC goto REQUEST
  30. goto CONTINUE
  31. :REQUEST
  32. echo Please INSERT %CSDTYPE% CSD DISKETTE 1
  33. pause
  34. goto MOUNT
  35. :noslash
  36. if not exist %DSK%%CSDTYPE%CSD.DOC goto REQUEST
  37. if exist %DSK%ASK.EXE goto CONTINUE
  38. :help
  39.  
  40. cls
  41. echo.
  42. echo IBM TCP/IP for DOS Version 2.1
  43. echo Corrective Service Diskette
  44. echo Feburary 15, 1993
  45. echo.
  46. echo.
  47. echo If you are running this program from anything other than diskette
  48. echo drive A, you must enter:
  49. echo.
  50. echo           %0 [drive letter][\path]
  51. echo.
  52. echo to override diskette drive A (i.e. %0 B).
  53. echo.
  54. echo.
  55. echo The drive:\path %DSK% is invalid.  Correct and try again.
  56. goto QUIT
  57.  
  58. SET D=B
  59. if "%D%"=="" goto QUIT
  60. if EXIST %DSK%ASK.EXE SET D=
  61. if "%D%"=="B" goto QUIT
  62.  
  63. :CONTINUE
  64. %DSK%TCPCHKV %CSDNO%
  65. if errorlevel 1 goto  CHKBASE
  66.  
  67. echo.
  68. echo.
  69. echo.
  70. echo.
  71. echo This CSD has already been installed.  If you install it again
  72. echo you may backlevel your system.
  73. echo Do you want the Corrective Service to be applied again? (Y, N or Q):
  74. %DSK%ask Yy Nn Qq
  75. if ERRORLEVEL 3 goto QUIT
  76. if ERRORLEVEL 2 goto QUIT
  77.  
  78. :CHKBASE
  79. if %tcpbase%.==. set tcpbase=%ETC%\..
  80.  
  81. echo.
  82. echo.
  83. echo.
  84. echo.
  85. echo Your TCPBASE environment variable is set to:  %TCPBASE%
  86. echo.
  87. echo Do you want the Corrective Service to be applied to the TCP/IP for DOS
  88. echo installed at %TCPBASE% (Y, N or Q):
  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 inorder 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 .... CUSTOM.EXE    -- CUSTOM.EX@
  181. if exist BIN\CUSTOM.EXE CP$ BIN\CUSTOM.EXE BIN\CUSTOM.EX@ >nul
  182. echo .... FTPD.EXE    -- FTPD.EX@
  183. if exist BIN\FTPD.EXE CP$ BIN\FTPD.EXE BIN\FTPD.EX@ >nul
  184. echo .... INET.EXE    -- INET.EX@
  185. if exist BIN\INET.EXE CP$ BIN\INET.EXE BIN\INET.EX@ >nul
  186. echo .... INET.SYM    -- INET.SY@
  187. if exist BIN\INET.SYM CP$ BIN\INET.SYM BIN\INET.SY@ >nul
  188. echo .... INET.MAP    -- INET.MA@
  189. if exist ETC\MAPS\INET.MAP CP$ ETC\MAPS\INET.MAP ETC\MAPS\INET.MA@ >nul
  190. echo .... LPD.EXE    -- LPD.EX@
  191. if exist BIN\LPD.EXE CP$ BIN\LPD.EXE BIN\LPD.EX@ >nul
  192. echo .... LPRRD.EXE    -- LPRRD.EX@
  193. if exist BIN\LPRRD.EXE CP$ BIN\LPRRD.EXE BIN\LPRRD.EX@ >nul
  194. echo .... LPRRD.MAP    -- LPRRD.MA@
  195. if exist ETC\MAPS\LPRRD.MAP CP$ ETC\MAPS\LPRRD.MAP ETC\MAPS\LPRRD.MA@ >nul
  196. echo .... FTP.EXE    -- FTP.EX@
  197. if exist BIN\FTP.EXE CP$ BIN\FTP.EXE BIN\FTP.EX@ >nul
  198. echo .... FTPP.EXE    -- FTPP.EX@
  199. if exist BIN\FTPP.EXE CP$ BIN\FTPP.EXE BIN\FTPP.EX@ >nul
  200. echo .... TCPLEVEL.EXE    -- TCPLEVEL.EX@
  201. if exist BIN\TCPLEVEL.EXE CP$ BIN\TCPLEVEL.EXE BIN\TCPLEVEL.EX@ >nul
  202. echo .... LPR.EXE    -- LPR.EX@
  203. if exist BIN\LPR.EXE CP$ BIN\LPR.EXE BIN\LPR.EX@ >nul
  204. echo .... ROUTE.EXE    -- ROUTE.EX@
  205. if exist BIN\ROUTE.EXE CP$ BIN\ROUTE.EXE BIN\ROUTE.EX@ >nul
  206. echo .... TELNET.EXE    -- TELNET.EX@
  207. if exist BIN\TELNET.EXE CP$ BIN\TELNET.EXE BIN\TELNET.EX@ >nul
  208. echo .... TELNET.PIF    -- TELNET.PI@
  209. if exist BIN\TELNET.PIF CP$ BIN\TELNET.PIF BIN\TELNET.PI@ >nul
  210. echo .... READ.ME     -- READ.ME@
  211. if exist DOC\READ.ME  CP$ DOC\READ.ME  DOC\READ.ME@ >nul
  212. echo .... WFTP.EXE    -- WFTP.EX@
  213. if exist BIN\WFTP.EXE CP$ BIN\WFTP.EXE BIN\WFTP.EX@ >nul
  214. echo .... WLPR.EXE    -- WLPR.EX@
  215. if exist BIN\WLPR.EXE CP$ BIN\WLPR.EXE BIN\WLPR.EX@ >nul
  216. echo .... WMAIL.EXE    -- WMAIL.EX@
  217. if exist BIN\WMAIL.EXE CP$ BIN\WMAIL.EXE BIN\WMAIL.EX@ >nul
  218. echo .... WFTPAPI.DLL    -- WFTPAPI.DL@
  219. if exist BIN\WFTPAPI.DLL CP$ BIN\WFTPAPI.DLL BIN\WFTPAPI.DL@ >nul
  220. echo .... WINSOCK.DLL    -- WINSOCK.DL@
  221. if exist BIN\WINSOCK.DLL CP$ BIN\WINSOCK.DLL BIN\WINSOCK.DL@ >nul
  222. echo .... WTELNET.EXE    -- WTELNET.EX@
  223. if exist BIN\WTELNET.EXE CP$ BIN\WTELNET.EXE BIN\WTELNET.EX@ >nul
  224. echo .... BOOTP.EXE    -- BOOTP.EX@
  225. if exist BIN\BOOTP.EXE CP$ BIN\BOOTP.EXE BIN\BOOTP.EX@ >nul
  226. echo .... RCOPY.EXE    -- RCOPY.EX@
  227. if exist BIN\RCOPY.EXE CP$ BIN\RCOPY.EXE BIN\RCOPY.EX@ >nul
  228. echo .... RCP.EXE    -- RCP.EX@
  229. if exist BIN\RCP.EXE CP$ BIN\RCP.EXE BIN\RCP.EX@ >nul
  230. echo .... MAIL.EXE    -- MAIL.EX@
  231. if exist BIN\MAIL.EXE CP$ BIN\MAIL.EXE BIN\MAIL.EX@ >nul
  232. echo .... POPGET.EXE    -- POPGET.EX@
  233. if exist BIN\POPGET.EXE CP$ BIN\POPGET.EXE BIN\POPGET.EX@ >nul
  234. echo .... ROUTED.EXE    -- ROUTED.EX@
  235. if exist BIN\ROUTED.EXE CP$ BIN\ROUTED.EXE BIN\ROUTED.EX@ >nul
  236. echo .... LPDDOWN.EXE    -- LPDDOWN.EX@
  237. if exist BIN\LPDDOWN.EXE CP$ BIN\LPDDOWN.EXE BIN\LPDDOWN.EX@ >nul
  238. echo .... SLIP.EXE    -- SLIP.EX@
  239. if exist BIN\SLIP.EXE CP$ BIN\SLIP.EXE BIN\SLIP.EX@ >nul
  240. echo .... IFCONFIG.EXE    -- IFCONFIG.EX@
  241. if exist BIN\IFCONFIG.EXE CP$ BIN\IFCONFIG.EXE BIN\IFCONFIG.EX@ >nul
  242. echo .... NETSTAT.EXE    -- NETSTAT.EX@
  243. if exist BIN\NETSTAT.EXE CP$ BIN\NETSTAT.EXE BIN\NETSTAT.EX@ >nul
  244. echo .... TFTP.EXE    -- TFTP.EX@
  245. if exist BIN\TFTP.EXE CP$ BIN\TFTP.EXE BIN\TFTP.EX@ >nul
  246. echo .... TN3270.EXE    -- TN3270.EX@
  247. if exist BIN\TN3270.EXE CP$ BIN\TN3270.EXE BIN\TN3270.EX@ >nul
  248. echo .... WPING.EXE    -- WPING.EX@
  249. if exist BIN\WPING.EXE CP$ BIN\WPING.EXE BIN\WPING.EX@ >nul
  250. echo .... SLIP.DOC    -- SLIP.DO@
  251. if exist DOC\SLIP.DOC CP$ DOC\SLIP.DOC DOC\SLIP.DO@ >nul
  252. echo .... BOOTP.LST    -- BOOTP.LS@
  253. if exist HELP\BOOTP.LST CP$ HELP\BOOTP.LST HELP\BOOTP.LS@ >nul
  254. echo .... TFTP.LST    -- TFTP.LS@
  255. if exist HELP\TFTP.LST CP$ HELP\TFTP.LST HELP\TFTP.LS@ >nul
  256. echo .... TFTP.DOC    -- TFTP.DO@
  257. if exist DOC\TFTP.DOC CP$ DOC\TFTP.DOC DOC\TFTP.DO@ >nul
  258. echo .... SLIPDIAL.EXE    -- SLIPDIAL.EX@
  259. if exist BIN\SLIPDIAL.EXE CP$ BIN\SLIPDIAL.EXE BIN\SLIPDIAL.EX@ >nul
  260. echo .... COMTCP.EXE    -- COMTCP.EX@
  261. if exist BIN\COMTCP.EXE CP$ BIN\COMTCP.EXE BIN\COMTCP.EX@ >nul
  262. echo .... LPD.PIF    -- LPD.PI@
  263. if exist BIN\LPD.PIF CP$ BIN\LPD.PIF BIN\LPD.PI@ >nul
  264. echo .... WMAIL.INI    -- WMAIL.IN@
  265. if exist ETC\WMAIL.INI CP$ ETC\WMAIL.INI ETC\WMAIL.IN@ >nul
  266. echo .... SMTP.DLL    -- SMTP.DL@
  267. if exist BIN\SMTP.DLL CP$ BIN\SMTP.DLL BIN\SMTP.DL@ >nul
  268. echo .... POP.DLL    -- POP.DL@
  269. if exist BIN\POP.DLL CP$ BIN\POP.DLL BIN\POP.DL@ >nul
  270. echo .... DECODE.EXE    -- DECODE.EX@
  271. if exist BIN\DECODE.EXE CP$ BIN\DECODE.EXE BIN\DECODE.EX@ >nul
  272. echo .... TCP437.FON    -- TCP437.FO@
  273. if exist BIN\TCP437.FON CP$ BIN\TCP437.FON BIN\TCP437.FO@ >nul
  274. echo .... TCP850.FON    -- TCP850.FO@
  275. if exist BIN\TCP850.FON CP$ BIN\TCP850.FON BIN\TCP850.FO@ >nul
  276. echo .... NEWPING.ICO    -- NEWPING.IC@
  277. if exist BIN\NEWPING.ICO CP$ BIN\NEWPING.ICO BIN\NEWPING.IC@ >nul
  278. echo .... DOSTCP.SYS    -- DOSTCP.SY@
  279. if exist BIN\DOSTCP.SYS CP$ BIN\DOSTCP.SYS BIN\DOSTCP.SY@ >nul
  280. echo .... WTELNET.HLP    -- WTELNET.HL@
  281. if exist HELP\WTELNET.HLP CP$ HELP\WTELNET.HLP HELP\WTELNET.HL@ >nul
  282. echo .... SETCLOCK.EXE    -- SETCLOCK.EX@
  283. if exist BIN\SETCLOCK.EXE CP$ BIN\SETCLOCK.EXE BIN\SETCLOCK.EX@ >nul
  284. echo .... TCPABOUT.EXE    -- TCPABOUT.EX@
  285. if exist BIN\TCPABOUT.EXE CP$ BIN\TCPABOUT.EXE BIN\TCPABOUT.EX@ >nul
  286. echo .... FTP.DOC    -- FTP.DO@
  287. if exist DOC\FTP.DOC CP$ DOC\FTP.DOC DOC\FTP.DO@ >nul
  288. echo .... X437037.XLT    -- X437037.XL@
  289. if exist ETC\XLATE\X437037.XLT CP$ ETC\XLATE\X437037.XLT ETC\XLATE\X437037.XL@ >nul
  290. echo .... X437273.XLT    -- X437273.XL@
  291. if exist ETC\XLATE\X437273.XLT CP$ ETC\XLATE\X437273.XLT ETC\XLATE\X437273.XL@ >nul
  292. echo .... X437277.XLT    -- X437277.XL@
  293. if exist ETC\XLATE\X437277.XLT CP$ ETC\XLATE\X437277.XLT ETC\XLATE\X437277.XL@ >nul
  294. echo .... X437278.XLT    -- X437278.XL@
  295. if exist ETC\XLATE\X437278.XLT CP$ ETC\XLATE\X437278.XLT ETC\XLATE\X437278.XL@ >nul
  296. echo .... X437280.XLT    -- X437280.XL@
  297. if exist ETC\XLATE\X437280.XLT CP$ ETC\XLATE\X437280.XLT ETC\XLATE\X437280.XL@ >nul
  298. echo .... X437281.XLT    -- X437281.XL@
  299. if exist ETC\XLATE\X437281.XLT CP$ ETC\XLATE\X437281.XLT ETC\XLATE\X437281.XL@ >nul
  300. echo .... X437284.XLT    -- X437284.XL@
  301. if exist ETC\XLATE\X437284.XLT CP$ ETC\XLATE\X437284.XLT ETC\XLATE\X437284.XL@ >nul
  302. echo .... X437285.XLT    -- X437285.XL@
  303. if exist ETC\XLATE\X437285.XLT CP$ ETC\XLATE\X437285.XLT ETC\XLATE\X437285.XL@ >nul
  304. echo .... X437297.XLT    -- X437297.XL@
  305. if exist ETC\XLATE\X437297.XLT CP$ ETC\XLATE\X437297.XLT ETC\XLATE\X437297.XL@ >nul
  306. echo .... X437500.XLT    -- X437500.XL@
  307. if exist ETC\XLATE\X437500.XLT CP$ ETC\XLATE\X437500.XLT ETC\XLATE\X437500.XL@ >nul
  308. echo .... LPRRDSET.EXE    -- LPRRDSET.EX@
  309. if exist BIN\LPRRDSET.EXE CP$ BIN\LPRRDSET.EXE BIN\LPRRDSET.EX@ >nul
  310. echo .... SETTERM.EXE    -- SETTERM.EX@
  311. if exist BIN\SETTERM.EXE CP$ BIN\SETTERM.EXE BIN\SETTERM.EX@ >nul
  312.  
  313. if exist DOC\READ.ME CP$ DOC\READ.ME DOC\READ.ME@ >nul
  314. ERASE CP$.EXE>nul
  315. :REALLYDOCSD
  316.  
  317. cls
  318.  
  319. echo.
  320. echo.
  321. echo PLEASE WAIT WHILE THE CSD IS BEING APPLIED....
  322. echo.
  323. echo.
  324.  
  325. @echo off
  326. COPY %ETC%\..\BIN\DECOMP.EXE DC$.EXE>nul
  327. echo ....%CSDTYPE%CSD.DOC
  328. COPY %DSK%%CSDTYPE%CSD.DOC DOC\%CSDTYPE%CSD.DOC >nul
  329.  
  330. echo .... CUSTOM.EX#    -- CUSTOM.EXE
  331. DC$ %DSK%CUSTOM.EX#    BIN\CUSTOM.EXE >nul
  332. echo .... FTPD.EX#    -- FTPD.EXE
  333. DC$ %DSK%FTPD.EX#    BIN\FTPD.EXE >nul
  334. echo .... INET.EX#    -- INET.EXE
  335. DC$ %DSK%INET.EX#    BIN\INET.EXE >nul
  336. echo .... INET.SY#    -- INET.SYM
  337. DC$ %DSK%INET.SY#    BIN\INET.SYM >nul
  338. if not exist ETC\MAPS\nul md ETC\MAPS
  339. echo .... INET.MA#    -- INET.MAP
  340. DC$ %DSK%INET.MA#    ETC\MAPS\INET.MAP >nul
  341. echo .... LPD.EX#    -- LPD.EXE
  342. DC$ %DSK%LPD.EX#    BIN\LPD.EXE >nul
  343. echo .... LPRRD.EX#    -- LPRRD.EXE
  344. DC$ %DSK%LPRRD.EX#    BIN\LPRRD.EXE >nul
  345. echo .... LPRRD.MA#    -- LPRRD.MAP
  346. DC$ %DSK%LPRRD.MA#    ETC\MAPS\LPRRD.MAP >nul
  347. echo .... FTP.EX#    -- FTP.EXE
  348. DC$ %DSK%FTP.EX#    BIN\FTP.EXE >nul
  349. echo .... FTPP.EX#    -- FTPP.EXE
  350. DC$ %DSK%FTPP.EX#    BIN\FTPP.EXE >nul
  351. echo .... TCPLEVEL.EX#    -- TCPLEVEL.EXE
  352. DC$ %DSK%TCPLEVEL.EX#    BIN\TCPLEVEL.EXE >nul
  353. echo .... LPR.EX#    -- LPR.EXE
  354. DC$ %DSK%LPR.EX#    BIN\LPR.EXE >nul
  355. echo .... ROUTE.EX#    -- ROUTE.EXE
  356. DC$ %DSK%ROUTE.EX#    BIN\ROUTE.EXE >nul
  357. echo .... TELNET.EX#    -- TELNET.EXE
  358. DC$ %DSK%TELNET.EX#    BIN\TELNET.EXE >nul
  359. echo .... TELNET.PI#    -- TELNET.PIF
  360. DC$ %DSK%TELNET.PI#    BIN\TELNET.PIF >nul
  361. if not exist DOC\nul md DOC
  362. echo .... READ.ME#    -- READ.ME 
  363. DC$ %DSK%READ.ME#    DOC\READ.ME  >nul
  364.  
  365. @echo off
  366. echo.
  367. echo.
  368. echo.
  369. echo Please insert TCPCSD Diskette 2.
  370. pause
  371. echo.
  372. @echo off
  373. echo .... WFTP.EX#    -- WFTP.EXE
  374. DC$ %DSK%WFTP.EX#    BIN\WFTP.EXE >nul
  375. echo .... WLPR.EX#    -- WLPR.EXE
  376. DC$ %DSK%WLPR.EX#    BIN\WLPR.EXE >nul
  377. echo .... WMAIL.EX#    -- WMAIL.EXE
  378. DC$ %DSK%WMAIL.EX#    BIN\WMAIL.EXE >nul
  379. echo .... WFTPAPI.DL#    -- WFTPAPI.DLL
  380. DC$ %DSK%WFTPAPI.DL#    BIN\WFTPAPI.DLL >nul
  381. echo .... WINSOCK.DL#    -- WINSOCK.DLL
  382. DC$ %DSK%WINSOCK.DL#    BIN\WINSOCK.DLL >nul
  383. echo .... WTELNET.EX#    -- WTELNET.EXE
  384. DC$ %DSK%WTELNET.EX#    BIN\WTELNET.EXE >nul
  385. echo .... BOOTP.EX#    -- BOOTP.EXE
  386. DC$ %DSK%BOOTP.EX#    BIN\BOOTP.EXE >nul
  387. echo .... RCOPY.EX#    -- RCOPY.EXE
  388. DC$ %DSK%RCOPY.EX#    BIN\RCOPY.EXE >nul
  389. echo .... RCP.EX#    -- RCP.EXE
  390. DC$ %DSK%RCP.EX#    BIN\RCP.EXE >nul
  391. echo .... MAIL.EX#    -- MAIL.EXE
  392. DC$ %DSK%MAIL.EX#    BIN\MAIL.EXE >nul
  393. echo .... POPGET.EX#    -- POPGET.EXE
  394. DC$ %DSK%POPGET.EX#    BIN\POPGET.EXE >nul
  395. echo .... ROUTED.EX#    -- ROUTED.EXE
  396. DC$ %DSK%ROUTED.EX#    BIN\ROUTED.EXE >nul
  397. echo .... LPDDOWN.EX#    -- LPDDOWN.EXE
  398. DC$ %DSK%LPDDOWN.EX#    BIN\LPDDOWN.EXE >nul
  399. echo .... SLIP.EX#    -- SLIP.EXE
  400. DC$ %DSK%SLIP.EX#    BIN\SLIP.EXE >nul
  401. echo .... IFCONFIG.EX#    -- IFCONFIG.EXE
  402. DC$ %DSK%IFCONFIG.EX#    BIN\IFCONFIG.EXE >nul
  403. echo .... NETSTAT.EX#    -- NETSTAT.EXE
  404. DC$ %DSK%NETSTAT.EX#    BIN\NETSTAT.EXE >nul
  405. echo .... TFTP.EX#    -- TFTP.EXE
  406. DC$ %DSK%TFTP.EX#    BIN\TFTP.EXE >nul
  407. echo .... TN3270.EX#    -- TN3270.EXE
  408. DC$ %DSK%TN3270.EX#    BIN\TN3270.EXE >nul
  409. echo .... WPING.EX#    -- WPING.EXE
  410. DC$ %DSK%WPING.EX#    BIN\WPING.EXE >nul
  411. if not exist DOC\nul md DOC
  412. echo .... SLIP.DO#    -- SLIP.DOC
  413. DC$ %DSK%SLIP.DO#    DOC\SLIP.DOC >nul
  414. echo .... BOOTP.LS#    -- BOOTP.LST
  415. DC$ %DSK%BOOTP.LS#    HELP\BOOTP.LST >nul
  416. echo .... TFTP.LS#    -- TFTP.LST
  417. DC$ %DSK%TFTP.LS#    HELP\TFTP.LST >nul
  418. echo .... TFTP.DO#    -- TFTP.DOC
  419. DC$ %DSK%TFTP.DO#    DOC\TFTP.DOC >nul
  420. echo .... SLIPDIAL.EX#    -- SLIPDIAL.EXE
  421. DC$ %DSK%SLIPDIAL.EX#    BIN\SLIPDIAL.EXE >nul
  422. echo .... COMTCP.EX#    -- COMTCP.EXE
  423. DC$ %DSK%COMTCP.EX#    BIN\COMTCP.EXE >nul
  424. echo .... LPD.PI#    -- LPD.PIF
  425. DC$ %DSK%LPD.PI#    BIN\LPD.PIF >nul
  426. echo .... WMAIL.IN#    -- WMAIL.INI
  427. DC$ %DSK%WMAIL.IN#    ETC\WMAIL.INI >nul
  428. echo .... SMTP.DL#    -- SMTP.DLL
  429. DC$ %DSK%SMTP.DL#    BIN\SMTP.DLL >nul
  430. echo .... POP.DL#    -- POP.DLL
  431. DC$ %DSK%POP.DL#    BIN\POP.DLL >nul
  432. echo .... DECODE.EX#    -- DECODE.EXE
  433. DC$ %DSK%DECODE.EX#    BIN\DECODE.EXE >nul
  434. echo .... TCP437.FO#    -- TCP437.FON
  435. DC$ %DSK%TCP437.FO#    BIN\TCP437.FON >nul
  436. echo .... TCP850.FO#    -- TCP850.FON
  437. DC$ %DSK%TCP850.FO#    BIN\TCP850.FON >nul
  438. echo .... NEWPING.IC#    -- NEWPING.ICO
  439. DC$ %DSK%NEWPING.IC#    BIN\NEWPING.ICO >nul
  440. echo .... DOSTCP.SY#    -- DOSTCP.SYS
  441. DC$ %DSK%DOSTCP.SY#    BIN\DOSTCP.SYS >nul
  442. echo .... WTELNET.HL#    -- WTELNET.HLP
  443. DC$ %DSK%WTELNET.HL#    HELP\WTELNET.HLP >nul
  444. echo .... SETCLOCK.EX#    -- SETCLOCK.EXE
  445. DC$ %DSK%SETCLOCK.EX#    BIN\SETCLOCK.EXE >nul
  446. echo .... TCPABOUT.EX#    -- TCPABOUT.EXE
  447. DC$ %DSK%TCPABOUT.EX#    BIN\TCPABOUT.EXE >nul
  448. echo .... FTP.DO#    -- FTP.DOC
  449. DC$ %DSK%FTP.DO#    DOC\FTP.DOC >nul
  450. if not exist ETC\XLATE\nul md ETC\XLATE
  451. echo .... X437037.XL#    -- X437037.XLT
  452. DC$ %DSK%X437037.XL#    ETC\XLATE\X437037.XLT >nul
  453. echo .... X437273.XL#    -- X437273.XLT
  454. DC$ %DSK%X437273.XL#    ETC\XLATE\X437273.XLT >nul
  455. echo .... X437277.XL#    -- X437277.XLT
  456. DC$ %DSK%X437277.XL#    ETC\XLATE\X437277.XLT >nul
  457. echo .... X437278.XL#    -- X437278.XLT
  458. DC$ %DSK%X437278.XL#    ETC\XLATE\X437278.XLT >nul
  459. echo .... X437280.XL#    -- X437280.XLT
  460. DC$ %DSK%X437280.XL#    ETC\XLATE\X437280.XLT >nul
  461. echo .... X437281.XL#    -- X437281.XLT
  462. DC$ %DSK%X437281.XL#    ETC\XLATE\X437281.XLT >nul
  463. echo .... X437284.XL#    -- X437284.XLT
  464. DC$ %DSK%X437284.XL#    ETC\XLATE\X437284.XLT >nul
  465. echo .... X437285.XL#    -- X437285.XLT
  466. DC$ %DSK%X437285.XL#    ETC\XLATE\X437285.XLT >nul
  467. echo .... X437297.XL#    -- X437297.XLT
  468. DC$ %DSK%X437297.XL#    ETC\XLATE\X437297.XLT >nul
  469. echo .... X437500.XL#    -- X437500.XLT
  470. DC$ %DSK%X437500.XL#    ETC\XLATE\X437500.XLT >nul
  471. echo .... LPRRDSET.EX#    -- LPRRDSET.EXE
  472. DC$ %DSK%LPRRDSET.EX#    BIN\LPRRDSET.EXE >nul
  473. echo .... SETTERM.EX#    -- SETTERM.EXE
  474. DC$ %DSK%SETTERM.EX#    BIN\SETTERM.EXE >nul
  475.  
  476. ERASE DC$.EXE>nul
  477.  
  478. echo.
  479. echo.
  480. cls
  481. echo.
  482. echo The Corrective Service has been installed correctly...
  483. echo.
  484. if not exist DOC\%CSDTYPE%CSD.DOC goto nocsddoc
  485. echo Please look at the file DOC\%CSDTYPE%CSD.DOC to see what has been
  486. echo fixed in this CSD.
  487. echo You should also examine DOC\SLIP.DOC, DOC\TFTP.DOC, and DOC\FTP.DOC
  488. echo for changes since the manuals were printed.
  489. :nocsddoc
  490. echo.
  491. echo.
  492.  
  493. :installed
  494. %DSK%TCPSETV %CSDNO%
  495. call POPD$
  496. ERASE %TCPBASE%\POPD$.BAT>nul
  497. echo CSD %CSDNO% is installed.
  498.  
  499. :QUIT
  500. SET DSK=
  501. SET D=
  502.