fca321dd3bb3ab1ae8c76072dfefe68c73b3e2c3
[ngircd-alex.git] / src / ngircd / irc.c
1 /*
2  * ngIRCd -- The Next Generation IRC Daemon
3  * Copyright (c)2001,2002 by Alexander Barton (alex@barton.de)
4  *
5  * Dieses Programm ist freie Software. Sie koennen es unter den Bedingungen
6  * der GNU General Public License (GPL), wie von der Free Software Foundation
7  * herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2
8  * der Lizenz oder (wenn Sie es wuenschen) jeder spaeteren Version.
9  * Naehere Informationen entnehmen Sie bitter der Datei COPYING. Eine Liste
10  * der an ngIRCd beteiligten Autoren finden Sie in der Datei AUTHORS.
11  *
12  * $Id: irc.c,v 1.99 2002/10/09 16:53:02 alex Exp $
13  *
14  * irc.c: IRC-Befehle
15  */
16
17
18 #include "portab.h"
19
20 #include "imp.h"
21 #include <assert.h>
22 #include <errno.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26
27 #include "ngircd.h"
28 #include "conn.h"
29 #include "client.h"
30 #include "channel.h"
31 #include "resolve.h"
32 #include "conf.h"
33 #include "conn.h"
34 #include "irc-write.h"
35 #include "log.h"
36 #include "messages.h"
37 #include "parse.h"
38 #include "tool.h"
39
40 #include "exp.h"
41 #include "irc.h"
42
43
44 GLOBAL BOOLEAN
45 IRC_MOTD( CLIENT *Client, REQUEST *Req )
46 {
47         assert( Client != NULL );
48         assert( Req != NULL );
49
50         if( Client_Type( Client ) != CLIENT_USER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
51
52         /* Falsche Anzahl Parameter? */
53         if( Req->argc != 0 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
54
55         return IRC_Show_MOTD( Client );
56 } /* IRC_MOTD */
57
58
59 GLOBAL BOOLEAN
60 IRC_PRIVMSG( CLIENT *Client, REQUEST *Req )
61 {
62         CLIENT *cl, *from;
63         CHANNEL *chan;
64         
65         assert( Client != NULL );
66         assert( Req != NULL );
67
68         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
69
70         /* Falsche Anzahl Parameter? */
71         if( Req->argc == 0 ) return IRC_WriteStrClient( Client, ERR_NORECIPIENT_MSG, Client_ID( Client ), Req->command );
72         if( Req->argc == 1 ) return IRC_WriteStrClient( Client, ERR_NOTEXTTOSEND_MSG, Client_ID( Client ));
73         if( Req->argc > 2 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
74
75         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
76         else from = Client;
77         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
78
79         cl = Client_Search( Req->argv[0] );
80         if( cl )
81         {
82                 /* Okay, Ziel ist ein Client. Aber ist es auch ein User? */
83                 if( Client_Type( cl ) != CLIENT_USER ) return IRC_WriteStrClient( from, ERR_NOSUCHNICK_MSG, Client_ID( from ), Req->argv[0] );
84
85                 /* Okay, Ziel ist ein User */
86                 if(( Client_Type( Client ) != CLIENT_SERVER ) && ( strchr( Client_Modes( cl ), 'a' )))
87                 {
88                         /* Ziel-User ist AWAY: Meldung verschicken */
89                         if( ! IRC_WriteStrClient( from, RPL_AWAY_MSG, Client_ID( from ), Client_ID( cl ), Client_Away( cl ))) return DISCONNECTED;
90                 }
91
92                 /* Text senden */
93                 if( Client_Conn( from ) > NONE ) Conn_UpdateIdle( Client_Conn( from ));
94                 return IRC_WriteStrClientPrefix( cl, from, "PRIVMSG %s :%s", Client_ID( cl ), Req->argv[1] );
95         }
96
97         chan = Channel_Search( Req->argv[0] );
98         if( chan ) return Channel_Write( chan, from, Client, Req->argv[1] );
99
100         return IRC_WriteStrClient( from, ERR_NOSUCHNICK_MSG, Client_ID( from ), Req->argv[0] );
101 } /* IRC_PRIVMSG */
102
103
104 GLOBAL BOOLEAN
105 IRC_NOTICE( CLIENT *Client, REQUEST *Req )
106 {
107         CLIENT *to, *from;
108
109         assert( Client != NULL );
110         assert( Req != NULL );
111
112         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return CONNECTED;
113
114         /* Falsche Anzahl Parameter? */
115         if( Req->argc != 2 ) return CONNECTED;
116
117         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
118         else from = Client;
119         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
120
121         to = Client_Search( Req->argv[0] );
122         if(( to ) && ( Client_Type( to ) == CLIENT_USER ))
123         {
124                 /* Okay, Ziel ist ein User */
125                 return IRC_WriteStrClientPrefix( to, from, "NOTICE %s :%s", Client_ID( to ), Req->argv[1] );
126         }
127         else return CONNECTED;
128 } /* IRC_NOTICE */
129
130
131 GLOBAL BOOLEAN
132 IRC_NAMES( CLIENT *Client, REQUEST *Req )
133 {
134         CHAR rpl[COMMAND_LEN], *ptr;
135         CLIENT *target, *from, *c;
136         CHANNEL *chan;
137         
138         assert( Client != NULL );
139         assert( Req != NULL );
140
141         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
142
143         /* Falsche Anzahl Parameter? */
144         if( Req->argc > 2 ) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
145
146         /* From aus Prefix ermitteln */
147         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
148         else from = Client;
149         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->prefix );
150         
151         if( Req->argc == 2 )
152         {
153                 /* an anderen Server forwarden */
154                 target = Client_Search( Req->argv[1] );
155                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[1] );
156
157                 if( target != Client_ThisServer( ))
158                 {
159                         /* Ok, anderer Server ist das Ziel: forwarden */
160                         return IRC_WriteStrClientPrefix( target, from, "NAMES %s :%s", Req->argv[0], Req->argv[1] );
161                 }
162         }
163
164         if( Req->argc > 0 )
165         {
166                 /* bestimmte Channels durchgehen */
167                 ptr = strtok( Req->argv[0], "," );
168                 while( ptr )
169                 {
170                         chan = Channel_Search( ptr );
171                         if( chan )
172                         {
173                                 /* Namen ausgeben */
174                                 if( ! IRC_Send_NAMES( from, chan )) return DISCONNECTED;
175                         }
176                         if( ! IRC_WriteStrClient( from, RPL_ENDOFNAMES_MSG, Client_ID( from ), ptr )) return DISCONNECTED;
177                         
178                         /* naechsten Namen ermitteln */
179                         ptr = strtok( NULL, "," );
180                 }
181                 return CONNECTED;
182         }
183         
184         /* alle Channels durchgehen */
185         chan = Channel_First( );
186         while( chan )
187         {
188                 /* Namen ausgeben */
189                 if( ! IRC_Send_NAMES( from, chan )) return DISCONNECTED;
190
191                 /* naechster Channel */
192                 chan = Channel_Next( chan );
193         }
194
195         /* Nun noch alle Clients ausgeben, die in keinem Channel sind */
196         c = Client_First( );
197         sprintf( rpl, RPL_NAMREPLY_MSG, Client_ID( from ), "*", "*" );
198         while( c )
199         {
200                 if(( Client_Type( c ) == CLIENT_USER ) && ( Channel_FirstChannelOf( c ) == NULL ) && ( ! strchr( Client_Modes( c ), 'i' )))
201                 {
202                         /* Okay, das ist ein User: anhaengen */
203                         if( rpl[strlen( rpl ) - 1] != ':' ) strcat( rpl, " " );
204                         strcat( rpl, Client_ID( c ));
205
206                         if( strlen( rpl ) > ( LINE_LEN - CLIENT_NICK_LEN - 4 ))
207                         {
208                                 /* Zeile wird zu lang: senden! */
209                                 if( ! IRC_WriteStrClient( from, "%s", rpl )) return DISCONNECTED;
210                                 sprintf( rpl, RPL_NAMREPLY_MSG, Client_ID( from ), "*", "*" );
211                         }
212                 }
213
214                 /* naechster Client */
215                 c = Client_Next( c );
216         }
217         if( rpl[strlen( rpl ) - 1] != ':')
218         {
219                 /* es wurden User gefunden */
220                 if( ! IRC_WriteStrClient( from, "%s", rpl )) return DISCONNECTED;
221         }
222         
223         return IRC_WriteStrClient( from, RPL_ENDOFNAMES_MSG, Client_ID( from ), "*" );
224 } /* IRC_NAMES */
225
226
227 GLOBAL BOOLEAN
228 IRC_ISON( CLIENT *Client, REQUEST *Req )
229 {
230         CHAR rpl[COMMAND_LEN];
231         CLIENT *c;
232         CHAR *ptr;
233         INT i;
234         
235         assert( Client != NULL );
236         assert( Req != NULL );
237
238         if( Client_Type( Client ) != CLIENT_USER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
239
240         /* Falsche Anzahl Parameter? */
241         if(( Req->argc < 1 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
242
243         strcpy( rpl, RPL_ISON_MSG );
244         for( i = 0; i < Req->argc; i++ )
245         {
246                 ptr = strtok( Req->argv[i], " " );
247                 while( ptr )
248                 {
249                         ngt_TrimStr( ptr );
250                         c = Client_Search( ptr );
251                         if( c && ( Client_Type( c ) == CLIENT_USER ))
252                         {
253                                 /* Dieser Nick ist "online" */
254                                 strcat( rpl, ptr );
255                                 strcat( rpl, " " );
256                         }
257                         ptr = strtok( NULL, " " );
258                 }
259         }
260         if( rpl[strlen( rpl ) - 1] == ' ' ) rpl[strlen( rpl ) - 1] = '\0';
261
262         return IRC_WriteStrClient( Client, "%s", rpl, Client_ID( Client ) );
263 } /* IRC_ISON */
264
265
266 GLOBAL BOOLEAN
267 IRC_WHOIS( CLIENT *Client, REQUEST *Req )
268 {
269         CLIENT *from, *target, *c;
270         CHAR str[LINE_LEN + 1], *ptr = NULL;
271         CL2CHAN *cl2chan;
272         CHANNEL *chan;
273         
274         assert( Client != NULL );
275         assert( Req != NULL );
276
277         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
278
279         /* Falsche Anzahl Parameter? */
280         if(( Req->argc < 1 ) || ( Req->argc > 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
281
282         /* Client suchen */
283         c = Client_Search( Req->argv[Req->argc - 1] );
284         if(( ! c ) || ( Client_Type( c ) != CLIENT_USER )) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->argv[Req->argc - 1] );
285
286         /* Empfaenger des WHOIS suchen */
287         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
288         else from = Client;
289         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
290         
291         /* Forwarden an anderen Server? */
292         if( Req->argc > 1 )
293         {
294                 /* angegebenen Ziel-Server suchen */
295                 target = Client_Search( Req->argv[1] );
296                 if( ! target ) return IRC_WriteStrClient( from, ERR_NOSUCHSERVER_MSG, Client_ID( from ), Req->argv[1] );
297                 ptr = Req->argv[1];
298         }
299         else target = Client_ThisServer( );
300
301         assert( target != NULL );
302         
303         if(( Client_NextHop( target ) != Client_ThisServer( )) && ( Client_Type( Client_NextHop( target )) == CLIENT_SERVER )) return IRC_WriteStrClientPrefix( target, from, "WHOIS %s :%s", Req->argv[0], ptr );
304         
305         /* Nick, User und Name */
306         if( ! IRC_WriteStrClient( from, RPL_WHOISUSER_MSG, Client_ID( from ), Client_ID( c ), Client_User( c ), Client_Hostname( c ), Client_Info( c ))) return DISCONNECTED;
307
308         /* Server */
309         if( ! IRC_WriteStrClient( from, RPL_WHOISSERVER_MSG, Client_ID( from ), Client_ID( c ), Client_ID( Client_Introducer( c )), Client_Info( Client_Introducer( c )))) return DISCONNECTED;
310
311         /* Channels */
312         sprintf( str, RPL_WHOISCHANNELS_MSG, Client_ID( from ), Client_ID( c ));
313         cl2chan = Channel_FirstChannelOf( c );
314         while( cl2chan )
315         {
316                 chan = Channel_GetChannel( cl2chan );
317                 assert( chan != NULL );
318                 
319                 /* Channel-Name anhaengen */
320                 if( str[strlen( str ) - 1] != ':' ) strcat( str, " " );
321                 if( strchr( Channel_UserModes( chan, c ), 'o' )) strcat( str, "@" );
322                 else if( strchr( Channel_UserModes( chan, c ), 'v' )) strcat( str, "+" );
323                 strcat( str, Channel_Name( chan ));
324
325                 if( strlen( str ) > ( LINE_LEN - CHANNEL_NAME_LEN - 4 ))
326                 {
327                         /* Zeile wird zu lang: senden! */
328                         if( ! IRC_WriteStrClient( Client, "%s", str )) return DISCONNECTED;
329                         sprintf( str, RPL_WHOISCHANNELS_MSG, Client_ID( from ), Client_ID( c ));
330                 }
331
332                 /* naechstes Mitglied suchen */
333                 cl2chan = Channel_NextChannelOf( c, cl2chan );
334         }
335         if( str[strlen( str ) - 1] != ':')
336         {
337                 /* Es sind noch Daten da, die gesendet werden muessen */
338                 if( ! IRC_WriteStrClient( Client, "%s", str )) return DISCONNECTED;
339         }
340         
341         /* IRC-Operator? */
342         if( Client_HasMode( c, 'o' ))
343         {
344                 if( ! IRC_WriteStrClient( from, RPL_WHOISOPERATOR_MSG, Client_ID( from ), Client_ID( c ))) return DISCONNECTED;
345         }
346
347         /* Idle (nur lokale Clients) */
348         if( Client_Conn( c ) > NONE )
349         {
350                 if( ! IRC_WriteStrClient( from, RPL_WHOISIDLE_MSG, Client_ID( from ), Client_ID( c ), Conn_GetIdle( Client_Conn ( c )))) return DISCONNECTED;
351         }
352
353         /* Away? */
354         if( Client_HasMode( c, 'a' ))
355         {
356                 if( ! IRC_WriteStrClient( from, RPL_AWAY_MSG, Client_ID( from ), Client_ID( c ), Client_Away( c ))) return DISCONNECTED;
357         }
358
359         /* End of Whois */
360         return IRC_WriteStrClient( from, RPL_ENDOFWHOIS_MSG, Client_ID( from ), Client_ID( c ));
361 } /* IRC_WHOIS */
362
363
364 GLOBAL BOOLEAN
365 IRC_WHO( CLIENT *Client, REQUEST *Req )
366 {
367         BOOLEAN ok, only_ops;
368         CHAR flags[8], *ptr;
369         CL2CHAN *cl2chan;
370         CHANNEL *chan;
371         CLIENT *c;
372         
373         assert( Client != NULL );
374         assert( Req != NULL );
375
376         if( Client_Type( Client ) != CLIENT_USER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
377
378         /* Falsche Anzahl Parameter? */
379         if(( Req->argc > 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
380
381         only_ops = FALSE;
382         chan = NULL;
383
384         if( Req->argc == 2 )
385         {
386                 /* Nur OPs anzeigen? */
387                 if( strcmp( Req->argv[1], "o" ) == 0 ) only_ops = TRUE;
388 #ifdef STRICT_RFC
389                 else return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
390 #endif
391         }
392         
393         if( Req->argc >= 1 )
394         {
395                 /* wurde ein Channel oder Nick-Mask angegeben? */
396                 chan = Channel_Search( Req->argv[0] );
397         }
398
399         if( chan )
400         {
401                 /* User eines Channels ausgeben */
402                 if( ! IRC_Send_WHO( Client, chan, only_ops )) return DISCONNECTED;
403         }
404
405         c = Client_First( );
406         while( c )
407         {
408                 if(( Client_Type( c ) == CLIENT_USER ) && ( ! strchr( Client_Modes( c ), 'i' )))
409                 {
410                         ok = FALSE;
411                         if( Req->argc == 0 ) ok = TRUE;
412                         else
413                         {
414                                 if( strcasecmp( Req->argv[0], Client_ID( c )) == 0 ) ok = TRUE;
415                                 else if( strcmp( Req->argv[0], "0" ) == 0 ) ok = TRUE;
416                         }
417                                 
418                         if( ok && (( ! only_ops ) || ( strchr( Client_Modes( c ), 'o' ))))
419                         {
420                                 /* Flags zusammenbasteln */
421                                 strcpy( flags, "H" );
422                                 if( strchr( Client_Modes( c ), 'o' )) strcat( flags, "*" );
423
424                                 /* ausgeben */
425                                 cl2chan = Channel_FirstChannelOf( c );
426                                 if( cl2chan ) ptr = Channel_Name( Channel_GetChannel( cl2chan ));
427                                 else ptr = "*";
428                                 if( ! IRC_WriteStrClient( Client, RPL_WHOREPLY_MSG, Client_ID( Client ), ptr, Client_User( c ), Client_Hostname( c ), Client_ID( Client_Introducer( c )), Client_ID( c ), flags, Client_Hops( c ), Client_Info( c ))) return DISCONNECTED;
429                         }
430                 }
431
432                 /* naechster Client */
433                 c = Client_Next( c );
434         }
435
436         if( chan ) return IRC_WriteStrClient( Client, RPL_ENDOFWHO_MSG, Client_ID( Client ), Channel_Name( chan ));
437         else if( Req->argc == 0 ) return IRC_WriteStrClient( Client, RPL_ENDOFWHO_MSG, Client_ID( Client ), "*" );
438         else return IRC_WriteStrClient( Client, RPL_ENDOFWHO_MSG, Client_ID( Client ), Req->argv[0] );
439 } /* IRC_WHO */
440
441
442 GLOBAL BOOLEAN
443 IRC_USERHOST( CLIENT *Client, REQUEST *Req )
444 {
445         CHAR rpl[COMMAND_LEN];
446         CLIENT *c;
447         INT max, i;
448
449         assert( Client != NULL );
450         assert( Req != NULL );
451
452         if( Client_Type( Client ) != CLIENT_USER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
453
454         /* Falsche Anzahl Parameter? */
455         if(( Req->argc < 1 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
456
457         if( Req->argc > 5 ) max = 5;
458         else max = Req->argc;
459         
460         strcpy( rpl, RPL_USERHOST_MSG );
461         for( i = 0; i < max; i++ )
462         {
463                 c = Client_Search( Req->argv[i] );
464                 if( c && ( Client_Type( c ) == CLIENT_USER ))
465                 {
466                         /* Dieser Nick ist "online" */
467                         strcat( rpl, Client_ID( c ));
468                         if( Client_HasMode( c, 'o' )) strcat( rpl, "*" );
469                         strcat( rpl, "=" );
470                         if( Client_HasMode( c, 'a' )) strcat( rpl, "-" );
471                         else strcat( rpl, "+" );
472                         strcat( rpl, Client_User( c ));
473                         strcat( rpl, "@" );
474                         strcat( rpl, Client_Hostname( c ));
475                         strcat( rpl, " " );
476                 }
477         }
478         if( rpl[strlen( rpl ) - 1] == ' ' ) rpl[strlen( rpl ) - 1] = '\0';
479
480         return IRC_WriteStrClient( Client, "%s", rpl, Client_ID( Client ) );
481 } /* IRC_USERHOST */
482
483
484 GLOBAL BOOLEAN
485 IRC_ERROR( CLIENT *Client, REQUEST *Req )
486 {
487         assert( Client != NULL );
488         assert( Req != NULL );
489
490         if( Req->argc < 1 ) Log( LOG_NOTICE, "Got ERROR from \"%s\"!", Client_Mask( Client ));
491         else Log( LOG_NOTICE, "Got ERROR from \"%s\": %s!", Client_Mask( Client ), Req->argv[0] );
492
493         return CONNECTED;
494 } /* IRC_ERROR */
495
496
497 GLOBAL BOOLEAN
498 IRC_LUSERS( CLIENT *Client, REQUEST *Req )
499 {
500         CLIENT *target, *from;
501         
502         assert( Client != NULL );
503         assert( Req != NULL );
504
505         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
506
507         /* Falsche Anzahl Parameter? */
508         if(( Req->argc > 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
509
510         /* Absender ermitteln */
511         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
512         else from = Client;
513         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
514
515         /* An anderen Server forwarden? */
516         if( Req->argc == 2 )
517         {
518                 target = Client_Search( Req->argv[1] );
519                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[1] );
520                 else if( target != Client_ThisServer( )) return IRC_WriteStrClientPrefix( target, from, "LUSERS %s %s", Req->argv[0], Req->argv[1] );
521         }
522
523         /* Wer ist der Absender? */
524         if( Client_Type( Client ) == CLIENT_SERVER ) target = Client_Search( Req->prefix );
525         else target = Client;
526         if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
527         
528         IRC_Send_LUSERS( target );
529
530         return CONNECTED;
531 } /* IRC_LUSERS */
532
533
534 GLOBAL BOOLEAN
535 IRC_LINKS( CLIENT *Client, REQUEST *Req )
536 {
537         CLIENT *target, *from, *c;
538         CHAR *mask;
539         
540         assert( Client != NULL );
541         assert( Req != NULL );
542
543         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
544
545         /* Falsche Anzahl Parameter? */
546         if(( Req->argc > 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
547
548         /* Server-Mask ermitteln */
549         if( Req->argc > 0 ) mask = Req->argv[Req->argc - 1];
550         else mask = "*";
551
552         /* Absender ermitteln */
553         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
554         else from = Client;
555         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
556         
557         /* An anderen Server forwarden? */
558         if( Req->argc == 2 )
559         {
560                 target = Client_Search( Req->argv[0] );
561                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[0] );
562                 else if( target != Client_ThisServer( )) return IRC_WriteStrClientPrefix( target, from, "LINKS %s %s", Req->argv[0], Req->argv[1] );
563         }
564
565         /* Wer ist der Absender? */
566         if( Client_Type( Client ) == CLIENT_SERVER ) target = Client_Search( Req->prefix );
567         else target = Client;
568         if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
569         
570         c = Client_First( );
571         while( c )
572         {
573                 if( Client_Type( c ) == CLIENT_SERVER )
574                 {
575                         if( ! IRC_WriteStrClient( target, RPL_LINKS_MSG, Client_ID( target ), Client_ID( c ), Client_ID( Client_TopServer( c ) ? Client_TopServer( c ) : Client_ThisServer( )), Client_Hops( c ), Client_Info( c ))) return DISCONNECTED;
576                 }
577                 c = Client_Next( c );
578         }
579         
580         return IRC_WriteStrClient( target, RPL_ENDOFLINKS_MSG, Client_ID( target ), mask );
581 } /* IRC_LINKS */
582
583
584 GLOBAL BOOLEAN
585 IRC_VERSION( CLIENT *Client, REQUEST *Req )
586 {
587         CLIENT *target, *prefix;
588         
589         assert( Client != NULL );
590         assert( Req != NULL );
591
592         /* Falsche Anzahl Parameter? */
593         if(( Req->argc > 1 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
594
595         /* Ziel suchen */
596         if( Req->argc == 1 ) target = Client_Search( Req->argv[0] );
597         else target = Client_ThisServer( );
598
599         /* Prefix ermitteln */
600         if( Client_Type( Client ) == CLIENT_SERVER ) prefix = Client_Search( Req->prefix );
601         else prefix = Client;
602         if( ! prefix ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->prefix );
603         
604         /* An anderen Server weiterleiten? */
605         if( target != Client_ThisServer( ))
606         {
607                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[0] );
608
609                 /* forwarden */
610                 IRC_WriteStrClientPrefix( target, prefix, "VERSION %s", Req->argv[0] );
611                 return CONNECTED;
612         }
613
614         /* mit Versionsinfo antworten */
615         return IRC_WriteStrClient( Client, RPL_VERSION_MSG, Client_ID( prefix ), PACKAGE, VERSION, NGIRCd_DebugLevel, Conf_ServerName, NGIRCd_VersionAddition( ));
616 } /* IRC_VERSION */
617
618
619 GLOBAL BOOLEAN
620 IRC_KILL( CLIENT *Client, REQUEST *Req )
621 {
622         CLIENT *prefix, *c;
623         
624         assert( Client != NULL );
625         assert( Req != NULL );
626
627         if( Client_Type( Client ) != CLIENT_SERVER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
628
629         /* Falsche Anzahl Parameter? */
630         if(( Req->argc != 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
631
632         prefix = Client_Search( Req->prefix );
633         if( ! prefix )
634         {
635                 Log( LOG_WARNING, "Got KILL with invalid prefix: \"%s\"!", Req->prefix );
636                 prefix = Client_ThisServer( );
637         }
638         
639         Log( LOG_NOTICE, "Got KILL command from \"%s\" for \"%s\": %s", Client_Mask( prefix ), Req->argv[0], Req->argv[1] );
640         
641         /* andere Server benachrichtigen */
642         IRC_WriteStrServersPrefix( Client, prefix, "KILL %s :%s", Req->argv[0], Req->argv[1] );
643
644         /* haben wir selber einen solchen Client? */
645         c = Client_Search( Req->argv[0] );
646         if( c )
647         {
648                 /* Ja, wir haben einen solchen Client */
649                 if( Client_Conn( c ) != NONE ) Conn_Close( Client_Conn( c ), NULL, Req->argv[1], TRUE );
650                 else Client_Destroy( c, NULL, Req->argv[1], TRUE );
651         }
652         else Log( LOG_NOTICE, "Client with nick \"%s\" is unknown here.", Req->argv[0] );
653
654         return CONNECTED;
655 } /* IRC_KILL */
656
657
658 GLOBAL BOOLEAN
659 IRC_ADMIN(CLIENT *Client, REQUEST *Req )
660 {
661         CLIENT *target, *prefix;
662
663         assert( Client != NULL );
664         assert( Req != NULL );
665
666         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
667
668         /* Falsche Anzahl Parameter? */
669         if(( Req->argc > 1 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
670
671         /* Ziel suchen */
672         if( Req->argc == 1 ) target = Client_Search( Req->argv[0] );
673         else target = Client_ThisServer( );
674
675         /* Prefix ermitteln */
676         if( Client_Type( Client ) == CLIENT_SERVER ) prefix = Client_Search( Req->prefix );
677         else prefix = Client;
678         if( ! prefix ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->prefix );
679
680         /* An anderen Server weiterleiten? */
681         if( target != Client_ThisServer( ))
682         {
683                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[0] );
684
685                 /* forwarden */
686                 IRC_WriteStrClientPrefix( target, prefix, "ADMIN %s", Req->argv[0] );
687                 return CONNECTED;
688         }
689
690         /* mit Versionsinfo antworten */
691         if( ! IRC_WriteStrClient( Client, RPL_ADMINME_MSG, Client_ID( prefix ), Conf_ServerName )) return DISCONNECTED;
692         if( ! IRC_WriteStrClient( Client, RPL_ADMINLOC1_MSG, Client_ID( prefix ), Conf_ServerAdmin1 )) return DISCONNECTED;
693         if( ! IRC_WriteStrClient( Client, RPL_ADMINLOC2_MSG, Client_ID( prefix ), Conf_ServerAdmin2 )) return DISCONNECTED;
694         if( ! IRC_WriteStrClient( Client, RPL_ADMINEMAIL_MSG, Client_ID( prefix ), Conf_ServerAdminMail )) return DISCONNECTED;
695
696         return CONNECTED;
697 } /* IRC_ADMIN */
698
699
700
701 GLOBAL BOOLEAN
702 IRC_Show_MOTD( CLIENT *Client )
703 {
704         BOOLEAN ok;
705         CHAR line[127];
706         FILE *fd;
707         
708         assert( Client != NULL );
709
710         fd = fopen( Conf_MotdFile, "r" );
711         if( ! fd )
712         {
713                 Log( LOG_WARNING, "Can't read MOTD file \"%s\": %s", Conf_MotdFile, strerror( errno ));
714                 return IRC_WriteStrClient( Client, ERR_NOMOTD_MSG, Client_ID( Client ) );
715         }
716         
717         IRC_WriteStrClient( Client, RPL_MOTDSTART_MSG, Client_ID( Client ), Client_ID( Client_ThisServer( )));
718         while( TRUE )
719         {
720                 if( ! fgets( line, 126, fd )) break;
721                 if( line[strlen( line ) - 1] == '\n' ) line[strlen( line ) - 1] = '\0';
722                 if( ! IRC_WriteStrClient( Client, RPL_MOTD_MSG, Client_ID( Client ), line ))
723                 {
724                         fclose( fd );
725                         return FALSE;
726                 }
727         }
728         ok = IRC_WriteStrClient( Client, RPL_ENDOFMOTD_MSG, Client_ID( Client ) );
729
730         fclose( fd );
731         
732         return ok;
733 } /* IRC_Show_MOTD */
734
735
736 GLOBAL BOOLEAN
737 IRC_Send_NAMES( CLIENT *Client, CHANNEL *Chan )
738 {
739         BOOLEAN is_visible, is_member;
740         CHAR str[LINE_LEN + 1];
741         CL2CHAN *cl2chan;
742         CLIENT *cl;
743         
744         assert( Client != NULL );
745         assert( Chan != NULL );
746
747         if( Channel_IsMemberOf( Chan, Client )) is_member = TRUE;
748         else is_member = FALSE;
749                          
750         /* Alle Mitglieder suchen */
751         sprintf( str, RPL_NAMREPLY_MSG, Client_ID( Client ), "=", Channel_Name( Chan ));
752         cl2chan = Channel_FirstMember( Chan );
753         while( cl2chan )
754         {
755                 cl = Channel_GetClient( cl2chan );
756
757                 if( strchr( Client_Modes( cl ), 'i' )) is_visible = FALSE;
758                 else is_visible = TRUE;
759
760                 if( is_member || is_visible )
761                 {
762                         /* Nick anhaengen */
763                         if( str[strlen( str ) - 1] != ':' ) strcat( str, " " );
764                         if( strchr( Channel_UserModes( Chan, cl ), 'o' )) strcat( str, "@" );
765                         else if( strchr( Channel_UserModes( Chan, cl ), 'v' )) strcat( str, "+" );
766                         strcat( str, Client_ID( cl ));
767         
768                         if( strlen( str ) > ( LINE_LEN - CLIENT_NICK_LEN - 4 ))
769                         {
770                                 /* Zeile wird zu lang: senden! */
771                                 if( ! IRC_WriteStrClient( Client, "%s", str )) return DISCONNECTED;
772                                 sprintf( str, RPL_NAMREPLY_MSG, Client_ID( Client ), "=", Channel_Name( Chan ));
773                         }
774                 }
775
776                 /* naechstes Mitglied suchen */
777                 cl2chan = Channel_NextMember( Chan, cl2chan );
778         }
779         if( str[strlen( str ) - 1] != ':')
780         {
781                 /* Es sind noch Daten da, die gesendet werden muessen */
782                 if( ! IRC_WriteStrClient( Client, "%s", str )) return DISCONNECTED;
783         }
784
785         return CONNECTED;
786 } /* IRC_Send_NAMES */
787
788
789 GLOBAL BOOLEAN
790 IRC_Send_WHO( CLIENT *Client, CHANNEL *Chan, BOOLEAN OnlyOps )
791 {
792         BOOLEAN is_visible, is_member;
793         CL2CHAN *cl2chan;
794         CHAR flags[8];
795         CLIENT *c;
796
797         assert( Client != NULL );
798         assert( Chan != NULL );
799
800         if( Channel_IsMemberOf( Chan, Client )) is_member = TRUE;
801         else is_member = FALSE;
802
803         /* Alle Mitglieder suchen */
804         cl2chan = Channel_FirstMember( Chan );
805         while( cl2chan )
806         {
807                 c = Channel_GetClient( cl2chan );
808
809                 if( strchr( Client_Modes( c ), 'i' )) is_visible = FALSE;
810                 else is_visible = TRUE;
811
812                 if( is_member || is_visible )
813                 {
814                         /* Flags zusammenbasteln */
815                         strcpy( flags, "H" );
816                         if( strchr( Client_Modes( c ), 'o' )) strcat( flags, "*" );
817                         if( strchr( Channel_UserModes( Chan, c ), 'o' )) strcat( flags, "@" );
818                         else if( strchr( Channel_UserModes( Chan, c ), 'v' )) strcat( flags, "+" );
819                         
820                         /* ausgeben */
821                         if(( ! OnlyOps ) || ( strchr( Client_Modes( c ), 'o' )))
822                         {
823                                 if( ! IRC_WriteStrClient( Client, RPL_WHOREPLY_MSG, Client_ID( Client ), Channel_Name( Chan ), Client_User( c ), Client_Hostname( c ), Client_ID( Client_Introducer( c )), Client_ID( c ), flags, Client_Hops( c ), Client_Info( c ))) return DISCONNECTED;
824                         }
825                 }
826
827                 /* naechstes Mitglied suchen */
828                 cl2chan = Channel_NextMember( Chan, cl2chan );
829         }
830         return CONNECTED;
831 } /* IRC_Send_WHO */
832
833
834 GLOBAL BOOLEAN
835 IRC_Send_LUSERS( CLIENT *Client )
836 {
837         LONG cnt;
838
839         assert( Client != NULL );
840
841         /* Users, Services und Serevr im Netz */
842         if( ! IRC_WriteStrClient( Client, RPL_LUSERCLIENT_MSG, Client_ID( Client ), Client_UserCount( ), Client_ServiceCount( ), Client_ServerCount( ))) return DISCONNECTED;
843
844         /* IRC-Operatoren im Netz */
845         cnt = Client_OperCount( );
846         if( cnt > 0 )
847         {
848                 if( ! IRC_WriteStrClient( Client, RPL_LUSEROP_MSG, Client_ID( Client ), cnt )) return DISCONNECTED;
849         }
850
851         /* Unbekannt Verbindungen */
852         cnt = Client_UnknownCount( );
853         if( cnt > 0 )
854         {
855                 if( ! IRC_WriteStrClient( Client, RPL_LUSERUNKNOWN_MSG, Client_ID( Client ), cnt )) return DISCONNECTED;
856         }
857
858         /* Channels im Netz */
859         if( ! IRC_WriteStrClient( Client, RPL_LUSERCHANNELS_MSG, Client_ID( Client ), Channel_Count( ))) return DISCONNECTED;
860
861         /* Channels im Netz */
862         if( ! IRC_WriteStrClient( Client, RPL_LUSERME_MSG, Client_ID( Client ), Client_MyUserCount( ), Client_MyServiceCount( ), Client_MyServerCount( ))) return DISCONNECTED;
863         
864         return CONNECTED;
865 } /* IRC_Send_LUSERS */
866
867
868 /* -eof- */