home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 14 / AACD14.ISO / CDTools / S / PreloadImages.awebrx < prev    next >
Text File  |  2000-03-28  |  629b  |  31 lines
  1. /*
  2.     $VER: PreloadImages.awebrx 1.0 (28.3.00) (c) Neil Bothwick, Wirenet
  3.     Preload images into AWeb's cache, for immediate display when a page is loaded
  4. */
  5.  
  6. /* ;;; Initialise */
  7. options results
  8. AWebPort = address()
  9. if ~abbrev(AWebPort,'AWEB.') then do
  10.     do i = 1 to 25
  11.         if show('P','AWEB.'i) then do
  12.             AWebPort = 'AWEB.'i
  13.             leave
  14.             end
  15.         end
  16.     if ~abbrev(AWebPort,'AWEB.') then exit
  17.     address(AWebPort)
  18.     end
  19. ;;;
  20. /* ;;; Open image list and preload each one */
  21. /*
  22. if ~open(in,'images/PreloadList','R') then exit
  23. do until eof(in)
  24.     Image = readln(in)
  25.     'load "images/'Image'"'
  26.     end
  27. call close(in)
  28. */
  29. 'load "html/Trees/TheCD.html"'
  30. ;;;
  31.