conninfo

[infobot.git] / src / UserExtra.pl

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index 47551b5f88f32cee8217c87d3aa19c7278fe00e3..f11f592bc5763456cc4ffd5892602aa544d7d5eb 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -173,6 +173,11 @@ sub cmdstats {
     &performStrictReply( 'command usage include ' . &IJoin(@array) . '.' );
 }
 
+# Command statistics.
+sub conninfo {
+    &performStrictReply( 'connection info ' . &IJoin(sort keys %::conns) );
+}
+
 # Factoid extension info. xk++
 sub factinfo {
     my $faqtoid = lc shift(@_);