/*rx disconnect prog */
address command
'delete ram:mdr_internet_server_required'
'echo >ram:mdr_internet_server_not_needed' '"end"'
'echo >ram:mdr_aweb_input_status.html' '"onlineinfo
"'
ports = SHOW('P')
PARSE VAR ports dummy 'AWEB.' portnr .
ADDRESS VALUE 'AWEB.' || portnr
OPTIONS RESULTS
SAY 'AWEB PORT NUMBER =' portnr
IF (portnr >0) THEN DO
'GET ACTIVEPORT'
ADDRESS VALUE RESULT
'CANCEL ALL'
i=1
'GET URL var url'
IF URL='file://localhost/ram:mdr_aweb_input_status.html' then i=2
IF i=1 THEN 'OPEN URL file://localhost/ram:mdr_aweb_input_status.html RELOAD'
IF i=2 THEN 'RELOAD'
'SCREENTOFRONT'
END
EXIT