require "Gelo"

CookieView = {}

function CookieView:load()
 if str_beginswith(tab.url,'http') then
  local cookie = ''
  local cktable = ''
  local script = 'Sandcat.WriteLn(document.cookie);'
  tab:clearlog()
  tab:runjavascript(script,tab.url,0)
  app.processmessages()
  cookie = tab.logtext
  tab:clearlog()
  cookie = str_replace(cookie,'; ','\n')
  if cookie ~= '' then
   cktable = '<table border=1 width="100%"><tr style="color:gray;"><td>Cookie</td><td>Value</td></tr>'
   p = GStrListParser:new()
   p:loadfromstr(cookie)
   while p:parsing() do
    local ckname = html_escape(str_before(p.current,'='))
    local ckvalue = html_escape(str_after(p.current,'='))
    cktable = cktable..'<tr><td width="15%"><b>'..ckname..'</b></td><td width="85%"><input type="text" style="width:*;" value="'..ckvalue..'" readonly="true"></td></tr>'
   end
   p:release()
   cktable = cktable..'</table>'
  else
   cktable = '<b>No cookies found.</b>'
  end
  local html = [[
  <table width="100%" height="100%"><tr>
  <td width="95%" valign="top">]]..cktable..[[</td>
  <td width="5%" valign="top"><button onclick="CookieView:load()">Refresh</button></td>
  </tr></table>
  ]]
  extbar.load(html)
 else
  app.showmessage('No URL loaded.')
 end
end