- neue Funktion IRC_WHOWAS() begonnen.
[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.100 2002/11/22 23:31:56 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_WHOWAS( CLIENT *Client, REQUEST *Req )
366 {
367         assert( Client != NULL );
368         assert( Req != NULL );
369
370         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
371
372         /* Falsche Anzahl Parameter? */
373         if(( Req->argc < 1 ) || ( Req->argc > 3 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
374
375         /* ... */
376
377         return CONNECTED;
378 } /* IRC_WHOWAS */
379
380
381 GLOBAL BOOLEAN
382 IRC_WHO( CLIENT *Client, REQUEST *Req )
383 {
384         BOOLEAN ok, only_ops;
385         CHAR flags[8], *ptr;
386         CL2CHAN *cl2chan;
387         CHANNEL *chan;
388         CLIENT *c;
389         
390         assert( Client != NULL );
391         assert( Req != NULL );
392
393         if( Client_Type( Client ) != CLIENT_USER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
394
395         /* Falsche Anzahl Parameter? */
396         if(( Req->argc > 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
397
398         only_ops = FALSE;
399         chan = NULL;
400
401         if( Req->argc == 2 )
402         {
403                 /* Nur OPs anzeigen? */
404                 if( strcmp( Req->argv[1], "o" ) == 0 ) only_ops = TRUE;
405 #ifdef STRICT_RFC
406                 else return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
407 #endif
408         }
409         
410         if( Req->argc >= 1 )
411         {
412                 /* wurde ein Channel oder Nick-Mask angegeben? */
413                 chan = Channel_Search( Req->argv[0] );
414         }
415
416         if( chan )
417         {
418                 /* User eines Channels ausgeben */
419                 if( ! IRC_Send_WHO( Client, chan, only_ops )) return DISCONNECTED;
420         }
421
422         c = Client_First( );
423         while( c )
424         {
425                 if(( Client_Type( c ) == CLIENT_USER ) && ( ! strchr( Client_Modes( c ), 'i' )))
426                 {
427                         ok = FALSE;
428                         if( Req->argc == 0 ) ok = TRUE;
429                         else
430                         {
431                                 if( strcasecmp( Req->argv[0], Client_ID( c )) == 0 ) ok = TRUE;
432                                 else if( strcmp( Req->argv[0], "0" ) == 0 ) ok = TRUE;
433                         }
434                                 
435                         if( ok && (( ! only_ops ) || ( strchr( Client_Modes( c ), 'o' ))))
436                         {
437                                 /* Flags zusammenbasteln */
438                                 strcpy( flags, "H" );
439                                 if( strchr( Client_Modes( c ), 'o' )) strcat( flags, "*" );
440
441                                 /* ausgeben */
442                                 cl2chan = Channel_FirstChannelOf( c );
443                                 if( cl2chan ) ptr = Channel_Name( Channel_GetChannel( cl2chan ));
444                                 else ptr = "*";
445                                 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;
446                         }
447                 }
448
449                 /* naechster Client */
450                 c = Client_Next( c );
451         }
452
453         if( chan ) return IRC_WriteStrClient( Client, RPL_ENDOFWHO_MSG, Client_ID( Client ), Channel_Name( chan ));
454         else if( Req->argc == 0 ) return IRC_WriteStrClient( Client, RPL_ENDOFWHO_MSG, Client_ID( Client ), "*" );
455         else return IRC_WriteStrClient( Client, RPL_ENDOFWHO_MSG, Client_ID( Client ), Req->argv[0] );
456 } /* IRC_WHO */
457
458
459 GLOBAL BOOLEAN
460 IRC_USERHOST( CLIENT *Client, REQUEST *Req )
461 {
462         CHAR rpl[COMMAND_LEN];
463         CLIENT *c;
464         INT max, i;
465
466         assert( Client != NULL );
467         assert( Req != NULL );
468
469         if( Client_Type( Client ) != CLIENT_USER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
470
471         /* Falsche Anzahl Parameter? */
472         if(( Req->argc < 1 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
473
474         if( Req->argc > 5 ) max = 5;
475         else max = Req->argc;
476         
477         strcpy( rpl, RPL_USERHOST_MSG );
478         for( i = 0; i < max; i++ )
479         {
480                 c = Client_Search( Req->argv[i] );
481                 if( c && ( Client_Type( c ) == CLIENT_USER ))
482                 {
483                         /* Dieser Nick ist "online" */
484                         strcat( rpl, Client_ID( c ));
485                         if( Client_HasMode( c, 'o' )) strcat( rpl, "*" );
486                         strcat( rpl, "=" );
487                         if( Client_HasMode( c, 'a' )) strcat( rpl, "-" );
488                         else strcat( rpl, "+" );
489                         strcat( rpl, Client_User( c ));
490                         strcat( rpl, "@" );
491                         strcat( rpl, Client_Hostname( c ));
492                         strcat( rpl, " " );
493                 }
494         }
495         if( rpl[strlen( rpl ) - 1] == ' ' ) rpl[strlen( rpl ) - 1] = '\0';
496
497         return IRC_WriteStrClient( Client, "%s", rpl, Client_ID( Client ) );
498 } /* IRC_USERHOST */
499
500
501 GLOBAL BOOLEAN
502 IRC_ERROR( CLIENT *Client, REQUEST *Req )
503 {
504         assert( Client != NULL );
505         assert( Req != NULL );
506
507         if( Req->argc < 1 ) Log( LOG_NOTICE, "Got ERROR from \"%s\"!", Client_Mask( Client ));
508         else Log( LOG_NOTICE, "Got ERROR from \"%s\": %s!", Client_Mask( Client ), Req->argv[0] );
509
510         return CONNECTED;
511 } /* IRC_ERROR */
512
513
514 GLOBAL BOOLEAN
515 IRC_LUSERS( CLIENT *Client, REQUEST *Req )
516 {
517         CLIENT *target, *from;
518         
519         assert( Client != NULL );
520         assert( Req != NULL );
521
522         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
523
524         /* Falsche Anzahl Parameter? */
525         if(( Req->argc > 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
526
527         /* Absender ermitteln */
528         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
529         else from = Client;
530         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
531
532         /* An anderen Server forwarden? */
533         if( Req->argc == 2 )
534         {
535                 target = Client_Search( Req->argv[1] );
536                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[1] );
537                 else if( target != Client_ThisServer( )) return IRC_WriteStrClientPrefix( target, from, "LUSERS %s %s", Req->argv[0], Req->argv[1] );
538         }
539
540         /* Wer ist der Absender? */
541         if( Client_Type( Client ) == CLIENT_SERVER ) target = Client_Search( Req->prefix );
542         else target = Client;
543         if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
544         
545         IRC_Send_LUSERS( target );
546
547         return CONNECTED;
548 } /* IRC_LUSERS */
549
550
551 GLOBAL BOOLEAN
552 IRC_LINKS( CLIENT *Client, REQUEST *Req )
553 {
554         CLIENT *target, *from, *c;
555         CHAR *mask;
556         
557         assert( Client != NULL );
558         assert( Req != NULL );
559
560         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
561
562         /* Falsche Anzahl Parameter? */
563         if(( Req->argc > 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
564
565         /* Server-Mask ermitteln */
566         if( Req->argc > 0 ) mask = Req->argv[Req->argc - 1];
567         else mask = "*";
568
569         /* Absender ermitteln */
570         if( Client_Type( Client ) == CLIENT_SERVER ) from = Client_Search( Req->prefix );
571         else from = Client;
572         if( ! from ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
573         
574         /* An anderen Server forwarden? */
575         if( Req->argc == 2 )
576         {
577                 target = Client_Search( Req->argv[0] );
578                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[0] );
579                 else if( target != Client_ThisServer( )) return IRC_WriteStrClientPrefix( target, from, "LINKS %s %s", Req->argv[0], Req->argv[1] );
580         }
581
582         /* Wer ist der Absender? */
583         if( Client_Type( Client ) == CLIENT_SERVER ) target = Client_Search( Req->prefix );
584         else target = Client;
585         if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHNICK_MSG, Client_ID( Client ), Req->prefix );
586         
587         c = Client_First( );
588         while( c )
589         {
590                 if( Client_Type( c ) == CLIENT_SERVER )
591                 {
592                         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;
593                 }
594                 c = Client_Next( c );
595         }
596         
597         return IRC_WriteStrClient( target, RPL_ENDOFLINKS_MSG, Client_ID( target ), mask );
598 } /* IRC_LINKS */
599
600
601 GLOBAL BOOLEAN
602 IRC_VERSION( CLIENT *Client, REQUEST *Req )
603 {
604         CLIENT *target, *prefix;
605         
606         assert( Client != NULL );
607         assert( Req != NULL );
608
609         /* Falsche Anzahl Parameter? */
610         if(( Req->argc > 1 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
611
612         /* Ziel suchen */
613         if( Req->argc == 1 ) target = Client_Search( Req->argv[0] );
614         else target = Client_ThisServer( );
615
616         /* Prefix ermitteln */
617         if( Client_Type( Client ) == CLIENT_SERVER ) prefix = Client_Search( Req->prefix );
618         else prefix = Client;
619         if( ! prefix ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->prefix );
620         
621         /* An anderen Server weiterleiten? */
622         if( target != Client_ThisServer( ))
623         {
624                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[0] );
625
626                 /* forwarden */
627                 IRC_WriteStrClientPrefix( target, prefix, "VERSION %s", Req->argv[0] );
628                 return CONNECTED;
629         }
630
631         /* mit Versionsinfo antworten */
632         return IRC_WriteStrClient( Client, RPL_VERSION_MSG, Client_ID( prefix ), PACKAGE, VERSION, NGIRCd_DebugLevel, Conf_ServerName, NGIRCd_VersionAddition( ));
633 } /* IRC_VERSION */
634
635
636 GLOBAL BOOLEAN
637 IRC_KILL( CLIENT *Client, REQUEST *Req )
638 {
639         CLIENT *prefix, *c;
640         
641         assert( Client != NULL );
642         assert( Req != NULL );
643
644         if( Client_Type( Client ) != CLIENT_SERVER ) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
645
646         /* Falsche Anzahl Parameter? */
647         if(( Req->argc != 2 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
648
649         prefix = Client_Search( Req->prefix );
650         if( ! prefix )
651         {
652                 Log( LOG_WARNING, "Got KILL with invalid prefix: \"%s\"!", Req->prefix );
653                 prefix = Client_ThisServer( );
654         }
655         
656         Log( LOG_NOTICE, "Got KILL command from \"%s\" for \"%s\": %s", Client_Mask( prefix ), Req->argv[0], Req->argv[1] );
657         
658         /* andere Server benachrichtigen */
659         IRC_WriteStrServersPrefix( Client, prefix, "KILL %s :%s", Req->argv[0], Req->argv[1] );
660
661         /* haben wir selber einen solchen Client? */
662         c = Client_Search( Req->argv[0] );
663         if( c )
664         {
665                 /* Ja, wir haben einen solchen Client */
666                 if( Client_Conn( c ) != NONE ) Conn_Close( Client_Conn( c ), NULL, Req->argv[1], TRUE );
667                 else Client_Destroy( c, NULL, Req->argv[1], TRUE );
668         }
669         else Log( LOG_NOTICE, "Client with nick \"%s\" is unknown here.", Req->argv[0] );
670
671         return CONNECTED;
672 } /* IRC_KILL */
673
674
675 GLOBAL BOOLEAN
676 IRC_ADMIN(CLIENT *Client, REQUEST *Req )
677 {
678         CLIENT *target, *prefix;
679
680         assert( Client != NULL );
681         assert( Req != NULL );
682
683         if(( Client_Type( Client ) != CLIENT_USER ) && ( Client_Type( Client ) != CLIENT_SERVER )) return IRC_WriteStrClient( Client, ERR_NOTREGISTERED_MSG, Client_ID( Client ));
684
685         /* Falsche Anzahl Parameter? */
686         if(( Req->argc > 1 )) return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
687
688         /* Ziel suchen */
689         if( Req->argc == 1 ) target = Client_Search( Req->argv[0] );
690         else target = Client_ThisServer( );
691
692         /* Prefix ermitteln */
693         if( Client_Type( Client ) == CLIENT_SERVER ) prefix = Client_Search( Req->prefix );
694         else prefix = Client;
695         if( ! prefix ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->prefix );
696
697         /* An anderen Server weiterleiten? */
698         if( target != Client_ThisServer( ))
699         {
700                 if( ! target ) return IRC_WriteStrClient( Client, ERR_NOSUCHSERVER_MSG, Client_ID( Client ), Req->argv[0] );
701
702                 /* forwarden */
703                 IRC_WriteStrClientPrefix( target, prefix, "ADMIN %s", Req->argv[0] );
704                 return CONNECTED;
705         }
706
707         /* mit Versionsinfo antworten */
708         if( ! IRC_WriteStrClient( Client, RPL_ADMINME_MSG, Client_ID( prefix ), Conf_ServerName )) return DISCONNECTED;
709         if( ! IRC_WriteStrClient( Client, RPL_ADMINLOC1_MSG, Client_ID( prefix ), Conf_ServerAdmin1 )) return DISCONNECTED;
710         if( ! IRC_WriteStrClient( Client, RPL_ADMINLOC2_MSG, Client_ID( prefix ), Conf_ServerAdmin2 )) return DISCONNECTED;
711         if( ! IRC_WriteStrClient( Client, RPL_ADMINEMAIL_MSG, Client_ID( prefix ), Conf_ServerAdminMail )) return DISCONNECTED;
712
713         return CONNECTED;
714 } /* IRC_ADMIN */
715
716
717
718 GLOBAL BOOLEAN
719 IRC_Show_MOTD( CLIENT *Client )
720 {
721         BOOLEAN ok;
722         CHAR line[127];
723         FILE *fd;
724         
725         assert( Client != NULL );
726
727         fd = fopen( Conf_MotdFile, "r" );
728         if( ! fd )
729         {
730                 Log( LOG_WARNING, "Can't read MOTD file \"%s\": %s", Conf_MotdFile, strerror( errno ));
731                 return IRC_WriteStrClient( Client, ERR_NOMOTD_MSG, Client_ID( Client ) );
732         }
733         
734         IRC_WriteStrClient( Client, RPL_MOTDSTART_MSG, Client_ID( Client ), Client_ID( Client_ThisServer( )));
735         while( TRUE )
736         {
737                 if( ! fgets( line, 126, fd )) break;
738                 if( line[strlen( line ) - 1] == '\n' ) line[strlen( line ) - 1] = '\0';
739                 if( ! IRC_WriteStrClient( Client, RPL_MOTD_MSG, Client_ID( Client ), line ))
740                 {
741                         fclose( fd );
742                         return FALSE;
743                 }
744         }
745         ok = IRC_WriteStrClient( Client, RPL_ENDOFMOTD_MSG, Client_ID( Client ) );
746
747         fclose( fd );
748         
749         return ok;
750 } /* IRC_Show_MOTD */
751
752
753 GLOBAL BOOLEAN
754 IRC_Send_NAMES( CLIENT *Client, CHANNEL *Chan )
755 {
756         BOOLEAN is_visible, is_member;
757         CHAR str[LINE_LEN + 1];
758         CL2CHAN *cl2chan;
759         CLIENT *cl;
760         
761         assert( Client != NULL );
762         assert( Chan != NULL );
763
764         if( Channel_IsMemberOf( Chan, Client )) is_member = TRUE;
765         else is_member = FALSE;
766                          
767         /* Alle Mitglieder suchen */
768         sprintf( str, RPL_NAMREPLY_MSG, Client_ID( Client ), "=", Channel_Name( Chan ));
769         cl2chan = Channel_FirstMember( Chan );
770         while( cl2chan )
771         {
772                 cl = Channel_GetClient( cl2chan );
773
774                 if( strchr( Client_Modes( cl ), 'i' )) is_visible = FALSE;
775                 else is_visible = TRUE;
776
777                 if( is_member || is_visible )
778                 {
779                         /* Nick anhaengen */
780                         if( str[strlen( str ) - 1] != ':' ) strcat( str, " " );
781                         if( strchr( Channel_UserModes( Chan, cl ), 'o' )) strcat( str, "@" );
782                         else if( strchr( Channel_UserModes( Chan, cl ), 'v' )) strcat( str, "+" );
783                         strcat( str, Client_ID( cl ));
784         
785                         if( strlen( str ) > ( LINE_LEN - CLIENT_NICK_LEN - 4 ))
786                         {
787                                 /* Zeile wird zu lang: senden! */
788                                 if( ! IRC_WriteStrClient( Client, "%s", str )) return DISCONNECTED;
789                                 sprintf( str, RPL_NAMREPLY_MSG, Client_ID( Client ), "=", Channel_Name( Chan ));
790                         }
791                 }
792
793                 /* naechstes Mitglied suchen */
794                 cl2chan = Channel_NextMember( Chan, cl2chan );
795         }
796         if( str[strlen( str ) - 1] != ':')
797         {
798                 /* Es sind noch Daten da, die gesendet werden muessen */
799                 if( ! IRC_WriteStrClient( Client, "%s", str )) return DISCONNECTED;
800         }
801
802         return CONNECTED;
803 } /* IRC_Send_NAMES */
804
805
806 GLOBAL BOOLEAN
807 IRC_Send_WHO( CLIENT *Client, CHANNEL *Chan, BOOLEAN OnlyOps )
808 {
809         BOOLEAN is_visible, is_member;
810         CL2CHAN *cl2chan;
811         CHAR flags[8];
812         CLIENT *c;
813
814         assert( Client != NULL );
815         assert( Chan != NULL );
816
817         if( Channel_IsMemberOf( Chan, Client )) is_member = TRUE;
818         else is_member = FALSE;
819
820         /* Alle Mitglieder suchen */
821         cl2chan = Channel_FirstMember( Chan );
822         while( cl2chan )
823         {
824                 c = Channel_GetClient( cl2chan );
825
826                 if( strchr( Client_Modes( c ), 'i' )) is_visible = FALSE;
827                 else is_visible = TRUE;
828
829                 if( is_member || is_visible )
830                 {
831                         /* Flags zusammenbasteln */
832                         strcpy( flags, "H" );
833                         if( strchr( Client_Modes( c ), 'o' )) strcat( flags, "*" );
834                         if( strchr( Channel_UserModes( Chan, c ), 'o' )) strcat( flags, "@" );
835                         else if( strchr( Channel_UserModes( Chan, c ), 'v' )) strcat( flags, "+" );
836                         
837                         /* ausgeben */
838                         if(( ! OnlyOps ) || ( strchr( Client_Modes( c ), 'o' )))
839                         {
840                                 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;
841                         }
842                 }
843
844                 /* naechstes Mitglied suchen */
845                 cl2chan = Channel_NextMember( Chan, cl2chan );
846         }
847         return CONNECTED;
848 } /* IRC_Send_WHO */
849
850
851 GLOBAL BOOLEAN
852 IRC_Send_LUSERS( CLIENT *Client )
853 {
854         LONG cnt;
855
856         assert( Client != NULL );
857
858         /* Users, Services und Serevr im Netz */
859         if( ! IRC_WriteStrClient( Client, RPL_LUSERCLIENT_MSG, Client_ID( Client ), Client_UserCount( ), Client_ServiceCount( ), Client_ServerCount( ))) return DISCONNECTED;
860
861         /* IRC-Operatoren im Netz */
862         cnt = Client_OperCount( );
863         if( cnt > 0 )
864         {
865                 if( ! IRC_WriteStrClient( Client, RPL_LUSEROP_MSG, Client_ID( Client ), cnt )) return DISCONNECTED;
866         }
867
868         /* Unbekannt Verbindungen */
869         cnt = Client_UnknownCount( );
870         if( cnt > 0 )
871         {
872                 if( ! IRC_WriteStrClient( Client, RPL_LUSERUNKNOWN_MSG, Client_ID( Client ), cnt )) return DISCONNECTED;
873         }
874
875         /* Channels im Netz */
876         if( ! IRC_WriteStrClient( Client, RPL_LUSERCHANNELS_MSG, Client_ID( Client ), Channel_Count( ))) return DISCONNECTED;
877
878         /* Channels im Netz */
879         if( ! IRC_WriteStrClient( Client, RPL_LUSERME_MSG, Client_ID( Client ), Client_MyUserCount( ), Client_MyServiceCount( ), Client_MyServerCount( ))) return DISCONNECTED;
880         
881         return CONNECTED;
882 } /* IRC_Send_LUSERS */
883
884
885 /* -eof- */