MirLua

[zevnull]

Приветствую всех, у меня есть задача, предоставить упрощенный интерфейс создания чат комнаты для пользователей. Хочется добавить кнопку на основную панель, по нажатию на которую отрисуется интерфейс по созданию чат комнаты, где автоматически будет использоваться сервер конференций в формате conference.domain.com, где domain.com - эта та часть, что возьмется от login@domain.com. Таким образом пользователю останется ввести только название для чат комнаты. И еще момент, есть потребность принимать дефолтные настройки чат комнаты сразу по ее созданию.

Я буду крайне признателен, если уважаемый автор данного плагина MirLua, подскажет мне куда копать, для решение моей задачи! Я ни коим образом не прошу решить ее за меня, прошу лишь направить.

[unsane]

zevnull,

"в первом приближении это выглядит так"

Code: [Select]

local ttb = require('m_toptoolbar')
local icolib = require('m_icolib')

m.HookEvent('TopToolBar/ModuleLoaded', function ()
    ttb.AddButton({
        Name = 'Join chat',
        Service = 'JABBER/*/Groupchat',
        lParamDown = topointer(u'room_name@conference.jabber.ru'),
        Icon = icolib.AddIcon('joinChat', 'Join chat')
    })
end)


[close]

Проблемы:

• без доработки Jabber'a не получится сделать подстановку сервера
• название аккаунта вколочено гвоздями (JABBER_1) и может отличаться
• непонятно что делать, если аккаунтов jabber'a несколько

upd
сделал фикс для Jabber'a со следующего ночника можно будет передать параметр для заполнения полей:

Code: [Select]

local ttb = require('m_toptoolbar')
local icolib = require('m_icolib')

m.HookEvent('TopToolBar/ModuleLoaded', function ()
    ttb.AddButton({
        Name = 'Join chat',
        Service = 'JABBER/*/Groupchat',
        lParamDown = topointer(u'room_name@conference.jabber.ru'),
        Icon = icolib.AddIcon('joinChat', 'Join chat')
    })
end)


[Oneiron]

Здравствуйте. Пытаюсь запустить код

Code: [Select]

local message = require("m_message")
local winapi = require("winapi")

m.HookEvent("MirLua/RecvMessage", function(w, l)
  local ccd = CCSDATA(l)
  if ccd.Message == 'stopword' then
    winapi.ShellExecute('cmd.exe', 'file', 'args', 0)
    message.Send(ccd.hContact, ccd.Message)
    return 1;
  end
end)
При отправке сообщений выскакивает ошибка - attempt to call a nil value (global 'CCSDATA'), больше ничего не происходит.
Так же хотел бы узнать - как можно ограничить выполнение скрипта так, чтобы он выполнялся только при получении сообщения от конкретного отправителя?

[unsane]

Oneiron,

Code: [Select]

local db = require("m_database")
local message = require("m_message")
local winapi = require("winapi")

m.HookEvent("MirLua/RecvMessage", function(w, l)
  local ccd = CCSDATA.new(l)
  if db.GetContactInfo(ccd.hContact, 'Uid') == '<uid_of_contact>' and ccd.Message == '<stopword>' then
    winapi.ShellExecute('cmd.exe', 'file', 'args', 0)
    message.Send(ccd.hContact, ccd.Message)
    print(111)
    return 1;
  end
end)


[Oneiron]

Теперь - attempt to index a nil value (global 'CCSDATA')

[unsane]

хм. можно попробовать добавить

Code: [Select]

require('m_protocols') в начало.

[Oneiron]

Добавил. Ошибок при отправке больше не выскакивает, но и не работает. Дебаг в консольке в виде:

Code: [Select]

  local ccd = CCSDATA.new(l)
  print(ccd.Message)
Показывает, что внутри ccd.Message всегда "nil", независимо от того что я отправляю.

[Oneiron]

В итоге заработал такой вариант:

Code: [Select]

local protocols = require('m_protocols')
local db = require("m_database")
local message = require("m_message")
local winapi = require("winapi")

m.HookEvent("MirLua/RecvMessage", function(w, l)
  local ccd = CCSDATA.new(l)
  local pre = PROTORECVEVENT(ccd.lParam)
  if pre.Message == "stopword" then
    winapi.CreateProcess(nil, 'cmd.exe /k', nil, nil, 0, 0, si, nil)
    message.Send(ccd.hContact, 'Принято!')
    return 1;
  end
end)

[unsane]

Oneiron, да, все правильно.


p.s. сделал фикс (в ночнике), чтобы работало

Code: [Select]

local ccd = CCSDATA(l)

[unsane]

подскажите, с помощью какой настройки, ключа, плагина можно принудительно переводить миранду по всем(выбранным) протоколам в онлайн при запуске?

Перевести все протоколы в онлайн:

Code: [Select]

local protos = require('m_protocols')

local ID_STATUS_OFFLINE = 40071
local ID_STATUS_ONLINE = 40072

m.HookEvent('Miranda/System/ModulesLoaded', function()
  for acc in protos.Accounts() do
    if acc.IsEnabled and not acc.IsVirtual then
      local status = acc:CallService('/GetStatus')
      if (status == ID_STATUS_OFFLINE) then
        acc:CallService('/SetStatus', ID_STATUS_ONLINE)
      end
    end
  end
end)


[Gynaecologist]

Здравствуйте, можно ли скрыть от пользователя  или сделать "Read Only" отдельные элементы окна настроек?
например, сделать так, чтобы не было видно раздела idle:

Spoiler

[close]

[unsane]

Gynaecologist, скорее всего нет.

[Oneiron]

А в MirLua есть какая-нибудь встроенная функция ожидания?

[unsane]

смотря что нужно. Можно попробовать модуль m_schedule.

Code: [Select]

local schedule = require('m_schedule')

local wait_period_in_secons = 5
local time = os.time() + wait_period_in_secons
schedule.At(time).Do(function()
   -- код здесь вызовется через 5 секунд
end)


[Oneiron]

Последовательно подключать аккаунты, но если при этом использовать

Code: [Select]

local clock = os.clock
function sleep(n)  -- seconds
  local t0 = clock()
  while clock() - t0 <= n do end
end
То миранда остается недоступной (не показывая ни значков, ни главного окна, ни всплывающих окон) до тех пор, пока все протоколы не загрузятся.