.*
.*.*
%s*")
if (navs) then
local nave = file:find("%s*
",navs)
_,pages = file:sub(navs+1,nave-1):gsub("<[Aa][^>]*>(%d+)","")
pages = pages + 1
end
--print(pages .. " inbox pages")
local files = {file}
for i=2,pages do
file,err = supereva_globals.browser:get_uri(supereva_strings.inbox_uri .. i)
if (err) then
print("error on browser:get_uri: " .. err)
return POPSERVER_ERR_UNKNOWN
else
table.insert(files,file)
end
end
set_popstate_nummesg(pstate,0)
for i,v in ipairs(files) do parse_inbox(pstate,v) end
supereva_globals.stat_done = true
return POPSERVER_ERR_OK
end
-- -------------------------------------------------------------------------- --
-- Fill the number of messages and their size
function parse_inbox(pstate,file)
--print("--- parse_inbox() ---")
local nummesg = get_popstate_nummesg(pstate)
-- parse the msg table
local x = mlex.match(file,supereva_strings.inbox_e,supereva_strings.inbox_g)
--print(x:count() .. " messages in this page")
if (x:count() == 0) then return end
set_popstate_nummesg(pstate,nummesg+x:count())
-- set uidl/size for each message
for i=1,x:count() do
local uidl = string.match(x:get(0,i-1),"value=\"([^\"]*)\"")
local size = string.match(x:get(1,i-1),"(%d+)")
local size_mult_k = string.match(x:get(1,i-1),"([Kk])")
local size_mult_m = string.match(x:get(1,i-1),"([Mm])")
if (size_mult_k) then
size = size * 1024
elseif (size_mult_m) then
size = size * 1024 * 1024
end
set_mailmessage_size(pstate,nummesg+i,size)
set_mailmessage_uidl(pstate,nummesg+i,uidl)
end
end
-- -------------------------------------------------------------------------- --
-- Fill msg uidl field
function uidl(pstate,msg)
return common.uidl(pstate,msg)
end
-- -------------------------------------------------------------------------- --
-- Fill all messages uidl field
function uidl_all(pstate)
return common.uidl_all(pstate)
end
-- -------------------------------------------------------------------------- --
-- Fill msg size
function list(pstate,msg)
return common.list(pstate,msg)
end
-- -------------------------------------------------------------------------- --
-- Fill all messages size
function list_all(pstate)
return common.list_all(pstate)
end
-- -------------------------------------------------------------------------- --
-- Unflag each message merked for deletion
function rset(pstate)
return common.rset(pstate)
end
-- -------------------------------------------------------------------------- --
-- Mark msg for deletion
function dele(pstate,msg)
return common.dele(pstate,msg)
end
-- -------------------------------------------------------------------------- --
-- Do nothing
function noop(pstate)
return common.noop(pstate)
end
-- -------------------------------------------------------------------------- --
-- Get first lines message msg lines, must call
-- popserver_callback to send the data
function top(pstate,msg,lines,pdata)
return POPSERVER_ERR_OK
end
-- -------------------------------------------------------------------------- --
-- Get message msg, must call
-- popserver_callback to send the data
function retr(pstate,msg,data)
--print("--- retr(" .. msg .. ") ---")
-- we need the stat
local st = stat(pstate)
if (st ~= POPSERVER_ERR_OK) then return st end
-- the callback
local cb = mimer.callback_mangler(common.retr_cb(data))
-- get the message's page
local file,err = supereva_globals.browser:get_uri(supereva_strings.get_uri .. get_mailmessage_uidl(pstate,msg))
if (err ~= nil) then
print("error on browser:get_uri: " .. err)
return POPSERVER_ERR_UNKNOWN
end
local head,body_plain,body_html,attach = parse_message(file)
mimer.pipe_msg(head,body_plain,body_html,"http://" .. supereva_globals.browser:wherearewe(),
attach,supereva_globals.browser,cb,{},"utf-8")
return POPSERVER_ERR_OK
end
-- -------------------------------------------------------------------------- --
-- Extracts the message from the webmail page
function parse_message(file)
--print("--- parse_message() ---")
local body_begin_text = ''
local body_end_text = '
'
-- extract the body
local body_pre_begin, body_begin = string.find(file,body_begin_text)
local body_end, body_end_post = string.find(file,body_end_text)
local body = string.sub(file,body_begin+1,body_end-1)
-- mostly useless, just reduces range for mlex
local attach = string.sub(file,body_end_post+1,-1)
-- retrieve the attachments' url list
local x = mlex.match(attach,supereva_strings.attach_e,supereva_strings.attach_g)
local n = x:count()
local attachments = {}
for i = 0, n - 1 do
local url = string.match(x:get(1,i),'href=..([^"]*)"')
if (not url) then print("url non trovato per l'allegato " .. i)
else url = string.gsub(url,"&", "&") end
local name = string.match(x:get(0,i),"%s*(.*)")
attachments[name] = "http://" .. supereva_globals.browser:wherearewe() .. "/" .. url
end
-- mangles the body
local body_html = body
local body_plain = nil
-- extracts the important part
local _,head_begin = string.find(file,"")
local raw_head = string.sub(file,head_begin,body_pre_begin)
-- mangles the header
local head = mangle_head(raw_head)
return head,body_plain,body_html,attachments
end
-- ------------------------------------------------------------------------- --
-- given the HTML piece with the header, this returns the *clean* mail header
--
function mangle_head(s)
-- helper #1 - extract a header field from HTML
local function extract(field,data) -- ,getaddress)
local exM = ".*","") -- extract all interesting fields local from = extract("^Da:",s) local to = extract("^A:",s) local cc = extract("^CC:",s) local data = extract("^Data:",s) local oggetto = extract("^Oggetto:",s) -- pare che adesso la data sia gia' in inglese -- if (data) then data = translate(data) end if (to) then to = to:gsub(" ([%w%.-_]+@[%w%.-_]+)"," <%1>") end if (cc) then cc = cc:gsub(" ([%w%.-_]+@[%w%.-_]+)"," <%1>") end local s = "" if (to) then s = s .. "To: " .. to .. "\r\n" end if (oggetto) then s = s .. "Subject: " .. oggetto .. "\r\n" end if (from) then s = s .. "From: " .. from .. "\r\n" end if (cc) then s = s .. "CC: " .. cc .."\r\n" end if (data) then s = s .. "Date: " .. data .. "\r\n" end return s end -- EOF -- ************************************************************************** --