Code: Select all
bind pubm - * foo
bind pub - !last bar
proc foo {n args} {set ::last($n) [unixtime]}
proc bar {n u h c t} {catch {puthelp "privmsg $c :[ctime $::last($t)]"}}
Code: Select all
foreach nick [chanlist $chan] {
if {[isop $nick $chan]} {puthelp "notice $nick :this is op notice"}
}