Page Menu
Home
Phabricator (Chris)
Search
Configure Global Search
Log In
Files
F628870
addtrigger.lua
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Flag For Later
Award Token
Authored By
Unknown
Size
4 KB
Referenced Files
None
Subscribers
None
addtrigger.lua
View Options
--[[
mattata v2.0 - Add Trigger Plugin
]]
local
plugin
=
{}
plugin
.
name
=
'addtrigger'
plugin
.
category
=
'admin'
plugin
.
description
=
'Add a trigger (auto-response pattern)'
plugin
.
commands
=
{
'addtrigger'
}
plugin
.
help
=
'/addtrigger <pattern> <response> - Adds a trigger. Use /deltrigger <number> to remove.'
plugin
.
group_only
=
true
plugin
.
admin_only
=
true
function
plugin
.
on_message
(
api
,
message
,
ctx
)
local
tools
=
require
(
'telegram-bot-lua.tools'
)
if
not
message
.
args
then
return
api
.
send_message
(
message
.
chat
.
id
,
'Usage: /addtrigger <pattern> <response>
\n\n
'
..
'The pattern is a Lua pattern that will be matched against incoming messages. '
..
'When matched, the response is sent.'
)
end
-- if used with /deltrigger, handle deletion
if
message
.
command
==
'deltrigger'
then
local
index
=
tonumber
(
message
.
args
)
if
not
index
then
return
api
.
send_message
(
message
.
chat
.
id
,
'Usage: /deltrigger <number>'
)
end
local
triggers
=
ctx
.
db
.
call
(
'sp_get_triggers_ordered'
,
{
message
.
chat
.
id
})
if
not
triggers
or
not
triggers
[
index
]
then
return
api
.
send_message
(
message
.
chat
.
id
,
'Invalid trigger number. Use /triggers to see the list.'
)
end
ctx
.
db
.
call
(
'sp_delete_trigger_by_id'
,
{
triggers
[
index
].
id
})
-- invalidate trigger cache
require
(
'src.core.session'
).
invalidate_cached_list
(
message
.
chat
.
id
,
'triggers'
)
return
api
.
send_message
(
message
.
chat
.
id
,
string.format
(
'Trigger <code>%s</code> has been removed.'
,
tools
.
escape_html
(
triggers
[
index
].
pattern
)
),
'html'
)
end
-- parse pattern and response (split on first newline or first space after the pattern)
local
pattern
,
response
if
message
.
args
:
match
(
'
\n
'
)
then
pattern
,
response
=
message
.
args
:
match
(
'^(.-)%s*
\n
%s*(.+)$'
)
else
pattern
,
response
=
message
.
args
:
match
(
'^(%S+)%s+(.+)$'
)
end
if
not
pattern
or
not
response
then
return
api
.
send_message
(
message
.
chat
.
id
,
'Usage: /addtrigger <pattern> <response>'
)
end
pattern
=
pattern
:
match
(
'^%s*(.-)%s*$'
)
response
=
response
:
match
(
'^%s*(.-)%s*$'
)
-- validate pattern
local
ok
=
pcall
(
string.match
,
''
,
pattern
)
if
not
ok
then
return
api
.
send_message
(
message
.
chat
.
id
,
'Invalid Lua pattern. Please check your syntax.'
)
end
-- check for duplicate
local
existing
=
ctx
.
db
.
call
(
'sp_check_trigger_exists'
,
{
message
.
chat
.
id
,
pattern
})
if
existing
and
#
existing
>
0
then
ctx
.
db
.
call
(
'sp_update_trigger_response'
,
{
response
,
message
.
chat
.
id
,
pattern
})
return
api
.
send_message
(
message
.
chat
.
id
,
string.format
(
'Trigger <code>%s</code> has been updated.'
,
tools
.
escape_html
(
pattern
)
),
'html'
)
end
ctx
.
db
.
call
(
'sp_insert_trigger'
,
{
message
.
chat
.
id
,
pattern
,
response
,
message
.
from
.
id
})
-- invalidate trigger cache
local
session
=
require
(
'src.core.session'
)
session
.
invalidate_cached_list
(
message
.
chat
.
id
,
'triggers'
)
api
.
send_message
(
message
.
chat
.
id
,
string.format
(
'Trigger added: <code>%s</code> -> %s'
,
tools
.
escape_html
(
pattern
),
tools
.
escape_html
(
response
:
sub
(
1
,
100
))
..
(
#
response
>
100
and
'...'
or
''
)
),
'html'
)
end
-- handle trigger matching on every new message
function
plugin
.
on_new_message
(
api
,
message
,
ctx
)
if
not
ctx
.
is_group
or
not
message
.
text
or
message
.
text
==
''
then
return
end
-- don't trigger on commands
if
message
.
text
:
match
(
'^[/!#]'
)
then
return
end
-- cache triggers per chat (5-min ttl)
local
session
=
require
(
'src.core.session'
)
local
triggers
=
session
.
get_cached_list
(
message
.
chat
.
id
,
'triggers'
,
function
()
return
ctx
.
db
.
call
(
'sp_get_triggers'
,
{
message
.
chat
.
id
})
end
,
300
)
if
not
triggers
or
#
triggers
==
0
then
return
end
local
text
=
message
.
text
:
lower
()
for
_
,
t
in
ipairs
(
triggers
)
do
local
ok
,
matched
=
pcall
(
function
()
return
text
:
match
(
t
.
pattern
:
lower
())
end
)
if
ok
and
matched
then
if
t
.
is_media
and
t
.
file_id
then
-- send media response
api
.
send_document
(
message
.
chat
.
id
,
t
.
file_id
,
nil
,
nil
,
nil
,
message
.
message_id
)
else
api
.
send_message
(
message
.
chat
.
id
,
t
.
response
,
nil
,
nil
,
nil
,
message
.
message_id
)
end
return
end
end
end
return
plugin
File Metadata
Details
Attached
Mime Type
application/javascript
Expires
Sun, Nov 15, 5:24 AM (1 d, 22 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
116822
Default Alt Text
addtrigger.lua (4 KB)
Attached To
Mode
R69 mattata
Attached
Detach File
Event Timeline