home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Online / AWebScripts / Queue.awebrx < prev    next >
Text File  |  1999-11-25  |  1KB  |  69 lines
  1. /*    $VER: Queue.awebrx 1.0 (17.11.99) by Jorma Oksanen <tenu@sci.fi>
  2.  
  3.     Allows adding URLs to a (possibly local) queue, where they can
  4.     later be restored from.
  5.  
  6.     Usage:
  7.  
  8.     Open a pop-up menu on a link(s) you want to follow later and
  9.     select 'Queue'.  Later, press numeric pad 'Enter' to enter
  10.     those pages.
  11.  
  12.  
  13.     Setup:
  14.  
  15.     GUI/Popup/Link
  16.  
  17.     Queue        RUN AWeb3:Plugins/Queue.awebrx %u F
  18.  
  19.     Gui/Keys
  20.  
  21.     Num Enter    RUN AWeb3:Plugins/Queue.awebrx NEXT
  22.  
  23.  
  24.     You can give two options to the popup command:
  25.  
  26.     F    Prefetches URL into the cache.  Recommended.
  27.  
  28.     L    Add URL to a local queue, it won't affect
  29.         other windows.  Local queue has a higher
  30.         priority than the global one when entering
  31.         pages.
  32. */
  33.  
  34. options results
  35.  
  36. cname='AWebQueue'
  37. parse value address() with '.' n
  38.  
  39. if upper(arg(1))='NEXT' then do
  40.  
  41.  url=pull(cname'.'n); if url='' then url=pull(cname)
  42.  
  43.  if url='' then 'request "Queue" "No more URLs in queue" "Ok" NOWAIT'
  44.  else 'open "'url'"'
  45.  
  46.  exit 0
  47. end
  48.  
  49. parse arg '"' url '"' opt
  50. opt=upper(opt)
  51.  
  52. if pos('F',opt)>0 then 'load "'url'"'
  53. if pos('L',opt)>0 then cname=cname'.'n
  54.  
  55. call push(cname,url)
  56. exit 0
  57.  
  58. /*    Push/pull an url to/from a named queue
  59. */
  60.  
  61. push: procedure
  62. call setclip(arg(1),getclip(arg(1))||arg(2)'\')
  63. return
  64.  
  65. pull: procedure
  66. parse value getclip(arg(1)) with u '\' q
  67. call setclip(arg(1),q)
  68. return u
  69.