Topic

[Baidoc]

Hi. I`m trying to make a TCL that gets this line:
* Set by X on Wed Jul 06 04:02:38 -> From the channel topic. For eg.

* Topic is 'Welcome'
* Set by X on Wed Jul 06 04:02:38
how can I get the last like? I have *no* idea

Thanks.

[demond]

Code: Select all

bind raw - 333 get_topic_ts
proc get_topic_ts {from keyword args} {
   set args [split $args]
   set chan [lindex $args 1]
   set whom [lindex $args 2]
   set timestamp [lindex $args 3]
   puthelp "privmsg $chan :The topic was set by $whom on [ctime $timestamp]"
}
putserv "topic #channel"

[greenbear]

Look here

[Sir_Fz]

I was just wondering, isn't $args already a list? should it be split as well ?

[demond]

no, it's a string - the actual server reply, trimmed on the left to not include from/source and the numeric (it even retains the ':' separator as its first character)