home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 13 / amigaformatcd13.iso / -seriously_amiga- / shareware / misc / ro / arexx / showhtml.ro < prev   
Text File  |  1997-03-06  |  707b  |  36 lines
  1. /* 
  2.  
  3.    $VER: ShowHTML.RO 0.1
  4.  
  5.    Author:
  6.     Oliver Rummeyer (oliver.rummeyer@student.uni-ulm.de)
  7.  
  8.    Function:
  9.     Loads the specified HTML file into IBrowse and displays it.
  10.     If IBrowse isn't currently running it's started by the script.
  11.  
  12.    Requires:
  13.     RO 0.90 or newer and IBrowse 1.0 or newer
  14.  
  15.    Example:
  16.     CUSTOMTYPE "#?.html" "" "HTML Document" "Rx >NIL: REXX:RO/ShowHTML.RO %F"
  17.  
  18. */
  19.  
  20. PARSE ARG Name
  21.  
  22. OPTIONS RESULTS
  23.  
  24. IF ~SHOW('Ports','IBROWSE') THEN
  25.  DO
  26.   ADDRESS 'COMMAND' 'Run >NIL: Work:IBrowse/IBrowse'
  27.   ADDRESS 'COMMAND' 'WaitForPort IBROWSE'
  28.   IF ~SHOW('Ports','IBROWSE') THEN
  29.    DO
  30.     EXIT 10
  31.    END
  32.  END
  33.  
  34. IF Name ~= "" THEN
  35.   ADDRESS 'IBROWSE' 'GOTOURL file:///'||STRIP(Name,,'"')
  36.