home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / dbase / fwkcs120.zip / REPLACE.BAT < prev    next >
DOS Batch File  |  1993-05-28  |  7KB  |  192 lines
  1. @echo off
  2. cls
  3. if not .%2 == . goto az
  4. echo -
  5. echo -            Your use of this software is at solely your own risk.
  6. echo -            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  7. echo -
  8. echo - This software is intended for use under DOS 3.30 or later, or in a suitable
  9. echo - DOS session under a multitasking system (including IBM OS/2 2.0 or later).
  10. echo -
  11. echo -       If you encounter any system conflicts when using this software,
  12. echo -       please check your system configuration (and DOS session settings).
  13. echo -
  14. echo -       If the problem remains, please advise the author at
  15. echo -
  16. echo -
  17. echo -                             Fred Kantor
  18. echo -                             523 West 112 Street
  19. echo -                             New York, NY 10025
  20. echo -
  21. echo -
  22. echo - Note: The Client/Host configuration, Split Testing, and the automatic
  23. echo -       text interpretation functions, are reserved for registered FWKCS(TM).
  24. echo -       (see REGISTER.FRM)
  25. echo -
  26. pause
  27. cls
  28. :az
  29. echo - Part of FWKCS(TM) Contents_Signature System, Version 1.20.
  30. echo - (C)Copyright Frederick W. Kantor 1989-1993. All rights reserved.
  31. echo -
  32. echo - Your use of the FWKCS(TM) Contents_Signature System is at solely your own
  33. echo - risk. For safety, please have proper backups of your files.
  34. echo -
  35. echo - REPLACE.BAT to replace a working FWKCS(TM) system, Ver. 1.12 or later;
  36. echo -    for use in same directory with FWKCS120.ZIP, FWKCS.120, and FWKCS_TM.120.
  37. echo - To proceed, have QBASIC, GWBASIC, BASICA, or BASIC available on your path, as
  38. echo -      appropriate for your operating system;
  39. echo -    Phil Katz's PKUNZIP(R), Version 2.04g or later;
  40. echo -  have a working copy of FWKCS in \CSA, containing your macros, paths, etc..
  41. echo -      (If you are installing FWKCS(TM) for the first time, use INSTALL.BAT.)
  42. echo -                                                               ~~~~~~~~~~~
  43. echo -  Usage:   REPLACE d D N C "<enter>"
  44. echo -  where  d  without ":" is the drive for the \CS directory
  45. echo -         D  without ":" is the drive for the \CSA directory
  46. echo -         N = 0 get default settings from old \CSA\FWKCS, Ver. 1.12 or later.
  47. echo -             1 install default settings for Ver. 1.20 (including new options).
  48. echo -         C = 0 process uploads directly; 1 run as client under FWKCS host.
  49. if .%1 == ./* goto end
  50. if .%1 == . goto nd
  51. if .%2 == . goto nod2
  52. if .%3 == .0 goto aa
  53. if not .%3 == .1 goto bi
  54. :aa
  55. if .%4 == .0 goto ab
  56. if not .%4 == .1 goto bj
  57. :ab
  58. echo -
  59. echo -  Are these drives correct:  %1:\CS  and  %2:\CSA ?  If not, stop now!
  60. echo -  To quit, press Ctrl+C, then y                            ~~~~~~~~
  61. echo -
  62. pause
  63. if not exist fwkcs120.zip goto nv120
  64. attrib -r fwkcs120.zip > nul
  65. if exist 0_setup.bat del 0_setup.bat > nul
  66. if exist 0_setup.bat attrib -r 0_setup.bat > nul
  67. if exist 0_setup.bat del 0_setup.bat > nul
  68. pkunzip 0_setup.bat > nul
  69. if errorlevel 1 goto zex
  70. goto nz
  71. :zex
  72. if exist 2_setup.bat del 2_setup.bat > nul
  73. if exist 2_setup.bat attrib -r 2_setup.bat > nul
  74. if exist 2_setup.bat del 2_setup.bat > nul
  75. if exist s_setup.bat del s_setup.bat > nul
  76. if exist s_setup.bat attrib -r s_setup.bat > nul
  77. if exist s_setup.bat del s_setup.bat > nul
  78. if exist myowncsl.srt del myowncsl.srt > nul
  79. if exist myowncsl.srt attrib -r myowncsl.srt > nul
  80. if exist myowncsl.srt del myowncsl.srt > nul
  81. if exist #@!#@!$$.@!@ del #@!#@!$$.@!@ > nul
  82. if exist #@!#@!$$.@!@ attrib -r #@!#@!$$.@!@ > nul
  83. if exist #@!#@!$$.@!@ del #@!#@!$$.@!@ > nul
  84. if exist @@!#@!$$.@!@ del @@!#@!$$.@!@ > nul
  85. if exist @@!#@!$$.@!@ attrib -r @@!#@!$$.@!@ > nul
  86. if exist @@!#@!$$.@!@ del @@!#@!$$.@!@ > nul
  87. if exist @@!#@$!$.@!@ del @@!#@$!$.@!@ > nul
  88. if exist @@!#@$!$.@!@ attrib -r @@!#@$!$.@!@ > nul
  89. if exist @@!#@$!$.@!@ del @@!#@$!$.@!@ > nul
  90. cls
  91. if not exist fwkcstmp.120 goto n1
  92. if exist fwkhi.com del fwkhi.com > nul
  93. if exist fwkhi.com attrib -r fwkhi.com > nul
  94. if exist fwkhi.com del fwkhi.com > nul
  95. pkunzip -o fwkcstmp.120 fwkhi.com > nul
  96. if exist fwkhi.com goto n2
  97. :n1
  98. if not exist fwkcs.120 goto nd
  99. if not exist fwkcs_tm.120 goto cm
  100. ren fwkcs_tm.120 fwkcs_tm.com > nul
  101. fwkcs_tm < fwkcs.120 >fwkcstmp.120
  102. if errorlevel 1 goto fbad
  103. ren fwkcs_tm.com fwkcs_tm.120 > nul
  104. pkunzip -o fwkcstmp.120 fwkhi.com > nul
  105. if not exist fwkhi.com goto fbad
  106. :n2
  107. cls
  108. echo -
  109. echo -  Should I enter FWKCS120.ZIP's contents_signatures for future reference?
  110. echo -
  111. echo -  (Because of the way the files are packaged, this step is provided to make
  112. echo -  it much easier to capture their contents_signatures. Unless you have a
  113. echo -  good reason to not do so, it is suggested that you press 1 for YES.)
  114. echo -
  115. echo -    Press either 0 or 1 to answer:   0 = NO.  1 = YES.
  116. echo -
  117. :ask1
  118. fwkhi
  119. if errorlevel 2 goto ask1
  120. if not errorlevel 1 goto nocs
  121. if exist fwkcs120.zip ren fwkcs120.zip @@!#@!$$.@!@ > nul
  122. ren fwkcstmp.120 fwkcs120.zip > nul
  123. pkunzip -o fwkcs120.zip fwkcs.exe > nul
  124. fwkcs /1 fwkcs120.zip #@!#@!$$.@!@
  125. ren fwkcs120.zip fwkcstmp.120 > nul
  126. if exist @@!#@!$$.@!@ ren @@!#@!$$.@!@ fwkcs120.zip > nul
  127. if not exist fwkcs.exe pkunzip fwkcs120.zip fwkcs.exe > nul
  128. if exist fwkcs120.zip fwkcs /1 fwkcs120.zip >> #@!#@!$$.@!@
  129. fwkcs #@!#@!$$.@!@ /a7.8v",!" @@!#@$!$.@!@
  130. del #@!#@!$$.@!@ > nul
  131. fwkcs @@!#@$!$.@!@ /s
  132. fwkcs @@!#@$!$.@!@ nul myowncsl.srt /ms
  133. del @@!#@$!$.@!@ > nul
  134. del fwkcs.exe > nul
  135. :nocs
  136. pkunzip fwkcstmp.120 s_setup.bat > nul
  137. del fwkhi.com > nul
  138. echo replacing with FWKCS Version 1.20 > replm120.120
  139. s_setup %1 ! %2 %3 %4
  140. :nv120
  141. echo -
  142. echo -  REPLACE.BAT is for use in the same directory with all these
  143. echo -  files together:  FWKCS120.ZIP, FWKCS.120, and FWKCS_TM.120.
  144. goto clu
  145. :bi
  146. echo -
  147. echo -  I need N = 0 or 1 ; 0 to get your old defaults, 1 to install new defaults.
  148. goto helpr
  149. :bj
  150. echo -
  151. echo -  I need C = 0 or 1 ; 0 for direct processing of uploads at (each) node,
  152. echo -                      1 to set up node(s) as client(s) under FWKCS host.
  153. goto helpr
  154. :nz
  155. echo -
  156. echo -  Where is Phil Katz's PKUNZIP(R)?
  157. echo -
  158. echo -  Please check your path and mapping...
  159. echo -
  160. echo -  After you correct this problem,
  161. goto helpr
  162. :fbad
  163. del fwkcstmp.120 > nul
  164. ren fwkcs_tm.com fwkcs_tm.120 > nul
  165. echo -
  166. echo -  FWKCS.120 or FWKCS_TM.120 appears defective or incompatible.
  167. echo -
  168. echo -  Execution aborted.
  169. :clu
  170. echo -
  171. echo -  Please clean up, and try again. See README.TXT.
  172. goto end
  173. :cm
  174. echo -
  175. echo -  I need FWKCS_TM.120.
  176. echo -
  177. echo -        I quit!
  178. goto end
  179. :nod2
  180. echo -
  181. echo -   I need two drive entries (they can both have the same letter).
  182. :helpr
  183. echo -
  184. echo -   Please try again...
  185. goto end
  186. :nd
  187. echo -
  188. echo -    Nothing to do!
  189. :end
  190. if exist fwkhi.com del fwkhi.com > nul
  191. echo -
  192.