//internet connection checker
//this example checks out a certain internet server, every 15 minutes
//SERVER down:
//---------------
//1. log this in a logfile
//2. set error light -> IO13
//3. check now every minute
//if the server goes down, this will be logged
Timestep OFF
CONNECT TCP,127.0.0.1,80
LABEL LOOP
IF IO13 = 1 Then
//error state
WAIT 30000
WAIT 30000
ELSE
//no error state
//wait 15 minutes for new check
CALL WAIT_15_MINUTES
END IF
//replace this server by your own server to test (this is a local webserver)
CONNECT TCP,127.0.0.1,80
GOTO LOOP
SUB EVENT_CONNECTION_ESTABLISHED
//connection succeeded, ClearIO 13
IF IO13 = 1 Then
LOGFILE = "C:\internetcheck.log"
WRITELOG "<$xTIME> server is back online. clearing IO13"
CLEARIO 13
END IF
DISCONNECT
END SUB
SUB EVENT_CONNECTION_ERROR
//connection failed, SetIO 13
LOGFILE = "C:\internetcheck.log"
WRITELOG "<$xTIME> server was found down, setting IO13"
SETIO 13
END SUB
SUB WAIT_15_MINUTES
//Set minute counter to 0
VAR1 = 0
LABEL WAIT
//wait 30 seconds, repeat 30 times
WAIT 30000
VAR1 = VAR1 + 1
IF VAR1 < 0030 Then GOTO WAIT
END SUB
