Nikolay (Все сообщения пользователя)

---@param n number
local function money_value(n, sep)
    n = tostring(n)
    sep = sep or ' '
    local left,num,right = string.match(n,'^([^%d]*%d)(%d*)(.-)$')
    print(left,num,right)
    if not left or not num or not right then return n end
    return left..(num:reverse():gsub('(%d%d%d)','%1'..sep):reverse())..right
end

local version     = getInfoParam("VERSION")
local bits        = version:sub(1, 2) == '7.' and 'x86' or 'x64'

local gSPath      = getScriptPath()
local libs_Path = getScriptPath()..'\\clibs_'..bits
package.cpath     = libs_Path.."\\?.dll;"..libs_Path.."\\?\\?.dll;"..package.cpath
package.path      = gSPath .."\\?.lua;"..gSPath .."\\?\\?.lua;"..gSPath .."\\?\\init.lua;"..package.path

local imap4     = require 'imap4'
local ssl       = require("ssl")

local imapServer    = 'imap.yandex.com'
local serverPort    = 993
local login            = 'login'
local password        = 'pass'

-- If in doubt, see RFC 3501:
-- https://tools.ietf.org/html/rfc3501#section-6

-- Create new imap4 connection.
-- Port is optional and defaults to 143.
local connection = imap4(imapServer, serverPort, {protocol = 'tlsv1'})

-- If you are connecting to gmail, yahoo or any other server that needs a SSL
-- connection before accepting commands, uncomment this line:
--
-- connection:enabletls{protocol = 'sslv3'}
--
-- You can skip this step by creating the connection using
--
-- local connection = imap4('imap.gmail.com', 993, {protocol = 'sslv3'})

-- Print the servers capabilities.
print(table.concat(connection:capability(), ', '))

-- Make sure we can do what we came for.
assert(connection:isCapable('IMAP4rev1'))

-- Login. Warning: The credentials are sent in plaintext unless you
-- tunnel the connection over ssh, or use SSL (either via the method shown
-- above or calling connection:starttls(params) before logging in).
connection:login(login, password)

-- connection:lsub() lists all subscribed mailboxes.
for mb, info in pairs(connection:lsub()) do
    -- connection:status(mailbox, items) queries status of a mailbox.
    -- Note: The mailbox name may contain unescaped whitespace. You are
    --       responsible to escape it properly - try ("%q"):format(mb).
    local stat = connection:status(mb, {'MESSAGES', 'RECENT', 'UNSEEN'})
    print(mb, stat.MESSAGES, stat.RECENT, stat.UNSEEN)
end

-- Sel ect INBOX with read only permissions.
local info = connection:examine('INBOX')
print(info.exist, info.recent)

-- List info on the 4 most recent mails.
-- See https://tools.ietf.org/html/rfc3501#section-6.4.5
for _,v in pairs(connection:fetch('(UID BODY.PEEK[HEADER.FIELDS (From Date Subject)])', (info.exist)..':*')) do
    -- `v' contains the response as mixed (possibly nested) table.
    -- Keys are stored in the list part. In this example:
    --
    --    v[1] = "UID", v[2] = BODY
    --
    -- `v[key]' holds the value of that part, e.g.
    --
    --    v.UID = 10
    --
    -- `v.BODY' is the only exception and returns a table of the format
    --
    --    {parts = part-table, value = response}
    --
    -- For example:
    --
    --    v.BODY = {
    --        parts = {"HEADER.FIELDS", {"From", "Date", "Subject"}},
    --        value = "Fr om: Foo <foo@bar.baz>\r\nDate:..."
    --    }
    print(v.id, v.UID, v.BODY.value)
  local txt = connection:fetch('(BODY.PEEK[TEXT])', v.id)
  if #txt > 0 then
    print(txt[1].BODY.value)
  end
end

-- close connection
connection:logout()

local timer_processor = function(delay)

    delay = delay or 0
    local last_time = 0

    return function(func, ...)
        local cur_time = os.time()
        if cur_time - last_time >= delay then
            last_time = cur_time
            return func(...)
        end
        return ...
    end
end

local some_func = function(x)
    x = x + 1
    print(x)
    return x
end

local timer = timer_processor(2)

local a = 1

while a < 5 do
    a = timer(some_func, a)
end

file:seek("end")
last_line   = file:read('*l')