src/ngircd/conn.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  * Connection management
  12  */
  13
  14
  15 #define CONN_MODULE
  16
  17 #include "portab.h"
  18 #include "conf-ssl.h"
  19 #include "io.h"
  20
  21 #include "imp.h"
  22 #include <assert.h>
  23 #ifdef PROTOTYPES
  24 # include <stdarg.h>
  25 #else
  26 # include <varargs.h>
  27 #endif
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <unistd.h>
  31 #include <errno.h>
  32 #include <string.h>
  33 #include <sys/socket.h>
  34 #include <sys/time.h>
  35 #include <sys/types.h>
  36 #include <time.h>
  37 #include <netinet/in.h>
  38
  39 #ifdef HAVE_NETINET_IP_H
  40 # ifdef HAVE_NETINET_IN_SYSTM_H
  41 #  include <netinet/in_systm.h>
  42 # endif
  43 # include <netinet/ip.h>
  44 #endif
  45
  46 #ifdef HAVE_STDINT_H
  47 # include <stdint.h>                    /* e.g. for Mac OS X */
  48 #endif
  49
  50 #ifdef TCPWRAP
  51 # include <tcpd.h>                      /* for TCP Wrappers */
  52 #endif
  53
  54 #include "array.h"
  55 #include "defines.h"
  56
  57 #include "exp.h"
  58 #include "conn.h"
  59
  60 #include "imp.h"
  61 #include "ngircd.h"
  62 #include "array.h"
  63 #include "client.h"
  64 #include "conf.h"
  65 #include "conn-ssl.h"
  66 #include "conn-zip.h"
  67 #include "conn-func.h"
  68 #include "log.h"
  69 #include "ng_ipaddr.h"
  70 #include "parse.h"
  71 #include "resolve.h"
  72 #include "tool.h"
  73
  74 #ifdef ZEROCONF
  75 # include "rendezvous.h"
  76 #endif
  77
  78 #include "exp.h"
  79
  80
  81 #define SERVER_WAIT (NONE - 1)
  82
  83 #define MAX_COMMANDS 3
  84 #define MAX_COMMANDS_SERVER 10
  85
  86
  87 static bool Handle_Write PARAMS(( CONN_ID Idx ));
  88 static bool Conn_Write PARAMS(( CONN_ID Idx, char *Data, size_t Len ));
  89 static int New_Connection PARAMS(( int Sock ));
  90 static CONN_ID Socket2Index PARAMS(( int Sock ));
  91 static void Read_Request PARAMS(( CONN_ID Idx ));
  92 static unsigned int Handle_Buffer PARAMS(( CONN_ID Idx ));
  93 static void Check_Connections PARAMS(( void ));
  94 static void Check_Servers PARAMS(( void ));
  95 static void Init_Conn_Struct PARAMS(( CONN_ID Idx ));
  96 static bool Init_Socket PARAMS(( int Sock ));
  97 static void New_Server PARAMS(( int Server, ng_ipaddr_t *dest ));
  98 static void Simple_Message PARAMS(( int Sock, const char *Msg ));
  99 static int NewListener PARAMS(( const char *listen_addr, UINT16 Port ));
 100 static void Account_Connection PARAMS((void));
 101
 102
 103 static array My_Listeners;
 104 static array My_ConnArray;
 105 static size_t NumConnections, NumConnectionsMax, NumConnectionsAccepted;
 106
 107 #ifdef TCPWRAP
 108 int allow_severity = LOG_INFO;
 109 int deny_severity = LOG_ERR;
 110 #endif
 111
 112 static void server_login PARAMS((CONN_ID idx));
 113
 114 #ifdef SSL_SUPPORT
 115 extern struct SSLOptions Conf_SSLOptions;
 116 static void cb_connserver_login_ssl PARAMS((int sock, short what));
 117 static void cb_clientserver_ssl PARAMS((int sock, short what));
 118 #endif
 119 static void cb_Read_Resolver_Result PARAMS((int sock, UNUSED short what));
 120 static void cb_Connect_to_Server PARAMS((int sock, UNUSED short what));
 121 static void cb_clientserver PARAMS((int sock, short what));
 122
 123
 124 /**
 125  * IO callback for listening sockets: handle new connections. This callback
 126  * gets called when a new non-SSL connection should be accepted.
 127  * @param sock Socket descriptor
 128  * @param irrelevant (ignored IO specification)
 129  */
 130 static void
 131 cb_listen(int sock, short irrelevant)
 132 {
 133         (void) irrelevant;
 134         (void) New_Connection(sock);
 135 }
 136
 137
 138 #ifdef SSL_SUPPORT
 139 /**
 140  * IO callback for listening SSL sockets: handle new connections. This callback
 141  * gets called when a new SSL-enabled connection should be accepted.
 142  * @param sock Socket descriptor
 143  * @param irrelevant (ignored IO specification)
 144  */
 145 static void
 146 cb_listen_ssl(int sock, short irrelevant)
 147 {
 148         int fd;
 149
 150         (void) irrelevant;
 151         fd = New_Connection(sock);
 152         if (fd < 0)
 153                 return;
 154         io_event_setcb(My_Connections[fd].sock, cb_clientserver_ssl);
 155 }
 156 #endif
 157
 158
 159 /**
 160  * IO callback for new outgoing non-SSL server connections.
 161  * @param sock Socket descriptor
 162  * @param what IO specification (IO_WANTREAD/IO_WANTWRITE/...)
 163  */
 164 static void
 165 cb_connserver(int sock, UNUSED short what)
 166 {
 167         int res, err, server;
 168         socklen_t sock_len;
 169         CONN_ID idx = Socket2Index( sock );
 170
 171         if (idx <= NONE) {
 172                 LogDebug("cb_connserver wants to write on unknown socket?!");
 173                 io_close(sock);
 174                 return;
 175         }
 176
 177         assert(what & IO_WANTWRITE);
 178
 179         /* Make sure that the server is still configured; it could have been
 180          * removed in the meantime! */
 181         server = Conf_GetServer(idx);
 182         if (server < 0) {
 183                 Log(LOG_ERR, "Connection on socket %d to \"%s\" aborted!",
 184                     sock, My_Connections[idx].host);
 185                 Conn_Close(idx, "Connection aborted!", NULL, false);
 186                 return;
 187         }
 188
 189         /* connect() finished, get result. */
 190         sock_len = (socklen_t)sizeof(err);
 191         res = getsockopt(My_Connections[idx].sock, SOL_SOCKET, SO_ERROR,
 192                          &err, &sock_len );
 193         assert(sock_len == sizeof(err));
 194
 195         /* Error while connecting? */
 196         if ((res != 0) || (err != 0)) {
 197                 if (res != 0)
 198                         Log(LOG_CRIT, "getsockopt (connection %d): %s!",
 199                             idx, strerror(errno));
 200                 else
 201                         Log(LOG_CRIT,
 202                             "Can't connect socket to \"%s:%d\" (connection %d): %s!",
 203                             My_Connections[idx].host, Conf_Server[server].port,
 204                             idx, strerror(err));
 205
 206                 Conn_Close(idx, "Can't connect!", NULL, false);
 207
 208                 if (ng_ipaddr_af(&Conf_Server[server].dst_addr[0])) {
 209                         /* more addresses to try... */
 210                         New_Server(server, &Conf_Server[server].dst_addr[0]);
 211                         /* connection to dst_addr[0] is now in progress, so
 212                          * remove this address... */
 213                         Conf_Server[server].dst_addr[0] =
 214                                 Conf_Server[server].dst_addr[1];
 215                         memset(&Conf_Server[server].dst_addr[1], 0,
 216                                sizeof(Conf_Server[server].dst_addr[1]));
 217                 }
 218                 return;
 219         }
 220
 221         /* connect() succeeded, remove all additional addresses */
 222         memset(&Conf_Server[server].dst_addr, 0,
 223                sizeof(Conf_Server[server].dst_addr));
 224
 225         Conn_OPTION_DEL( &My_Connections[idx], CONN_ISCONNECTING );
 226 #ifdef SSL_SUPPORT
 227         if ( Conn_OPTION_ISSET( &My_Connections[idx], CONN_SSL_CONNECT )) {
 228                 io_event_setcb( sock, cb_connserver_login_ssl );
 229                 io_event_add( sock, IO_WANTWRITE|IO_WANTREAD );
 230                 return;
 231         }
 232 #endif
 233         server_login(idx);
 234 }
 235
 236
 237 /**
 238  * Login to a remote server.
 239  * @param idx Connection index
 240  */
 241 static void
 242 server_login(CONN_ID idx)
 243 {
 244         Log( LOG_INFO, "Connection %d with \"%s:%d\" established. Now logging in ...", idx,
 245                         My_Connections[idx].host, Conf_Server[Conf_GetServer( idx )].port );
 246
 247         io_event_setcb( My_Connections[idx].sock, cb_clientserver);
 248         io_event_add( My_Connections[idx].sock, IO_WANTREAD|IO_WANTWRITE);
 249
 250         /* Send PASS and SERVER command to peer */
 251         Conn_WriteStr( idx, "PASS %s %s", Conf_Server[Conf_GetServer( idx )].pwd_out, NGIRCd_ProtoID );
 252         Conn_WriteStr( idx, "SERVER %s :%s", Conf_ServerName, Conf_ServerInfo );
 253 }
 254
 255
 256 #ifdef SSL_SUPPORT
 257 /**
 258  * IO callback for new outgoing SSL-enabled server connections.
 259  * @param sock Socket descriptor
 260  * @param what IO specification (IO_WANTREAD/IO_WANTWRITE/...)
 261  */
 262 static void
 263 cb_connserver_login_ssl(int sock, short unused)
 264 {
 265         CONN_ID idx = Socket2Index(sock);
 266
 267         assert(idx >= 0);
 268         if (idx < 0) {
 269                 io_close(sock);
 270                 return;
 271         }
 272         (void) unused;
 273         switch (ConnSSL_Connect( &My_Connections[idx])) {
 274         case 1: break;
 275         case 0: LogDebug("ConnSSL_Connect: not ready");
 276                 return;
 277         case -1:
 278                 Log(LOG_ERR, "SSL connection on socket %d failed!", sock);
 279                 Conn_Close(idx, "Can't connect!", NULL, false);
 280                 return;
 281         }
 282
 283         Log( LOG_INFO, "SSL connection %d with \"%s:%d\" established.", idx,
 284                         My_Connections[idx].host, Conf_Server[Conf_GetServer( idx )].port );
 285
 286         server_login(idx);
 287 }
 288 #endif
 289
 290
 291 /**
 292  * IO callback for established non-SSL client and server connections.
 293  * @param sock Socket descriptor
 294  * @param what IO specification (IO_WANTREAD/IO_WANTWRITE/...)
 295  */
 296 static void
 297 cb_clientserver(int sock, short what)
 298 {
 299         CONN_ID idx = Socket2Index(sock);
 300
 301         assert(idx >= 0);
 302
 303         if (idx < 0) {
 304                 io_close(sock);
 305                 return;
 306         }
 307 #ifdef SSL_SUPPORT
 308         if (what & IO_WANTREAD
 309             || (Conn_OPTION_ISSET(&My_Connections[idx], CONN_SSL_WANT_WRITE))) {
 310                 /* if TLS layer needs to write additional data, call
 311                  * Read_Request() instead so that SSL/TLS can continue */
 312                 Read_Request(idx);
 313         }
 314 #else
 315         if (what & IO_WANTREAD)
 316                 Read_Request(idx);
 317 #endif
 318         if (what & IO_WANTWRITE)
 319                 Handle_Write(idx);
 320 }
 321
 322
 323 #ifdef SSL_SUPPORT
 324 /**
 325  * IO callback for established SSL-enabled client and server connections.
 326  * @param sock Socket descriptor
 327  * @param what IO specification (IO_WANTREAD/IO_WANTWRITE/...)
 328  */
 329 static void
 330 cb_clientserver_ssl(int sock, short what)
 331 {
 332         CONN_ID idx = Socket2Index(sock);
 333
 334         assert(idx >= 0);
 335
 336         if (idx < 0) {
 337                 io_close(sock);
 338                 return;
 339         }
 340
 341         switch (ConnSSL_Accept(&My_Connections[idx])) {
 342         case 1:
 343                 break;  /* OK */
 344         case 0:
 345                 return; /* EAGAIN: callback will be invoked again by IO layer */
 346         default:
 347                 Conn_Close(idx, "SSL accept error, closing socket", "SSL accept error", false);
 348                 return;
 349         }
 350         if (what & IO_WANTREAD)
 351                 Read_Request(idx);
 352
 353         if (what & IO_WANTWRITE)
 354                 Handle_Write(idx);
 355
 356         io_event_setcb(sock, cb_clientserver);  /* SSL handshake completed */
 357 }
 358 #endif
 359
 360
 361 /**
 362  * Initialite connecion module.
 363  */
 364 GLOBAL void
 365 Conn_Init( void )
 366 {
 367         CONN_ID i;
 368
 369         /* Speicher fuer Verbindungs-Pool anfordern */
 370         Pool_Size = CONNECTION_POOL;
 371         if ((Conf_MaxConnections > 0) &&
 372                 (Pool_Size > Conf_MaxConnections))
 373                         Pool_Size = Conf_MaxConnections;
 374
 375         if (!array_alloc(&My_ConnArray, sizeof(CONNECTION), (size_t)Pool_Size)) {
 376                 Log(LOG_EMERG, "Can't allocate memory! [Conn_Init]");
 377                 exit(1);
 378         }
 379
 380         /* FIXME: My_Connetions/Pool_Size is needed by other parts of the
 381          * code; remove them! */
 382         My_Connections = (CONNECTION*) array_start(&My_ConnArray);
 383
 384         LogDebug("Allocated connection pool for %d items (%ld bytes).",
 385                 array_length(&My_ConnArray, sizeof(CONNECTION)),
 386                 array_bytes(&My_ConnArray));
 387
 388         assert(array_length(&My_ConnArray, sizeof(CONNECTION)) >= (size_t)Pool_Size);
 389
 390         array_free( &My_Listeners );
 391
 392         for (i = 0; i < Pool_Size; i++)
 393                 Init_Conn_Struct(i);
 394 } /* Conn_Init */
 395
 396
 397 /**
 398  * Clean up connection module.
 399  */
 400 GLOBAL void
 401 Conn_Exit( void )
 402 {
 403         CONN_ID idx;
 404
 405         Conn_ExitListeners();
 406
 407         LogDebug("Shutting down all connections ..." );
 408         for( idx = 0; idx < Pool_Size; idx++ ) {
 409                 if( My_Connections[idx].sock > NONE ) {
 410                         Conn_Close( idx, NULL, NGIRCd_SignalRestart ?
 411                                 "Server going down (restarting)":"Server going down", true );
 412                 }
 413         }
 414
 415         array_free(&My_ConnArray);
 416         My_Connections = NULL;
 417         Pool_Size = 0;
 418         io_library_shutdown();
 419 } /* Conn_Exit */
 420
 421
 422 /**
 423  * Close all sockets (file descriptors) of open connections.
 424  * This is useful in forked child processes, for example, to make sure that
 425  * they don't hold connections open that the main process wants to close.
 426  */
 427 GLOBAL void
 428 Conn_CloseAllSockets(void)
 429 {
 430         CONN_ID idx;
 431
 432         for(idx = 0; idx < Pool_Size; idx++) {
 433                 if(My_Connections[idx].sock > NONE)
 434                         close(My_Connections[idx].sock);
 435         }
 436 }
 437
 438
 439 static unsigned int
 440 ports_initlisteners(array *a, const char *listen_addr, void (*func)(int,short))
 441 {
 442         unsigned int created = 0;
 443         size_t len;
 444         int fd;
 445         UINT16 *port;
 446
 447         len = array_length(a, sizeof (UINT16));
 448         port = array_start(a);
 449         while (len--) {
 450                 fd = NewListener(listen_addr, *port);
 451                 if (fd < 0) {
 452                         port++;
 453                         continue;
 454                 }
 455                 if (!io_event_create( fd, IO_WANTREAD, func )) {
 456                         Log( LOG_ERR, "io_event_create(): Could not add listening fd %d (port %u): %s!",
 457                                                 fd, (unsigned int) *port, strerror(errno));
 458                         close(fd);
 459                         port++;
 460                         continue;
 461                 }
 462                 created++;
 463                 port++;
 464         }
 465         return created;
 466 }
 467
 468
 469 /**
 470  * Initialize all listening sockets.
 471  * @return Number of created listening sockets
 472  */
 473 GLOBAL unsigned int
 474 Conn_InitListeners( void )
 475 {
 476         /* Initialize ports on which the server should accept connections */
 477         unsigned int created = 0;
 478         char *copy, *listen_addr;
 479
 480         assert(Conf_ListenAddress);
 481
 482         /* can't use Conf_ListenAddress directly, see below */
 483         copy = strdup(Conf_ListenAddress);
 484         if (!copy) {
 485                 Log(LOG_CRIT, "Cannot copy %s: %s", Conf_ListenAddress, strerror(errno));
 486                 return 0;
 487         }
 488         listen_addr = strtok(copy, ",");
 489
 490         while (listen_addr) {
 491                 ngt_TrimStr(listen_addr);
 492                 if (*listen_addr) {
 493                         created += ports_initlisteners(&Conf_ListenPorts, listen_addr, cb_listen);
 494 #ifdef SSL_SUPPORT
 495                         created += ports_initlisteners(&Conf_SSLOptions.ListenPorts, listen_addr, cb_listen_ssl);
 496 #endif
 497                 }
 498
 499                 listen_addr = strtok(NULL, ",");
 500         }
 501
 502         /* Can't free() Conf_ListenAddress here: on REHASH, if the config file
 503          * cannot be re-loaded, we'd end up with a NULL Conf_ListenAddress.
 504          * Instead, free() takes place in conf.c, before the config file
 505          * is being parsed. */
 506         free(copy);
 507
 508         return created;
 509 } /* Conn_InitListeners */
 510
 511
 512 GLOBAL void
 513 Conn_ExitListeners( void )
 514 {
 515         /* Close down all listening sockets */
 516         int *fd;
 517         size_t arraylen;
 518 #ifdef ZEROCONF
 519         Rendezvous_UnregisterListeners( );
 520 #endif
 521
 522         arraylen = array_length(&My_Listeners, sizeof (int));
 523         Log(LOG_INFO,
 524             "Shutting down all listening sockets (%d total) ...", arraylen);
 525         fd = array_start(&My_Listeners);
 526         while(arraylen--) {
 527                 assert(fd != NULL);
 528                 assert(*fd >= 0);
 529                 io_close(*fd);
 530                 LogDebug("Listening socket %d closed.", *fd );
 531                 fd++;
 532         }
 533         array_free(&My_Listeners);
 534 } /* Conn_ExitListeners */
 535
 536
 537 static bool
 538 InitSinaddrListenAddr(ng_ipaddr_t *addr, const char *listen_addrstr, UINT16 Port)
 539 {
 540         bool ret;
 541
 542         ret = ng_ipaddr_init(addr, listen_addrstr, Port);
 543         if (!ret) {
 544                 assert(listen_addrstr);
 545                 Log(LOG_CRIT, "Can't bind to [%s]:%u: can't convert ip address \"%s\"",
 546                                                 listen_addrstr, Port, listen_addrstr);
 547         }
 548         return ret;
 549 }
 550
 551
 552 static void
 553 set_v6_only(int af, int sock)
 554 {
 555 #if defined(IPV6_V6ONLY) && defined(WANT_IPV6)
 556         int on = 1;
 557
 558         if (af != AF_INET6)
 559                 return;
 560
 561         if (setsockopt(sock, IPPROTO_IPV6, IPV6_V6ONLY, &on, (socklen_t)sizeof(on)))
 562                 Log(LOG_ERR, "Could not set IPV6_V6ONLY: %s", strerror(errno));
 563 #else
 564         (void)af;
 565         (void)sock;
 566 #endif
 567 }
 568
 569
 570 /* return new listening port file descriptor or -1 on failure */
 571 static int
 572 NewListener(const char *listen_addr, UINT16 Port)
 573 {
 574         /* Create new listening socket on specified port */
 575         ng_ipaddr_t addr;
 576         int sock, af;
 577 #ifdef ZEROCONF
 578         char name[CLIENT_ID_LEN], *info;
 579 #endif
 580         if (!InitSinaddrListenAddr(&addr, listen_addr, Port))
 581                 return -1;
 582
 583         af = ng_ipaddr_af(&addr);
 584         sock = socket(af, SOCK_STREAM, 0);
 585         if( sock < 0 ) {
 586                 Log(LOG_CRIT, "Can't create socket (af %d) : %s!", af, strerror(errno));
 587                 return -1;
 588         }
 589
 590         set_v6_only(af, sock);
 591
 592         if (!Init_Socket(sock))
 593                 return -1;
 594
 595         if (bind(sock, (struct sockaddr *)&addr, ng_ipaddr_salen(&addr)) != 0) {
 596                 Log(LOG_CRIT, "Can't bind socket to address %s:%d - %s",
 597                         ng_ipaddr_tostr(&addr), Port, strerror(errno));
 598                 close(sock);
 599                 return -1;
 600         }
 601
 602         if( listen( sock, 10 ) != 0 ) {
 603                 Log( LOG_CRIT, "Can't listen on socket: %s!", strerror( errno ));
 604                 close( sock );
 605                 return -1;
 606         }
 607
 608         /* keep fd in list so we can close it when ngircd restarts/shuts down */
 609         if (!array_catb( &My_Listeners,(char*) &sock, sizeof(int) )) {
 610                 Log( LOG_CRIT, "Can't add socket to My_Listeners array: %s!", strerror( errno ));
 611                 close( sock );
 612                 return -1;
 613         }
 614
 615         Log(LOG_INFO, "Now listening on [%s]:%d (socket %d).", ng_ipaddr_tostr(&addr), Port, sock);
 616
 617 #ifdef ZEROCONF
 618         /* Get best server description text */
 619         if( ! Conf_ServerInfo[0] ) info = Conf_ServerName;
 620         else
 621         {
 622                 /* Use server info string */
 623                 info = NULL;
 624                 if( Conf_ServerInfo[0] == '[' )
 625                 {
 626                         /* Cut off leading hostname part in "[]" */
 627                         info = strchr( Conf_ServerInfo, ']' );
 628                         if( info )
 629                         {
 630                                 info++;
 631                                 while( *info == ' ' ) info++;
 632                         }
 633                 }
 634                 if( ! info ) info = Conf_ServerInfo;
 635         }
 636
 637         /* Add port number to description if non-standard */
 638         if (Port != 6667)
 639                 snprintf(name, sizeof name, "%s (port %u)", info,
 640                          (unsigned int)Port);
 641         else
 642                 strlcpy(name, info, sizeof name);
 643
 644         /* Register service */
 645         Rendezvous_Register( name, MDNS_TYPE, Port );
 646 #endif
 647         return sock;
 648 } /* NewListener */
 649
 650
 651 #ifdef SSL_SUPPORT
 652 /*
 653  * SSL/TLS connections require extra treatment:
 654  * When either CONN_SSL_WANT_WRITE or CONN_SSL_WANT_READ is set, we
 655  * need to take care of that first, before checking read/write buffers.
 656  * For instance, while we might have data in our write buffer, the
 657  * TLS/SSL protocol might need to read internal data first for TLS/SSL
 658  * writes to succeed.
 659  *
 660  * If this function returns true, such a condition is met and we have
 661  * to reverse the condition (check for read even if we've data to write,
 662  * do not check for read but writeability even if write-buffer is empty).
 663  */
 664 static bool
 665 SSL_WantRead(const CONNECTION *c)
 666 {
 667         if (Conn_OPTION_ISSET(c, CONN_SSL_WANT_READ)) {
 668                 io_event_add(c->sock, IO_WANTREAD);
 669                 return true;
 670         }
 671         return false;
 672 }
 673 static bool
 674 SSL_WantWrite(const CONNECTION *c)
 675 {
 676         if (Conn_OPTION_ISSET(c, CONN_SSL_WANT_WRITE)) {
 677                 io_event_add(c->sock, IO_WANTWRITE);
 678                 return true;
 679         }
 680         return false;
 681 }
 682 #else
 683 static inline bool
 684 SSL_WantRead(UNUSED const CONNECTION *c)
 685 { return false; }
 686 static inline bool
 687 SSL_WantWrite(UNUSED const CONNECTION *c)
 688 { return false; }
 689 #endif
 690
 691
 692 /**
 693  * "Main Loop": Loop until shutdown or restart is signalled.
 694  * This function loops until a shutdown or restart of ngIRCd is signalled and
 695  * calls io_dispatch() to check for readable and writable sockets every second.
 696  * It checks for status changes on pending connections (e. g. when a hostname
 697  * has been resolved), checks for "penalties" and timeouts, and handles the
 698  * input buffers.
 699  */
 700 GLOBAL void
 701 Conn_Handler(void)
 702 {
 703         int i;
 704         unsigned int wdatalen, bytes_processed;
 705         struct timeval tv;
 706         time_t t;
 707
 708         while (!NGIRCd_SignalQuit && !NGIRCd_SignalRestart) {
 709                 t = time(NULL);
 710
 711 #ifdef ZEROCONF
 712                 Rendezvous_Handler();
 713 #endif
 714
 715                 /* Check configured servers and established links */
 716                 Check_Servers();
 717                 Check_Connections();
 718
 719                 /* Look for non-empty read buffers ... */
 720                 for (i = 0; i < Pool_Size; i++) {
 721                         if ((My_Connections[i].sock > NONE)
 722                             && (array_bytes(&My_Connections[i].rbuf) > 0)
 723                             && (My_Connections[i].delaytime <= t)) {
 724                                 /* ... and try to handle the received data */
 725                                 bytes_processed = Handle_Buffer(i);
 726                                 /* if we processed data, and there might be
 727                                  * more commands in the input buffer, do not
 728                                  * try to read any more data now */
 729                                 if (bytes_processed &&
 730                                     array_bytes(&My_Connections[i].rbuf) > 2) {
 731                                         LogDebug
 732                                             ("Throttling connection %d: command limit reached!",
 733                                              i);
 734                                         Conn_SetPenalty(i, 1);
 735                                 }
 736                         }
 737                 }
 738
 739                 /* Look for non-empty write buffers ... */
 740                 for (i = 0; i < Pool_Size; i++) {
 741                         if (My_Connections[i].sock <= NONE)
 742                                 continue;
 743
 744                         wdatalen = (unsigned int)array_bytes(&My_Connections[i].wbuf);
 745 #ifdef ZLIB
 746                         if (wdatalen > 0 ||
 747                             array_bytes(&My_Connections[i].zip.wbuf) > 0)
 748 #else
 749                         if (wdatalen > 0)
 750 #endif
 751                         {
 752                                 if (SSL_WantRead(&My_Connections[i]))
 753                                         continue;
 754                                 io_event_add(My_Connections[i].sock,
 755                                              IO_WANTWRITE);
 756                         }
 757                 }
 758
 759                 /* Check from which sockets we possibly could read ... */
 760                 for (i = 0; i < Pool_Size; i++) {
 761                         if (My_Connections[i].sock <= NONE)
 762                                 continue;
 763 #ifdef SSL_SUPPORT
 764                         if (SSL_WantWrite(&My_Connections[i]))
 765                                 continue; /* TLS/SSL layer needs to write data; deal with this first */
 766 #endif
 767                         if (Proc_InProgress(&My_Connections[i].proc_stat)) {
 768                                 /* Wait for completion of forked subprocess
 769                                  * and ignore the socket in the meantime ... */
 770                                 io_event_del(My_Connections[i].sock,
 771                                              IO_WANTREAD);
 772                                 continue;
 773                         }
 774
 775                         if (Conn_OPTION_ISSET(&My_Connections[i], CONN_ISCONNECTING))
 776                                 /* Wait for completion of connect() ... */
 777                                 continue;
 778
 779                         if (My_Connections[i].delaytime > t) {
 780                                 /* There is a "penalty time" set: ignore socket! */
 781                                 io_event_del(My_Connections[i].sock,
 782                                              IO_WANTREAD);
 783                                 continue;
 784                         }
 785
 786                         io_event_add(My_Connections[i].sock, IO_WANTREAD);
 787                 }
 788
 789                 /* Set the timeout for reading from the network to 1 second,
 790                  * which is the granularity with witch we handle "penalty
 791                  * times" for example.
 792                  * Note: tv_sec/usec are undefined(!) after io_dispatch()
 793                  * returns, so we have to set it beforce each call to it! */
 794                 tv.tv_usec = 0;
 795                 tv.tv_sec = 1;
 796
 797                 /* Wait for activity ... */
 798                 i = io_dispatch(&tv);
 799                 if (i == -1 && errno != EINTR) {
 800                         Log(LOG_EMERG, "Conn_Handler(): io_dispatch(): %s!",
 801                             strerror(errno));
 802                         Log(LOG_ALERT, "%s exiting due to fatal errors!",
 803                             PACKAGE_NAME);
 804                         exit(1);
 805                 }
 806         }
 807
 808         if (NGIRCd_SignalQuit)
 809                 Log(LOG_NOTICE | LOG_snotice, "Server going down NOW!");
 810         else if (NGIRCd_SignalRestart)
 811                 Log(LOG_NOTICE | LOG_snotice, "Server restarting NOW!");
 812 } /* Conn_Handler */
 813
 814
 815 /**
 816  * Write a text string into the socket of a connection.
 817  * This function automatically appends CR+LF to the string and validates that
 818  * the result is a valid IRC message (oversized messages are shortened, for
 819  * example). Then it calls the Conn_Write() function to do the actual sending.
 820  * @param Idx Index fo the connection.
 821  * @param Format Format string, see printf().
 822  * @return true on success, false otherwise.
 823  */
 824 #ifdef PROTOTYPES
 825 GLOBAL bool
 826 Conn_WriteStr(CONN_ID Idx, const char *Format, ...)
 827 #else
 828 GLOBAL bool
 829 Conn_WriteStr(Idx, Format, va_alist)
 830 CONN_ID Idx;
 831 const char *Format;
 832 va_dcl
 833 #endif
 834 {
 835         char buffer[COMMAND_LEN];
 836         size_t len;
 837         bool ok;
 838         va_list ap;
 839
 840         assert( Idx > NONE );
 841         assert( Format != NULL );
 842
 843 #ifdef PROTOTYPES
 844         va_start( ap, Format );
 845 #else
 846         va_start( ap );
 847 #endif
 848         if (vsnprintf( buffer, COMMAND_LEN - 2, Format, ap ) >= COMMAND_LEN - 2 ) {
 849                 /*
 850                  * The string that should be written to the socket is longer
 851                  * than the allowed size of COMMAND_LEN bytes (including both
 852                  * the CR and LF characters). This can be caused by the
 853                  * IRC_WriteXXX() functions when the prefix of this server had
 854                  * to be added to an already "quite long" command line which
 855                  * has been received from a regular IRC client, for example.
 856                  *
 857                  * We are not allowed to send such "oversized" messages to
 858                  * other servers and clients, see RFC 2812 2.3 and 2813 3.3
 859                  * ("these messages SHALL NOT exceed 512 characters in length,
 860                  * counting all characters including the trailing CR-LF").
 861                  *
 862                  * So we have a big problem here: we should send more bytes
 863                  * to the network than we are allowed to and we don't know
 864                  * the originator (any more). The "old" behaviour of blaming
 865                  * the receiver ("next hop") is a bad idea (it could be just
 866                  * an other server only routing the message!), so the only
 867                  * option left is to shorten the string and to hope that the
 868                  * result is still somewhat useful ...
 869                  *                                                   -alex-
 870                  */
 871
 872                 strcpy (buffer + sizeof(buffer) - strlen(CUT_TXTSUFFIX) - 2 - 1,
 873                         CUT_TXTSUFFIX);
 874         }
 875
 876 #ifdef SNIFFER
 877         if (NGIRCd_Sniffer)
 878                 Log(LOG_DEBUG, " -> connection %d: '%s'.", Idx, buffer);
 879 #endif
 880
 881         len = strlcat( buffer, "\r\n", sizeof( buffer ));
 882         ok = Conn_Write(Idx, buffer, len);
 883         My_Connections[Idx].msg_out++;
 884
 885         va_end( ap );
 886         return ok;
 887 } /* Conn_WriteStr */
 888
 889
 890 /**
 891  * Append Data to the outbound write buffer of a connection.
 892  * @param Idx Index of the connection.
 893  * @param Data pointer to the data.
 894  * @param Len length of Data.
 895  * @return true on success, false otherwise.
 896  */
 897 static bool
 898 Conn_Write( CONN_ID Idx, char *Data, size_t Len )
 899 {
 900         CLIENT *c;
 901         size_t writebuf_limit = WRITEBUFFER_LEN;
 902         assert( Idx > NONE );
 903         assert( Data != NULL );
 904         assert( Len > 0 );
 905
 906         c = Conn_GetClient(Idx);
 907         assert( c != NULL);
 908
 909         /* Servers do get special write buffer limits, so they can generate
 910          * all the messages that are required while peering. */
 911         if (Client_Type(c) == CLIENT_SERVER)
 912                 writebuf_limit = WRITEBUFFER_SLINK_LEN;
 913
 914         /* Is the socket still open? A previous call to Conn_Write()
 915          * may have closed the connection due to a fatal error.
 916          * In this case it is sufficient to return an error, as well. */
 917         if( My_Connections[Idx].sock <= NONE ) {
 918                 LogDebug("Skipped write on closed socket (connection %d).", Idx);
 919                 return false;
 920         }
 921
 922 #ifdef ZLIB
 923         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP )) {
 924                 /* Compressed link:
 925                  * Zip_Buffer() does all the dirty work for us: it flushes
 926                  * the (pre-)compression buffers if required and handles
 927                  * all error conditions. */
 928                 if (!Zip_Buffer(Idx, Data, Len))
 929                         return false;
 930         }
 931         else
 932 #endif
 933         {
 934                 /* Uncompressed link:
 935                  * Check if outbound buffer has enough space for the data. */
 936                 if (array_bytes(&My_Connections[Idx].wbuf) + Len >=
 937                     writebuf_limit) {
 938                         /* Buffer is full, flush it. Handle_Write deals with
 939                          * low-level errors, if any. */
 940                         if (!Handle_Write(Idx))
 941                                 return false;
 942                 }
 943
 944                 /* When the write buffer is still too big after flushing it,
 945                  * the connection will be killed. */
 946                 if (array_bytes(&My_Connections[Idx].wbuf) + Len >=
 947                     writebuf_limit) {
 948                         Log(LOG_NOTICE,
 949                             "Write buffer overflow (connection %d, size %lu byte)!",
 950                             Idx,
 951                             (unsigned long)array_bytes(&My_Connections[Idx].wbuf));
 952                         Conn_Close(Idx, "Write buffer overflow!", NULL, false);
 953                         return false;
 954                 }
 955
 956                 /* Copy data to write buffer */
 957                 if (!array_catb(&My_Connections[Idx].wbuf, Data, Len))
 958                         return false;
 959
 960                 My_Connections[Idx].bytes_out += Len;
 961         }
 962
 963         /* Adjust global write counter */
 964         WCounter += Len;
 965
 966         return true;
 967 } /* Conn_Write */
 968
 969
 970 GLOBAL void
 971 Conn_Close( CONN_ID Idx, const char *LogMsg, const char *FwdMsg, bool InformClient )
 972 {
 973         /* Close connection. Open pipes of asyncronous resolver
 974          * sub-processes are closed down. */
 975
 976         CLIENT *c;
 977         double in_k, out_k;
 978         UINT16 port;
 979 #ifdef ZLIB
 980         double in_z_k, out_z_k;
 981         int in_p, out_p;
 982 #endif
 983
 984         assert( Idx > NONE );
 985
 986         /* Is this link already shutting down? */
 987         if( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ISCLOSING )) {
 988                 /* Conn_Close() has been called recursively for this link;
 989                  * probabe reason: Handle_Write() failed  -- see below. */
 990                 LogDebug("Recursive request to close connection: %d", Idx );
 991                 return;
 992         }
 993
 994         assert( My_Connections[Idx].sock > NONE );
 995
 996         /* Mark link as "closing" */
 997         Conn_OPTION_ADD( &My_Connections[Idx], CONN_ISCLOSING );
 998
 999         port = ng_ipaddr_getport(&My_Connections[Idx].addr);
1000         Log(LOG_INFO, "Shutting down connection %d (%s) with %s:%d ...", Idx,
1001             LogMsg ? LogMsg : FwdMsg, My_Connections[Idx].host, port);
1002
1003         /* Search client, if any */
1004         c = Conn_GetClient( Idx );
1005
1006         /* Should the client be informed? */
1007         if (InformClient) {
1008 #ifndef STRICT_RFC
1009                 /* Send statistics to client if registered as user: */
1010                 if ((c != NULL) && (Client_Type(c) == CLIENT_USER)) {
1011                         Conn_WriteStr( Idx,
1012                          ":%s NOTICE %s :%sConnection statistics: client %.1f kb, server %.1f kb.",
1013                          Client_ID(Client_ThisServer()), Client_ID(c),
1014                          NOTICE_TXTPREFIX,
1015                          (double)My_Connections[Idx].bytes_in / 1024,
1016                          (double)My_Connections[Idx].bytes_out / 1024);
1017                 }
1018 #endif
1019                 /* Send ERROR to client (see RFC 2812, section 3.1.7) */
1020                 if (FwdMsg)
1021                         Conn_WriteStr(Idx, "ERROR :%s", FwdMsg);
1022                 else
1023                         Conn_WriteStr(Idx, "ERROR :Closing connection.");
1024         }
1025
1026         /* Try to write out the write buffer. Note: Handle_Write() eventually
1027          * removes the CLIENT structure associated with this connection if an
1028          * error occurs! So we have to re-check if there is still an valid
1029          * CLIENT structure after calling Handle_Write() ...*/
1030         (void)Handle_Write( Idx );
1031
1032         /* Search client, if any (re-check!) */
1033         c = Conn_GetClient( Idx );
1034 #ifdef SSL_SUPPORT
1035         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_SSL )) {
1036                 Log(LOG_INFO, "SSL connection %d shutting down ...", Idx);
1037                 ConnSSL_Free(&My_Connections[Idx]);
1038         }
1039 #endif
1040         /* Shut down socket */
1041         if (! io_close(My_Connections[Idx].sock)) {
1042                 /* Oops, we can't close the socket!? This is ... ugly! */
1043                 Log(LOG_CRIT,
1044                     "Error closing connection %d (socket %d) with %s:%d - %s! (ignored)",
1045                     Idx, My_Connections[Idx].sock, My_Connections[Idx].host,
1046                     port, strerror(errno));
1047         }
1048
1049         /* Mark socket as invalid: */
1050         My_Connections[Idx].sock = NONE;
1051
1052         /* If there is still a client, unregister it now */
1053         if (c)
1054                 Client_Destroy(c, LogMsg, FwdMsg, true);
1055
1056         /* Calculate statistics and log information */
1057         in_k = (double)My_Connections[Idx].bytes_in / 1024;
1058         out_k = (double)My_Connections[Idx].bytes_out / 1024;
1059 #ifdef ZLIB
1060         if (Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP)) {
1061                 in_z_k = (double)My_Connections[Idx].zip.bytes_in / 1024;
1062                 out_z_k = (double)My_Connections[Idx].zip.bytes_out / 1024;
1063                 /* Make sure that no division by zero can occur during
1064                  * the calculation of in_p and out_p: in_z_k and out_z_k
1065                  * are non-zero, that's guaranteed by the protocol until
1066                  * compression can be enabled. */
1067                 if (! in_z_k)
1068                         in_z_k = in_k;
1069                 if (! out_z_k)
1070                         out_z_k = out_k;
1071                 in_p = (int)(( in_k * 100 ) / in_z_k );
1072                 out_p = (int)(( out_k * 100 ) / out_z_k );
1073                 Log(LOG_INFO,
1074                     "Connection %d with %s:%d closed (in: %.1fk/%.1fk/%d%%, out: %.1fk/%.1fk/%d%%).",
1075                     Idx, My_Connections[Idx].host, port,
1076                     in_k, in_z_k, in_p, out_k, out_z_k, out_p);
1077         }
1078         else
1079 #endif
1080         {
1081                 Log(LOG_INFO,
1082                     "Connection %d with %s:%d closed (in: %.1fk, out: %.1fk).",
1083                     Idx, My_Connections[Idx].host, port,
1084                     in_k, out_k);
1085         }
1086
1087         /* Servers: Modify time of next connect attempt? */
1088         Conf_UnsetServer( Idx );
1089
1090 #ifdef ZLIB
1091         /* Clean up zlib, if link was compressed */
1092         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP )) {
1093                 inflateEnd( &My_Connections[Idx].zip.in );
1094                 deflateEnd( &My_Connections[Idx].zip.out );
1095                 array_free(&My_Connections[Idx].zip.rbuf);
1096                 array_free(&My_Connections[Idx].zip.wbuf);
1097         }
1098 #endif
1099
1100         array_free(&My_Connections[Idx].rbuf);
1101         array_free(&My_Connections[Idx].wbuf);
1102
1103         /* Clean up connection structure (=free it) */
1104         Init_Conn_Struct( Idx );
1105
1106         assert(NumConnections > 0);
1107         if (NumConnections)
1108                 NumConnections--;
1109         LogDebug("Shutdown of connection %d completed, %ld connection%s left.",
1110                  Idx, NumConnections, NumConnections != 1 ? "s" : "");
1111 } /* Conn_Close */
1112
1113
1114 GLOBAL long
1115 Conn_Count(void)
1116 {
1117         return NumConnections;
1118 } /* Conn_Count */
1119
1120
1121 GLOBAL long
1122 Conn_CountMax(void)
1123 {
1124         return NumConnectionsMax;
1125 } /* Conn_CountMax */
1126
1127
1128 GLOBAL long
1129 Conn_CountAccepted(void)
1130 {
1131         return NumConnectionsAccepted;
1132 } /* Conn_CountAccepted */
1133
1134
1135 /**
1136  * Synchronize established connections and configured server structures
1137  * after a configuration update and store the correct connection IDs, if any.
1138  */
1139 GLOBAL void
1140 Conn_SyncServerStruct(void)
1141 {
1142         CLIENT *client;
1143         CONN_ID i;
1144         int c;
1145
1146         for (i = 0; i < Pool_Size; i++) {
1147                 if (My_Connections[i].sock == NONE)
1148                         continue;
1149
1150                 /* Server link? */
1151                 client = Conn_GetClient(i);
1152                 if (!client || Client_Type(client) != CLIENT_SERVER)
1153                         continue;
1154
1155                 for (c = 0; c < MAX_SERVERS; c++) {
1156                         /* Configured server? */
1157                         if (!Conf_Server[c].host[0])
1158                                 continue;
1159
1160                         if (strcasecmp(Conf_Server[c].name, Client_ID(client)) == 0)
1161                                 Conf_Server[c].conn_id = i;
1162                 }
1163         }
1164 } /* SyncServerStruct */
1165
1166
1167 /**
1168  * Send out data of write buffer; connect new sockets.
1169  */
1170 static bool
1171 Handle_Write( CONN_ID Idx )
1172 {
1173         ssize_t len;
1174         size_t wdatalen;
1175
1176         assert( Idx > NONE );
1177         if ( My_Connections[Idx].sock < 0 ) {
1178                 LogDebug("Handle_Write() on closed socket, connection %d", Idx);
1179                 return false;
1180         }
1181         assert( My_Connections[Idx].sock > NONE );
1182
1183         wdatalen = array_bytes(&My_Connections[Idx].wbuf );
1184
1185 #ifdef ZLIB
1186         if (wdatalen == 0) {
1187                 /* Write buffer is empty, so we try to flush the compression
1188                  * buffer and get some data to work with from there :-) */
1189                 if (!Zip_Flush(Idx))
1190                         return false;
1191
1192                 /* Now the write buffer most probably has changed: */
1193                 wdatalen = array_bytes(&My_Connections[Idx].wbuf);
1194         }
1195 #endif
1196
1197         if (wdatalen == 0) {
1198                 /* Still no data, fine. */
1199                 io_event_del(My_Connections[Idx].sock, IO_WANTWRITE );
1200                 return true;
1201         }
1202
1203         LogDebug
1204             ("Handle_Write() called for connection %d, %ld bytes pending ...",
1205              Idx, wdatalen);
1206
1207 #ifdef SSL_SUPPORT
1208         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_SSL )) {
1209                 len = ConnSSL_Write(&My_Connections[Idx], array_start(&My_Connections[Idx].wbuf), wdatalen);
1210         } else
1211 #endif
1212         {
1213                 len = write(My_Connections[Idx].sock,
1214                             array_start(&My_Connections[Idx].wbuf), wdatalen );
1215         }
1216         if( len < 0 ) {
1217                 if (errno == EAGAIN || errno == EINTR)
1218                         return true;
1219
1220                 Log(LOG_ERR, "Write error on connection %d (socket %d): %s!",
1221                     Idx, My_Connections[Idx].sock, strerror(errno));
1222                 Conn_Close(Idx, "Write error!", NULL, false);
1223                 return false;
1224         }
1225
1226         /* move any data not yet written to beginning */
1227         array_moveleft(&My_Connections[Idx].wbuf, 1, (size_t)len);
1228
1229         return true;
1230 } /* Handle_Write */
1231
1232
1233 static int
1234 Count_Connections(ng_ipaddr_t *a)
1235 {
1236         int i, cnt;
1237
1238         cnt = 0;
1239         for (i = 0; i < Pool_Size; i++) {
1240                 if (My_Connections[i].sock <= NONE)
1241                         continue;
1242                 if (ng_ipaddr_ipequal(&My_Connections[i].addr, a))
1243                         cnt++;
1244         }
1245         return cnt;
1246 } /* Count_Connections */
1247
1248
1249 /**
1250  * Initialize new client connection on a listening socket.
1251  * @param Sock Listening socket descriptor
1252  * @return Accepted socket descriptor or -1 on error
1253  */
1254 static int
1255 New_Connection(int Sock)
1256 {
1257 #ifdef TCPWRAP
1258         struct request_info req;
1259 #endif
1260         ng_ipaddr_t new_addr;
1261         char ip_str[NG_INET_ADDRSTRLEN];
1262         int new_sock, new_sock_len, identsock;
1263         CLIENT *c;
1264         long cnt;
1265
1266         assert(Sock > NONE);
1267
1268         new_sock_len = (int)sizeof(new_addr);
1269         new_sock = accept(Sock, (struct sockaddr *)&new_addr,
1270                           (socklen_t *)&new_sock_len);
1271         if (new_sock < 0) {
1272                 Log(LOG_CRIT, "Can't accept connection: %s!", strerror(errno));
1273                 return -1;
1274         }
1275         NumConnectionsAccepted++;
1276
1277         if (!ng_ipaddr_tostr_r(&new_addr, ip_str)) {
1278                 Log(LOG_CRIT, "fd %d: Can't convert IP address!", new_sock);
1279                 Simple_Message(new_sock, "ERROR :Internal Server Error");
1280                 close(new_sock);
1281                 return -1;
1282         }
1283
1284 #ifdef TCPWRAP
1285         /* Validate socket using TCP Wrappers */
1286         request_init(&req, RQ_DAEMON, PACKAGE_NAME, RQ_FILE, new_sock,
1287                      RQ_CLIENT_SIN, &new_addr, NULL);
1288         fromhost(&req);
1289         if (!hosts_access(&req)) {
1290                 Log(deny_severity,
1291                     "Refused connection from %s (by TCP Wrappers)!", ip_str);
1292                 Simple_Message(new_sock, "ERROR :Connection refused");
1293                 close(new_sock);
1294                 return -1;
1295         }
1296 #endif
1297
1298         if (!Init_Socket(new_sock))
1299                 return -1;
1300
1301         /* Check global connection limit */
1302         if ((Conf_MaxConnections > 0) &&
1303             (NumConnections >= (size_t) Conf_MaxConnections)) {
1304                 Log(LOG_ALERT, "Can't accept connection: limit (%d) reached!",
1305                     Conf_MaxConnections);
1306                 Simple_Message(new_sock, "ERROR :Connection limit reached");
1307                 close(new_sock);
1308                 return -1;
1309         }
1310
1311         /* Check IP-based connection limit */
1312         cnt = Count_Connections(&new_addr);
1313         if ((Conf_MaxConnectionsIP > 0) && (cnt >= Conf_MaxConnectionsIP)) {
1314                 /* Access denied, too many connections from this IP address! */
1315                 Log(LOG_ERR,
1316                     "Refused connection from %s: too may connections (%ld) from this IP address!",
1317                     ip_str, cnt);
1318                 Simple_Message(new_sock,
1319                                "ERROR :Connection refused, too many connections from your IP address!");
1320                 close(new_sock);
1321                 return -1;
1322         }
1323
1324         if (new_sock >= Pool_Size) {
1325                 if (!array_alloc(&My_ConnArray, sizeof(CONNECTION),
1326                                  (size_t) new_sock)) {
1327                         Log(LOG_EMERG,
1328                             "Can't allocate memory! [New_Connection]");
1329                         Simple_Message(new_sock, "ERROR: Internal error");
1330                         close(new_sock);
1331                         return -1;
1332                 }
1333                 LogDebug("Bumped connection pool to %ld items (internal: %ld items, %ld bytes)",
1334                          new_sock, array_length(&My_ConnArray,
1335                          sizeof(CONNECTION)), array_bytes(&My_ConnArray));
1336
1337                 /* Adjust pointer to new block */
1338                 My_Connections = array_start(&My_ConnArray);
1339                 while (Pool_Size <= new_sock)
1340                         Init_Conn_Struct(Pool_Size++);
1341         }
1342
1343         /* register callback */
1344         if (!io_event_create(new_sock, IO_WANTREAD, cb_clientserver)) {
1345                 Log(LOG_ALERT,
1346                     "Can't accept connection: io_event_create failed!");
1347                 Simple_Message(new_sock, "ERROR :Internal error");
1348                 close(new_sock);
1349                 return -1;
1350         }
1351
1352         c = Client_NewLocal(new_sock, ip_str, CLIENT_UNKNOWN, false);
1353         if (!c) {
1354                 Log(LOG_ALERT,
1355                     "Can't accept connection: can't create client structure!");
1356                 Simple_Message(new_sock, "ERROR :Internal error");
1357                 io_close(new_sock);
1358                 return -1;
1359         }
1360
1361         Init_Conn_Struct(new_sock);
1362         My_Connections[new_sock].sock = new_sock;
1363         My_Connections[new_sock].addr = new_addr;
1364         My_Connections[new_sock].client = c;
1365
1366         /* Set initial hostname to IP address. This becomes overwritten when
1367          * the DNS lookup is enabled and succeeds, but is used otherwise. */
1368         if (ng_ipaddr_af(&new_addr) != AF_INET)
1369                 snprintf(My_Connections[new_sock].host,
1370                          sizeof(My_Connections[new_sock].host), "[%s]", ip_str);
1371         else
1372                 strlcpy(My_Connections[new_sock].host, ip_str,
1373                         sizeof(My_Connections[new_sock].host));
1374
1375         Client_SetHostname(c, My_Connections[new_sock].host);
1376
1377         Log(LOG_INFO, "Accepted connection %d from %s:%d on socket %d.",
1378             new_sock, My_Connections[new_sock].host,
1379             ng_ipaddr_getport(&new_addr), Sock);
1380
1381         identsock = new_sock;
1382 #ifdef IDENTAUTH
1383         if (Conf_NoIdent)
1384                 identsock = -1;
1385 #endif
1386         if (!Conf_NoDNS)
1387                 Resolve_Addr(&My_Connections[new_sock].proc_stat, &new_addr,
1388                              identsock, cb_Read_Resolver_Result);
1389
1390         Account_Connection();
1391         return new_sock;
1392 } /* New_Connection */
1393
1394
1395 static void
1396 Account_Connection(void)
1397 {
1398         NumConnections++;
1399         if (NumConnections > NumConnectionsMax)
1400                 NumConnectionsMax = NumConnections;
1401         LogDebug("Total number of connections now %lu (max %lu).",
1402                  NumConnections, NumConnectionsMax);
1403 } /* Account_Connection */
1404
1405
1406 static CONN_ID
1407 Socket2Index( int Sock )
1408 {
1409         assert( Sock >= 0 );
1410
1411         if( Sock >= Pool_Size || My_Connections[Sock].sock != Sock ) {
1412                 /* the Connection was already closed again, likely due to
1413                  * an error. */
1414                 LogDebug("Socket2Index: can't get connection for socket %d!", Sock);
1415                 return NONE;
1416         }
1417         return Sock;
1418 } /* Socket2Index */
1419
1420
1421 /**
1422  * Read data from the network to the read buffer. If an error occures,
1423  * the socket of this connection will be shut down.
1424  */
1425 static void
1426 Read_Request( CONN_ID Idx )
1427 {
1428         ssize_t len;
1429         static const unsigned int maxbps = COMMAND_LEN / 2;
1430         char readbuf[READBUFFER_LEN];
1431         time_t t;
1432         CLIENT *c;
1433         assert( Idx > NONE );
1434         assert( My_Connections[Idx].sock > NONE );
1435
1436 #ifdef ZLIB
1437         if ((array_bytes(&My_Connections[Idx].rbuf) >= READBUFFER_LEN) ||
1438                 (array_bytes(&My_Connections[Idx].zip.rbuf) >= READBUFFER_LEN))
1439 #else
1440         if (array_bytes(&My_Connections[Idx].rbuf) >= READBUFFER_LEN)
1441 #endif
1442         {
1443                 /* Read buffer is full */
1444                 Log(LOG_ERR,
1445                     "Receive buffer overflow (connection %d): %d bytes!",
1446                     Idx, array_bytes(&My_Connections[Idx].rbuf));
1447                 Conn_Close( Idx, "Receive buffer overflow!", NULL, false );
1448                 return;
1449         }
1450
1451 #ifdef SSL_SUPPORT
1452         if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_SSL))
1453                 len = ConnSSL_Read( &My_Connections[Idx], readbuf, sizeof(readbuf));
1454         else
1455 #endif
1456         len = read(My_Connections[Idx].sock, readbuf, sizeof(readbuf));
1457         if (len == 0) {
1458                 Log(LOG_INFO, "%s:%u (%s) is closing the connection ...",
1459                                 My_Connections[Idx].host,
1460                                 (unsigned int) ng_ipaddr_getport(&My_Connections[Idx].addr),
1461                                 ng_ipaddr_tostr(&My_Connections[Idx].addr));
1462                 Conn_Close(Idx,
1463                            "Socket closed!", "Client closed connection",
1464                            false);
1465                 return;
1466         }
1467
1468         if (len < 0) {
1469                 if( errno == EAGAIN ) return;
1470                 Log(LOG_ERR, "Read error on connection %d (socket %d): %s!",
1471                     Idx, My_Connections[Idx].sock, strerror(errno));
1472                 Conn_Close(Idx, "Read error!", "Client closed connection",
1473                            false);
1474                 return;
1475         }
1476 #ifdef ZLIB
1477         if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_ZIP)) {
1478                 if (!array_catb(&My_Connections[Idx].zip.rbuf, readbuf,
1479                                 (size_t) len)) {
1480                         Log(LOG_ERR,
1481                             "Could not append recieved data to zip input buffer (connn %d): %d bytes!",
1482                             Idx, len);
1483                         Conn_Close(Idx, "Receive buffer overflow!", NULL,
1484                                    false);
1485                         return;
1486                 }
1487         } else
1488 #endif
1489         {
1490                 if (!array_catb( &My_Connections[Idx].rbuf, readbuf, len)) {
1491                         Log( LOG_ERR, "Could not append recieved data to input buffer (connn %d): %d bytes!", Idx, len );
1492                         Conn_Close( Idx, "Receive buffer overflow!", NULL, false );
1493                 }
1494         }
1495
1496         /* Update connection statistics */
1497         My_Connections[Idx].bytes_in += len;
1498
1499         /* Update timestamp of last data received if this connection is
1500          * registered as a user, server or service connection. Don't update
1501          * otherwise, so users have at least Conf_PongTimeout seconds time to
1502          * register with the IRC server -- see Check_Connections().
1503          * Update "lastping", too, if time shifted backwards ... */
1504         c = Conn_GetClient(Idx);
1505         if (c && (Client_Type(c) == CLIENT_USER
1506                   || Client_Type(c) == CLIENT_SERVER
1507                   || Client_Type(c) == CLIENT_SERVICE)) {
1508                 t = time(NULL);
1509                 if (My_Connections[Idx].lastdata != t)
1510                         My_Connections[Idx].bps = 0;
1511
1512                 My_Connections[Idx].lastdata = t;
1513                 if (My_Connections[Idx].lastping > t)
1514                         My_Connections[Idx].lastping = t;
1515         }
1516
1517         /* Look at the data in the (read-) buffer of this connection */
1518         My_Connections[Idx].bps += Handle_Buffer(Idx);
1519         if (Client_Type(c) != CLIENT_SERVER
1520             && My_Connections[Idx].bps >= maxbps) {
1521                 LogDebug("Throttling connection %d: BPS exceeded! (%u >= %u)",
1522                          Idx, My_Connections[Idx].bps, maxbps);
1523                 Conn_SetPenalty(Idx, 1);
1524         }
1525 } /* Read_Request */
1526
1527
1528 /**
1529  * Handle all data in the connection read-buffer.
1530  * Data is processed until no complete command is left in the read buffer,
1531  * or MAX_COMMANDS[_SERVER] commands were processed.
1532  * When a fatal error occurs, the connection is shut down.
1533  * @param Idx Index of the connection.
1534  * @return number of bytes processed.
1535  */
1536 static unsigned int
1537 Handle_Buffer(CONN_ID Idx)
1538 {
1539 #ifndef STRICT_RFC
1540         char *ptr1, *ptr2, *first_eol;
1541 #endif
1542         char *ptr;
1543         size_t len, delta;
1544         time_t starttime;
1545 #ifdef ZLIB
1546         bool old_z;
1547 #endif
1548         unsigned int i, maxcmd = MAX_COMMANDS, len_processed = 0;
1549         CLIENT *c;
1550
1551         c = Conn_GetClient(Idx);
1552         assert( c != NULL);
1553
1554         /* Servers do get special command limits, so they can process
1555          * all the messages that are required while peering. */
1556         if (Client_Type(c) == CLIENT_SERVER)
1557                 maxcmd = MAX_COMMANDS_SERVER;
1558
1559         starttime = time(NULL);
1560         for (i=0; i < maxcmd; i++) {
1561                 /* Check penalty */
1562                 if (My_Connections[Idx].delaytime > starttime)
1563                         return 0;
1564 #ifdef ZLIB
1565                 /* Unpack compressed data, if compression is in use */
1566                 if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_ZIP)) {
1567                         /* When unzipping fails, Unzip_Buffer() shuts
1568                          * down the connection itself */
1569                         if (!Unzip_Buffer(Idx))
1570                                 return 0;
1571                 }
1572 #endif
1573
1574                 if (0 == array_bytes(&My_Connections[Idx].rbuf))
1575                         break;
1576
1577                 /* Make sure that the buffer is NULL terminated */
1578                 if (!array_cat0_temporary(&My_Connections[Idx].rbuf)) {
1579                         Conn_Close(Idx, NULL,
1580                                    "Can't allocate memory [Handle_Buffer]",
1581                                    true);
1582                         return 0;
1583                 }
1584
1585                 /* RFC 2812, section "2.3 Messages", 5th paragraph:
1586                  * "IRC messages are always lines of characters terminated
1587                  * with a CR-LF (Carriage Return - Line Feed) pair [...]". */
1588                 delta = 2;
1589                 ptr = strstr(array_start(&My_Connections[Idx].rbuf), "\r\n");
1590
1591 #ifndef STRICT_RFC
1592                 /* Check for non-RFC-compliant request (only CR or LF)?
1593                  * Unfortunately, there are quite a few clients out there
1594                  * that do this -- e. g. mIRC, BitchX, and Trillian :-( */
1595                 ptr1 = strchr(array_start(&My_Connections[Idx].rbuf), '\r');
1596                 ptr2 = strchr(array_start(&My_Connections[Idx].rbuf), '\n');
1597                 if (ptr) {
1598                         /* Check if there is a single CR or LF _before_ the
1599                          * corerct CR+LF line terminator:  */
1600                         first_eol = ptr1 < ptr2 ? ptr1 : ptr2;
1601                         if (first_eol < ptr) {
1602                                 /* Single CR or LF before CR+LF found */
1603                                 ptr = first_eol;
1604                                 delta = 1;
1605                         }
1606                 } else if (ptr1 || ptr2) {
1607                         /* No CR+LF terminated command found, but single
1608                          * CR or LF found ... */
1609                         if (ptr1 && ptr2)
1610                                 ptr = ptr1 < ptr2 ? ptr1 : ptr2;
1611                         else
1612                                 ptr = ptr1 ? ptr1 : ptr2;
1613                         delta = 1;
1614                 }
1615 #endif
1616
1617                 if (!ptr)
1618                         break;
1619
1620                 /* Complete (=line terminated) request found, handle it! */
1621                 *ptr = '\0';
1622
1623                 len = ptr - (char *)array_start(&My_Connections[Idx].rbuf) + delta;
1624
1625                 if (len > (COMMAND_LEN - 1)) {
1626                         /* Request must not exceed 512 chars (incl. CR+LF!),
1627                          * see RFC 2812. Disconnect Client if this happens. */
1628                         Log(LOG_ERR,
1629                             "Request too long (connection %d): %d bytes (max. %d expected)!",
1630                             Idx, array_bytes(&My_Connections[Idx].rbuf),
1631                             COMMAND_LEN - 1);
1632                         Conn_Close(Idx, NULL, "Request too long", true);
1633                         return 0;
1634                 }
1635
1636                 len_processed += (unsigned int)len;
1637                 if (len <= delta) {
1638                         /* Request is empty (only '\r\n', '\r' or '\n');
1639                          * delta is 2 ('\r\n') or 1 ('\r' or '\n'), see above */
1640                         array_moveleft(&My_Connections[Idx].rbuf, 1, len);
1641                         continue;
1642                 }
1643 #ifdef ZLIB
1644                 /* remember if stream is already compressed */
1645                 old_z = My_Connections[Idx].options & CONN_ZIP;
1646 #endif
1647
1648                 My_Connections[Idx].msg_in++;
1649                 if (!Parse_Request
1650                     (Idx, (char *)array_start(&My_Connections[Idx].rbuf)))
1651                         return 0; /* error -> connection has been closed */
1652
1653                 array_moveleft(&My_Connections[Idx].rbuf, 1, len);
1654                 LogDebug("Connection %d: %d bytes left in read buffer.",
1655                          Idx, array_bytes(&My_Connections[Idx].rbuf));
1656 #ifdef ZLIB
1657                 if ((!old_z) && (My_Connections[Idx].options & CONN_ZIP) &&
1658                     (array_bytes(&My_Connections[Idx].rbuf) > 0)) {
1659                         /* The last command activated socket compression.
1660                          * Data that was read after that needs to be copied
1661                          * to the unzip buffer for decompression: */
1662                         if (!array_copy
1663                             (&My_Connections[Idx].zip.rbuf,
1664                              &My_Connections[Idx].rbuf)) {
1665                                 Conn_Close(Idx, NULL,
1666                                            "Can't allocate memory [Handle_Buffer]",
1667                                            true);
1668                                 return 0;
1669                         }
1670
1671                         array_trunc(&My_Connections[Idx].rbuf);
1672                         LogDebug
1673                             ("Moved already received data (%u bytes) to uncompression buffer.",
1674                              array_bytes(&My_Connections[Idx].zip.rbuf));
1675                 }
1676 #endif
1677         }
1678         return len_processed;
1679 } /* Handle_Buffer */
1680
1681
1682 /**
1683  * Check whether established connections are still alive or not.
1684  * If not, play PING-PONG first; and if that doesn't help either,
1685  * disconnect the respective peer.
1686  */
1687 static void
1688 Check_Connections(void)
1689 {
1690         CLIENT *c;
1691         CONN_ID i;
1692         char msg[64];
1693
1694         for (i = 0; i < Pool_Size; i++) {
1695                 if (My_Connections[i].sock < 0)
1696                         continue;
1697
1698                 c = Conn_GetClient(i);
1699                 if (c && ((Client_Type(c) == CLIENT_USER)
1700                           || (Client_Type(c) == CLIENT_SERVER)
1701                           || (Client_Type(c) == CLIENT_SERVICE))) {
1702                         /* connected User, Server or Service */
1703                         if (My_Connections[i].lastping >
1704                             My_Connections[i].lastdata) {
1705                                 /* We already sent a ping */
1706                                 if (My_Connections[i].lastping <
1707                                     time(NULL) - Conf_PongTimeout) {
1708                                         /* Timeout */
1709                                         LogDebug
1710                                             ("Connection %d: Ping timeout: %d seconds.",
1711                                              i, Conf_PongTimeout);
1712                                         snprintf(msg, sizeof(msg), "Ping timeout: %d seconds", Conf_PongTimeout);
1713                                         Conn_Close(i, NULL, msg, true);
1714                                 }
1715                         } else if (My_Connections[i].lastdata <
1716                                    time(NULL) - Conf_PingTimeout) {
1717                                 /* We need to send a PING ... */
1718                                 LogDebug("Connection %d: sending PING ...", i);
1719                                 My_Connections[i].lastping = time(NULL);
1720                                 Conn_WriteStr(i, "PING :%s",
1721                                               Client_ID(Client_ThisServer()));
1722                         }
1723                 } else {
1724                         /* The connection is not fully established yet, so
1725                          * we don't do the PING-PONG game here but instead
1726                          * disconnect the client after "a short time" if it's
1727                          * still not registered. */
1728
1729                         if (My_Connections[i].lastdata <
1730                             time(NULL) - Conf_PongTimeout) {
1731                                 LogDebug
1732                                     ("Unregistered connection %d timed out ...",
1733                                      i);
1734                                 Conn_Close(i, NULL, "Timeout", false);
1735                         }
1736                 }
1737         }
1738 } /* Check_Connections */
1739
1740
1741 /**
1742  * Check if further server links should be established.
1743  */
1744 static void
1745 Check_Servers(void)
1746 {
1747         int i, n;
1748         time_t time_now;
1749
1750         time_now = time(NULL);
1751
1752         /* Check all configured servers */
1753         for (i = 0; i < MAX_SERVERS; i++) {
1754                 if (Conf_Server[i].conn_id != NONE)
1755                         continue;       /* Already establishing or connected */
1756                 if (!Conf_Server[i].host[0] || !Conf_Server[i].port > 0)
1757                         continue;       /* No host and/or port configured */
1758                 if (Conf_Server[i].flags & CONF_SFLAG_DISABLED)
1759                         continue;       /* Disabled configuration entry */
1760                 if (Conf_Server[i].lasttry > (time_now - Conf_ConnectRetry))
1761                         continue;       /* We have to wait a little bit ... */
1762
1763                 /* Is there already a connection in this group? */
1764                 if (Conf_Server[i].group > NONE) {
1765                         for (n = 0; n < MAX_SERVERS; n++) {
1766                                 if (n == i)
1767                                         continue;
1768                                 if ((Conf_Server[n].conn_id != NONE) &&
1769                                     (Conf_Server[n].group == Conf_Server[i].group))
1770                                         break;
1771                         }
1772                         if (n < MAX_SERVERS)
1773                                 continue;
1774                 }
1775
1776                 /* Okay, try to connect now */
1777                 Log(LOG_NOTICE,
1778                     "Preparing to establish a new server link for \"%s\" ...",
1779                     Conf_Server[i].name);
1780                 Conf_Server[i].lasttry = time_now;
1781                 Conf_Server[i].conn_id = SERVER_WAIT;
1782                 assert(Proc_GetPipeFd(&Conf_Server[i].res_stat) < 0);
1783                 Resolve_Name(&Conf_Server[i].res_stat, Conf_Server[i].host,
1784                              cb_Connect_to_Server);
1785         }
1786 } /* Check_Servers */
1787
1788
1789 static void
1790 New_Server( int Server , ng_ipaddr_t *dest)
1791 {
1792         /* Establish new server link */
1793         char ip_str[NG_INET_ADDRSTRLEN];
1794         int af_dest, res, new_sock;
1795         CLIENT *c;
1796
1797         assert( Server > NONE );
1798
1799         if (!ng_ipaddr_tostr_r(dest, ip_str)) {
1800                 Log(LOG_WARNING, "New_Server: Could not convert IP to string");
1801                 return;
1802         }
1803
1804         Log(LOG_INFO, "Establishing connection for \"%s\" to \"%s\" (%s) port %d ... ",
1805             Conf_Server[Server].name, Conf_Server[Server].host, ip_str,
1806             Conf_Server[Server].port);
1807
1808         af_dest = ng_ipaddr_af(dest);
1809         new_sock = socket(af_dest, SOCK_STREAM, 0);
1810         if (new_sock < 0) {
1811                 Log( LOG_CRIT, "Can't create socket (af %d) : %s!", af_dest, strerror( errno ));
1812                 return;
1813         }
1814
1815         if (!Init_Socket(new_sock))
1816                 return;
1817
1818         /* is a bind address configured? */
1819         res = ng_ipaddr_af(&Conf_Server[Server].bind_addr);
1820         /* if yes, bind now. If it fails, warn and let connect() pick a source address */
1821         if (res && bind(new_sock, (struct sockaddr *) &Conf_Server[Server].bind_addr,
1822                                 ng_ipaddr_salen(&Conf_Server[Server].bind_addr)))
1823         {
1824                 ng_ipaddr_tostr_r(&Conf_Server[Server].bind_addr, ip_str);
1825                 Log(LOG_WARNING, "Can't bind socket to %s: %s!", ip_str, strerror(errno));
1826         }
1827         ng_ipaddr_setport(dest, Conf_Server[Server].port);
1828         res = connect(new_sock, (struct sockaddr *) dest, ng_ipaddr_salen(dest));
1829         if(( res != 0 ) && ( errno != EINPROGRESS )) {
1830                 Log( LOG_CRIT, "Can't connect socket: %s!", strerror( errno ));
1831                 close( new_sock );
1832                 return;
1833         }
1834
1835         if (!array_alloc(&My_ConnArray, sizeof(CONNECTION), (size_t)new_sock)) {
1836                 Log(LOG_ALERT,
1837                     "Cannot allocate memory for server connection (socket %d)",
1838                     new_sock);
1839                 close( new_sock );
1840                 return;
1841         }
1842
1843         My_Connections = array_start(&My_ConnArray);
1844
1845         assert(My_Connections[new_sock].sock <= 0);
1846
1847         Init_Conn_Struct(new_sock);
1848
1849         ng_ipaddr_tostr_r(dest, ip_str);
1850         c = Client_NewLocal(new_sock, ip_str, CLIENT_UNKNOWNSERVER, false);
1851         if (!c) {
1852                 Log( LOG_ALERT, "Can't establish connection: can't create client structure!" );
1853                 close( new_sock );
1854                 return;
1855         }
1856
1857         /* Conn_Close() decrements this counter again */
1858         Account_Connection();
1859         Client_SetIntroducer( c, c );
1860         Client_SetToken( c, TOKEN_OUTBOUND );
1861
1862         /* Register connection */
1863         Conf_Server[Server].conn_id = new_sock;
1864         My_Connections[new_sock].sock = new_sock;
1865         My_Connections[new_sock].addr = *dest;
1866         My_Connections[new_sock].client = c;
1867         strlcpy( My_Connections[new_sock].host, Conf_Server[Server].host,
1868                                 sizeof(My_Connections[new_sock].host ));
1869
1870         /* Register new socket */
1871         if (!io_event_create( new_sock, IO_WANTWRITE, cb_connserver)) {
1872                 Log( LOG_ALERT, "io_event_create(): could not add fd %d", strerror(errno));
1873                 Conn_Close( new_sock, "io_event_create() failed", NULL, false );
1874                 Init_Conn_Struct( new_sock );
1875                 Conf_Server[Server].conn_id = NONE;
1876         }
1877 #ifdef SSL_SUPPORT
1878         if (Conf_Server[Server].SSLConnect && !ConnSSL_PrepareConnect( &My_Connections[new_sock],
1879                                                                 &Conf_Server[Server] ))
1880         {
1881                 Log(LOG_ALERT, "Could not initialize SSL for outgoing connection");
1882                 Conn_Close( new_sock, "Could not initialize SSL for outgoing connection", NULL, false );
1883                 Init_Conn_Struct( new_sock );
1884                 Conf_Server[Server].conn_id = NONE;
1885                 return;
1886         }
1887 #endif
1888         LogDebug("Registered new connection %d on socket %d (%ld in total).",
1889                  new_sock, My_Connections[new_sock].sock, NumConnections);
1890         Conn_OPTION_ADD( &My_Connections[new_sock], CONN_ISCONNECTING );
1891 } /* New_Server */
1892
1893
1894 /**
1895  * Initialize connection structure.
1896  */
1897 static void
1898 Init_Conn_Struct(CONN_ID Idx)
1899 {
1900         time_t now = time(NULL);
1901
1902         memset(&My_Connections[Idx], 0, sizeof(CONNECTION));
1903         My_Connections[Idx].sock = -1;
1904         My_Connections[Idx].signon = now;
1905         My_Connections[Idx].lastdata = now;
1906         My_Connections[Idx].lastprivmsg = now;
1907         Proc_InitStruct(&My_Connections[Idx].proc_stat);
1908 } /* Init_Conn_Struct */
1909
1910
1911 static bool
1912 Init_Socket( int Sock )
1913 {
1914         /* Initialize socket (set options) */
1915
1916         int value;
1917
1918         if (!io_setnonblock(Sock)) {
1919                 Log( LOG_CRIT, "Can't enable non-blocking mode for socket: %s!", strerror( errno ));
1920                 close( Sock );
1921                 return false;
1922         }
1923
1924         /* Don't block this port after socket shutdown */
1925         value = 1;
1926         if( setsockopt( Sock, SOL_SOCKET, SO_REUSEADDR, &value, (socklen_t)sizeof( value )) != 0 )
1927         {
1928                 Log( LOG_ERR, "Can't set socket option SO_REUSEADDR: %s!", strerror( errno ));
1929                 /* ignore this error */
1930         }
1931
1932         /* Set type of service (TOS) */
1933 #if defined(IPPROTO_IP) && defined(IPTOS_LOWDELAY)
1934         value = IPTOS_LOWDELAY;
1935         LogDebug("Setting IP_TOS on socket %d to IPTOS_LOWDELAY.", Sock);
1936         if (setsockopt(Sock, IPPROTO_IP, IP_TOS, &value,
1937                        (socklen_t) sizeof(value))) {
1938                 LogDebug("Can't set socket option IP_TOS: %s!",
1939                          strerror(errno));
1940                 /* ignore this error */
1941         }
1942 #endif
1943
1944         return true;
1945 } /* Init_Socket */
1946
1947
1948 static void
1949 cb_Connect_to_Server(int fd, UNUSED short events)
1950 {
1951         /* Read result of resolver sub-process from pipe and start connection */
1952         int i;
1953         size_t len;
1954         ng_ipaddr_t dest_addrs[4];      /* we can handle at most 3; but we read up to
1955                                            four so we can log the 'more than we can handle'
1956                                            condition. First result is tried immediately, rest
1957                                            is saved for later if needed. */
1958
1959         LogDebug("Resolver: Got forward lookup callback on fd %d, events %d", fd, events);
1960
1961         for (i=0; i < MAX_SERVERS; i++) {
1962                   if (Proc_GetPipeFd(&Conf_Server[i].res_stat) == fd )
1963                           break;
1964         }
1965
1966         if( i >= MAX_SERVERS) {
1967                 /* Ops, no matching server found?! */
1968                 io_close( fd );
1969                 LogDebug("Resolver: Got Forward Lookup callback for unknown server!?");
1970                 return;
1971         }
1972
1973         /* Read result from pipe */
1974         len = Proc_Read(&Conf_Server[i].res_stat, dest_addrs, sizeof(dest_addrs));
1975         if (len == 0) {
1976                 /* Error resolving hostname: reset server structure */
1977                 Conf_Server[i].conn_id = NONE;
1978                 return;
1979         }
1980
1981         assert((len % sizeof(ng_ipaddr_t)) == 0);
1982
1983         LogDebug("Got result from resolver: %u structs (%u bytes).", len/sizeof(ng_ipaddr_t), len);
1984
1985         memset(&Conf_Server[i].dst_addr, 0, sizeof(Conf_Server[i].dst_addr));
1986         if (len > sizeof(ng_ipaddr_t)) {
1987                 /* more than one address for this hostname, remember them
1988                  * in case first address is unreachable/not available */
1989                 len -= sizeof(ng_ipaddr_t);
1990                 if (len > sizeof(Conf_Server[i].dst_addr)) {
1991                         len = sizeof(Conf_Server[i].dst_addr);
1992                         Log(LOG_NOTICE,
1993                                 "Notice: Resolver returned more IP Addresses for host than we can handle, additional addresses dropped.");
1994                 }
1995                 memcpy(&Conf_Server[i].dst_addr, &dest_addrs[1], len);
1996         }
1997         /* connect() */
1998         New_Server(i, dest_addrs);
1999 } /* cb_Read_Forward_Lookup */
2000
2001
2002 static void
2003 cb_Read_Resolver_Result( int r_fd, UNUSED short events )
2004 {
2005         /* Read result of resolver sub-process from pipe and update the
2006          * apropriate connection/client structure(s): hostname and/or
2007          * IDENT user name.*/
2008
2009         CLIENT *c;
2010         CONN_ID i;
2011         size_t len;
2012         char *identptr;
2013 #ifdef IDENTAUTH
2014         char readbuf[HOST_LEN + 2 + CLIENT_USER_LEN];
2015 #else
2016         char readbuf[HOST_LEN + 1];
2017 #endif
2018
2019         LogDebug("Resolver: Got callback on fd %d, events %d", r_fd, events );
2020         i = Conn_GetFromProc(r_fd);
2021         if (i == NONE) {
2022                 /* Ops, none found? Probably the connection has already
2023                  * been closed!? We'll ignore that ... */
2024                 io_close( r_fd );
2025                 LogDebug("Resolver: Got callback for unknown connection!?");
2026                 return;
2027         }
2028
2029         /* Read result from pipe */
2030         len = Proc_Read(&My_Connections[i].proc_stat, readbuf, sizeof readbuf -1);
2031         if (len == 0)
2032                 return;
2033
2034         readbuf[len] = '\0';
2035         identptr = strchr(readbuf, '\n');
2036         assert(identptr != NULL);
2037         if (!identptr) {
2038                 Log( LOG_CRIT, "Resolver: Got malformed result!");
2039                 return;
2040         }
2041
2042         *identptr = '\0';
2043         LogDebug("Got result from resolver: \"%s\" (%u bytes read).", readbuf, len);
2044         /* Okay, we got a complete result: this is a host name for outgoing
2045          * connections and a host name and IDENT user name (if enabled) for
2046          * incoming connections.*/
2047         assert ( My_Connections[i].sock >= 0 );
2048         /* Incoming connection. Search client ... */
2049         c = Conn_GetClient( i );
2050         assert( c != NULL );
2051
2052         /* Only update client information of unregistered clients.
2053          * Note: user commands (e. g. WEBIRC) are always read _after_ reading
2054          * the resolver results, so we don't have to worry to override settings
2055          * from these commands here. */
2056         if(Client_Type(c) == CLIENT_UNKNOWN) {
2057                 strlcpy(My_Connections[i].host, readbuf,
2058                         sizeof(My_Connections[i].host));
2059                 Client_SetHostname(c, readbuf);
2060 #ifdef IDENTAUTH
2061                 ++identptr;
2062                 if (*identptr) {
2063                         Log(LOG_INFO, "IDENT lookup for connection %d: \"%s\".", i, identptr);
2064                         Client_SetUser(c, identptr, true);
2065                 } else {
2066                         Log(LOG_INFO, "IDENT lookup for connection %d: no result.", i);
2067                 }
2068 #endif
2069         }
2070 #ifdef DEBUG
2071                 else Log( LOG_DEBUG, "Resolver: discarding result for already registered connection %d.", i );
2072 #endif
2073 } /* cb_Read_Resolver_Result */
2074
2075
2076 /**
2077  * Write a "simple" (error) message to a socket.
2078  * The message is sent without using the connection write buffers, without
2079  * compression/encryption, and even without any error reporting. It is
2080  * designed for error messages of e.g. New_Connection(). */
2081 static void
2082 Simple_Message(int Sock, const char *Msg)
2083 {
2084         char buf[COMMAND_LEN];
2085         size_t len;
2086
2087         assert(Sock > NONE);
2088         assert(Msg != NULL);
2089
2090         strlcpy(buf, Msg, sizeof buf - 2);
2091         len = strlcat(buf, "\r\n", sizeof buf);
2092         if (write(Sock, buf, len) < 0) {
2093                 /* Because this function most probably got called to log
2094                  * an error message, any write error is ignored here to
2095                  * avoid an endless loop. But casting the result of write()
2096                  * to "void" doesn't satisfy the GNU C code attribute
2097                  * "warn_unused_result" which is used by some versions of
2098                  * glibc (e.g. 2.11.1), therefore this silly error
2099                  * "handling" code here :-( */
2100                 return;
2101         }
2102 } /* Simple_Error */
2103
2104
2105 /**
2106  * Get CLIENT structure that belongs to a local connection identified by its
2107  * index number. Each connection belongs to a client by definition, so it is
2108  * not required that the caller checks for NULL return values.
2109  * @param Idx Connection index number
2110  * @return Pointer to CLIENT structure
2111  */
2112 GLOBAL CLIENT *
2113 Conn_GetClient( CONN_ID Idx )
2114 {
2115         CONNECTION *c;
2116
2117         assert(Idx >= 0);
2118         c = array_get(&My_ConnArray, sizeof (CONNECTION), (size_t)Idx);
2119         assert(c != NULL);
2120         return c ? c->client : NULL;
2121 }
2122
2123 /**
2124  * Get PROC_STAT sub-process structure of a connection.
2125  * @param Idx Connection index number
2126  * @return PROC_STAT structure
2127  */
2128 GLOBAL PROC_STAT *
2129 Conn_GetProcStat(CONN_ID Idx)
2130 {
2131         CONNECTION *c;
2132
2133         assert(Idx >= 0);
2134         c = array_get(&My_ConnArray, sizeof (CONNECTION), (size_t)Idx);
2135         assert(c != NULL);
2136         return &c->proc_stat;
2137 } /* Conn_GetProcStat */
2138
2139
2140 /**
2141  * Get CONN_ID from file descriptor associated to a subprocess structure.
2142  * @param fd File descriptor
2143  * @return CONN_ID or NONE (-1)
2144  */
2145 GLOBAL CONN_ID
2146 Conn_GetFromProc(int fd)
2147 {
2148         int i;
2149
2150         assert(fd > 0);
2151         for (i = 0; i < Pool_Size; i++) {
2152                 if ((My_Connections[i].sock != NONE)
2153                     && (Proc_GetPipeFd(&My_Connections[i].proc_stat) == fd))
2154                         return i;
2155         }
2156         return NONE;
2157 } /* Conn_GetFromProc */
2158
2159
2160 #ifdef SSL_SUPPORT
2161
2162 /**
2163  * Get information about used SSL chiper.
2164  * @param Idx Connection index number
2165  * @param buf Buffer for returned information text
2166  * @param len Size of return buffer "buf"
2167  * @return true on success, false otherwise
2168  */
2169 GLOBAL bool
2170 Conn_GetCipherInfo(CONN_ID Idx, char *buf, size_t len)
2171 {
2172         if (Idx < 0)
2173                 return false;
2174         assert(Idx < (int) array_length(&My_ConnArray, sizeof(CONNECTION)));
2175         return ConnSSL_GetCipherInfo(&My_Connections[Idx], buf, len);
2176 }
2177
2178
2179 /**
2180  * Check if a connection is SSL-enabled or not.
2181  * @param Idx Connection index number
2182  * @return true if connection is SSL-enabled, false otherwise.
2183  */
2184 GLOBAL bool
2185 Conn_UsesSSL(CONN_ID Idx)
2186 {
2187         if (Idx < 0)
2188                 return false;
2189         assert(Idx < (int) array_length(&My_ConnArray, sizeof(CONNECTION)));
2190         return Conn_OPTION_ISSET(&My_Connections[Idx], CONN_SSL);
2191 }
2192
2193 #endif
2194
2195
2196 #ifdef DEBUG
2197
2198 GLOBAL void
2199 Conn_DebugDump(void)
2200 {
2201         int i;
2202
2203         Log(LOG_DEBUG, "Connection status:");
2204         for (i = 0; i < Pool_Size; i++) {
2205                 if (My_Connections[i].sock == NONE)
2206                         continue;
2207                 Log(LOG_DEBUG,
2208                     " - %d: host=%s, lastdata=%ld, lastping=%ld, delaytime=%ld, flag=%d, options=%d, bps=%d, client=%s",
2209                     My_Connections[i].sock, My_Connections[i].host,
2210                     My_Connections[i].lastdata, My_Connections[i].lastping,
2211                     My_Connections[i].delaytime, My_Connections[i].flag,
2212                     My_Connections[i].options, My_Connections[i].bps,
2213                     My_Connections[i].client ? Client_ID(My_Connections[i].client) : "-");
2214         }
2215 } /* Conn_DumpClients */
2216
2217 #endif
2218
2219
2220 /* -eof- */