home *** CD-ROM | disk | FTP | other *** search
/ ANews 1 / AnewsCD01.iso / Internet / Email / YAM2.0 / Rexx / GotoURL.yam < prev    next >
Encoding:
Text File  |  1999-08-03  |  2.3 KB  |  88 lines
  1. /* GotoURL.yam - Passes URL's from YAM to a web browser                */
  2. /* $VER: GotoURL.yam 1.1 (22.02.99) © 1999 by M.Beck <mbeck@access.ch> */
  3. /* based on Harry Samwels <samwel@algonet.se> script                   */
  4. /* Tested with IBrowse 1.2, Voyager 2.95 and AWeb 3.1                  */
  5. /*                                                                     */
  6. /* Call this script from                                               */
  7. /* YAM/Configuration/ARexx/When double-clicking an URL                 */
  8.  
  9. /* Use Miami to go online if necessary (1=yes) */
  10. UseMiami=1
  11.  
  12. /* Path and filename of Miami */
  13. MiamiPath = "MIAMI:Miami"
  14.  
  15. /* Path and filename of your default browser */
  16. BrowserPath='Prog:Internet/IBrowse/IBrowse'
  17.  
  18. /* Default browser (possible inputs: IBrowse, Voyager and AWeb) */
  19. UsedBrowser='IBrowse'
  20.  
  21. /* Load URL in a new window (1=yes) */
  22. NewWindow=1
  23.  
  24. /* Use running browser if available (1=yes) */
  25. AutoBrowser=1
  26.  
  27. /* ----------------------- DON'T EDIT BELOW THIS LINE ---------------------- */
  28.  
  29. OPTIONS RESULTS
  30. OPTIONS FAILAT 21
  31.  
  32. PARSE ARG URL
  33.  
  34. UB = UPPER(UsedBrowser)
  35. rxports=SHOW('P')
  36. IF AutoBrowser=1 THEN DO
  37.   IF SHOW('P','IBROWSE') THEN UB='IBROWSE'
  38.   ELSE IF SHOW('P','VOYAGER') THEN UB='VOYAGER'
  39.   ELSE IF INDEX(rxports,'AWEB')>0 THEN UB='AWEB'
  40. END
  41. SELECT
  42.   WHEN UB='IBROWSE' THEN port='IBROWSE'
  43.   WHEN UB='VOYAGER' THEN port='VOYAGER'
  44.   WHEN UB='AWEB' THEN DO
  45.     PARSE VAR rxports dummy 'AWEB.' portnr .
  46.     port='AWEB.' || portnr
  47.   END
  48.   OTHERWISE EXIT 10
  49. END
  50. ADDRESS COMMAND
  51. IF ~SHOW('P',port) THEN DO
  52.   'RUN >NIL:' browserpath
  53.   'SYS:rexxc/WaitForPort' port
  54.   IF RC>0 THEN DO
  55.      ADDRESS YAM 'REQUEST "'usedbrowser' not found.\nPlease install 'usedbrowser' or change the script configuration!" "Okay!"'
  56.      EXIT 5
  57.   END
  58. END
  59. IF UseMiami=1 THEN DO
  60.    IF ~SHOW('P', 'MIAMI.1') THEN DO
  61.      'Run <>NIL:' miamipath
  62.      'WaitForPort MIAMI.1'
  63.    END
  64.    ADDRESS 'MIAMI.1'
  65.    ISONLINE
  66.    IF RC=0 THEN ONLINE
  67.    ISONLINE
  68.    IF RC=0 THEN EXIT 5
  69.    HIDE
  70. END
  71. INTERPRET 'ADDRESS' port
  72. SELECT
  73.   WHEN UB='IBROWSE' THEN DO
  74.     IF NewWindow=1 THEN 'NewWindow 'url
  75.                    ELSE 'GotoURL 'url
  76.   END
  77.   WHEN UB='VOYAGER' THEN DO
  78.     IF NewWindow=1 THEN 'OpenURL 'url' NEWWIN'
  79.                    ELSE 'OpenURL 'url
  80.   END
  81.   WHEN UB='AWEB' THEN DO
  82.     IF NewWindow=1 THEN 'New 'url
  83.                    ELSE 'Open 'url
  84.   END
  85. END
  86. EXIT
  87.  
  88.