PageMenu = {}
PageMenu.doc_url = 'http://www.syhunt.com/sandcat/?n='
PageMenu.livefilter = 'Sandcat Live Headers files (*.sclive)|*.sclive'
PageMenu.htmlfilter = 'HTML files (*.html;*.htm)|*.html;*.htm'
PageMenu.imagefilter = 'Image files|*.bmp;*.gif;*.jpg;*.jpe;*.jpeg;*.png;*.svg'
PageMenu.allfiles = 'All files (*.*)|*.*'
PageMenu.openfilter = PageMenu.htmlfilter..'|'..PageMenu.imagefilter..'|'..PageMenu.allfiles
PageMenu.newtabscript = ''

function PageMenu:NewTab()
 if PageMenu.newtabscript ~= '' then
  browser.dostring(PageMenu.newtabscript)
 else
  browser.newtab()
 end
end

function PageMenu:OpenPage()
 local f = app.openfile(self.openfilter,'html')
 if f ~= '' then
  tab:gotourl(f)
 end
end

function PageMenu:SaveCacheAs()
 local destfile = app.savefile('Sandcat Cache files (*.scc)|*.scc','scc')
 if destfile ~= '' then
  dir2tar(browser.info.cachedir,destfile)
 end
end

function PageMenu:OpenLiveHeaders()
 local lv = ''
 local f = app.openfile(self.livefilter,'sclive')
 if f ~= '' then
   tab:cache_import(f)
   lv = tab:cache_extractfile('\\Requests\\Headers')
   tab:loadheaders(lv)
   scop.file.delete(lv)
 end
end

function PageMenu:SaveLiveHeadersAs()
 local destfile = app.savefile(self.livefilter,'sclive')
 if destfile ~= '' then
  tab:saveheaders(destfile)
  local lv = scop.file.getcontents(destfile)
  if lv ~= '' then 
   tab:cache_storestring('\\Requests\\Headers',lv)
   tab:cache_export(destfile) -- overwrites initial export
  else
   app.showmessage('Failed to export live headers.')
  end
 end
end

function PageMenu:CloseAllTabs()
 if app.ask_yn('Close all tabs?') then
  browser.closetabs()
 end
end

function PageMenu:CloseAllButActiveTab()
 if app.ask_yn('Close all but active tab?') then
  browser.closetabs(tab.name)
 end
end

function PageMenu:SaveCachedAs_Ask(filename)
 if scop.file.exists(filename) then
  local name = scop.url.getfilename(self.saveurl)
  local ext = scop.url.getfileext(self.saveurl,false)
  if name == '' then
   name = 'Untitled.html'
   ext = 'html'
  end
  local sug = app.dir..name
  local destfile = app.savefile('All files (*.*)|*.*',ext,sug)
   if destfile ~= '' then
     scop.file.copy(filename,destfile)
   end
  scop.file.delete(filename)
 else
  self:SavePageAs() -- try online version
 end
end

function PageMenu:SaveCachedAs(url)
  if url == nil then
   url = tab.url
  end
  self.saveurl = url
  if url ~= '' then
   tab:loadcached(url,1,'PageMenu:SaveCachedAs_Ask')
  end
end

function PageMenu:SavePageAs()
 if Sandcat:IsURLLoaded(true) then
  browser.navbar:eval('SandcatDownloader.SaveURL_As($(#url).value)')
 end
end

function PageMenu:TakeScreenshot()
 if Sandcat:IsURLLoaded(true) then
  local sf = tab.screenshot
  if sf ~= '' then
   local sug = app.dir..scop.file.getname(sf)
   local destfile = app.savefile('PNG files (*.png)|*.png','png',sug)
   if destfile ~= '' then
    scop.file.copy(sf,destfile)
   end
  end
  scop.file.delete(sf)
 end
end

function PageMenu:ViewDevTools(newtab)
 if newtab == nil then newtab = false end
 if Sandcat:IsURLLoaded(true) then
   local url = tab.urldev
   if newtab then
    browser.newtab(url)
    tab.icon = 'url(Resources.pak#16/icon_devtools.png)'
   else
    browser.showurl(url)
   end
 end
end

function PageMenu:DeleteURLLogItem(itemid,logname)
 local logfile = browser.info.configdir..logname..'.sclist'
 local slp = scl.listparser:new()
 local found = false
 if scop.file.exists(logfile) then
  slp:loadfromfile(logfile)
  while slp:parsing() do
   if stringop.match(slp.current,'<item*id="'..itemid..'"*>') then
    slp:curdelete()
    found = true
   end
  end
  if found == true then
   slp:savetofile(logfile)
  end
 end
 slp:release()
 tab.engine:eval('$("#'..itemid..'").remove()')
end

function PageMenu:ViewURLLogFile(newtab,histname)
 local html = Sandcat:getfile('histview.html')
 local style = ''
 local histfile = browser.info.configdir..histname..'.sclist'
 local tabicon = '@ICON_BLANK'
 local menu = ''
 local sl = scl.stringlist:new()
 if newtab == nil then
  newtab = true
 end
 if histname == 'History' then
  style = [[
  tr.item { context-menu: selector(#historymenu); }
  ]]
  menu = [[
  <li onclick="PageMenu:DeleteURLLogItem('%i','History')">Delete</li>
  ]]
 end
 if histname == 'Bookmarks' then
  style = [[
  th.visited { display: none; }
  td.visited { display: none; }
  ]]
  tabicon = 'url(Resources.pak#16/icon_bookmarks.png)'
  menu = [[
  <li onclick="PageMenu:DeleteURLLogItem('%i','Bookmarks')">Delete</li>
  ]]
 end
 if scop.file.exists(histfile) then
  local p = scl.htmlparser:new()
  p:load(scop.file.getcontents(histfile))
  while p:parsing() do
   if p.tagname == 'item' then
    local url = p:getattrib('url')
    local visited = p:getattrib('visited')
    local name = p:getattrib('name')
    local id = p:getattrib('id')
    sl:add('<tr.item url="'..url..'" role="option" style="context-menu: selector(#menu'..id..');" id="'..id..'">')
    sl:add('<td>'..name..'</td>')
    sl:add('<td>'..url..'</td>')
    sl:add('<td.visited>'..visited..'</td>')
    sl:add('<menu.context id="menu'..id..'">'..stringop.replace(menu,'%i',id)..'</menu>')
    sl:add('</tr>')
   end
  end
  p:release()
 end
 html = stringop.replace(html,'%style%',style)
 html = stringop.replace(html,'%history%',sl.text)
 sl:release()
 if newtab then
  local j = {}
  j.title = histname
  j.tag = string.lower(histname)..'view'
  j.toolbar = 'Resources.pak#histview_tb'..string.lower(histname)..'.html'
  j.icon = tabicon
  j.html = html
  browser.newtabx(j)
 else
  tab:loadx(html)
 end
end

function PageMenu:ViewHistory(newtab)
 self:ViewURLLogFile(newtab,'History')
end

function PageMenu:ViewBookmarks(newtab)
 self:ViewURLLogFile(newtab,'Bookmarks')
end

function PageMenu:ViewTasks()
 if browser.info.tasks ~= '' then
  browser.setactivepage('tasks')
 else
  app.showmessage('No tasks to display.')
 end
 --[[if TaskView == nil then
  Sandcat:dofile('taskview.lua')
 end
 TaskView:loadtasks()]]
end

function PageMenu:ViewDownloads()
 if TaskView == nil then
  Sandcat:dofile('taskview.lua')
 end
 TaskView:loaddownloads()
end

Downloader = {}
Downloader.title = 'Download Manager'
function Downloader:launch(f)
 if (f ~= '') then
   local resp=app.ask_yn('Are you sure you want to launch "'..scop.file.getname(f)..'"?',self.title)
   if resp == true then
    scop.file.exec(f)
   end
 end
end