+GLOBAL bool
+IRC_TRACE( CLIENT *Client, REQUEST *Req )
+{
+ CLIENT *from, *target, *c;
+ CONN_ID idx, idx2;
+ char user[CLIENT_USER_LEN];
+
+ assert( Client != NULL );
+ assert( Req != NULL );
+
+ /* Bad number of arguments? */
+ if( Req->argc > 1 ) return IRC_WriteStrClient( Client, ERR_NORECIPIENT_MSG, Client_ID( Client ), Req->command );
+
+ /* Search sender */
+ if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
+ else from = Client;
+ if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
+
+ /* Search target */
+ if( Req->argc == 1 ) target = Client_Search( Req->argv[0] );
+ else target = Client_ThisServer( );
+
+ /* Forward command to other server? */
+ if( target != Client_ThisServer( ))
+ {
+ if(( ! target ) || ( Client_Type( target ) != CLIENT_SERVER )) return IRC_WriteStrClient( from, ERR_NOSUCHSERVER_MSG, Client_ID( from ), Req->argv[0] );
+
+ /* Send RPL_TRACELINK back to initiator */
+ idx = Client_Conn( Client ); assert( idx > NONE );
+ idx2 = Client_Conn( Client_NextHop( target )); assert( idx2 > NONE );
+ if( ! IRC_WriteStrClient( from, RPL_TRACELINK_MSG, Client_ID( from ), PACKAGE_NAME, PACKAGE_VERSION, Client_ID( target ), Client_ID( Client_NextHop( target )), Option_String( idx2 ), time( NULL ) - Conn_StartTime( idx2 ), Conn_SendQ( idx ), Conn_SendQ( idx2 ))) return DISCONNECTED;
+
+ /* Forward command */
+ IRC_WriteStrClientPrefix( target, from, "TRACE %s", Req->argv[0] );
+ return CONNECTED;
+ }
+
+ /* Infos about all connected servers */
+ c = Client_First( );
+ while( c )
+ {
+ if( Client_Conn( c ) > NONE )
+ {
+ /* Local client */
+ if( Client_Type( c ) == CLIENT_SERVER )
+ {
+ /* Server link */
+ strlcpy( user, Client_User( c ), sizeof( user ));
+ if( user[0] == '~' ) strlcpy( user, "unknown", sizeof( user ));
+ if( ! IRC_WriteStrClient( from, RPL_TRACESERVER_MSG, Client_ID( from ), Client_ID( c ), user, Client_Hostname( c ), Client_Mask( Client_ThisServer( )), Option_String( Client_Conn( c )))) return DISCONNECTED;
+ }
+ if(( Client_Type( c ) == CLIENT_USER ) && ( strchr( Client_Modes( c ), 'o' )))
+ {
+ /* IRC Operator */
+ if( ! IRC_WriteStrClient( from, RPL_TRACEOPERATOR_MSG, Client_ID( from ), Client_ID( c ))) return DISCONNECTED;
+ }
+ }
+ c = Client_Next( c );
+ }
+
+ IRC_SetPenalty( Client, 3 );
+ return IRC_WriteStrClient( from, RPL_TRACEEND_MSG, Client_ID( from ), Conf_ServerName, PACKAGE_NAME, PACKAGE_VERSION, NGIRCd_DebugLevel );
+} /* IRC_TRACE */
+
+
+GLOBAL bool
+IRC_HELP( CLIENT *Client, REQUEST *Req )
+{
+ COMMAND *cmd;
+
+ assert( Client != NULL );
+ assert( Req != NULL );
+
+ /* Bad number of arguments? */
+ if( Req->argc > 0 ) return IRC_WriteStrClient( Client, ERR_NORECIPIENT_MSG, Client_ID( Client ), Req->command );
+
+ cmd = Parse_GetCommandStruct( );
+ while( cmd->name )
+ {
+ if( ! IRC_WriteStrClient( Client, "NOTICE %s :%s", Client_ID( Client ), cmd->name )) return DISCONNECTED;
+ cmd++;
+ }
+
+ IRC_SetPenalty( Client, 2 );
+ return CONNECTED;
+} /* IRC_HELP */
+
+
+static char *
+Option_String( CONN_ID Idx )
+{
+ static char option_txt[8];
+ int options;
+
+ options = Conn_Options( Idx );
+
+ strcpy( option_txt, "F" ); /* No idea what this means but the original ircd sends it ... */
+#ifdef ZLIB
+ if( options & CONN_ZIP ) strcat( option_txt, "z" );
+#endif
+
+ return option_txt;
+} /* Option_String */
+
+