File: tcl.tcl

package info (click to toggle)

sbnc 1.3.9-3

links: PTS
area: main
in suites: jessie, jessie-kfreebsd
size: 8,156 kB
ctags: 4,719
sloc: ansic: 20,379; cpp: 14,175; sh: 12,783; tcl: 6,025; php: 448; makefile: 430; perl: 46; awk: 25

file content (12 lines) | stat: -rw-r--r-- 250 bytes

parent folder | download | duplicates (4)

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