/* GenesisOnline.yam - Go online in Genesis
 *
 * $VER: GenesisOnline.yam 1.06 (20.10.01) © H. van der Ree <hivdree@uwnet.nl>
 *
 * Don't forget to change genesispath and interface into the one you use!
 *                        -----------     ---------
 * If you use WBStartEmu change wbstarter on line 65 into wbrun!
 *                              ---------                 -----
 */

OPTIONS RESULTS

PARSE ARG args

/* Change this path if required */
genesispath = "AmiTCP:Genesis"
genesisport = "GENESIS"

/* Change this to the interface you use */
interface = "ppp0"

IF ~SHOW('L', 'rexxsupport.library') THEN
  CALL ADDLIB('rexxsupport.library', 0, -30)
IF ~SHOW('L', 'rexxdossupport.library') THEN
  CALL ADDLIB('rexxdossupport.library', 0, -30)

action = GETVAR(YAMSTARTED, "GLOBAL")
IF action = "YES" THEN
DO
  CALL DELETEVAR(YAMSTARTED, "GLOBAL")
  EXIT 0
END

CALL SETVAR(GENESISINTERFACE, interface, "GLOBAL")

IF FIND(UPPER(args), "NEWS") ~= 0 THEN
DO
  CALL OPEN('FS', 'T:YAMSTATUSLIST', 'W')
  ADDRESS YAM
  SETFOLDER 'Outgoing'
  FOLDERINFO STEM folder.
  LISTSELECT None
  DO i = 0 TO folder.TOTAL - 1
    SETMAIL i
    MAILINFO STEM mess.
    IF POS("@NEWS", upper(mess.TO)) ~= 0 THEN
    DO
      IF UPPER(mess.STATUS) ~= 'H' THEN
      DO
        CALL SETVAR("CHANGEDYAMSTATUS", "YES", "GLOBAL")
        CALL WRITELN(FS, mess.MSGID)
        MAILSTATUS H
      END
    END
  END
  LISTSELECT ALL
  CALL CLOSE(FS)
END

ADDRESS COMMAND 'popscreen to YAMSCREEN'

IF ~SHOW('P', genesisport) THEN
DO
  ADDRESS COMMAND
  'wbstarter' genesispath
  'WaitForPort' genesisport
  CALL SETVAR(STARTEDBYYAM, "YES", "GLOBAL")
  started = "YES"
  CALL DELAY(100)
END

ADDRESS VALUE genesisport
ISONLINE interface
RCN = RC
IF RCN ~= 1 THEN
DO
  SHOW
  CALL SETVAR(YAMSTART, "YES", "GLOBAL")
  IF RCN ~= 2 THEN
  DO
    ONLINE interface
  END
  RCN = 0
  DO UNTIL RCN = 1
    ISONLINE interface  /* 0 = OFFLINE, 1 = ONLINE, 2 = DAILING */
    RCN = RC
    IF RCN = 0 THEN
    DO
      CALL DELETEVAR(YAMSTART, "GLOBAL")
      EXIT 5
    END
    IF RCN ~= 1 THEN CALL DELAY(100)
  END
  CALL DELAY(100)
END
ELSE
DO
  IF started = "YES" THEN
  DO
    CALL SETVAR(YAMSTART, "YES", "GLOBAL")
    CALL DELAY(100)
  END
  ELSE
  DO
    IF FIND(UPPER(args), "CLOSE") ~= 0 THEN
    DO
      ADDRESS 'YAM'
      'REQUEST "Go OffLine after getting email?" "_Yes|_No"'
      IF RESULT = 1 THEN
        CALL SETVAR(YAMSTART, "YES", "GLOBAL")
    END
  END
END

ADDRESS COMMAND 'popscreen $YAMSCREEN'
CALL DELETEVAR(YAMSCREEN, "GLOBAL")

EXIT 0