home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Online / AWebScripts / ColdList.awebrx < prev    next >
Text File  |  1999-11-25  |  570b  |  38 lines
  1. /*    $VER: ColdList.awebrx 1.0 (11.2.1999) by Jorma Oksanen <tenu@sci.fi>
  2.  
  3.     Removes entry from hotlist
  4.  
  5.     Note that it removes only the first entry with the same URL
  6.  
  7.  
  8.     Setup:
  9.         GUI/Popup/Link
  10.  
  11.         Remove from hotlist
  12.         RUN AWeb3:Plugins/ColdList.awebrx %u
  13. */
  14.  
  15. options results
  16. parse arg uri
  17. if uri='' then 'get url var uri'
  18. uri=strip(uri,'b','"')
  19. 'get hotlist stem hl'
  20.  
  21. m=hl.0
  22.  
  23. do i=1 to m
  24.  if hl.i.url=uri then leave
  25. end
  26.  
  27. if i>m then exit
  28.  
  29. if i<m then do
  30.  hl.i.group=hl.m.group
  31.  hl.i.title=hl.m.title
  32.  hl.i.url=hl.m.url
  33.  hl.i.owner=hl.m.owner
  34. end
  35. hl.0=m-1
  36.  
  37. 'hotlist set hl'
  38.