home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / acmg_016.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  2000-08-20  |  4KB  |  145 lines
  1. /* Install.cmd: Script to install Account Manager      */
  2. /*                                                     */
  3. /*      Mario Sebastiani -*- pippo_2@libero.it         */
  4. /*                                                     */
  5. /* Last update: 20 Aug 2000                            */
  6.  
  7. /* Load REXXUTIL */
  8. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  9. call sysloadfuncs
  10.  
  11. '@ECHO OFF'
  12. CurDir = directory()
  13.  
  14.  
  15. cls
  16.  
  17. say "Choose your language - Scegli la lingua"
  18. say " "
  19. say "Press (E) to select English"
  20. say "Premi (I) per selezionare l'Italiano"
  21. say " "
  22. say "Press (X) to exit - Premere (X) per uscire"
  23. parse upper pull Risposta
  24.  
  25.  
  26. if Risposta = "X" then exit 0
  27. if Risposta = "I" then lang="-ita" else lang="-eng"
  28.  
  29. /* if already exist, delete */
  30. call SysDestroyObject '<ACCMGR_FOLDER>'
  31. call SysDestroyObject '<ACCMGR_PROG>'
  32. call SysDestroyObject '<ACCMGR_README>'
  33. call SysDestroyObject '<ACCMGR_MANUAL>'
  34.  
  35.  
  36. classname='WPFolder'
  37. title='Account Manager'
  38. location='<WP_DESKTOP>'
  39. setup='OBJECTID=<ACCMGR_FOLDER>;ALWAYSSORT=YES;ICONFILE='||CurDir||'\folder1.ico;ICONNFILE=1,'||CurDir||'\folder2.ico'
  40. Call BldObj
  41.  
  42.  
  43. classname='WPProgram'
  44. title='Account Manager'
  45. location='<ACCMGR_FOLDER>'
  46. if Risposta = "I" then
  47. setup='PROGTYPE=PM;EXENAME='||CurDir||'\accmgr.exe;PARAMETERS=-ita;OBJECTID=<ACCMGR_PROG>;ICONFILE='||CurDir||'\am.ico'
  48. else
  49. setup='PROGTYPE=PM;EXENAME='||CurDir||'\accmgr.exe;PARAMETERS=-eng;OBJECTID=<ACCMGR_PROG>;ICONFILE='||CurDir||'\am.ico'
  50. Call BldObj
  51. say ''
  52. if Risposta = "I" then say "E' normale che qui sopra ci siano due righe uguali"
  53. else say "It's OK that above there are 2 identical row"
  54. say ''
  55.  
  56. if Risposta = "I" then 
  57. do 
  58.   classname='WPProgram'
  59.   title='Leggimi'
  60.   location='<ACCMGR_FOLDER>'
  61.   setup='TYPE=PM;EXENAME=E.EXE;PARAMETERS='||CurDir||'\leggimi.txt;OBJECTID = <ACCMGR_README>'
  62.   Call BldObj
  63. end /* do */   
  64. else
  65. do
  66.   classname='WPProgram'
  67.   title='Read Me'
  68.   location='<ACCMGR_FOLDER>'
  69.   setup='TYPE=PM;EXENAME=E.EXE;PARAMETERS='||CurDir||'\readme.txt;OBJECTID=<ACCMGR_README>'
  70.   Call BldObj
  71. end /* do */
  72.   
  73. if Risposta = "I" then 
  74. call charout ,"Sto creando un collegamento della directory " CurDir
  75. else
  76. call charout ,"I'm making a shadow copy of directory " CurDir
  77.  
  78. result = SysCreateShadow(CurDir, '<ACCMGR_FOLDER>')
  79.  
  80. if Risposta = "I" then 
  81. do
  82.   If result=1 Then call charout ,'...   Oggetto creato'
  83.   Else             call charout ,'...   Oggetto NON creato! Errore ='result
  84. end /* do */
  85. else
  86. do
  87.   If result=1 Then call charout ,'...   Object created'
  88.   Else             call charout ,'...   Object NOT created! Result ='result
  89. end /* do */
  90. say ' ';
  91.  
  92.  
  93. classname='WPProgram'
  94. if Risposta = "I" then
  95.     title="Manuale"
  96. else
  97.     title='Manual'
  98.  
  99. location='<ACCMGR_FOLDER>'
  100. setup='PROGTYPE=PM;EXENAME=view.exe;PARAMETERS='||CurDir||'\accmgr.inf;OBJECTID=<ACCMGR_MANUAL>'
  101. Call BldObj
  102.  
  103.  
  104.  
  105. if Risposta = "I" then 
  106. do
  107.   say ' '
  108.   say ' '
  109.   say "OK, ho finito ;-) "
  110.   say ''
  111.   say 'Premere un tasto, grazie....'
  112. end /* do */
  113. else
  114. do
  115.   say ''
  116.   say ' '
  117.   say "OK, this is THE END ;-) "
  118.   say ''
  119.   say 'Strike a key, please....'
  120. end /* do */
  121.  
  122. 'pause >nul'
  123. Exit
  124.  
  125. /* Build Object */
  126. BldObj:
  127. if Risposta = "I" then call charout, "Sto creando....: "title
  128. else call charout ,"I'm making....: "title
  129.  
  130. result = SysCreateObject(classname, title, location, setup,"update")
  131.  
  132. if Risposta = "I" then 
  133. do
  134.   If result=1 Then call charout ,'...   Oggetto creato' 
  135.   Else             call charout ,'...   Oggetto NON creato! Errore ='result 
  136. end /* do */
  137. else
  138. do
  139.   If result=1 Then call charout ,'...   Object created' 
  140.   Else             call charout ,'...   Object NOT created! Result ='result 
  141. end /* do */
  142. Say ' ';
  143. Return
  144.  
  145.