/* OnOfflinePlugin (Do not edit this line) */
/* $VER:HTMLRead Miami(DX)(On/Off)line 0.1 (30.9.2000) Written by Gunter Hinrichsen */

in=ARG(1)

OPTIONS RESULTS
OPTIONS FAILAT 21

miamiport="MIAMI.1"

IF ~SHOW('P',miamiport) THEN DO
 IF in~="OFFLINE" THEN DO
  ADDRESS COMMAND
  IF EXISTS("MIAMI:MiamiDx") THEN DO
   'C:RUN >NIL: MIAMI:MiamiDx >NIL:'
  END
  ELSE DO
   IF EXISTS("MIAMI:Miami") THEN DO
   'C:RUN >NIL: MIAMI:Miami >NIL:'
   END
  END
  'SYS:REXXC/WAITFORPORT' miamiport
  IF RC ~= 0 THEN DO
   'c:RequestChoice >NIL: TITLE "ERROR" BODY "Can not load MIAMI:Mimai(Dx)!" GADGETS "OK"'
   EXIT 5
  END
 END
 ELSE EXIT 5
END

INTERPRET 'ADDRESS' miamiport
'ISONLINE'
IF RC=0 THEN DO
 IF in~="OFFLINE" THEN DO
  'ONLINE'
  ret=RC
 END
 ELSE ret=5
END
ELSE DO
 IF in~="ONLINE" THEN DO
  IF ~SHOW('L',"rexxreqtools.library") THEN DO
   IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN DO
    ADDRESS COMMAND
    'c:RequestChoice >NIL: TITLE "'ERROR'" BODY "'Can not load rexxreqtools.library!'" GADGETS "'OK'"'
    EXIT 21
   END
  END
  IF (rtezrequest("Turn Miami offline?","_YES|_NO","Offline?",'rtgs_flags=gsreqf_centertext'))=1 THEN DO
   'OFFLINE'
   ret="5"
  END
  ELSE ret="0"
 END
 ELSE ret="0"
END
EXIT ret