+ &performStrictReply( 'command usage includes ' . &IJoin(@array) . '.' );
+}
+
+# Command statistics.
+sub conninfo {
+ 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.");