home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / tmpst110.zip / Install.CMD < prev    next >
OS/2 REXX Batch file  |  1997-09-02  |  3KB  |  127 lines
  1. /* Recreate objects script.
  2.  *
  3.  * Generated via Object Desktop Package File 'Object Package'.
  4.  */
  5.  
  6. cr = d2c(13)
  7. lf = d2c(10)
  8. crlf = cr || lf
  9.  
  10. /* Register with REXX API extensions. */
  11. IF RxFuncQuery('SysLoadFuncs') <> 0 THEN
  12. DO
  13.   Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  14.   Call SysLoadFuncs
  15. END
  16.  
  17. parse arg nazione
  18.  
  19. parse version tmp
  20.  
  21. IF POS('OBJREXX', tmp) = 0 THEN
  22. do
  23.   say 'ATTENZIONE !!!'
  24.   say '--------------'
  25.   say "NON STAI USANDO L'INTERPRETE REXX CORRETTO !!!"
  26.   say 'PROVA A LANCIARE IL COMANDO:'
  27.   say 'SWITCHRX.CMD'
  28.   say 'E SEGUI LE ISTRUZIONI A VIDEO O LEGGI IL FILE README*'
  29.   say
  30.   say 'WARNING !!!'
  31.   say '-----------'
  32.   say 'YOU ARE USING A WRONG REXX INTERPRETER !!!'
  33.   say 'TRY LAUNCH THIS COMMAND:'
  34.   say 'SWITCHRX.CMD'
  35.   say 'READ INSTRUCTIONS ON SCREEN OR READ THE README* FILE'
  36.   exit
  37. end
  38.  
  39.  
  40. IF nazione~translate() = 'IT' then
  41. DO
  42.   '@copy TMPostit_IT.exe TMPostit.exe'
  43.   '@del TMPostit_IT.exe 2>NUL 1>NUL'
  44.   '@del Readme_US.1st 2>NUL 1>NUL'
  45.   '@del TMPostit_US.exe 2>NUL 1>NUL'
  46. END
  47. ELSE
  48.   IF nazione~translate() = 'US' then
  49.   DO
  50.     '@copy TMPostit_US.exe TMPostit.exe'
  51.     '@del TMPostit_US.exe 2>NUL 1>NUL'
  52.     '@del Readme_IT.1st 2>NUL 1>NUL'
  53.     '@del TMPostit_IT.exe 2>NUL 1>NUL'
  54.   END
  55.   ELSE
  56.   DO
  57.     say "Modalita' d'uso :"
  58.     say "----------------"
  59.     say "Lanciate : install nazione  "
  60.     say "Dove 'nazione' puo' assumere i valori IT o US"
  61.     say
  62.     say "Sintax :"
  63.     say "-------"
  64.     say "Run : install nation  "
  65.     say "Where 'nation' can be 'IT' or 'US'"
  66.     say
  67.     return
  68.   END
  69.  
  70. curdir = directory()
  71.  
  72. say
  73. say '*********************************'
  74. say 'Estrazione delle DLL attendere...'
  75. say 'Unpacking DLL, wait please.......'
  76. say '*********************************'
  77. say
  78. bootdrive = SysBootDrive()
  79. say '.'
  80. '@unrar e -y DLL.RAR '||BootDrive||'\os2\apps\dll\ 2>NUL 1>NUL'
  81. say '..'
  82. '@unrar e -y ICO.RAR 2>NUL 1>NUL'
  83.  
  84. say '...'
  85. '@del DLL.RAR 2>NUL 1>NUL'
  86. say '....'
  87. '@del ICO.RAR 2>NUL 1>NUL'
  88.  
  89. say '.....'
  90. '@del unrar.exe 2>NUL 1>NUL'
  91.  
  92.  
  93. say 'Sto creando la cartella...'
  94. say 'Creating folder....'
  95.  
  96. res = SysCreateObject("WPFolder", "TMPostit " || crlf || "v. 1.10", "<WP_DESKTOP>", "OBJECTID=<TMPOSTITFOLDER>;ALWAYSSORT=YES;ICONFILE=README.ICO", update)
  97.  
  98.  
  99. say 'Sto creando gli oggetti...'
  100. say 'Creating Object....'
  101.  
  102. res = SysCreateObject("WPProgram", "TMPostit", "<TMPOSTITFOLDER>", "OBJECTID=<TMPOSTIT>;EXENAME=" || curdir || "\TMPostit.exe;STARTUPDIR=" || curdir , replace)
  103. res = SysCreateObject("WPProgram", "Key", "<TMPOSTITFOLDER>", "OBJECTID=<TMPOSTITKEY>;EXENAME=" || curdir || "\Key.exe;STARTUPDIR=" || curdir , replace)
  104.  
  105. IF nazione~translate = 'IT' then
  106.   res = SysCreateObject("WPShadow", "Leggimi", "<TMPOSTITFOLDER>", "OBJECTID=<TMPOSTITREADME>;SHADOWID=" || curdir || "\Readme_IT.1st" , replace)
  107. ELSE
  108.   res = SysCreateObject("WPShadow", "Read Me", "<TMPOSTITFOLDER>", "OBJECTID=<TMPOSTITREADME>;SHADOWID=" || curdir || "\Readme_US.1st" , replace)
  109.  
  110.  
  111.  
  112. say
  113. say '**********'
  114. say 'Fatto !   '
  115. say 'All Done. '
  116. say '**********'
  117. say
  118.  
  119.  
  120.  
  121. IF stream('key.exe', 'c', 'query exists') <> '' THEN
  122.   '@key -u'
  123.  
  124. call SysOpenObject '<TMPOSTIT>', 0, 0
  125.  
  126. Exit
  127.