Posted to tcl by jdc at Wed Jul 11 09:13:38 GMT 2012view pretty

proc pub:temp {nick host hand chan text} {
	if {$text != {} && [string tolower $text] != {netburst}} {
		return }
	set pid [open "|sysctl -a hw.sensors | grep cpu0" r]
	while {[gets $pid line] != -1} {
			puthelp "PRIVMSG $chan :$line"
	}
	close $pid
}
bind pub - !temp pub:temp