From 78a02f754e956cb1794d3e2e13d4822b26431ebc Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 19 Aug 2000 10:44:11 +0000
Subject: [PATCH] closed 17447 -- 'topic info' should give more info

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@46 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/Modules/Topic.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/blootbot/src/Modules/Topic.pl b/blootbot/src/Modules/Topic.pl
index 8d52083..59ce3a8 100644
--- a/blootbot/src/Modules/Topic.pl
+++ b/blootbot/src/Modules/Topic.pl
@@ -185,6 +185,7 @@ sub Topic {
 
     my @prev = &topicDecipher($chan);
     my $new  = "$args ($orig{who})";
+    $topic{$chan}{'What'} = "Added '$args'.";
     if (scalar @prev) {
       $new = &topicCipher(@prev, sprintf("%s||%s", $args, $who));
     }
@@ -234,6 +235,8 @@ sub Topic {
 	    return $noreply;
 	}
 
+	$topic{$chan}{'What'} = "Deleted ".join("/",@delete);
+
 	foreach (@delete) {
 	  if ($_ > $topiccount || $_ < 1) {
 	    &msg($who, "error: argument out of range. (max: $topiccount)");
@@ -292,6 +295,8 @@ sub Topic {
 	&msg($who, "warning: adding double pipes manually == evil. be warned.");
     }
 
+    $topic{$chan}{'What'} = "SAR $args";
+
     # SAR patch. mu++
     if ($args =~ m|^\s*s([/,#])(.+?)\1(.*?)\1([a-z]*);?\s*$|) {
 	my ($delim, $op, $np, $flags) = ($1,quotemeta $2,$3,$4);
@@ -351,6 +356,8 @@ sub Topic {
 	  return $noreply;
 	}
 
+	$topic{$chan}{'What'} = "Move $from to $to";
+
 	if ($action =~ /^(swap)$/i) {
 	  my $tmp			= $subtopics[$to   - 1];
 	  $subtopics[$to   - 1]		= $subtopics[$from - 1];
@@ -397,6 +404,8 @@ sub Topic {
     my @subtopics  = &topicDecipher($chan);
     my @newtopics;
 
+    $topic{$chan}{'What'} = "shuffled";
+
     foreach (&makeRandom(scalar @subtopics)) {
 	push(@newtopics, $subtopics[$_]);
     }
@@ -428,6 +437,8 @@ sub Topic {
 	return $noreply;
     }
 
+    $topic{$chan}{'What'} = "Restore topic $args";
+
     # following needs to be verified.
     if ($args =~ /^last$/i) {
 	if (${$topic{$chan}{'History'}}[0] eq $topic{$chan}{'Current'}) {
@@ -454,6 +465,7 @@ sub Topic {
   } elsif ($cmd =~ /^rehash$/i) {
     ### CMD: REHASH.
     $_ = "Rehashing topic...";
+    $topic{$chan}{'What'} = "Rehash";
     &topicNew($chan, $topic{$chan}{'Current'}, $_, 1);
 
   } elsif ($cmd =~ /^info$/i) {
@@ -463,6 +475,8 @@ sub Topic {
 	$reply = "topic on \002$chan\002 was last set by ".
 		$topic{$chan}{'Who'}. ".  This was done ".
 		&Time2String(time() - $topic{$chan}{'Time'}) ." ago.";
+	my $change = $topic{$chan}{'What'};
+	$reply .= "Change => $change" if (defined $change);
     }
 
     &performStrictReply($reply);
-- 
2.39.5