home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Online / AWebScripts / NoCache.awebrx < prev    next >
Text File  |  1999-11-25  |  1KB  |  52 lines
  1. /*    $VER: NoCache.awebrx 1.1 (24.11.99) by Jorma Oksanen <tenu@sci.fi>
  2.  
  3.     Adds URL to NoCache-list
  4.  
  5.     Mostly obsolete now when there's CacheControl, but this
  6.     one is slightly faster.
  7.  
  8.  
  9.     Setup:
  10.         Menu/ARexx
  11.  
  12.         NoCache        RUN AWeb3:Plugins/NoCache.awebrx
  13. */
  14.  
  15. options results
  16. parse arg args
  17.  
  18. parse value address() with '.' n
  19. cname='file:///nocache'n'.html'
  20.  
  21. if args='' then do
  22.  'get url var u'
  23.  if (abbrev(upper(u),'FILE://')) then exit
  24.  
  25.  parse source . . . script .
  26.  
  27.  'chanopen' cname; chan=result
  28.  'chanheader' chan '"Pragma: No-cache"'
  29.  'chanheader' chan '"Content-Type: text/html"'
  30.  
  31.  'chandata' chan '"<html><head><title>NoCache</title><body><form action=*"x-aweb:rexx/'script' *">" nl'
  32.  'chandata' chan '"<h3>Add this entry to AWeb''s no-cache list:" nl'
  33.  'chandata' chan '"<p><h5><input type=text maxlength=256 name=pat size=80 value=*"'u'*">" nl'
  34.  'chandata' chan '"<p><input type=submit value=Add></form></body></html>" nl'
  35.  'chanclose' chan
  36.  
  37.  'open' cname
  38. end
  39.  
  40. else do
  41.  parse var args 'pat="' pat '"'
  42.  
  43.  'getcfg nocache stem nc'
  44.  do i=1 while (i<= nc.0)&(pat~='')
  45.   if nc.i.value=pat then pat=''
  46.  end
  47.  
  48.  if pat~='' then 'setcfg nocache add' pat
  49.  
  50.  'go back'
  51. end
  52.