Chase_cmd, API2 | Показывает команды используемые юзерами Опции

[Otshelnik-Fm]

Chase_Cmd_v.1.0.

Перенес в готовые скрипты т.к. никто не захотел больше.
На авторство никак не претендую.

Скрипт перехватывает команды которые используют юзеры на хабе. Информация приходит к тому чей ник прописан в скрипте.

Перехватывать команды которые посылают юзеры удобно вот по какой причине:
1. Администрация видит если юзер пытается отправить запрещенные ему команды (или неизвестные)
2. Ну и конечно же чтобы в какой-то мере представлять какие скрипты нравятся пользователям.

Api 2

Прикрепленные файлы

 Chase_Cmd_v.1.0.lua ( 866 байт ) Кол-во скачиваний: 250

 

[DrakonSP]

API какой?

[Setuper]

Автору просьба оформить тему подобающим образом.
Посмотри правила оформления тем!

[DrakonSP]

А за что отвечает вот эта часть функции?

Код

        else
            local hFile = io.open ("log.txt" , "a+")
                if hFile then
                    hFile:write("Послана команда хабу: "..sData.."\r\n")
                    hFile:close()
                end

Чё то ни как не врублюсь...

[Wariner]

этот кусок отвечает за запись найденной команды в лог.

[DrakonSP]

этот кусок отвечает за запись найденной команды в лог.

Тогда вопрос такой...
Где этот лог?
Я лично ничего не обнаружил =)
Может надо добавить строчку типа...
hFile = path.."log.txt"
Если я туплю пните меня!

P.S. Файл log.txt в директории scripts создавать пробовал, но он оставался пустым.
Скрипт стоит в самом верху, т.к. иначе он не отлавливает команды скриптов, которые стоят выше него.
Идеи?

[Wariner]

посмотреть этот файл в папке с экзешником птоки))))

а вообще немного подредактировал))) вот:

Раскрывающийся текст

Код

local sBot = SetMan.GetString(21) -- имя бота
local sAdminNick = "Otshelnik-Fм" -- пишем ник хозяина хаба
local sFile = Core.GetPtokaXPath().."scripts/Hub files/CmdLog.txt"        

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match"%b<>%s+([%!%+%-/%*]%S+)"
    if sCmd and tUser.sNick~=sAdminNick then
        if Core.GetUser(sAdminNick) then
            Core.SendPmToNick(sAdminNick,sBot,"Послана команда хабу: "..sData)
        else
            local hFile = io.open (sFile , "a+")
            if hFile then
                hFile:write("Послана команда хабу: "..sData.."\r\n")
                hFile:close()
            end
        end
    end
end
ToArrival=ChatArrival

[DrakonSP]

Не не пишет лог
Хоть убей
И ошибок нет ни каких
P.S. Рядом exe-шником тоже ничего

[Wariner]

мда...
поясняю суть скрипта.
он сканирует каждое написанное в чат сообщение. при нахождении команды он смотрит если админ(ник которого прописан в начале скррипта) на хабе, то посылает ему сообщение, если нет, то пишет в лог.

PS: папочку прописаную в скрипте создать наверно забыл?

[DrakonSP]

PS: папочку прописаную в скрипте создать наверно забыл?

Нет не забыл даже файл создал =)
Вообщем действительно, если Админ отсутствует то пишет в лог
А правильно я переправил скрипт что бы он и туда и туда вообщем информировал?

Тыкай =))

Код

local sBot = SetMan.GetString(21)                    -- Ник Бота
local sAdminNick = "DrakonSP"                        -- Ник Админа
local sFile = Core.GetPtokaXPath().."scripts/Chase_Cmd/CmdLog.txt"    -- Путь к файлу лога

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match"%b<>%s+([%!%+%-/%*]%S+)"
    if sCmd and tUser.sNick~=sAdminNick then
        if Core.GetUser(sAdminNick) then
            Core.SendToNick(sAdminNick,"<"..sBot.."> Послана команда хабу: "..sData)
        end
    local hFile = io.open (sFile , "a+")
        if hFile then
            hFile:write("Послана команда хабу: "..sData.."\r\n")
            hFile:close()
        end
    end
end
ToArrival=ChatArrival

И какой код времени? Хочу что бы ещё время в лог закидывало...

[Wariner]

Код

os.date("%Y-%m-%d %H:%M:%S")

Код

%Y - год
%m - месяц
%d  - день
%H - часы
%M - минуты
%S - секунды

[DrakonSP]

Код

os.date("%Y-%m-%d %H:%M:%S")

А куда её собственно? вписывать?
Всё разобрался =))
Спасибо!

[TiGRpp]

Код

os.date("%Y-%m-%d %H:%M:%S")

А куда её собственно? вписывать?

Поделись куда, что-то не получается...

Каким образом добавить меню просмотра лога?

[DrakonSP]

Раскрывающийся текст

Код

local sBot = SetMan.GetString(21)                    -- Ник Бота
local sAdminNick = "DrakonSP"                        -- Ник Админа
    
local sFile = Core.GetPtokaXPath().."scripts/Chase_Cmd/CmdLog.txt"    -- Путь к файлу лога

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd = sData:match"%b<>%s+([%+]%S+)"
    if sCmd and tUser.sNick~=sAdminNick then
        if Core.GetUser(sAdminNick) then
            Core.SendToNick(sAdminNick,"<"..sBot.."> *** Послана команда хабу: "..sData)
        end
    local hFile = io.open (sFile , "a+")
        if hFile then
            hFile:write("["..os.date("%d.%m.%Y в %H:%M").."] "..sData.."\n")
            hFile:close()
        end
    end
end
ToArrival=ChatArrival

Так добавить меню и действие по команде

Раскрывающийся текст

Код

local Prefix = "!"        -- Префикс команды

local tProfile = {        -- Профили, которым доступно меню
    [0] = 1,            -- Master
    [1] = 1,            -- Operator
    [2] = 0,            -- Vip
    [3] = 0,            -- Reg
    [-1] = 0,            -- UnReg
}

function UserConnected(tUser)
    if tProfile[tUser.iProfile] == 1 then
        Core.SendToUser(tUser, "$UserCommand 1 3 Команды хабу\\Лог$<%[mynick]> "..Prefix.."cmdlog|")
end

OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(tUser, sData)
    local cmd = sData:match"%b<>%s+(%S+).*|"
    if cmd == ""..Prefix.."cmdlog" then
        Core.SendToUser(tUser,"<"..sBot.."> "..содержимое_текстового_файла)
        return true
    end    
end

А вот как вывести содержимое файла я ещё пока незнаю =))
Может знатоки помогут =))

[Nickolya]

Вот, слепил из того что выше.

Прикрепленные файлы

 CmdsLogger.lua ( 1.73 килобайт ) Кол-во скачиваний: 50

 

[TiGRpp]

Вот, слепил из того что выше.

Отлично. То, что надо.
Благодарю, Nickolya

Сам добавил имя бота без ключика:

Код

local sBot = "»»»CMD" -- имя бота
.
.
.
function OnStartup()
    Core.RegBot(tbot,"","",false)
end

[DrakonSP]

А как настроить так что бы он реагировал только на префикс +
Я не использую другие префиксы и хотелось бы избавиться от всяких не нужных.
Он даже реагирует на =)) (смайл)

[Nickolya]

Это уже моя вольность, простите, привычка. Чтобы сделать только + замени следующее

Код

local sCmd = sData:match"^%b<>%s+%p(%S+)"

на

Код

local sCmd = sData:match"^%b<>%s+%+(%S+)"

[TiGRpp]

Вот, слепил из того что выше.

Думал с ограничением объема файла справлюсь сам, открыл скрипт История чата, посмотреть как там реализовано, оказалось все не так просто для меня...

Таким образом опять пришел за помощью:
- ограничить размер файла, если возможно писать отдельный файл на каждый день
- и из меню выводить определенное количество строк...идеально по дате.

[TiGRpp]

Это уже моя вольность, простите, привычка. Чтобы сделать только + замени следующее

Код

local sCmd = sData:match"^%b<>%s+%p(%S+)"

на

Код

local sCmd = sData:match"^%b<>%s+%+(%S+)"

Nickolya, а где найти таблицу значений переменных типа - %s %p ...?
Ну вообще, если не сложно, систематизированный (или не очень) перечень ссылок по луа.

Спасибо.