This file is indexed.

/usr/share/sbnc/scripts/tcl.tcl is in sbnc-tcl 1.3.9-3ubuntu1.

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"
	}
}