Rem --- eWON start section: Init Section
ewon_init_section:
Rem --- eWON user (start)
ONTIMER 1,"goto TestVPN"
TSET 1,900
REM --- WAN_ON IS a MEM tag used TO store the state of the Ethernet connection
WAN_ON@=1
ONTIMER 2,"goto ReturnToWAN"
TSET 2,0
Rem --- eWON user (END)
END
Rem --- eWON END section: Init Section

Rem --- eWON start section: Fallback
Rem --- eWON user (start)
TestVPN:
    SETSYS INF,"load"
    A$ = GETSYS INF,"VPNIP"
    PRINT TIME$;" ";A$
    IF (A$="0.0.0.0") THEN
        REM WAN IS broken, activate Fallback
        WAN_ON@=0
        TSET 1,0
        TSET 2,7200
        SETSYS COM,"load"
        SETSYS COM,"WanCnx",1
        SETSYS COM,"save"
        PRINT TIME$;" Fallback activated"
        LOGEVENT "Fallback activated"
    ELSE
        WAN_ON@=1
    ENDIF
END

ReturnToWAN:
    TSET 2,0
    SETSYS COM,"load"
    SETSYS COM,"WanCnx",2
    SETSYS COM,"save"
    PRINT TIME$;"Fallback deactivated"
    LOGEVENT "Fallback deactivated"
    TSET 1,900
END
Rem --- eWON user (END)
END
Rem --- eWON end section: Fallback