home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 January / PCO0198.ISO / filesbbs / dos / tbbx_mo.exe / INSTHELP / OS2 / INSTALL.CMD next >
Encoding:
Text File  |  1997-10-28  |  3.6 KB  |  100 lines
  1. /* Installationsscript für tbbX-MO, 1996-1997, Lars Gusewski, Version 1.1 */
  2.  
  3. /* Rexx-Util Funktionen initialisieren*/
  4. Call RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. Signal On Failure Name Ende
  8. Signal On Halt Name Ende
  9. Signal On Syntax Name Ende
  10.  
  11. /* Aktuelles Verzeichnis ermitteln */
  12. TBBXMO_DIR=Directory()
  13. /* Zum Installationshilfe Ordner */
  14. TBBXMO_DIR=SubStr(TBBXMO_DIR,1,LastPos('\',TBBXMO_DIR)-1)
  15. /* Zum tbbX-MO Ordner */
  16. TBBXMO_DIR=SubStr(TBBXMO_DIR,1,LastPos('\',TBBXMO_DIR))
  17. /* Aktuelles Verzeichnis ermitteln */
  18. OS2INSTALL=Directory()
  19. /* OS/2 Installationsverzeichnis ermitteln */
  20. OS2INSTALL=Right(OS2INSTALL,Length(OS2INSTALL)-Length(TBBXMO_DIR))
  21.  
  22. /* Info's ausgeben */
  23. Say 'ACHTUNG: Es wird davon ausgegangen, daß dieses Script aus einem'
  24. Say 'Unterverzeichnis von tbbX-MO (normalerweise INSTHELP\OS2) aufgerufen'
  25. Say 'wurde! Soll der Installationsvorgang abgebrochen werden? (j/N)'
  26.  
  27. Pull FRAGE
  28. If FRAGE='J'|FRAGE='j' Then Signal Ende
  29.  
  30. /* tbbX-MO Ordner auf der Arbeitsoberfläche erstellen */
  31. SETUPSTRING='OBJECTID=<TBBXMO_ORDNER>;'||,
  32.             'ICONFILE='TBBXMO_DIR''OS2INSTALL'\TBBXMOCL.ICO'
  33.  
  34. If SysCreateObject("WPFolder","tbbX-MO","<WP_DESKTOP>",SETUPSTRING,R) Then
  35.  Say 'tbbX-MO Ordner auf der WPS erfolgreich erstellt.'
  36. Else
  37.  Say 'Fehler beim erstellen des Ordners tbbX-MO!'
  38.  
  39. /* tbbX-MO Programmobject erstellen */
  40. PARAMETER  ='SET DOS_BACKGROUND_EXECUTION=1;'||,
  41.             'SET DOS_DEVICE=;'||,
  42.             'SET DOS_FILES=20;'||,
  43.             'SET DOS_HIGH=1;'||,
  44.             'SET DOS_UMB=1;'||,
  45.             'SET DPMI_DOS_API=AUTO;'||,
  46.             'SET XMS_MEMORY_LIMIT=4096;'||,
  47.             'SET IDLE_SECONDS=0;'||,
  48.             'SET IDLE_SENSITIVITY=75;'||,
  49.             'SET SESSION_PRIORITY=1;'
  50.  
  51. SETUPSTRING='OBJECTID=<TBBXMO_EXE>;'||,
  52.             'ICONFILE='TBBXMO_DIR''OS2INSTALL'\TBBXMO.ICO;'||,
  53.             'PROGTYPE=VDM;'||,
  54.             'EXENAME='TBBXMO_DIR'MO.COM;'||,
  55.             'STARTUPDIR='TBBXMO_DIR';'PARAMETER
  56.  
  57. If SysCreateObject("WPProgram","tbbX-MO","<TBBXMO_ORDNER>",SETUPSTRING,"UpDate")
  58. Then
  59.  Say 'tbbX-MO Programm Object erfolgreich im Ordner erstellt.'
  60. Else
  61.  Say 'Fehler beim erstellen des tbbX-MO Programm Objectes!'
  62.  
  63. /* tbbX-MO Setup Programmobject erstellen */
  64. PARAMETER  ='SET DOS_BACKGROUND_EXECUTION=1;'||,
  65.             'SET DOS_DEVICE=;'||,
  66.             'SET DOS_FILES=20;'||,
  67.             'SET DOS_HIGH=1;'||,
  68.             'SET DOS_UMB=1;'||,
  69.             'SET DPMI_DOS_API=AUTO;'||,
  70.             'SET XMS_MEMORY_LIMIT=4096;'||,
  71.             'SET IDLE_SECONDS=0;'||,
  72.             'SET IDLE_SENSITIVITY=75;'||,
  73.             'SET SESSION_PRIORITY=1;'
  74.  
  75. SETUPSTRING='OBJECTID=<TBBXMO_SETUP_EXE>;'||,
  76.             'ICONFILE='TBBXMO_DIR''OS2INSTALL'\MOSETUP.ICO;'||,
  77.             'PROGTYPE=VDM;'||,
  78.             'EXENAME='TBBXMO_DIR'SETUP.COM;'||,
  79.             'STARTUPDIR='TBBXMO_DIR';'PARAMETER
  80.  
  81. If SysCreateObject("WPProgram","tbbX-MO Setup","<TBBXMO_ORDNER>",SETUPSTRING,"UpDate")
  82. Then
  83.  Say 'tbbX-MO Setup Programm Object erfolgreich im Ordner erstellt.'
  84. Else
  85.  Say 'Fehler beim erstellen des tbbX-MO Setup Programm Objectes!'
  86.  
  87. /* tbbX-MO Dokumentations Object erstellen */
  88. SETUPSTRING='OBJECTID=<TBBXMO_DOKU>;'||,
  89.             'ICONFILE='TBBXMO_DIR''OS2INSTALL'\TBBXMODK.ICO;'||,
  90.             'EXENAME=E.EXE;'||,
  91.             'PARAMETERS='TBBXMO_DIR'DOKU\TBBXMO.DOK;'
  92.  
  93. If SysCreateObject("WPProgram","tbbX-MO Dokumentation","<TBBXMO_ORDNER>",SETUPSTRING,"Update") Then
  94.  Say 'tbbX-MO Dokumentation Object erfolgreich im Ordner erstellt.'
  95. Else
  96.   Say 'Fehler beim erstellen des tbbX-MO Dokumentation Objectes!'
  97.  
  98. Ende:
  99. Call SysDropFuncs
  100.