home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / quot210s.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1998-06-07  |  1KB  |  39 lines
  1. /*
  2.  * install.cmd
  3.  *
  4.  * Cheesy install utility to put a Quoteriser folder with some icons in it on
  5.  * the desktop.
  6.  *
  7.  * (C) 1997 Nicholas Paul Sheppard
  8.  *
  9.  * This file is distributed under the GNU General Public License. See the
  10.  * file copying.txt for details.
  11.  */
  12.  
  13. /* load RexxUtil functions we need */
  14. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  15.  
  16. if SysCreateObject("WPFolder", "The Quoteriser", "<WP_DESKTOP>", "OBJECTID=<QUOTERISER>;ICONFILE="||Directory()||"\ETC\QUOTER.ICO") then
  17.     do
  18.     common = "ICONFILE="||Directory()||"\ETC\QUOTER.ICO;EXENAME="||Directory()||"\BIN\"
  19.     okay = SysCreateObject("WPProgram", "The Quoteriser", "<QUOTERISER>", common||"QUOTER.EXE")
  20.     okay = OKAY & SysCreateObject("WPProgram", "Quote-of-the-Day", "<QUOTERISER>", common||"QOTD.EXE")
  21.     if okay then
  22.         do
  23.         say 'The Quoteriser successfully installed.'
  24.         ret = 0
  25.         end
  26.     else
  27.         do
  28.         say 'A Quoteriser program object could not be created.'
  29.         ret = 1
  30.         end
  31.     end
  32. else
  33.     do
  34.     say 'A Quoteriser folder could not be created.'
  35.     ret = 1
  36.     end
  37.  
  38. Exit ret
  39.