home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / S / ChangeBrowser.awebrx < prev    next >
Text File  |  1999-11-24  |  466b  |  21 lines
  1. /*
  2.     $VER: ChangeBrowser.awebrx 1.0 (27.8.99) (c) Neil Bothwick, Wirenet
  3. */
  4.  
  5. options results
  6. parse arg args
  7. parse var args Browser ' ' URL
  8. CDName = left(URL, pos(':',URL))
  9.  
  10. WebSites = CDName'AACD/WebSites/'
  11.  
  12. select
  13.     when Browser = IB then address command 'Run >NIL: 'WebSites'IBrowse/IBrowse file://localhost/'URL 'CONFIGDIR 'WebSites'IBrowse'
  14.     when Browser = V then address command 'Run >NIL: 'WebSites'Voyager/V file:///'URL
  15.     otherwise nop
  16.     end
  17.  
  18. 'quit force'
  19. exit
  20.  
  21.