home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Mail+News / UMS11 / rexx / ConfUMS.intui < prev    next >
Text File  |  1995-08-27  |  909b  |  47 lines
  1. /*
  2.  
  3.     $VER: ConfUMS.intui 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Function:
  9.     Starts ConfUMS from IntuiNews under the same account without
  10.     asking for the password.
  11.  
  12.    History:
  13.     0.1   initial version
  14.     0.2   fixed wrong comment
  15.     0.3   decided to get rid of this strange AMOK style header and
  16.           went back to my good old standard
  17.     0.4   uses fake accounts
  18.     0.5   uses new "EXEC" command
  19.     0.6   fixed header
  20.     1.0   released with IntuiNews 1.3
  21.  
  22.    Requires:
  23.     UMSServer 11.28 or newer
  24.     ums.library 11.18 or newer
  25.     ConfUMS in command path
  26.  
  27.    Example for "ums.config":
  28.     ( IntuiNews.Rexx
  29.     ...
  30.         "#?Window F1 ConfUMS.intui\n"
  31.     ...
  32.     )
  33.  
  34. */
  35.  
  36. /* Exit if IntuiNews is not logged in. */
  37.  
  38. OPTIONS RESULTS
  39.  
  40. GETACCOUNT
  41. IF RESULT=0 THEN EXIT 5
  42. Account=RESULT
  43.  
  44. /* Call ConfUMS */
  45.  
  46. 'EXEC Run >NIL: ConfUMS >NIL: NAME "" PASSWORD @'||Account
  47.