home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 6 File / 06-File.zip / pmc_13a.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1997-07-31  |  4KB  |  159 lines
  1. /* Installation Script for PM Checksum */
  2. SIGNAL ON ERROR NAME Fehler
  3.  
  4. SAY " "
  5.  
  6. /* REXXUTIL laden */
  7. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  8. CALL sysloadfuncs
  9.  
  10. call SysCls
  11.  
  12. say "Please choose your language.       Bitte wählen Sie eine Sprache."
  13. say "----------------------------       ------------------------------"
  14. say " "
  15. say "        E = English                          D = Deutsch"
  16.  
  17. language=""
  18. do while \ ((language="D") | (language="E"))
  19.   pull language
  20. end
  21.  
  22. call SysCls
  23.  
  24. dest="C:\CHECKSUM"
  25.  
  26. if language="E" then
  27. do
  28.   say "Welcome to PM Checksum installation."
  29.   say " "
  30.   say "Please enter the destination directory (default: " dest ") "
  31. end
  32. else
  33. do
  34.   say "Willkommen bei der Installation von PM Checksum."
  35.   say " "
  36.   say "Bitte geben Sie das Zielverzeichnis ein (Standard: " dest ") "
  37. end
  38.  
  39. pull dest
  40. if dest="" then dest="C:\CHECKSUM"
  41.  
  42. say " "
  43.  
  44. if language="E" then
  45. do
  46.   say "PM Checksum will be installed in " dest
  47. end
  48. else
  49. do
  50.   say "PM Checksum wird in " dest " installiert"
  51. end
  52.  
  53. say " "
  54.  
  55. interpret '"unrar.exe t -y checksum.rar >nul"'
  56. if \rc=0 then signal broken
  57.  
  58. call SysMkDir dest
  59. call SysFileDelete dest"\checksum.exe"
  60. call SysFileDelete dest"\checksum.inf"
  61. call SysFileDelete dest"\checksum.hlp"
  62.  
  63. if language="E" then
  64. do
  65.   interpret '"unrar.exe x -o+ -y checksum.rar check_e.* "dest ">nul"'
  66.   interpret '"ren " dest"\check_e.exe checksum.exe >nul"'
  67.   interpret '"ren " dest"\check_e.inf checksum.inf >nul"'
  68.   interpret '"ren " dest"\check_e.hlp checksum.hlp >nul"'
  69. end
  70. else
  71. do
  72.   interpret '"unrar.exe x -o+ -y checksum.rar check_d.* " dest ">nul"'
  73.   interpret '"ren " dest"\check_d.exe checksum.exe >nul"'
  74.   interpret '"ren " dest"\check_d.inf checksum.inf >nul"'
  75.   interpret '"ren " dest"\check_d.hlp checksum.hlp >nul"'
  76. end
  77.  
  78. interpret '"unrar.exe x -o+ -y checksum.rar md5.dll " dest ">nul"'
  79. interpret '"unrar.exe x -o+ -y checksum.rar chklist.exe " dest ">nul"'
  80. interpret '"unrar.exe x -o+ -y checksum.rar *.prf " dest ">nul"'
  81.  
  82. call SysFileTree "CHECKSUM.EXP","dateiliste","OF","*****"
  83. if dateiliste.0=1 then interpret '"copy checksum.exp " dest ">nul"'
  84.  
  85. /* Den Ordner anlegen */
  86. klasse='WPFolder'
  87. titel='PM Checksum'
  88. ort='<WP_DESKTOP>'
  89. param='OBJECTID=<PMC_ORDNER>;'
  90. mode='fail'
  91. rc = SysCreateObject(klasse,titel,ort,param,mode)
  92.  
  93. /* Das Programmobjekt anlegen */
  94. klasse='WPProgram'
  95. titel='PM Checksum'
  96. ort='<PMC_ORDNER>'
  97. param='PROGTYPE=PM;EXENAME='dest'\CHECKSUM.EXE;STARTUPDIR='dest';ASSOCFILTER=*.PRF'
  98. mode='fail'
  99. rc = SysCreateObject(klasse,titel,ort,param,mode)
  100.  
  101. /* Das Hilfeobjekt anlegen */
  102. klasse='WPProgram'
  103. titel='PM Checksum Information'
  104. ort='<PMC_ORDNER>'
  105. param='PROGTYPE=PM;NOPRINT=YES;HELPPANEL=4083;EXENAME=VIEW.EXE;NOPRINT=YES;STARTUPDIR='dest';PARAMETERS='dest'\CHECKSUM.INF;'
  106. mode='fail'
  107. rc = SysCreateObject(klasse,titel,ort,param,mode)
  108.  
  109. klasse='WPDataFile'
  110. param=''
  111.  
  112. /* Referenzen für die Profildateien erzeugen */
  113. call SysFileTree dest"\*.PRF","dateiliste","OF","*****"
  114. do i=1 to dateiliste.0
  115.   rc=SysCreateObject(klasse,dateiliste.i,ort,param,mode)
  116. end
  117.  
  118. if language="E" then
  119. do
  120.   say " "
  121.   say "PM Checksumm successfully installed!"
  122. end
  123. else
  124. do
  125.   say " "
  126.   say "PM Checksum wurde erfolgreich installiert!"
  127. end
  128.  
  129. exit
  130.  
  131. Fehler:
  132. say " "
  133. if language="E" then
  134. do
  135.   say "An error occured during install. Please try again."
  136. end
  137. else
  138. do
  139.   say "Bei der Installation ist ein Fehler aufgetreten."
  140.   say "Bitte versuchen Sie es nochmal."
  141. end
  142.  
  143. exit
  144.  
  145. broken:
  146. say " "
  147. if language="E" then
  148. do
  149.   say "The archive is broken. Please download again."
  150. end
  151. else
  152. do
  153.   say "Das Installationsarchiv ist leider beschädigt."
  154.   say "Bitte besorgen Sie sich eine intakte Version."
  155. end
  156.  
  157. exit
  158.  
  159.