/*--------------------------------------------------------------*/
/* Little script to go online with genesis                      */
/* Especially useful with ClassAction                           */
/* © 2001 Martin R. Elsner                                      */
/*--------------------------------------------------------------*/

/* Please change the Genesis path to the correct one for your   */
/* system:                                                      */

StartGenesis="c:run >NIL: wb:internet/genesis/genesis"

/* Please enter your username specified in the Genesis prefs:   */

User = "Martin"



TRACE RESULTS
OPTIONS FAILAT 21
IF ~SHOW('P','genesis') THEN DO
 ADDRESS COMMAND
 StartGenesis
 DO UNTIL rc = 0
  'SYS:REXXC/WAITFORPORT' 'GENESIS'
 END
END

ADDRESS 'GENESIS'
 'user '||User
 'online'

EXIT