Implement WEBIRC command
[ngircd-alex.git] / src / ngircd / irc-login.c
1 /*
2  * ngIRCd -- The Next Generation IRC Daemon
3  * Copyright (c)2001-2010 Alexander Barton (alex@barton.de)
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 2 of the License, or
8  * (at your option) any later version.
9  * Please read the file COPYING, README and AUTHORS for more information.
10  *
11  * Login and logout
12  */
13
14
15 #include "portab.h"
16
17 #include "imp.h"
18 #include <assert.h>
19 #include <stdio.h>
20 #include <stdlib.h>
21 #include <string.h>
22 #include <strings.h>
23
24 #include "ngircd.h"
25 #include "resolve.h"
26 #include "conn-func.h"
27 #include "conf.h"
28 #include "client.h"
29 #include "channel.h"
30 #include "log.h"
31 #include "messages.h"
32 #include "parse.h"
33 #include "irc.h"
34 #include "irc-info.h"
35 #include "irc-write.h"
36
37 #include "exp.h"
38 #include "irc-login.h"
39
40
41 static bool Hello_User PARAMS(( CLIENT *Client ));
42 static void Kill_Nick PARAMS(( char *Nick, char *Reason ));
43 static void Introduce_Client PARAMS((CLIENT *To, CLIENT *Client, int Type));
44 static void cb_introduceClient PARAMS((CLIENT *Client, CLIENT *Prefix,
45                                        void *i));
46
47
48 /**
49  * Handler for the IRC command "PASS".
50  * See RFC 2813 section 4.1.1, and RFC 2812 section 3.1.1.
51  */
52 GLOBAL bool
53 IRC_PASS( CLIENT *Client, REQUEST *Req )
54 {
55         char *type, *orig_flags;
56         int protohigh, protolow;
57
58         assert( Client != NULL );
59         assert( Req != NULL );
60
61         /* Return an error if this is not a local client */
62         if (Client_Conn(Client) <= NONE)
63                 return IRC_WriteStrClient(Client, ERR_UNKNOWNCOMMAND_MSG,
64                                           Client_ID(Client), Req->command);
65
66         if (Client_Type(Client) == CLIENT_UNKNOWN && Req->argc == 1) {
67                 /* Not yet registered "unknown" connection, PASS with one
68                  * argument: either a regular client, service, or server
69                  * using the old RFC 1459 section 4.1.1 syntax. */
70                 LogDebug("Connection %d: got PASS command (RFC 1459) ...",
71                          Client_Conn(Client));
72         } else if ((Client_Type(Client) == CLIENT_UNKNOWN ||
73                     Client_Type(Client) == CLIENT_UNKNOWNSERVER) &&
74                    (Req->argc == 3 || Req->argc == 4)) {
75                 /* Not yet registered "unknown" connection or outgoing server
76                  * link, PASS with three or four argument: server using the
77                  * RFC 2813 section 4.1.1 syntax. */
78                 LogDebug("Connection %d: got PASS command (RFC 2813, new server link) ...",
79                          Client_Conn(Client));
80         } else if (Client_Type(Client) == CLIENT_UNKNOWN ||
81                    Client_Type(Client) == CLIENT_UNKNOWNSERVER) {
82                 /* Unregistered connection, but wrong number of arguments: */
83                 return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
84                                           Client_ID(Client), Req->command);
85         } else {
86                 /* Registered connection, PASS command is not allowed! */
87                 return IRC_WriteStrClient(Client, ERR_ALREADYREGISTRED_MSG,
88                                           Client_ID(Client));
89         }
90
91         Client_SetPassword(Client, Req->argv[0]);
92
93         /* Protocol version */
94         if (Req->argc >= 2 && strlen(Req->argv[1]) >= 4) {
95                 int c2, c4;
96
97                 c2 = Req->argv[1][2];
98                 c4 = Req->argv[1][4];
99
100                 Req->argv[1][4] = '\0';
101                 protolow = atoi(&Req->argv[1][2]);
102                 Req->argv[1][2] = '\0';
103                 protohigh = atoi(Req->argv[1]);
104
105                 Req->argv[1][2] = c2;
106                 Req->argv[1][4] = c4;
107
108                 Client_SetType(Client, CLIENT_GOTPASS_2813);
109         } else {
110                 protohigh = protolow = 0;
111                 Client_SetType(Client, CLIENT_GOTPASS);
112         }
113
114         /* Protocol type, see doc/Protocol.txt */
115         if (Req->argc >= 2 && strlen(Req->argv[1]) > 4)
116                 type = &Req->argv[1][4];
117         else
118                 type = NULL;
119
120         /* Protocol flags/options */
121         if (Req->argc >= 4)
122                 orig_flags = Req->argv[3];
123         else
124                 orig_flags = "";
125
126         /* Implementation, version and IRC+ flags */
127         if (Req->argc >= 3) {
128                 char *impl, *ptr, *serverver, *flags;
129
130                 impl = Req->argv[2];
131                 ptr = strchr(impl, '|');
132                 if (ptr)
133                         *ptr = '\0';
134
135                 if (type && strcmp(type, PROTOIRCPLUS) == 0) {
136                         /* The peer seems to be a server which supports the
137                          * IRC+ protocol (see doc/Protocol.txt). */
138                         serverver = ptr + 1;
139                         flags = strchr(serverver, ':');
140                         if (flags) {
141                                 *flags = '\0';
142                                 flags++;
143                         } else
144                                 flags = "";
145                         Log(LOG_INFO,
146                             "Peer announces itself as %s-%s using protocol %d.%d/IRC+ (flags: \"%s\").",
147                             impl, serverver, protohigh, protolow, flags);
148                 } else {
149                         /* The peer seems to be a server supporting the
150                          * "original" IRC protocol (RFC 2813). */
151                         if (strchr(orig_flags, 'Z'))
152                                 flags = "Z";
153                         else
154                                 flags = "";
155                         Log(LOG_INFO,
156                             "Peer announces itself as \"%s\" using protocol %d.%d (flags: \"%s\").",
157                             impl, protohigh, protolow, flags);
158                 }
159                 Client_SetFlags(Client, flags);
160         }
161
162         return CONNECTED;
163 } /* IRC_PASS */
164
165
166 /**
167  * IRC "NICK" command.
168  * This function implements the IRC command "NICK" which is used to register
169  * with the server, to change already registered nicknames and to introduce
170  * new users which are connected to other servers.
171  */
172 GLOBAL bool
173 IRC_NICK( CLIENT *Client, REQUEST *Req )
174 {
175         CLIENT *intr_c, *target, *c;
176         char *nick, *user, *hostname, *modes, *info;
177         int token, hops;
178
179         assert( Client != NULL );
180         assert( Req != NULL );
181
182         /* Some IRC clients, for example BitchX, send the NICK and USER
183          * commands in the wrong order ... */
184         if(Client_Type(Client) == CLIENT_UNKNOWN
185             || Client_Type(Client) == CLIENT_GOTPASS
186             || Client_Type(Client) == CLIENT_GOTNICK
187 #ifndef STRICT_RFC
188             || Client_Type(Client) == CLIENT_GOTUSER
189 #endif
190             || Client_Type(Client) == CLIENT_USER
191             || Client_Type(Client) == CLIENT_SERVICE
192             || (Client_Type(Client) == CLIENT_SERVER && Req->argc == 1))
193         {
194                 /* User registration or change of nickname */
195
196                 /* Wrong number of arguments? */
197                 if( Req->argc != 1 )
198                         return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG,
199                                                    Client_ID( Client ),
200                                                    Req->command );
201
202                 /* Search "target" client */
203                 if( Client_Type( Client ) == CLIENT_SERVER )
204                 {
205                         target = Client_Search( Req->prefix );
206                         if( ! target )
207                                 return IRC_WriteStrClient( Client,
208                                                            ERR_NOSUCHNICK_MSG,
209                                                            Client_ID( Client ),
210                                                            Req->argv[0] );
211                 }
212                 else
213                 {
214                         /* Is this a restricted client? */
215                         if( Client_HasMode( Client, 'r' ))
216                                 return IRC_WriteStrClient( Client,
217                                                            ERR_RESTRICTED_MSG,
218                                                            Client_ID( Client ));
219
220                         target = Client;
221                 }
222
223 #ifndef STRICT_RFC
224                 /* If the clients tries to change to its own nickname we won't
225                  * do anything. This is how the original ircd behaves and some
226                  * clients (for example Snak) expect it to be like this.
227                  * But I doubt that this is "really the right thing" ... */
228                 if( strcmp( Client_ID( target ), Req->argv[0] ) == 0 )
229                         return CONNECTED;
230 #endif
231
232                 /* Check that the new nickname is available. Special case:
233                  * the client only changes from/to upper to lower case. */
234                 if( strcasecmp( Client_ID( target ), Req->argv[0] ) != 0 )
235                 {
236                         if( ! Client_CheckNick( target, Req->argv[0] ))
237                                 return CONNECTED;
238                 }
239
240                 if (Client_Type(target) != CLIENT_USER &&
241                     Client_Type(target) != CLIENT_SERVICE &&
242                     Client_Type(target) != CLIENT_SERVER) {
243                         /* New client */
244                         LogDebug("Connection %d: got valid NICK command ...",
245                              Client_Conn( Client ));
246
247                         /* Register new nickname of this client */
248                         Client_SetID( target, Req->argv[0] );
249
250                         /* If we received a valid USER command already then
251                          * register the new client! */
252                         if( Client_Type( Client ) == CLIENT_GOTUSER )
253                                 return Hello_User( Client );
254                         else
255                                 Client_SetType( Client, CLIENT_GOTNICK );
256                 } else {
257                         /* Nickname change */
258                         if (Client_Conn(target) > NONE) {
259                                 /* Local client */
260                                 Log(LOG_INFO,
261                                     "%s \"%s\" changed nick (connection %d): \"%s\" -> \"%s\".",
262                                     Client_TypeText(target), Client_Mask(target),
263                                     Client_Conn(target), Client_ID(target),
264                                     Req->argv[0]);
265                                 Conn_UpdateIdle(Client_Conn(target));
266                         } else {
267                                 /* Remote client */
268                                 LogDebug("%s \"%s\" changed nick: \"%s\" -> \"%s\".",
269                                          Client_TypeText(target),
270                                          Client_Mask(target), Client_ID(target),
271                                          Req->argv[0]);
272                         }
273
274                         /* Inform all users and servers (which have to know)
275                          * of this nickname change */
276                         if( Client_Type( Client ) == CLIENT_USER )
277                                 IRC_WriteStrClientPrefix( Client, Client,
278                                                           "NICK :%s",
279                                                           Req->argv[0] );
280                         IRC_WriteStrServersPrefix( Client, target,
281                                                    "NICK :%s", Req->argv[0] );
282                         IRC_WriteStrRelatedPrefix( target, target, false,
283                                                    "NICK :%s", Req->argv[0] );
284
285                         /* Register old nickname for WHOWAS queries */
286                         Client_RegisterWhowas( target );
287
288                         /* Save new nickname */
289                         Client_SetID( target, Req->argv[0] );
290
291                         IRC_SetPenalty( target, 2 );
292                 }
293
294                 return CONNECTED;
295         } else if(Client_Type(Client) == CLIENT_SERVER ||
296                   Client_Type(Client) == CLIENT_SERVICE) {
297                 /* Server or service introduces new client */
298
299                 /* Bad number of parameters? */
300                 if (Req->argc != 2 && Req->argc != 7)
301                         return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
302                                                   Client_ID(Client), Req->command);
303
304                 if (Req->argc >= 7) {
305                         /* RFC 2813 compatible syntax */
306                         nick = Req->argv[0];
307                         hops = atoi(Req->argv[1]);
308                         user = Req->argv[2];
309                         hostname = Req->argv[3];
310                         token = atoi(Req->argv[4]);
311                         modes = Req->argv[5] + 1;
312                         info = Req->argv[6];
313                 } else {
314                         /* RFC 1459 compatible syntax */
315                         nick = Req->argv[0];
316                         hops = 1;
317                         user = Req->argv[0];
318                         hostname = Client_ID(Client);
319                         token = atoi(Req->argv[1]);
320                         modes = "";
321                         info = Req->argv[0];
322                 }
323
324                 c = Client_Search(nick);
325                 if(c) {
326                         /*
327                          * the new nick is already present on this server:
328                          * the new and the old one have to be disconnected now.
329                          */
330                         Log( LOG_ERR, "Server %s introduces already registered nick \"%s\"!", Client_ID( Client ), Req->argv[0] );
331                         Kill_Nick( Req->argv[0], "Nick collision" );
332                         return CONNECTED;
333                 }
334
335                 /* Find the Server this client is connected to */
336                 intr_c = Client_GetFromToken(Client, token);
337                 if( ! intr_c )
338                 {
339                         Log( LOG_ERR, "Server %s introduces nick \"%s\" on unknown server!?", Client_ID( Client ), Req->argv[0] );
340                         Kill_Nick( Req->argv[0], "Unknown server" );
341                         return CONNECTED;
342                 }
343
344                 c = Client_NewRemoteUser(intr_c, nick, hops, user, hostname,
345                                          token, modes, info, true);
346                 if( ! c )
347                 {
348                         /* out of memory, need to disconnect client to keep network state consistent */
349                         Log( LOG_ALERT, "Can't create client structure! (on connection %d)", Client_Conn( Client ));
350                         Kill_Nick( Req->argv[0], "Server error" );
351                         return CONNECTED;
352                 }
353
354                 /* RFC 2813: client is now fully registered, inform all the
355                  * other servers about the new user.
356                  * RFC 1459: announce the new client only after receiving the
357                  * USER command, first we need more information! */
358                 if (Req->argc < 7) {
359                         LogDebug("Client \"%s\" is beeing registered (RFC 1459) ...",
360                                  Client_Mask(c));
361                         Client_SetType(c, CLIENT_GOTNICK);
362                 } else
363                         Introduce_Client(Client, c, CLIENT_USER);
364
365                 return CONNECTED;
366         }
367         else return IRC_WriteStrClient( Client, ERR_ALREADYREGISTRED_MSG, Client_ID( Client ));
368 } /* IRC_NICK */
369
370
371 /**
372  * Handler for the IRC command "USER".
373  */
374 GLOBAL bool
375 IRC_USER(CLIENT * Client, REQUEST * Req)
376 {
377         CLIENT *c;
378 #ifdef IDENTAUTH
379         char *ptr;
380 #endif
381
382         assert(Client != NULL);
383         assert(Req != NULL);
384
385         if (Client_Type(Client) == CLIENT_GOTNICK ||
386 #ifndef STRICT_RFC
387             Client_Type(Client) == CLIENT_UNKNOWN ||
388 #endif
389             Client_Type(Client) == CLIENT_GOTPASS)
390         {
391                 /* New connection */
392                 if (Req->argc != 4)
393                         return IRC_WriteStrClient(Client,
394                                                   ERR_NEEDMOREPARAMS_MSG,
395                                                   Client_ID(Client),
396                                                   Req->command);
397
398                 /* User name */
399 #ifdef IDENTAUTH
400                 ptr = Client_User(Client);
401                 if (!ptr || !*ptr || *ptr == '~')
402                         Client_SetUser(Client, Req->argv[0], false);
403 #else
404                 Client_SetUser(Client, Req->argv[0], false);
405 #endif
406
407                 /* "Real name" or user info text: Don't set it to the empty
408                  * string, the original ircd can't deal with such "real names"
409                  * (e. g. "USER user * * :") ... */
410                 if (*Req->argv[3])
411                         Client_SetInfo(Client, Req->argv[3]);
412                 else
413                         Client_SetInfo(Client, "-");
414
415                 LogDebug("Connection %d: got valid USER command ...",
416                     Client_Conn(Client));
417                 if (Client_Type(Client) == CLIENT_GOTNICK)
418                         return Hello_User(Client);
419                 else
420                         Client_SetType(Client, CLIENT_GOTUSER);
421                 return CONNECTED;
422
423         } else if (Client_Type(Client) == CLIENT_SERVER ||
424                    Client_Type(Client) == CLIENT_SERVICE) {
425                 /* Server/service updating an user */
426                 if (Req->argc != 4)
427                         return IRC_WriteStrClient(Client,
428                                                   ERR_NEEDMOREPARAMS_MSG,
429                                                   Client_ID(Client),
430                                                   Req->command);
431                 c = Client_Search(Req->prefix);
432                 if (!c)
433                         return IRC_WriteStrClient(Client, ERR_NOSUCHNICK_MSG,
434                                                   Client_ID(Client),
435                                                   Req->prefix);
436
437                 Client_SetUser(c, Req->argv[0], true);
438                 Client_SetHostname(c, Req->argv[1]);
439                 Client_SetInfo(c, Req->argv[3]);
440
441                 LogDebug("Connection %d: got valid USER command for \"%s\".",
442                          Client_Conn(Client), Client_Mask(c));
443
444                 /* RFC 1459 style user registration?
445                  * Introduce client to network: */
446                 if (Client_Type(c) == CLIENT_GOTNICK)
447                         Introduce_Client(Client, c, CLIENT_USER);
448
449                 return CONNECTED;
450         } else if (Client_Type(Client) == CLIENT_USER) {
451                 /* Already registered connection */
452                 return IRC_WriteStrClient(Client, ERR_ALREADYREGISTRED_MSG,
453                                           Client_ID(Client));
454         } else {
455                 /* Unexpected/invalid connection state? */
456                 return IRC_WriteStrClient(Client, ERR_NOTREGISTERED_MSG,
457                                           Client_ID(Client));
458         }
459 } /* IRC_USER */
460
461
462 /**
463  * Handler for the IRC command "SERVICE".
464  * This function implements IRC Services registration using the SERVICE command
465  * defined in RFC 2812 3.1.6 and RFC 2813 4.1.4.
466  * At the moment ngIRCd doesn't support directly linked services, so this
467  * function returns ERR_ERRONEUSNICKNAME when the SERVICE command has not been
468  * received from a peer server.
469  */
470 GLOBAL bool
471 IRC_SERVICE(CLIENT *Client, REQUEST *Req)
472 {
473         CLIENT *c, *intr_c;
474         char *nick, *user, *host, *info, *modes, *ptr;
475         int token, hops;
476
477         assert(Client != NULL);
478         assert(Req != NULL);
479
480         if (Client_Type(Client) != CLIENT_GOTPASS &&
481             Client_Type(Client) != CLIENT_SERVER)
482                 return IRC_WriteStrClient(Client, ERR_ALREADYREGISTRED_MSG,
483                                           Client_ID(Client));
484
485         if (Req->argc != 6)
486                 return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
487                                           Client_ID(Client), Req->command);
488
489         if (Client_Type(Client) != CLIENT_SERVER)
490                 return IRC_WriteStrClient(Client, ERR_ERRONEUSNICKNAME_MSG,
491                                   Client_ID(Client), Req->argv[0]);
492
493         /* Bad number of parameters? */
494         if (Req->argc != 6)
495                 return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
496                                           Client_ID(Client), Req->command);
497
498         nick = Req->argv[0];
499         user = NULL; host = NULL;
500         token = atoi(Req->argv[1]);
501         hops = atoi(Req->argv[4]);
502         info = Req->argv[5];
503
504         /* Validate service name ("nick name") */
505         c = Client_Search(nick);
506         if(c) {
507                 /* Nick name collission: disconnect (KILL) both clients! */
508                 Log(LOG_ERR, "Server %s introduces already registered service \"%s\"!",
509                     Client_ID(Client), nick);
510                 Kill_Nick(nick, "Nick collision");
511                 return CONNECTED;
512         }
513
514         /* Get the server to which the service is connected */
515         intr_c = Client_GetFromToken(Client, token);
516         if (! intr_c) {
517                 Log(LOG_ERR, "Server %s introduces service \"%s\" on unknown server!?",
518                     Client_ID(Client), nick);
519                 Kill_Nick(nick, "Unknown server");
520                 return CONNECTED;
521         }
522
523         /* Get user and host name */
524         ptr = strchr(nick, '@');
525         if (ptr) {
526                 *ptr = '\0';
527                 host = ++ptr;
528         }
529         if (!host)
530                 host = Client_Hostname(intr_c);
531         ptr = strchr(nick, '!');
532         if (ptr) {
533                 *ptr = '\0';
534                 user = ++ptr;
535         }
536         if (!user)
537                 user = nick;
538
539         /* According to RFC 2812/2813 parameter 4 <type> "is currently reserved
540          * for future usage"; but we use it to transfer the modes and check
541          * that the first character is a '+' sign and ignore it otherwise. */
542         modes = (Req->argv[3][0] == '+') ? ++Req->argv[3] : "";
543
544         c = Client_NewRemoteUser(intr_c, nick, hops, user, host,
545                                  token, modes, info, true);
546         if (! c) {
547                 /* Couldn't create client structure, so KILL the service to
548                  * keep network status consistent ... */
549                 Log(LOG_ALERT, "Can't create client structure! (on connection %d)",
550                     Client_Conn(Client));
551                 Kill_Nick(nick, "Server error");
552                 return CONNECTED;
553         }
554
555         Introduce_Client(Client, c, CLIENT_SERVICE);
556         return CONNECTED;
557 } /* IRC_SERVICE */
558
559
560 /**
561  * Handler for the IRC command "WEBIRC".
562  * Syntax: WEBIRC <password> <username> <real-hostname> <real-IP-address>
563  */
564 GLOBAL bool
565 IRC_WEBIRC(CLIENT *Client, REQUEST *Req)
566 {
567         /* Exactly 4 parameters are requited */
568         if (Req->argc != 4)
569                 return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
570                                           Client_ID(Client), Req->command);
571
572         if (!Conf_WebircPwd[0] || strcmp(Req->argv[0], Conf_WebircPwd) != 0)
573                 return IRC_WriteStrClient(Client, ERR_PASSWDMISMATCH_MSG,
574                                           Client_ID(Client));
575
576         LogDebug("Connection %d: got valid WEBIRC command: user=%s, host=%s, ip=%s",
577                  Client_Conn(Client), Req->argv[1], Req->argv[2], Req->argv[3]);
578
579         Client_SetUser(Client, Req->argv[1], true);
580         Client_SetHostname(Client, Req->argv[2]);
581         return CONNECTED;
582 } /* IRC_WEBIRC */
583
584
585 GLOBAL bool
586 IRC_QUIT( CLIENT *Client, REQUEST *Req )
587 {
588         CLIENT *target;
589         char quitmsg[LINE_LEN];
590
591         assert( Client != NULL );
592         assert( Req != NULL );
593
594         /* Wrong number of arguments? */
595         if( Req->argc > 1 )
596                 return IRC_WriteStrClient( Client, ERR_NEEDMOREPARAMS_MSG, Client_ID( Client ), Req->command );
597
598         if (Req->argc == 1)
599                 strlcpy(quitmsg, Req->argv[0], sizeof quitmsg);
600
601         if ( Client_Type( Client ) == CLIENT_SERVER )
602         {
603                 /* Server */
604                 target = Client_Search( Req->prefix );
605                 if( ! target )
606                 {
607                         Log( LOG_WARNING, "Got QUIT from %s for unknown client!?", Client_ID( Client ));
608                         return CONNECTED;
609                 }
610
611                 Client_Destroy( target, "Got QUIT command.", Req->argc == 1 ? quitmsg : NULL, true);
612
613                 return CONNECTED;
614         }
615         else
616         {
617                 if (Req->argc == 1 && quitmsg[0] != '\"') {
618                         /* " " to avoid confusion */
619                         strlcpy(quitmsg, "\"", sizeof quitmsg);
620                         strlcat(quitmsg, Req->argv[0], sizeof quitmsg-1);
621                         strlcat(quitmsg, "\"", sizeof quitmsg );
622                 }
623
624                 /* User, Service, or not yet registered */
625                 Conn_Close( Client_Conn( Client ), "Got QUIT command.", Req->argc == 1 ? quitmsg : NULL, true);
626
627                 return DISCONNECTED;
628         }
629 } /* IRC_QUIT */
630
631
632 GLOBAL bool
633 IRC_PING(CLIENT *Client, REQUEST *Req)
634 {
635         CLIENT *target, *from;
636
637         assert(Client != NULL);
638         assert(Req != NULL);
639
640         if (Req->argc < 1)
641                 return IRC_WriteStrClient(Client, ERR_NOORIGIN_MSG,
642                                           Client_ID(Client));
643 #ifdef STRICT_RFC
644         /* Don't ignore additional arguments when in "strict" mode */
645         if (Req->argc > 2)
646                  return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
647                                            Client_ID(Client), Req->command);
648 #endif
649
650         if (Req->argc > 1) {
651                 /* A target has been specified ... */
652                 target = Client_Search(Req->argv[1]);
653
654                 if (!target || Client_Type(target) != CLIENT_SERVER)
655                         return IRC_WriteStrClient(Client, ERR_NOSUCHSERVER_MSG,
656                                         Client_ID(Client), Req->argv[1]);
657
658                 if (target != Client_ThisServer()) {
659                         /* Ok, we have to forward the PING */
660                         if (Client_Type(Client) == CLIENT_SERVER)
661                                 from = Client_Search(Req->prefix);
662                         else
663                                 from = Client;
664                         if (!from)
665                                 return IRC_WriteStrClient(Client,
666                                                 ERR_NOSUCHSERVER_MSG,
667                                                 Client_ID(Client), Req->prefix);
668
669                         return IRC_WriteStrClientPrefix(target, from,
670                                         "PING %s :%s", Req->argv[0],
671                                         Req->argv[1] );
672                 }
673         }
674
675         if (Client_Type(Client) == CLIENT_SERVER) {
676                 if (Req->prefix)
677                         from = Client_Search(Req->prefix);
678                 else
679                         from = Client;
680         } else
681                 from = Client_ThisServer();
682         if (!from)
683                 return IRC_WriteStrClient(Client, ERR_NOSUCHSERVER_MSG,
684                                         Client_ID(Client), Req->prefix);
685
686         Log(LOG_DEBUG, "Connection %d: got PING, sending PONG ...",
687             Client_Conn(Client));
688
689 #ifdef STRICT_RFC
690         return IRC_WriteStrClient(Client, "PONG %s :%s",
691                 Client_ID(from), Client_ID(Client));
692 #else
693         /* Some clients depend on the argument being returned in the PONG
694          * reply (not mentioned in any RFC, though) */
695         return IRC_WriteStrClient(Client, "PONG %s :%s",
696                 Client_ID(from), Req->argv[0]);
697 #endif
698 } /* IRC_PING */
699
700
701 GLOBAL bool
702 IRC_PONG(CLIENT *Client, REQUEST *Req)
703 {
704         CLIENT *target, *from;
705         char *s;
706
707         assert(Client != NULL);
708         assert(Req != NULL);
709
710         /* Wrong number of arguments? */
711         if (Req->argc < 1)
712                 return IRC_WriteStrClient(Client, ERR_NOORIGIN_MSG,
713                                           Client_ID(Client));
714         if (Req->argc > 2)
715                 return IRC_WriteStrClient(Client, ERR_NEEDMOREPARAMS_MSG,
716                                           Client_ID(Client), Req->command);
717
718         /* Forward? */
719         if (Req->argc == 2 && Client_Type(Client) == CLIENT_SERVER) {
720                 target = Client_Search(Req->argv[0]);
721                 if (!target)
722                         return IRC_WriteStrClient(Client, ERR_NOSUCHSERVER_MSG,
723                                         Client_ID(Client), Req->argv[0]);
724
725                 from = Client_Search(Req->prefix);
726
727                 if (target != Client_ThisServer() && target != from) {
728                         /* Ok, we have to forward the message. */
729                         if (!from)
730                                 return IRC_WriteStrClient(Client,
731                                                 ERR_NOSUCHSERVER_MSG,
732                                                 Client_ID(Client), Req->prefix);
733
734                         if (Client_Type(Client_NextHop(target)) != CLIENT_SERVER)
735                                 s = Client_ID(from);
736                         else
737                                 s = Req->argv[0];
738                         return IRC_WriteStrClientPrefix(target, from,
739                                  "PONG %s :%s", s, Req->argv[1]);
740                 }
741         }
742
743         /* The connection timestamp has already been updated when the data has
744          * been read from so socket, so we don't need to update it here. */
745 #ifdef DEBUG
746         if (Client_Conn(Client) > NONE)
747                 Log(LOG_DEBUG,
748                         "Connection %d: received PONG. Lag: %ld seconds.",
749                         Client_Conn(Client),
750                         time(NULL) - Conn_LastPing(Client_Conn(Client)));
751         else
752                  Log(LOG_DEBUG,
753                         "Connection %d: received PONG.", Client_Conn(Client));
754 #endif
755         return CONNECTED;
756 } /* IRC_PONG */
757
758
759 static bool
760 Hello_User(CLIENT * Client)
761 {
762         assert(Client != NULL);
763
764         /* Check password ... */
765         if (strcmp(Client_Password(Client), Conf_ServerPwd) != 0) {
766                 /* Bad password! */
767                 Log(LOG_ERR,
768                     "Client \"%s\" rejected (connection %d): Bad password!",
769                     Client_Mask(Client), Client_Conn(Client));
770                 Conn_Close(Client_Conn(Client), NULL, "Bad password", true);
771                 return DISCONNECTED;
772         }
773
774         Introduce_Client(NULL, Client, CLIENT_USER);
775
776         if (!IRC_WriteStrClient
777             (Client, RPL_WELCOME_MSG, Client_ID(Client), Client_Mask(Client)))
778                 return false;
779         if (!IRC_WriteStrClient
780             (Client, RPL_YOURHOST_MSG, Client_ID(Client),
781              Client_ID(Client_ThisServer()), PACKAGE_VERSION, TARGET_CPU,
782              TARGET_VENDOR, TARGET_OS))
783                 return false;
784         if (!IRC_WriteStrClient
785             (Client, RPL_CREATED_MSG, Client_ID(Client), NGIRCd_StartStr))
786                 return false;
787         if (!IRC_WriteStrClient
788             (Client, RPL_MYINFO_MSG, Client_ID(Client),
789              Client_ID(Client_ThisServer()), PACKAGE_VERSION, USERMODES,
790              CHANMODES))
791                 return false;
792
793         /* Features supported by this server (005 numeric, ISUPPORT),
794          * see <http://www.irc.org/tech_docs/005.html> for details. */
795         if (!IRC_Send_ISUPPORT(Client))
796                 return DISCONNECTED;
797
798         if (!IRC_Send_LUSERS(Client))
799                 return DISCONNECTED;
800         if (!IRC_Show_MOTD(Client))
801                 return DISCONNECTED;
802
803         /* Suspend the client for a second ... */
804         IRC_SetPenalty(Client, 1);
805
806         return CONNECTED;
807 } /* Hello_User */
808
809
810 static void
811 Kill_Nick( char *Nick, char *Reason )
812 {
813         REQUEST r;
814
815         assert( Nick != NULL );
816         assert( Reason != NULL );
817
818         r.prefix = (char *)Client_ThisServer( );
819         r.argv[0] = Nick;
820         r.argv[1] = Reason;
821         r.argc = 2;
822
823         Log( LOG_ERR, "User(s) with nick \"%s\" will be disconnected: %s", Nick, Reason );
824         IRC_KILL( Client_ThisServer( ), &r );
825 } /* Kill_Nick */
826
827
828 static void
829 Introduce_Client(CLIENT *From, CLIENT *Client, int Type)
830 {
831         /* Set client type (user or service) */
832         Client_SetType(Client, Type);
833
834         if (From) {
835                 if (Conf_IsService(Conf_GetServer(Client_Conn(From)),
836                                    Client_ID(Client)))
837                         Client_SetType(Client, CLIENT_SERVICE);
838                 LogDebug("%s \"%s\" (+%s) registered (via %s, on %s, %d hop%s).",
839                          Client_TypeText(Client), Client_Mask(Client),
840                          Client_Modes(Client), Client_ID(From),
841                          Client_ID(Client_Introducer(Client)),
842                          Client_Hops(Client), Client_Hops(Client) > 1 ? "s": "");
843         } else
844                 Log(LOG_NOTICE, "%s \"%s\" registered (connection %d).",
845                     Client_TypeText(Client), Client_Mask(Client),
846                     Client_Conn(Client));
847
848         /* Inform other servers */
849         IRC_WriteStrServersPrefixFlag_CB(From,
850                                 From != NULL ? From : Client_ThisServer(),
851                                 '\0', cb_introduceClient, (void *)Client);
852 } /* Introduce_Client */
853
854
855 static void
856 cb_introduceClient(CLIENT *To, CLIENT *Prefix, void *data)
857 {
858         CLIENT *c = (CLIENT *)data;
859         CONN_ID conn;
860         char *modes, *user, *host;
861
862         modes = Client_Modes(c);
863         user = Client_User(c) ? Client_User(c) : "-";
864         host = Client_Hostname(c) ? Client_Hostname(c) : "-";
865
866         conn = Client_Conn(To);
867         if (Conn_Options(conn) & CONN_RFC1459) {
868                 /* RFC 1459 mode: separate NICK and USER commands */
869                 Conn_WriteStr(conn, "NICK %s :%d", Client_ID(c),
870                               Client_Hops(c) + 1);
871                 Conn_WriteStr(conn, ":%s USER %s %s %s :%s",
872                               Client_ID(c), user, host,
873                               Client_ID(Client_Introducer(c)), Client_Info(c));
874                 if (modes[0])
875                         Conn_WriteStr(conn, ":%s MODE %s +%s",
876                                       Client_ID(c), Client_ID(c), modes);
877         } else {
878                 /* RFC 2813 mode: one combined NICK or SERVICE command */
879                 if (Client_Type(c) == CLIENT_SERVICE
880                     && strchr(Client_Flags(To), 'S'))
881                         IRC_WriteStrClientPrefix(To, Prefix,
882                                          "SERVICE %s %d * +%s %d :%s",
883                                          Client_Mask(c),
884                                          Client_MyToken(Client_Introducer(c)),
885                                          Client_Modes(c), Client_Hops(c) + 1,
886                                          Client_Info(c));
887                 else
888                         IRC_WriteStrClientPrefix(To, Prefix,
889                                          "NICK %s %d %s %s %d +%s :%s",
890                                          Client_ID(c), Client_Hops(c) + 1,
891                                          user, host,
892                                          Client_MyToken(Client_Introducer(c)),
893                                          modes, Client_Info(c));
894         }
895 } /* cb_introduceClient */
896
897
898 /* -eof- */