home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / InetDial / AREXX / inet_dial_connect.awebrx next >
Text File  |  2000-07-23  |  752b  |  29 lines
  1. /*rx connect prog */
  2.  
  3. address command
  4. 'delete ram:mdr_internet_server_not_needed'
  5. 'echo >ram:mdr_internet_server_required' '"WWW"'
  6. 'echo >ram:mdr_aweb_input_status.html' '"<HTML><TITLE>onlineinfo</TITLE><BODY BGCOLOR=BEIGE><FONT COLOR=GREEN SIZE=+1><BR><I><B><BLINK>CONNECTING</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.  
  19.    i=1
  20.    'GET URL var url'
  21.    IF URL='file://localhost/ram:mdr_aweb_input_status.html' then i=2
  22.    
  23.    IF i=1 THEN 'OPEN URL file://localhost/ram:mdr_aweb_input_status.html RELOAD'
  24.    IF i=2 THEN 'RELOAD'
  25.  
  26.    'SCREENTOFRONT'
  27. END
  28. EXIT
  29.