home *** CD-ROM | disk | FTP | other *** search
- /***************************************************************************/
- /*** CapiTel Installation Rexx-Script ***/
- /*** (c) 1996-97 by Carsten Wimmer and Werner Fehn ***/
- /*** All Rights Reserved. ***/
- /***************************************************************************/
-
- Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
- Call SysLoadFuncs
- Call SysCls
-
- say ""
- say " ============================================================================="
- say ""
- say " ////// /////// ////// // /////// ////// //"
- say " // // // // // // // // //"
- say " // /////// ////// // // //// //"
- say " // // // // // // // //"
- say " ////// // // // // // ////// //////"
- say ""
- say " ISDN CAPI 1.1 based Answering Machine for OS/2 PM"
- say ""
- say " Installation"
- say ""
- say " ============================================================================="
- say ""
- say ""
-
- say "This Installation-Script will create a CapiTel object on your desktop."
- call charout, "Do you want to proceed? (Y/N) "
-
- pull answ .
- say ""
-
- if answ <> "Y" & answ <> "y" then do
- say "Aborting Installation..."
- say ""
- exit
- end
-
- ctEXE = "\CAPITEL.EXE"
- myDir = directory()
- setupString = "EXENAME="||myDir||ctEXE||";STARTUPDIR="||myDir";REPLACE"
- call SysCreateObject "WPProgram", "CapiTel", "<WP_DESKTOP>", setupString
- say "Object has been created..."
- exit
-
-