home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / stricq / rexx / Send2Browser.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  922 b   |  45 lines
  1. /*
  2.  
  3.   Send2Browser.rexx - Sends STRICQ received URLs to the configured browser.
  4.  
  5.   VER$: Send2Browser.rexx v1.0 (13.10.98) Copyright (C) Douglas F. McLaughlin
  6.  
  7.   Note: The script is released as freeware.
  8.  
  9. */
  10.  
  11. if ~show('l','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  12.  
  13. options results
  14.  
  15. browser = 'DH0:IBrowse/IBrowse'    /* Set this path to match your setup    */
  16. port    = 'IBROWSE'                /* Set this port to match your browser: */
  17. urlcmd  = 'GOTOURL'                /* Set this cmd  to match your browser: */
  18.  
  19. /*
  20.  
  21. Browser     Port        URLCmd
  22.  
  23. IBrowse     IBROWSE     GOTOURL
  24. AWeb        AWEB.1      OPEN
  25. AMosaic     AMOSAIC.1   JUMP URL
  26. Mindwalker  MINDWALKER  OPENURL
  27. Voyager     VOYAGER     OPENURL
  28.  
  29. */
  30.  
  31. parse arg url
  32.  
  33. if ~show('p',port) then do
  34.   address command 'Run >NIL: <NIL: 'browser
  35.   do while ~show('p',port)
  36.     call delay(50)
  37.   end
  38. end
  39.  
  40. address value port
  41.  
  42. urlcmd url
  43.  
  44. exit 0
  45.