Posted to tcl by jdc at Wed Jul 11 09:13:38 GMT 2012view raw
- 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