Script to show the topic?

[Real]

Does anybody know a script that could show the current topic of a channel?
I've already downloaded some TCL scripts, but they don't seem to have this function.


Something like:

Code: Select all

bind pub - !topic pub_topic
proc ...
putserv "PRIVMSG $channel :Topic is: This is where the topic should be"

Thank you



PS:

Code: Select all

on 1:TEXT:!topic:#:{ //msg # Current topic is: $chan($chan).topic }

This is the irc code

[spock]

Code: Select all

puthelp "PRIVMSG $c :Topic is [topic $c]"