home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / demos / cdgallery / aga2 / software / utilities / comms / html-heaven / arexx / html-amosaic.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-05-20  |  1.4 KB  |  37 lines
  1. /* HTML-Heaven Arexx script for AutoView support
  2.  * Ver      : 1.0 (28th December 1995)
  3.  * Copyright: Paul Kolenbrander (InterNet: paul@serena.iaehv.nl)
  4.  * Function : If AutoView selected, this one will get the filename
  5.  *            of the HTML doc and tries to show it in a browser.
  6.  *            Currently there's support for IBrowse and AMosaic.
  7.  *            If you wrote a browser yourself that has ARexx support,
  8.  *            let me know about it so I can create support for it.
  9.  *            Just email me at: paul@serena.iaehv.nl
  10.  *            If no filename supplied, we'll try to do a reload.
  11.  * Input    : HTMLDOC - The HTML document to be showed
  12. */
  13.  
  14. OPTIONS RESULTS                             /* enable return codes     */
  15. PARSE ARG HTMLDOC
  16.  
  17. IF SHOW('p', 'AMOSAIC.1') THEN DO           /* Can we find AMosaic?    */
  18.    ADDRESS 'AMOSAIC.1'                      /* Got it!                 */
  19.    IF HTMLDOC = 'htmldoc' | HTMLDOC = 'HTMLDOC' | HTMLDOC = '' THEN DO
  20.       'jump url reload'
  21.    END
  22.    ELSE DO
  23.       'jump url file://localhost/'||HTMLDOC
  24.    END
  25. END 
  26.  
  27. IF SHOW('p', 'IBROWSE.1') THEN DO           /* Can we find IBROWSE?    */
  28.    ADDRESS 'IBROWSE.1'                      /* Got it!                 */
  29.    IF HTMLDOC = 'htmldoc' | HTMLDOC = 'HTMLDOC' | HTMLDOC = '' THEN DO
  30.       'jump url reload'
  31.    END
  32.    ELSE DO
  33.       'jump url file://localhost/'||HTMLDOC
  34.    END
  35. END 
  36. EXIT
  37.