home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / InetDial / AREXX / mdr_setvideo.awebrx < prev    next >
Text File  |  2000-07-23  |  757b  |  36 lines
  1. /* disconnect prog */
  2.  
  3. address command
  4.  
  5. ARG filename
  6.  
  7. 'echo >ram:mdr_video_data' filename
  8. 'echo >ram:mdr_aweb_input_status.html' '"<HTML><BODY BGCOLOR=BEIGE><FONT COLOR=GRAY><BR><H1><I><B><BLINK>WAIT - STORING VIDEO PROGRAMMING INFORMATION</BLINK></B></I></H1></BODY></HTML>"'
  9.  
  10. ports = SHOW('P')
  11. PARSE VAR ports dummy 'AWEB.' portnr .
  12. ADDRESS VALUE 'AWEB.' || portnr
  13. OPTIONS RESULTS
  14.  
  15. SAY 'AWEB PORT NUMBER =' portnr
  16.  
  17. IF (portnr >0) THEN DO
  18.    'GET ACTIVEPORT'
  19.    ADDRESS VALUE RESULT
  20.  
  21.    DO i=1 to 1000
  22.       'GET URL var url'
  23.       IF URL='file://localhost/ram:mdr_aweb_input_status.html' then LEAVE
  24.       'GO 1 BACK'
  25.    END i
  26.  
  27.    IF i>1000 THEN 'OPEN URL file://localhost/ram:mdr_aweb_input_status.html RELOAD'
  28.  
  29.    'RELOAD'
  30.    'SCREENTOFRONT'
  31. END
  32. EXIT
  33.  
  34.  
  35.  
  36.