home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / S / NewsFlash.awebrx < prev    next >
Text File  |  2000-08-18  |  619b  |  28 lines
  1. /*
  2.     $VER: NewsFlash.awebrx 1.0 (24.11.99) (c) Neil Bothwick, Wirenet
  3.     Loads the NewsFlash page into AWeb then resets the environment variables
  4. */
  5.  
  6. /* Exit if no newsflash */
  7. if ~exists('AACD:html/NewsFlash.html') then do
  8.     call delete('ENVARC:AACDNewsFlash')
  9.     exit
  10.     end
  11.  
  12. /* Wait for AWeb to load Welcome page */
  13. options results
  14. address command
  15. do i = 1 to 15
  16.     'AACD13:System/Rexxc/WaitForPort AWEB.1'
  17.     if RC = 0 then leave
  18.     end
  19. if RC > 0 then exit
  20.  
  21. address 'AWEB.1'
  22. 'WAIT ALL'
  23. 'OPEN URL "file://localhost/AACD13:html/NewsFlash.html" TARGET "main"'
  24.  
  25. /* Remove environment variable */
  26. call delete('ENVARC:AACDNewsFlash')
  27.  
  28.