+GLOBAL BOOLEAN
+IRC_LIST( CLIENT *Client, REQUEST *Req )
+{
+ CHAR *pattern;
+ CHANNEL *chan;
+ CLIENT *from, *target;
+
+ assert( Client != NULL );
+ assert( Req != NULL );
+
+ if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
+
+ /* Falsche Anzahl Parameter? */
+ if( Req->argc > 2 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
+
+ if( Req->argc > 0 ) pattern = strtok( Req->argv[0], "," );
+ else pattern = "*";
+
+ /* From aus Prefix ermitteln */
+ if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
+ else from = Client;
+ if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->prefix );
+
+ if( Req->argc == 2 )
+ {
+ /* an anderen Server forwarden */
+ target = Client_Search( Req->argv[1] );
+ if( ! target ) return IRC_WriteStrClient( from, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[1] );
+
+ if( target != Client_ThisServer( ))
+ {
+ /* Ok, anderer Server ist das Ziel: forwarden */
+ return IRC_WriteStrClientPrefix( target, from, "LIST %s :%s", from, Req->argv[1] );
+ }
+ }
+
+ while( pattern )
+ {
+ /* alle Channel durchgehen */
+ chan = Channel_First( );
+ while( chan )
+ {
+ /* Passt die Suchmaske auf diesen Channel? */
+ if( Match( pattern, Channel_Name( chan )))
+ {
+ /* Treffer! */
+ if( ! IRC_WriteStrClient( from, RPL_LIST_MSG, from, Channel_Name( chan ), Channel_MemberCount( chan ), Channel_Topic( chan ))) return DISCONNECTED;
+ }
+ chan = Channel_Next( chan );
+ }
+
+ /* naechsten Namen ermitteln */
+ if( Req->argc > 0 ) pattern = strtok( NULL, "," );
+ else pattern = NULL;
+ }
+
+ return IRC_WriteStrClient( from, RPL_LISTEND_MSG, from );
+} /* IRC_LIST */
+
+
+GLOBAL BOOLEAN
+IRC_CHANINFO( CLIENT *Client, REQUEST *Req )
+{
+ CLIENT *from;
+ CHANNEL *chan;
+ CHAR *ptr;
+
+ assert( Client != NULL );
+ assert( Req != NULL );
+
+ if( Client_Type( Client ) != CLIENT_SERVER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
+
+ /* Falsche Anzahl Parameter? */
+ if(( Req->argc < 1 ) || ( Req->argc > 3 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
+
+ /* From-Server suchen */
+ from = Client_Search( Req->prefix );
+ if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
+
+ /* Channel suchen bzw. erzeugen */
+ chan = Channel_Search( Req->argv[0] );
+ if( ! chan ) chan = Channel_Create( Req->argv[0] );
+ if( ! chan ) return CONNECTED;
+
+ if( Req->argv[1][0] == '+' )
+ {
+ ptr = Channel_Modes( chan );
+ if( ! *ptr )
+ {
+ /* OK, es sind noch keine Modes gesetzt */
+ Channel_SetModes( chan, &Req->argv[1][1] );
+ IRC_WriteStrChannelPrefix( Client, chan, from, FALSE, "MODE %s +%s", Req->argv[0], &Req->argv[1][1] );
+ }
+ }
+ else Log( LOG_WARNING, "CHANNELINFO: invalid MODE format ignored!" );
+
+ if( Req->argc == 3 )
+ {
+ /* Es wurde auch ein Topic mit uebermittelt */
+ ptr = Channel_Topic( chan );
+ if( ! *ptr )
+ {
+ /* OK, es ist bisher kein Topic gesetzt */
+ Channel_SetTopic( chan, Req->argv[2] );
+ IRC_WriteStrChannelPrefix( Client, chan, from, FALSE, "TOPIC %s :%s", Req->argv[0], Req->argv[2] );
+ }
+ }
+
+ /* an andere Server forwarden */
+ IRC_WriteStrServersPrefixFlag( Client, from, 'C', "CHANINFO %s %s :%s", Req->argv[0], Req->argv[1], Req->argv[2] );
+ return CONNECTED;
+} /* IRC_CHANINFO */
+
+