home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / InetDial / AREXX / inet_dial_disconnect.awebrx < prev    next >
Text File  |  2000-07-23  |  778b  |  30 lines
  1. /*rx disconnect prog */
  2.  
  3. address command
  4. 'delete ram:mdr_internet_server_required'
  5. 'echo >ram:mdr_internet_server_not_needed' '"end"'
  6. 'echo >ram:mdr_aweb_input_status.html' '"<HTML><TITLE>onlineinfo</TITLE><BODY BGCOLOR=BEIGE><FONT COLOR=RED SIZE=+1><BR><I><B><BLINK>DISCONNECTING MODEM</BLINK></B></I></BODY></HTML>"'
  7.  
  8. ports = SHOW('P')
  9. PARSE VAR ports dummy 'AWEB.' portnr .
  10. ADDRESS VALUE 'AWEB.' || portnr
  11. OPTIONS RESULTS
  12.  
  13. SAY 'AWEB PORT NUMBER =' portnr
  14.  
  15. IF (portnr >0) THEN DO
  16.    'GET ACTIVEPORT'
  17.    ADDRESS VALUE RESULT
  18.    'CANCEL ALL'
  19.  
  20.    i=1
  21.    'GET URL var url'
  22.    IF URL='file://localhost/ram:mdr_aweb_input_status.html' then i=2
  23.    
  24.    IF i=1 THEN 'OPEN URL file://localhost/ram:mdr_aweb_input_status.html RELOAD'
  25.    IF i=2 THEN 'RELOAD'
  26.  
  27.    'SCREENTOFRONT'
  28. END
  29. EXIT
  30.