4 # ./topicedit.tcl SERVER PORT NICK IDENT FULLNAME CHANNEL TOPICINFO
8 manyset $argv host port nick ident ownfullname channel topicinfo
13 global errorInfo errorCode
14 puts stderr "$msg\n$errorCode\n$errorInfo\n"
23 proc privmsg_unlogged {args} { return 1 }
24 proc msg_332 {server code us channel topic args} {
26 if {[string compare $nick $us]} return
29 proc msg_333 {server code us channel setter when} {
31 # might happen as a result of us connecting, or as a result of
33 set now [clock seconds]
34 if {![string compare $nick $setter] && $when > $now - 3600} {
39 puts stderr "*** topic recently set by us, not setting again!"
45 global oldtopic topicinfo channel done
46 set newtopic "$oldtopic | $topicinfo"
47 sendout TOPIC $channel $newtopic
48 sendout TOPIC $channel