RegmeEmail, API2 | Регистрация через e-mail

local cmd = require"cmd" -- Библиотека команд
local email = require"email" -- Библиотека электронный почты

-- настройки e-mail
local sFrom = "11111" -- Адрес отправителя
local sServer = "11111" -- Адрес сервера
local sUser = "111111" -- Имя пользователя
local sPass = "1111111" -- Пароль
local sHubAddress = "111111" -- Адрес вашего хаба
--

local sSubject = "Registration: [HUBNAME]" -- Тема сообщения
local iRegProfile = 5 -- Номер профиля для регистрации
local sFile = debug.getinfo(1).source:match("^@?(.+[/\\]).-$").."baza/emails.dat"

local sMsg = [[Здравствуйте!


На хабе по адресу dchub://[HUB]
появилась регистрационная запись,
в которой был указал ваш электронный адрес (e-mail).


Зарегистрирован был следующий ник:

===================================

Ник пользователя (login): [NICK]
Пароль: [PASS]

===================================

Если вы не понимаете, о чем идет речь — просто проигнорируйте это сообщение!

Если же именно вы решили зарегистрироваться на хабе по адресу dchub://[HUB],
то вам следует войти на хаб и тем самым активировать вашу учетную запись.

Подтверждение регистрации производится один раз.
Активация произойдет автоматически.

]]

-- профили, которым разрешено удаление аккаунта
local tUnregAllow = {
  [0] = 1,
  [1] = 1,
  [2] = 1,
  [3] = 1,
  [4] = 1,
  [5] = 1
}

local tTimers, tNoActivate = {}, {}
local tMailList, tNickList = {}, {}
function OnStartup()
  sBot = SetMan.GetString(21)
  sSubject = sSubject:gsub("%[HUBNAME%]", SetMan.GetString(0))
  email.SetValues(sFrom, sServer, sUser, sPass)
  cmd.Add("[Rr][Ee][Gg][Mm][Ee]", Regme, Protect)
  cmd.Add("[Uu][Nn][Rr][Ee][Gg]", Unreg, UnregProtect)
  if loadfile(sFile) then
    dofile(sFile)
  end
end

function Protect(tUser)
  if tUser.iProfile ~= -1 then
    return false
  end
  return true
end

function UnregProtect(tUser)
  if tUnregAllow[tUser.iProfile] and tUnregAllow[tUser.iProfile] == 1 then
    return true
  end
  return false
end

function GetMsg(sNick, sPasswd)
  local sStr = sMsg:gsub("%[HUB%]", sHubAddress)
  sStr = sStr:gsub("%[NICK%]", sNick)
  sStr = sStr:gsub("%[PASS%]", sPasswd)
  return sStr
end

local sPass = ""
tAbc = {
    "0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K",
    "L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f",
    "g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z",
}

function GetPass()
    math.randomseed(os.time())
    sPass = tAbc[math.random(#tAbc)] -- 1-я буква пароля
    local iPass = math.random(5, 8) -- длина пароля = [(от 4 до 7) + 1]
    for i = 1, iPass do
        sPass = sPass..tAbc[math.random(#tAbc)]
    end
    return sPass
end

function Regme(tUser)
  local sEmail = cmd.msParams
  if tMailList[sEmail] then
    return nil, ("С введённым вами e-mail адресом уже зарегистрирован пользователь. Если письмо не пришло на ящик, для перерегистрации на этот e-mail нужно подождать %s минут и повторить регистрацию."):format(iDelay)
  end
  local sPasswd = GetPass()
  local res, err = email.SendMail(sEmail, sSubject, GetMsg(tUser.sNick, sPasswd))
  if res then
    RegMan.AddReg(tUser.sNick, sPasswd, iRegProfile)
    Core.SendToOps("Зарегистрировался юзер с ником "..tUser.sNick)
    tMailList[sEmail] = tUser.sNick
    tNickList[tUser.sNick] = sEmail
    Save(tMailList, "tMailList", sFile)
    tNoActivate[tUser.sNick] = true
    Core.SendToUser(tUser, ("<%s> Пароль отправлен на адрес: (e-mail). Письмо с вашим паролем было успешно отправлено (Message with your password was sent successfully)"):format(sBot, iDelay))
  end
  return res, err
end

function Unreg(tUser)
  RegMan.DelReg(tUser.sNick)
  for k, v in pairs(tMailList) do
    if v == tUser.sNick then
      tMailList[k] = nil
      return true
    end
  end
  return true
end

function ChatArrival(tUser, sData)
  local r, e = cmd.Exec(sData:sub(#(tUser.sNick) + 4, -2), tUser)
  if not r and e then
    Core.SendToUser(tUser, ("<%s> "..e):format(sBot))
  end
  if cmd.miCmdState == 3 then
    Core.SendToUser(tUser, ("<%s> Команда введена без префикса"):format(sBot))
  end
  if cmd.miCmdState == 4 then
    Core.SendToUser(tUser, ("<%s> Вы уже зарегистрированы!"):format(sBot))
    return true
  end
  if r or e then
    return true
  end
end

function RegConnected(tUser)
  if tNoActivate[tUser.sNick] then
    tNoActivate[tUser.sNick] = nil
  end
  Core.SendToUser(tUser, "$UserCommand 1 3 Регистрация\\Сменить пароль$<%[mynick]> !passwd %[line:Введите новый пароль]||"..
  "$UserCommand 1 3 Регистрация\\Удалить регистрацию$<%[mynick]> !unreg|")
end
OpConnected = RegConnected

function UserConnected(tUser)
  Core.SendToUser(tUser, "$UserCommand 1 3 Регистрация\\Зарегистрироваться$<%[mynick]> !regme %[line:Введите Ваш e-mail]|")
end

function Save(tTable, sTableName, sFile)
    local h = io.open(sFile, "w")
  if h then
    Serialize(tTable, sTableName, h)
    h:flush()
    h:close()
  end
end

function Serialize(tTable, sTableName, hFile, sTag)
    sTag = sTag or ''
    hFile:write(sTag..sTableName.." = {\n" )
    for k, v in pairs(tTable) do
        local sKey = ( type(k) == "string" ) and ( "[%q]" ):format(k) or ( "[%d]" ):format(k)
        if type(v)=="table" then
            Serialize(v, sKey, hFile, sTag..'\t')
        else
            local sValue = ( type(v) == "string" ) and ( "%q" ):format(v) or tostring(v)
            hFile:write(sTag..'\t'..sKey.." = "..sValue)
        end
        hFile:write",\n"
    end
    hFile:write(sTag..'}')
end

function Regme(tUser)
  local sEmail = cmd.msParams
  if tMailList[sEmail] then
    return nil, ("С введённым вами e-mail адресом уже зарегистрирован пользователь. Если письмо не пришло на ящик, для перерегистрации на этот e-mail нужно подождать %s минут и повторить регистрацию."):format(iDelay)
  end
  local sPasswd = GetPass()
  local res, err = email.SendMail(sEmail, sSubject, GetMsg(tUser.sNick, sPasswd))
  if res then
    RegMan.AddReg(tUser.sNick, sPasswd, iRegProfile)
    Core.SendToOps("Зарегистрировался юзер с ником "..tUser.sNick)
    tMailList[sEmail] = tUser.sNick
    tNickList[tUser.sNick] = sEmail
    Save(tMailList, "tMailList", sFile)
    tNoActivate[tUser.sNick] = true
    Core.SendToUser(tUser, ("<%s> Пароль отправлен на адрес: (e-mail). Письмо с вашим паролем было успешно отправлено (Message with your password was sent successfully)"):format(sBot, iDelay))
  end
  return res, err
end

function ChatArrival(tUser, sData)
    Core.GetUserAllData(tUser) -- начало
        if tUser.iShareSize <= iMinShare then
        Core.SendToUser(tUser, "У вас мало открыто шары, откройте "..iMinShare.."")
    return true -- конец проверки на шару
  end
  local r, e = cmd.Exec(sData:sub(#(tUser.sNick) + 4, -2), tUser)
  if not r and e then
    Core.SendToUser(tUser, ("<%s> "..e):format(sBot))
  end
  if cmd.miCmdState == 3 then
    Core.SendToUser(tUser, ("<%s> Команда введена без префикса"):format(sBot))
  end
  if cmd.miCmdState == 4 then
    Core.SendToUser(tUser, ("<%s> Вы уже зарегистрированы!"):format(sBot))
    return true
  end
  if r or e then
    return true
  end
end