From 11fdebd183111a77bdebbe55761caf079f10f08d Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 2 Feb 2010 01:59:34 +0000
Subject: [PATCH] conninfo

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1885 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/UserExtra.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index f11f592..7769e0b 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -170,12 +170,21 @@ sub cmdstats {
             push( @array, "\002$int\002 of $_" );
         }
     }
-    &performStrictReply( 'command usage include ' . &IJoin(@array) . '.' );
+    &performStrictReply( 'command usage includes ' . &IJoin(@array) . '.' );
 }
 
 # Command statistics.
 sub conninfo {
-    &performStrictReply( 'connection info ' . &IJoin(sort keys %::conns) );
+    my $reply = 'conninfo:';
+    my $key;
+    foreach $key ( sort keys %::conns ) {
+        my $myconn = $::conns{$key};
+	$reply .= " $key/";
+	next if (!defined $myconn);
+        my $mynick = $myconn->nick();
+	$reply .= "$mynick";
+    }
+    &performStrictReply( "conninfo: $reply.");
 }
 
 # Factoid extension info. xk++
-- 
2.39.2