home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Aktief 1995 #3 / CDA3.iso / os2 / os2c_102.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1995-04-29  |  4KB  |  198 lines
  1. /*  Installation of OS/2-Commander v1.02  */
  2.  
  3. '@Echo Off'
  4.  
  5. /* REXXUTIL laden */
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10.  
  11. /* Initialisieren */
  12.  
  13. Signal On Failure Name FAILURE
  14. Signal On Halt Name HALT
  15. Signal On Syntax Name SYNTAX
  16.  
  17. Call SysCls
  18. Say '   Installation of OS/2-Commander v1.02...'
  19. Say ''
  20.  
  21.  
  22. /* Which language */
  23.  
  24. Say 'Install (E)nglish or (G)erman language version?'
  25. Pull YesNo
  26. If YesNo = "G" Then
  27.    Do
  28.      Language = 'DEUTSCH'
  29.    End
  30. Else
  31.    Do
  32.      Language = 'OS2COM'
  33.    End
  34. Say ''
  35.  
  36. If Language = 'DEUTSCH' Then
  37.   Do
  38.     Say 'Möchten Sie ein Icon auf dem Desktop erstellen? (J/N)'
  39.   End
  40. Else
  41.   Do
  42.     Say 'Do you wish to create an icon on the desktop? (Y/N)'
  43.   End
  44.  
  45. Pull YesNo
  46. If YesNo = "Y" Then
  47.   Do
  48.     Icon = 1
  49.     Say 'Object will be placed on the desktop.'
  50.   End
  51. Else If YesNo = "J" Then
  52.   Do
  53.     Icon = 1
  54.     Say 'Das Icon wird auf dem Desktop erstellt.'
  55.   End
  56. Else
  57.   Do
  58.     Icon = 0
  59.   End
  60. Say ''
  61.  
  62.  
  63. /* Check for the files */
  64.  
  65. Result = SysFileTree( 'OS2COM.EXE', 'Files', 'F' )
  66. If Files.0 = 0 Then
  67.   Do
  68.   Say 'Error: OS2COM.EXE not found!'
  69.   Signal DONE
  70.   End
  71.  
  72. Result = SysFileTree( Language".MSG", 'Files', 'F' )
  73. If Files.0 = 0 Then
  74.   Do
  75.   Say 'Error: 'Language'.MSG not found!'
  76.   Signal DONE
  77.   End
  78.  
  79. Result = SysFileTree( Language".INI", 'Files', 'F' )
  80. If Files.0 = 0 Then
  81.   Do
  82.   Say 'Error: 'Language'.INI not found!'
  83.   Signal DONE
  84.   End
  85.  
  86. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  87. If Files.0 = 0 Then
  88.   Do
  89.   Say 'Error: 'Language'.HLP not found!'
  90.   Signal DONE
  91.   End
  92.  
  93. /* Get target directory */
  94.  
  95. If Language = 'DEUTSCH' Then
  96.   Do
  97.     Say 'Bitte geben Sie den vollen Verzeichnisnamen ein, wohin der'
  98.     Say '  OS/2-Commander installiert werden soll (Standard: C:\OS2COM): '
  99.   End
  100. Else
  101.   Do
  102.     Say 'Please enter the full name of the directory to which you want'
  103.     Say '  to install The OS/2-Commander (default C:\OS2COM): '
  104.   End
  105.  
  106. Pull Directory
  107. If Directory = "" Then Directory = 'C:\OS2COM'
  108. Say ''
  109.  
  110. /* Create the target directory if necessary. */
  111.  
  112. Result = SysFileTree( Directory, 'Dirs', 'D' )
  113. If Dirs.0 = 0 Then
  114.   Do
  115.   Result = SysMkDir( Directory )
  116.   if Result == 0 Then
  117.     Do
  118.     End
  119.   Else
  120.     Do
  121.     Say 'FEHLER: Kann das Zielverzeichnis nicht anlegen.'
  122.     Say 'ERROR: Unable to create target directory.'
  123.     Signal DONE
  124.     End
  125.   End
  126. Say '';
  127.  
  128.  
  129. /* Do the installation */
  130.  
  131. Say 'Installing The OS/2-Commander to ' Directory '...'
  132. Copy OS2Com.EXE Directory           '1>NUL'
  133. Copy Language".MSG" Directory"\OS2Com.MSG" '1>NUL'
  134. Copy Language".HLP" Directory"\OS2Com.HLP" '1>NUL'
  135. Copy Language".INI" Directory"\OS2Com.INI" '1>NUL'
  136. Copy Language".INF" Directory              '1>NUL'
  137.  
  138. Copy "OS2Com.MNU" Directory"\OS2Com.MNU" '1>NUL'
  139. Copy "support.bbs" Directory"\support.bbs" '1>NUL'
  140. Copy "register.*" Directory"\register.*" '1>NUL'
  141. Copy "wcd.txt" Directory                 '1>NUL'
  142.  
  143. Result = SysFileTree( "OS2C.CMD", 'Files', 'F' )
  144. If Files.0 > 0 Then
  145.   Do
  146.    Copy "OS2C.CMD" Directory"\OS2C.CMD"    '1>NUL'
  147.   End
  148.  
  149. Result = SysFileTree( "OS2COM.ICO", 'Files', 'F' )
  150. If Files.0 > 0 Then
  151.   Do
  152.    Copy "OS2COM.ICO" Directory"\OS2COM.ICO"  '1>NUL'
  153.   End
  154.  
  155.  
  156. If Icon = 1 Then
  157.   Do
  158.    Say 'creating icon...'
  159.    Folder = '<WP_DESKTOP>'
  160.    Type = 'WPProgram'
  161.    Title = 'OS/2-Commander'
  162.    Parms = 'MINWIN=DESKTOP;PROGTYPE=WP;EXENAME='Directory'\OS2Com.EXE;STARTUPDIR='Directory';OBJECTID=<OS/2-Commander>;NOPRINT=YES;'
  163.    Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  164.  
  165.    If Result = 1 Then
  166.      Say 'Icon created!  Done.'
  167.    Else
  168.      Say 'Error: Icon not created!'
  169.   End
  170.  
  171. Say ''
  172.  
  173. If Language = 'DEUTSCH' Then
  174.   Do
  175.     Say 'Sie können das Handbuch mit VIEW DEUTSCH.INF lesen.'
  176.   End
  177. Else
  178.   Do
  179.     Say 'You can read the manual with VIEW OS2COM.INF.'
  180.   End
  181.  
  182. Signal DONE
  183.  
  184. FAILURE:
  185. Say 'REXX failure.'
  186. Signal DONE
  187.  
  188. HALT:
  189. Say 'REXX halt.'
  190. Signal DONE
  191.  
  192. SYNTAX:
  193. Say 'REXX syntax error.'
  194. Signal DONE
  195.  
  196. DONE:
  197. Exit
  198.