/usr/share/sbnc/scripts/tcl.tcl is in sbnc-tcl 1.3.9-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 | bind pub n&- % stcl
proc stcl {nick host hand chan arg} {
set ctx [getctx]
catch {eval $arg} result
setctx $ctx
if {$result == ""} { set result "<no error>" }
foreach sline [split $result \n] {
putserv "PRIVMSG $chan :( $arg ) = $sline"
}
}
|