Page Menu
Home
DevCentral
Search
Configure Global Search
Log In
Files
F3938483
Server.tcl
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Flag For Later
Size
2 KB
Referenced Files
None
Subscribers
None
Server.tcl
View Options
# ===============================================
# ========= ==== ====== ============
# ============ ====== === === = ==========
# ============ ===== ======== === =========
# ============ ===== ============= ==========
# ============ ===== ============ ===========
# == DcK ===== ===== =========== ============
# ============ ===== ========== =============
# ============ ====== === === ==============
# ============ ======= === ==========
# ===============================================
# ===============================================
# == Tau Ceti Central == Server administration ==
# == This is a very dangerous product to use ==
# == Don't deploy it in stable environment ==
# == Or say goodbye to the serv security ==
# == This warning will not be repeated ==
# == All your base are belong to us! ==
# ===============================================
# ===============================================
#
# (c) 2011 Sébastien Santoro aka Dereckson.
# Released under BSD license.
#
# Binds
#
bind
bot
-
tc2 bot:tc2
#Commands aliases only, main commands are handled by tc2:initialize
bind
dcc W php-fpm dcc:phpfpm
bind
pub W .php-fpm pub:phpfpm
bind
pub
-
.df pub:df
#
# Initializes bind and creates procedures for every tc2 commands
#
proc
tc2:addcommand
{
command
}
{
set
proc_tc2_command_dcc
{
tc2
dcc
$idx
$handle
%
COMMAND
%
$arg
return
1
}
set
proc_tc2_command_pub
{
tc2
pub
"$chan $nick"
$handle
%
COMMAND
%
$text
return
1
}
bind
dcc W
$command
dcc:
$command
bind
pub W
".$command"
pub:
$command
proc
dcc:
$command
{
handle
idx arg
}
[
string
map
"%COMMAND% $command"
$proc_tc2_command_dcc
]
proc
pub:
$command
{
nick
uhost handle chan text
}
[
string
map
"%COMMAND% $command"
$proc_tc2_command_pub
]
}
proc
tc2:initialize
{}
{
foreach
command
[
registry
get tc2.commands
]
{
tc2
:
addcommand
$command
}
}
tc2
:
initialize
#
# TC2 client procedures
#
proc
bot:tc2
{
sourcebot
command text
}
{
if
[catch
{
set
success
[
dict
get
$text
success
]
set
reply
[
dict
get
$text
reply
]
set
bind
[
dict
get
$text
bind
]
set
who
[
dict
get
$text
who
]
tc2
:
reply
$bind
$who
$reply
}]
{
putdebug
$text
}
}
proc
tc2
{
bind
who handle command arg
}
{
set
bot
[
registry
get tc2.bot
]
if
!
[
islinked
$bot
]
{
tc2
:
reply
$bind
$who
"$bot isn't linked"
return
}
putbot
$bot
"tc2 [dict create requester $handle command $command arg $arg bind $bind who $who]"
}
proc
tc2:reply
{
bind
who message
}
{
if
{
$bind
==
"dcc"
}
{
putdcc
$who
$message
}
elseif
{
$bind
==
"pub"
}
{
foreach
"chan nick"
$who
{}
putserv
"PRIVMSG $chan :$nick, $message"
}
{
error
"Unknown bind in tc2:reply: $bind (expected: dcc or pub)"
}
}
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Thu, Dec 26, 02:32 (7 h, 36 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2314153
Default Alt Text
Server.tcl (2 KB)
Attached To
Mode
rVIPERSERV ViperServ scripts [legacy Mercurial repo]
Attached
Detach File
Event Timeline
Log In to Comment