topic info now includes length

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@239 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/Topic.pl b/src/Modules/Topic.pl
index 84eca7bac19b20f010c1a7736b3500a269ea7d08..6cd8a143863ad79bbafa4c5397eec4143a8451b6 100644 (file)
--- a/src/Modules/Topic.pl
+++ b/src/Modules/Topic.pl
@@ -476,9 +476,10 @@ sub Topic {
     if (exists $topic{$chan}{'Who'} and exists $topic{$chan}{'Time'}) {
        $reply = "topic on \002$chan\002 was last set by ".
                $topic{$chan}{'Who'}. ".  This was done ".
-               &Time2String(time() - $topic{$chan}{'Time'}) ." ago.";
+               &Time2String(time() - $topic{$chan}{'Time'}) ." ago".
+               ".  Length: ".length($topic{$chan}{'Current'});
        my $change = $topic{$chan}{'What'};
-       $reply .= "Change => $change" if (defined $change);
+       $reply .= ".  Change => $change" if (defined $change);
     }
 
     &performStrictReply($reply);