home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 December / PCO_1298.ISO / filesbbs / os2 / ctelo301.arj / CTELO301.ZIP / install.cmd < prev    next >
Encoding:
Text File  |  1998-09-19  |  3.0 KB  |  100 lines
  1. /***************************************************************************/
  2. /*** CapiTel Installation Rexx-Script                                    ***/
  3. /*** (c) 1996-98 by Carsten Wimmer and Werner Fehn                       ***/
  4. /*** All Rights Reserved.                                                ***/
  5. /***************************************************************************/
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9. Call SysCls
  10.  
  11. say ""
  12. say " ============================================================================="
  13. say ""
  14. say "                 ////// /////// ////// //  /////// ////// //"
  15. say "                //     //   // //  // //     //   //     //"
  16. say "               //     /////// ////// //     //   ////   //"
  17. say "              //     //   // //     //     //   //     //"
  18. say "             ////// //   // //     //     //   ////// //////"
  19. say ""
  20. say "     ISDN CAPI based Answering Machine and Caller-ID for OS/2 PM or VIO"
  21. say ""
  22. say "                                Installation"
  23. say ""
  24. say " ============================================================================="
  25. say ""
  26. say ""
  27.  
  28. say "Do you want to install the (g)erman, (e)nglish, or (t)ext version?"
  29. say "Moechten Sie die (d)eutsche, (e)nglische oder die (T)ext-Version"
  30. say "installieren?"
  31. call charout, "> "
  32.  
  33. pull answ .
  34.  
  35. say ""
  36.  
  37. select
  38.   when ((answ = "G") | (answ = "g") | (answ = "D") | (answ = "d")) then do
  39.     "ren ctelos2g.exe capitel.exe >NUL"
  40.     "del ctelos2e.exe >NUL"
  41.     "del ctelos2t.exe >NUL"
  42.     "del license.txt > NUL"
  43.     "del order.txt > NUL"
  44.     "del orderbmt.txt > NUL"
  45.     "del whatsnew.txt > NUL"
  46.     "del readme.txt > NUL"
  47.     end
  48.   when ((answ = "E") | (answ = "e")) then do
  49.     "ren ctelos2e.exe capitel.exe >NUL"
  50.     "del ctelos2g.exe >NUL"
  51.     "del ctelos2t.exe >NUL"
  52.     "del lizenz.txt > NUL"
  53.     "del bestell.txt > NUL"
  54.     "del bestbmt.txt > NUL"
  55.     "del neues.txt > NUL"
  56.     "del liesmich.txt > NUL"
  57.     end
  58.   when ((answ = "T") | (answ = "t")) then do
  59.     "ren ctelos2t.exe capitel.exe >NUL"
  60.     "del ctelos2e.exe >NUL"
  61.     "del ctelos2g.exe >NUL"
  62.     "del lizenz.txt > NUL"
  63.     "del bestell.txt > NUL"
  64.     "del bestbmt.txt > NUL"
  65.     "del neues.txt > NUL"
  66.     "del liesmich.txt > NUL"
  67.     end
  68.   otherwise
  69.     say "Aborting Installation!"
  70.     say "Installation abgebrochen!"
  71.     say ""
  72.     exit
  73. end
  74.  
  75. say "Should I create a CapiTel object on your desktop? (Y/N)"
  76. say "Soll ich ein CapiTel Objekt auf Ihrer Arbeitsoberflaeche anlegen? (J/N)"
  77. call charout, "> "
  78.  
  79. pull answ .
  80.  
  81. say ""
  82.  
  83. if answ <> "Y" & answ <> "y" & answ <> "J" & answ <> "j" then do
  84.   say "No object has been created."
  85.   say "Es wurde kein Objekt angelegt."
  86.   say ""
  87.   exit
  88. end
  89.  
  90. ctEXE = "\CAPITEL.EXE"
  91. myDir = directory()
  92. setupString = "EXENAME="||myDir||ctEXE||";STARTUPDIR="||myDir";REPLACE"
  93. call SysCreateObject "WPProgram", "CapiTel", "<WP_DESKTOP>", setupString
  94.  
  95. say "Object has been created."
  96. say "Objekt wurde angelegt."
  97.  
  98. exit
  99.  
  100.