home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor2.zip / DISK_10 / IMAGE9.ZIP / welcome.cmd < prev   
OS/2 REXX Batch file  |  1993-08-20  |  2KB  |  44 lines

  1. /*****************************************************************************
  2.  *                      WELCOME - IBM NetDoor/2 Welcome                      *
  3.  *                   NetDoor Development - CORE at WATSON                    *
  4.  *****************************************************************************
  5.  *                    Licensed Materials-Property of IBM                     *
  6.  *               5604-472 (c) Copyright IBM Corporation, 1993                *
  7.  *                           All rights reserved.                            *
  8.  *                  US Government Users Restricted Rights -                  *
  9.  *                 Use, duplication or disclosure restricted                 *
  10.  *                by GSA ADP Schedule Contract with IBM Corp.                *
  11.  *****************************************************************************/
  12. trace 'O'
  13. if arg(1) = 'DELETE'
  14.   then call DeleteMe
  15.  
  16. parse source . . Me
  17. if 'REGFUNC'('RXUTILS') = 0
  18.   then if rxOs2Ver() >= 2.0
  19.     then do
  20.       if 'REGFUNC'('REXXUTIL') = 0
  21.         then if sysSetObjectData('<CORE_APP_README>','OPEN=DEFAULT;')
  22.           then 'DETACH' Me 'DELETE >NUL 2>&1'
  23.     end
  24.     else do
  25.       parse value arg(1) with File'*'Group'\'Name
  26.       '@E' File
  27.       if rc = 0
  28.         then do
  29.           call rxDeleteProgram 'USER', Group, Name
  30.           call rxOs2Ini 'USER', 'PM_Autostart', Group'\'Name, '$RXDEL'
  31.         end
  32.     end
  33. exit 0
  34.  
  35. DeleteMe:
  36. if 'REGFUNC'('RXUTILS') = 0
  37.   then if rxOs2Ver() >= 2.0
  38.     then if 'REGFUNC'('REXXUTIL') = 0
  39.       then do
  40.         call rxSleep 30
  41.         call sysDestroyObject '<NETDOORWELCOME>'
  42.       end
  43. exit 0
  44.