home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
t
/
tcpv21c2.zip
/
TCPV21C2.EXE
/
TCPCSD.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-02-19
|
10KB
|
331 lines
@echo off
rem
rem Licensed Materials - Property of IBM
rem
rem (C) Copyright IBM Corp. 1991,1993. All rights reserved.
rem US Government Users Restricted Rights - Use, duplication or
rem disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
rem
rem
rem Written by: William T. Nelson
rem IBM Corporation
rem March 23, 1991
rem
rem Updated by: Lee Cole
rem IBM Corporation
rem Feb. 15, 1993
rem
set DSK=%1
if %1.==. SET DSK=A:\
if not exist %DSK%lpt1 goto slash
goto noslash
:slash
SET DSK=%DSK%\
if not exist %DSK%lpt1 goto help
:MOUNT
if not exist %DSK%CUSTOM.EX# goto REQUEST
goto CONTINUE
:REQUEST
echo Please INSERT BASE CSD DISKETTE 1
pause
goto MOUNT
:noslash
if not exist %DSK%CUSTOM.EX# goto REQUEST
if exist %DSK%ASK.EXE goto CONTINUE
:help
cls
echo.
echo IBM TCP/IP for DOS Version 2.1
echo Corrective Service Diskette (6)
echo Feburary 15, 1993
echo.
echo.
echo If you are running this program from anything other than diskette
echo drive A, you must enter:
echo.
echo %0 [drive letter][\path]
echo.
echo to override diskette drive A (i.e. %0 B).
echo.
echo.
echo The drive:\path %DSK% is invalid. Correct and try again.
goto QUIT
SET D=B
if "%D%"=="" goto QUIT
if EXIST %DSK%ASK.EXE SET D=
if "%D%"=="B" goto QUIT
:CONTINUE
%DSK%TCPCHKV BASE 2.1.0.1
if errorlevel 1 goto CHKBASE
echo.
echo.
echo.
echo.
echo This CSD has already been installed. If you install it again
echo you may backlevel your system.
echo Do you want the Corrective Service to be applied again? (Y, N or Q):
%DSK%ask Yy Nn Qq
if ERRORLEVEL 3 goto QUIT
if ERRORLEVEL 2 goto QUIT
:CHKBASE
if %tcpbase%.==. set tcpbase=%ETC%\..
echo.
echo.
echo.
echo.
echo Your TCPBASE environment variable is set to: %TCPBASE%
echo.
echo Do you want the Corrective Service to be applied to the TCP/IP for DOS
echo installed at %TCPBASE% (Y, N or Q):
%DSK%ask Yy Nn Qq
if ERRORLEVEL 3 goto QUIT
if ERRORLEVEL 2 goto BADBASE
if ERRORLEVEL 1 goto CHKDECOMP
echo.
echo.
echo ERROR: Your entry must be Y(es), N(o) or Q(uit)
echo.
goto CHKBASE
:BADBASE
echo.
echo.
echo The environment variable TCPBASE must be set inorder for this CSD to
echo install correctly. TCPBASE points to the base directory for the
echo TCP/IP for DOS product. Please set this variable by entering:
echo.
echo SET TCPBASE=[base directory]
echo.
echo For example:
echo.
echo SET TCPBASE=C:\TCPDOS
echo.
goto QUIT
:CHKDECOMP
IF EXIST %TCPBASE%\BIN\DECOMP.EXE goto DOCSDSECT
echo.
echo.
echo ERROR:
echo.
echo You must have installed the IBM TCP/IP for DOS Product in the directory
echo indicated by the environment variable TCPBASE. This BIN subdirectory
echo should contain the file DECOMP.EXE. If you have deleted this file, you
echo must reinstall the TCP/IP for DOS before this CSD can be applied.
echo.
goto QUIT
:DOCSDSECT
cls
:DOCSD
echo.
echo.
echo This CSD replaces several files within the %TCPBASE%\BIN and
echo %TCPBASE%\ETC directories. If you wish, a backup copy of each
echo original file will be saved under under a different name. The backup
echo file will be created by changing the last character in each file type
echo to an "@" (i.e. TELNET.EXE will be saved as TELNET.EX@).
echo.
echo Please note that only one backup of each file will be saved and if
echo you have any backup copies that you wish to retain, you must back these
echo files up by hand.
echo.
echo WARNING: To perform this backup, you must have at lease 1.7MB free
echo (1,700,000 bytes) on the disk drive that contains %TCPBASE%.
echo There is no error checking to verify if you have enough free
echo disk space so, YOU MUST ASSURE THAT YOU HAVE ENOUGH ROOM TO
echo BACKUP THE FILES.
echo.
echo Do you want the previous versions to be saved (Y, N or Q):
%DSK%PUSHD %TCPBASE%
if errorlevel 1 goto QUIT
%DSK%ask Yy Nn Qq
if ERRORLEVEL 3 goto QUIT
if ERRORLEVEL 2 goto REALLYDOCSD
if ERRORLEVEL 1 goto COPYFILES
echo.
echo.
echo ERROR: Your entry must be Y(es), N(o) or Q(uit)
echo.
goto DOCSD
:COPYFILES
cls
echo.
echo.
echo PLEASE WAIT WHILE THE ORIGINAL FILES ARE BEING BACKED UP....
echo.
echo.
COPY %ETC%\..\BIN\COMPRESS.EXE CP$.EXE>nul
echo .... CUSTOM.EXE -- CUSTOM.EX@
if exist BIN\CUSTOM.EXE CP$ BIN\CUSTOM.EXE BIN\CUSTOM.EX@ >nul
echo .... FTPD.EXE -- FTPD.EX@
if exist BIN\FTPD.EXE CP$ BIN\FTPD.EXE BIN\FTPD.EX@ >nul
echo .... INET.EXE -- INET.EX@
if exist BIN\INET.EXE CP$ BIN\INET.EXE BIN\INET.EX@ >nul
echo .... INET.SYM -- INET.SM@
if exist BIN\INET.SYM CP$ BIN\INET.SYM BIN\INET.SY@ >nul
echo .... LPD.EXE -- LPD.EX@
if exist BIN\LPD.EXE CP$ BIN\LPD.EXE BIN\LPD.EX@ >nul
echo .... LPDDOWN.EXE -- LPDDOWN.EX@
if exist BIN\LPDDOWN.EXE CP$ BIN\LPDDOWN.EXE BIN\LPDDOWN.EX@ >nul
echo .... LPRRD.EXE -- LPRRD.EX@
if exist BIN\LPRRD.EXE CP$ BIN\LPRRD.EXE BIN\LPRRD.EX@ >nul
:echo .... SLIP.EXE -- SLIP.EX@
:if exist BIN\SLIP.EXE CP$ BIN\SLIP.EXE BIN\SLIP.EX@ >nul
echo .... WFTP.EXE -- WFTP.EX@
if exist BIN\WFTP.EXE CP$ BIN\WFTP.EXE BIN\WFTP.EX@ >nul
echo .... WLPR.EXE -- WLPR.EX@
if exist BIN\WLPR.EXE CP$ BIN\WLPR.EXE BIN\WLPR.EX@ >nul
echo .... WMAIL.EXE -- WMAIL.EX@
if exist BIN\WMAIL.EXE CP$ BIN\WMAIL.EXE BIN\WMAIL.EX@ >nul
echo .... WFTPAPI.DLL -- WFTPAPI.DL@
if exist BIN\WFTPAPI.DLL CP$ BIN\WFTPAPI.DLL BIN\WFTPAPI.DL@ >nul
echo .... WINSOCK.DLL -- WINSOCK.DL@
if exist BIN\WINSOCK.DLL CP$ BIN\WINSOCK.DLL BIN\WINSOCK.DL@ >nul
echo .... ETC\MAPS\INET.MAP -- ETC\MAPS\INET.MA@
if exist ETC\MAPS\INET.MAP CP$ ETC\MAPS\INET.MAP ETC\MAPS\INET.MA@ >nul
echo .... ETC\MAPS\LPRRD.MAP -- ETC\MAPS\LPRRD.MA@
if exist ETC\MAPS\LPRRD.MAP CP$ ETC\MAPS\LPRRD.MAP ETC\MAPS\LPRRD.MA@ >nul
echo .... FTP.EXE -- FTP.EX@
if exist BIN\FTP.EXE CP$ BIN\FTP.EXE BIN\FTP.EX@ >nul
echo .... FTPP.EXE -- FTPP.EX@
if exist BIN\FTPP.EXE CP$ BIN\FTPP.EXE BIN\FTPP.EX@ >nul
echo .... LPR.EXE -- LPR.EX@
if exist BIN\LPR.EXE CP$ BIN\LPR.EXE BIN\LPR.EX@ >nul
echo .... ROUTE.EXE -- ROUTE.EX@
if exist BIN\ROUTE.EXE CP$ BIN\ROUTE.EXE BIN\ROUTE.EX@ >nul
echo .... TELNET.EXE -- TELNET.EX@
if exist BIN\TELNET.EXE CP$ BIN\TELNET.EXE BIN\TELNET.EX@ >nul
echo .... TELNET.PIF -- TELNET.PI@
if exist BIN\TELNET.PIF CP$ BIN\TELNET.PIF BIN\TELNET.PI@ >nul
echo .... WTELNET.EXE -- WTELNET.EX@
if exist BIN\WTELNET.EXE CP$ BIN\WTELNET.EXE BIN\WTELNET.EX@ >nul
echo .... READ.ME -- READ.ME@
if exist DOC\READ.ME CP$ DOC\READ.ME DOC\READ.ME@ >nul
ERASE CP$.EXE>nul
:REALLYDOCSD
cls
echo.
echo.
echo PLEASE WAIT WHILE THE CSD IS BEING APPLIED....
echo.
echo.
@echo off
COPY %ETC%\..\BIN\DECOMP.EXE DC$.EXE>nul
echo ....BASECSD.DOC
if exist %DSK%BASECSD.DOC COPY %DSK%BASECSD.DOC DOC\BASECSD.DOC >nul
echo ....TCPLEVEL.EXE
DC$ %DSK%TCPLEVEL.EX# BIN\TCPLEVEL.EXE
echo ....TCPCHKV.EXE
COPY %DSK%TCPCHKV.EXE BIN\TCPCHKV.EXE >nul
echo .... CUSTOM.EX# -- CUSTOM.EXE
DC$ %DSK%CUSTOM.EX# BIN\CUSTOM.EXE >nul
echo .... FTPD.EX# -- FTPD.EXE
DC$ %DSK%FTPD.EX# BIN\FTPD.EXE >nul
echo .... INET.EX# -- INET.EXE
DC$ %DSK%INET.EX# BIN\INET.EXE >nul
echo .... INET.SY# -- INET.SYM
DC$ %DSK%INET.SY# BIN\INET.SYM >nul
echo .... LPD.EX# -- LPD.EXE
DC$ %DSK%LPD.EX# BIN\LPD.EXE >nul
echo .... LPDDOWN.EX# -- LPDDOWN.EXE
DC$ %DSK%LPDDOWN.EX# BIN\LPDDOWN.EXE >nul
echo .... LPRRD.EX# -- LPRRD.EXE
DC$ %DSK%LPRRD.EX# BIN\LPRRD.EXE >nul
echo .... SLIP.EX# -- SLIP.EXE
DC$ %DSK%SLIP.EX# BIN\SLIP.EXE >nul
echo .... ETC\MAPS\INET.MA# -- ETC\MAPS\INET.MAP
DC$ %DSK%INET.MA# ETC\MAPS\INET.MAP >nul
echo .... ETC\MAPS\LPRRD.MA# -- ETC\MAPS\LPRRD.MAP
DC$ %DSK%LPRRD.MA# ETC\MAPS\LPRRD.MAP >nul
echo .... FTP.EX# -- FTP.EXE
DC$ %DSK%FTP.EX# BIN\FTP.EXE >nul
echo .... FTPP.EX# -- FTPP.EXE
DC$ %DSK%FTPP.EX# BIN\FTPP.EXE >nul
echo .... LPR.EX# -- LPR.EXE
DC$ %DSK%LPR.EX# BIN\LPR.EXE >nul
echo .... ROUTE.EX# -- ROUTE.EXE
DC$ %DSK%ROUTE.EX# BIN\ROUTE.EXE >nul
echo .... TELNET.EX# -- TELNET.EXE
DC$ %DSK%TELNET.EX# BIN\TELNET.EXE >nul
echo .... TELNET.PI# -- TELNET.PIF
DC$ %DSK%TELNET.PI# BIN\TELNET.PIF >nul
echo .... READ.ME# -- READ.ME
DC$ %DSK%READ.ME# DOC\READ.ME >nul
:REPEAT
@echo off
echo.
echo.
echo.
echo Please insert TCPCSD Diskette 2.
pause
echo.
@echo off
if not exist %DSK%BOOTP.EX# goto REPEAT
echo .... BOOTP.EX# -- BOOTP.EXE
DC$ %DSK%BOOTP.EX# BIN\BOOTP.EXE >nul
echo .... WFTP.EX# -- WFTP.EXE
DC$ %DSK%WFTP.EX# BIN\WFTP.EXE >nul
echo .... WLPR.EX# -- WLPR.EXE
DC$ %DSK%WLPR.EX# BIN\WLPR.EXE >nul
echo .... WMAIL.EX# -- WMAIL.EXE
DC$ %DSK%WMAIL.EX# BIN\WMAIL.EXE >nul
echo .... WTELNET.EX# -- WTELNET.EXE
DC$ %DSK%WTELNET.EX# BIN\WTELNET.EXE >nul
echo .... WFTPAPI.DL# -- WFTPAPI.DLL
DC$ %DSK%WFTPAPI.DL# BIN\WFTPAPI.DLL >nul
echo .... WINSOCK.DL# -- WINSOCK.DLL
DC$ %DSK%WINSOCK.DL# BIN\WINSOCK.DLL >nul
echo ....TCPSETV.EXE
COPY %DSK%TCPSETV.EXE BIN\TCPSETV.EXE >nul
ERASE DC$.EXE>nul
echo.
echo.
cls
echo.
echo The Corrective Service has been installed correctly...
echo.
if not exist DOC\TCPCSD.DOC goto nodoc
echo Please look at the file DOC\TCPCSD.DOC to see what has been
echo fixed in this CSD.
:nodoc
echo.
echo.
%DSK%TCPSETV BASE 2.1.0.1
call POPD$
ERASE %TCPBASE%\POPD$.BAT>nul
:installed
echo CSD BASE 2.1.0.1 is installed.
:QUIT
SET DSK=
SET D=