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(res, &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) { return false; }
 685 static inline bool
 686 SSL_WantWrite(UNUSED const CONNECTION *c) { return false; }
 687 #endif
 688
 689
 690 /**
 691  * "Main Loop": Loop until shutdown or restart is signalled.
 692  * This function loops until a shutdown or restart of ngIRCd is signalled and
 693  * calls io_dispatch() to check for readable and writable sockets every second.
 694  * It checks for status changes on pending connections (e. g. when a hostname
 695  * has been resolved), checks for "penalties" and timeouts, and handles the
 696  * input buffers.
 697  */
 698 GLOBAL void
 699 Conn_Handler(void)
 700 {
 701         int i;
 702         unsigned int wdatalen, bytes_processed;
 703         struct timeval tv;
 704         time_t t;
 705
 706         while (!NGIRCd_SignalQuit && !NGIRCd_SignalRestart) {
 707                 t = time(NULL);
 708
 709 #ifdef ZEROCONF
 710                 Rendezvous_Handler();
 711 #endif
 712
 713                 /* Should the configuration be reloaded? */
 714                 if (NGIRCd_SignalRehash)
 715                         NGIRCd_Rehash();
 716
 717                 /* Check configured servers and established links */
 718                 Check_Servers();
 719                 Check_Connections();
 720
 721                 /* Look for non-empty read buffers ... */
 722                 for (i = 0; i < Pool_Size; i++) {
 723                         if ((My_Connections[i].sock > NONE)
 724                             && (array_bytes(&My_Connections[i].rbuf) > 0)
 725                             && (My_Connections[i].delaytime <= t)) {
 726                                 /* ... and try to handle the received data */
 727                                 bytes_processed = Handle_Buffer(i);
 728                                 /* if we processed data, and there might be
 729                                  * more commands in the input buffer, do not
 730                                  * try to read any more data now */
 731                                 if (bytes_processed &&
 732                                     array_bytes(&My_Connections[i].rbuf) > 2) {
 733                                         LogDebug
 734                                             ("Throttling connection %d: command limit reached!",
 735                                              i);
 736                                         Conn_SetPenalty(i, 1);
 737                                 }
 738                         }
 739                 }
 740
 741                 /* Look for non-empty write buffers ... */
 742                 for (i = 0; i < Pool_Size; i++) {
 743                         if (My_Connections[i].sock <= NONE)
 744                                 continue;
 745
 746                         wdatalen = (unsigned int)array_bytes(&My_Connections[i].wbuf);
 747 #ifdef ZLIB
 748                         if (wdatalen > 0 ||
 749                             array_bytes(&My_Connections[i].zip.wbuf) > 0)
 750 #else
 751                         if (wdatalen > 0)
 752 #endif
 753                         {
 754                                 if (SSL_WantRead(&My_Connections[i]))
 755                                         continue;
 756                                 io_event_add(My_Connections[i].sock,
 757                                              IO_WANTWRITE);
 758                         }
 759                 }
 760
 761                 /* Check from which sockets we possibly could read ... */
 762                 for (i = 0; i < Pool_Size; i++) {
 763                         if (My_Connections[i].sock <= NONE)
 764                                 continue;
 765 #ifdef SSL_SUPPORT
 766                         if (SSL_WantWrite(&My_Connections[i]))
 767                                 continue; /* TLS/SSL layer needs to write data; deal with this first */
 768 #endif
 769                         if (Proc_InProgress(&My_Connections[i].proc_stat)) {
 770                                 /* Wait for completion of forked subprocess
 771                                  * and ignore the socket in the meantime ... */
 772                                 io_event_del(My_Connections[i].sock,
 773                                              IO_WANTREAD);
 774                                 continue;
 775                         }
 776
 777                         if (Conn_OPTION_ISSET(&My_Connections[i], CONN_ISCONNECTING))
 778                                 /* Wait for completion of connect() ... */
 779                                 continue;
 780
 781                         if (My_Connections[i].delaytime > t) {
 782                                 /* There is a "penalty time" set: ignore socket! */
 783                                 io_event_del(My_Connections[i].sock,
 784                                              IO_WANTREAD);
 785                                 continue;
 786                         }
 787
 788                         io_event_add(My_Connections[i].sock, IO_WANTREAD);
 789                 }
 790
 791                 /* Set the timeout for reading from the network to 1 second,
 792                  * which is the granularity with witch we handle "penalty
 793                  * times" for example.
 794                  * Note: tv_sec/usec are undefined(!) after io_dispatch()
 795                  * returns, so we have to set it beforce each call to it! */
 796                 tv.tv_usec = 0;
 797                 tv.tv_sec = 1;
 798
 799                 /* Wait for activity ... */
 800                 i = io_dispatch(&tv);
 801                 if (i == -1 && errno != EINTR) {
 802                         Log(LOG_EMERG, "Conn_Handler(): io_dispatch(): %s!",
 803                             strerror(errno));
 804                         Log(LOG_ALERT, "%s exiting due to fatal errors!",
 805                             PACKAGE_NAME);
 806                         exit(1);
 807                 }
 808         }
 809
 810         if (NGIRCd_SignalQuit)
 811                 Log(LOG_NOTICE | LOG_snotice, "Server going down NOW!");
 812         else if (NGIRCd_SignalRestart)
 813                 Log(LOG_NOTICE | LOG_snotice, "Server restarting NOW!");
 814 } /* Conn_Handler */
 815
 816
 817 /**
 818  * Write a text string into the socket of a connection.
 819  * This function automatically appends CR+LF to the string and validates that
 820  * the result is a valid IRC message (oversized messages are shortened, for
 821  * example). Then it calls the Conn_Write() function to do the actual sending.
 822  * @param Idx Index fo the connection.
 823  * @param Format Format string, see printf().
 824  * @return true on success, false otherwise.
 825  */
 826 #ifdef PROTOTYPES
 827 GLOBAL bool
 828 Conn_WriteStr(CONN_ID Idx, const char *Format, ...)
 829 #else
 830 GLOBAL bool
 831 Conn_WriteStr(Idx, Format, va_alist)
 832 CONN_ID Idx;
 833 const char *Format;
 834 va_dcl
 835 #endif
 836 {
 837         char buffer[COMMAND_LEN];
 838         size_t len;
 839         bool ok;
 840         va_list ap;
 841
 842         assert( Idx > NONE );
 843         assert( Format != NULL );
 844
 845 #ifdef PROTOTYPES
 846         va_start( ap, Format );
 847 #else
 848         va_start( ap );
 849 #endif
 850         if (vsnprintf( buffer, COMMAND_LEN - 2, Format, ap ) >= COMMAND_LEN - 2 ) {
 851                 /*
 852                  * The string that should be written to the socket is longer
 853                  * than the allowed size of COMMAND_LEN bytes (including both
 854                  * the CR and LF characters). This can be caused by the
 855                  * IRC_WriteXXX() functions when the prefix of this server had
 856                  * to be added to an already "quite long" command line which
 857                  * has been received from a regular IRC client, for example.
 858                  *
 859                  * We are not allowed to send such "oversized" messages to
 860                  * other servers and clients, see RFC 2812 2.3 and 2813 3.3
 861                  * ("these messages SHALL NOT exceed 512 characters in length,
 862                  * counting all characters including the trailing CR-LF").
 863                  *
 864                  * So we have a big problem here: we should send more bytes
 865                  * to the network than we are allowed to and we don't know
 866                  * the originator (any more). The "old" behaviour of blaming
 867                  * the receiver ("next hop") is a bad idea (it could be just
 868                  * an other server only routing the message!), so the only
 869                  * option left is to shorten the string and to hope that the
 870                  * result is still somewhat useful ...
 871                  *                                                   -alex-
 872                  */
 873
 874                 strcpy (buffer + sizeof(buffer) - strlen(CUT_TXTSUFFIX) - 2 - 1,
 875                         CUT_TXTSUFFIX);
 876         }
 877
 878 #ifdef SNIFFER
 879         if (NGIRCd_Sniffer)
 880                 Log(LOG_DEBUG, " -> connection %d: '%s'.", Idx, buffer);
 881 #endif
 882
 883         len = strlcat( buffer, "\r\n", sizeof( buffer ));
 884         ok = Conn_Write(Idx, buffer, len);
 885         My_Connections[Idx].msg_out++;
 886
 887         va_end( ap );
 888         return ok;
 889 } /* Conn_WriteStr */
 890
 891
 892 /**
 893  * Append Data to the outbound write buffer of a connection.
 894  * @param Idx Index of the connection.
 895  * @param Data pointer to the data.
 896  * @param Len length of Data.
 897  * @return true on success, false otherwise.
 898  */
 899 static bool
 900 Conn_Write( CONN_ID Idx, char *Data, size_t Len )
 901 {
 902         CLIENT *c;
 903         size_t writebuf_limit = WRITEBUFFER_LEN;
 904         assert( Idx > NONE );
 905         assert( Data != NULL );
 906         assert( Len > 0 );
 907
 908         c = Conn_GetClient(Idx);
 909         assert( c != NULL);
 910
 911         /* Servers do get special write buffer limits, so they can generate
 912          * all the messages that are required while peering. */
 913         if (Client_Type(c) == CLIENT_SERVER)
 914                 writebuf_limit = WRITEBUFFER_SLINK_LEN;
 915
 916         /* Is the socket still open? A previous call to Conn_Write()
 917          * may have closed the connection due to a fatal error.
 918          * In this case it is sufficient to return an error, as well. */
 919         if( My_Connections[Idx].sock <= NONE ) {
 920                 LogDebug("Skipped write on closed socket (connection %d).", Idx);
 921                 return false;
 922         }
 923
 924 #ifdef ZLIB
 925         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP )) {
 926                 /* Compressed link:
 927                  * Zip_Buffer() does all the dirty work for us: it flushes
 928                  * the (pre-)compression buffers if required and handles
 929                  * all error conditions. */
 930                 if (!Zip_Buffer(Idx, Data, Len))
 931                         return false;
 932         }
 933         else
 934 #endif
 935         {
 936                 /* Uncompressed link:
 937                  * Check if outbound buffer has enough space for the data. */
 938                 if (array_bytes(&My_Connections[Idx].wbuf) + Len >=
 939                     writebuf_limit) {
 940                         /* Buffer is full, flush it. Handle_Write deals with
 941                          * low-level errors, if any. */
 942                         if (!Handle_Write(Idx))
 943                                 return false;
 944                 }
 945
 946                 /* When the write buffer is still too big after flushing it,
 947                  * the connection will be killed. */
 948                 if (array_bytes(&My_Connections[Idx].wbuf) + Len >=
 949                     writebuf_limit) {
 950                         Log(LOG_NOTICE,
 951                             "Write buffer overflow (connection %d, size %lu byte)!",
 952                             Idx,
 953                             (unsigned long)array_bytes(&My_Connections[Idx].wbuf));
 954                         Conn_Close(Idx, "Write buffer overflow!", NULL, false);
 955                         return false;
 956                 }
 957
 958                 /* Copy data to write buffer */
 959                 if (!array_catb(&My_Connections[Idx].wbuf, Data, Len))
 960                         return false;
 961
 962                 My_Connections[Idx].bytes_out += Len;
 963         }
 964
 965         /* Adjust global write counter */
 966         WCounter += Len;
 967
 968         return true;
 969 } /* Conn_Write */
 970
 971
 972 GLOBAL void
 973 Conn_Close( CONN_ID Idx, const char *LogMsg, const char *FwdMsg, bool InformClient )
 974 {
 975         /* Close connection. Open pipes of asyncronous resolver
 976          * sub-processes are closed down. */
 977
 978         CLIENT *c;
 979         double in_k, out_k;
 980         UINT16 port;
 981 #ifdef ZLIB
 982         double in_z_k, out_z_k;
 983         int in_p, out_p;
 984 #endif
 985
 986         assert( Idx > NONE );
 987
 988         /* Is this link already shutting down? */
 989         if( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ISCLOSING )) {
 990                 /* Conn_Close() has been called recursively for this link;
 991                  * probabe reason: Handle_Write() failed  -- see below. */
 992                 LogDebug("Recursive request to close connection: %d", Idx );
 993                 return;
 994         }
 995
 996         assert( My_Connections[Idx].sock > NONE );
 997
 998         /* Mark link as "closing" */
 999         Conn_OPTION_ADD( &My_Connections[Idx], CONN_ISCLOSING );
1000
1001         port = ng_ipaddr_getport(&My_Connections[Idx].addr);
1002         Log(LOG_INFO, "Shutting down connection %d (%s) with %s:%d ...", Idx,
1003             LogMsg ? LogMsg : FwdMsg, My_Connections[Idx].host, port);
1004
1005         /* Search client, if any */
1006         c = Conn_GetClient( Idx );
1007
1008         /* Should the client be informed? */
1009         if (InformClient) {
1010 #ifndef STRICT_RFC
1011                 /* Send statistics to client if registered as user: */
1012                 if ((c != NULL) && (Client_Type(c) == CLIENT_USER)) {
1013                         Conn_WriteStr( Idx,
1014                          ":%s NOTICE %s :%sConnection statistics: client %.1f kb, server %.1f kb.",
1015                          Client_ID(Client_ThisServer()), Client_ID(c),
1016                          NOTICE_TXTPREFIX,
1017                          (double)My_Connections[Idx].bytes_in / 1024,
1018                          (double)My_Connections[Idx].bytes_out / 1024);
1019                 }
1020 #endif
1021                 /* Send ERROR to client (see RFC 2812, section 3.1.7) */
1022                 if (FwdMsg)
1023                         Conn_WriteStr(Idx, "ERROR :%s", FwdMsg);
1024                 else
1025                         Conn_WriteStr(Idx, "ERROR :Closing connection.");
1026         }
1027
1028         /* Try to write out the write buffer. Note: Handle_Write() eventually
1029          * removes the CLIENT structure associated with this connection if an
1030          * error occurs! So we have to re-check if there is still an valid
1031          * CLIENT structure after calling Handle_Write() ...*/
1032         (void)Handle_Write( Idx );
1033
1034         /* Search client, if any (re-check!) */
1035         c = Conn_GetClient( Idx );
1036 #ifdef SSL_SUPPORT
1037         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_SSL )) {
1038                 Log(LOG_INFO, "SSL connection %d shutting down ...", Idx);
1039                 ConnSSL_Free(&My_Connections[Idx]);
1040         }
1041 #endif
1042         /* Shut down socket */
1043         if (! io_close(My_Connections[Idx].sock)) {
1044                 /* Oops, we can't close the socket!? This is ... ugly! */
1045                 Log(LOG_CRIT,
1046                     "Error closing connection %d (socket %d) with %s:%d - %s! (ignored)",
1047                     Idx, My_Connections[Idx].sock, My_Connections[Idx].host,
1048                     port, strerror(errno));
1049         }
1050
1051         /* Mark socket as invalid: */
1052         My_Connections[Idx].sock = NONE;
1053
1054         /* If there is still a client, unregister it now */
1055         if (c)
1056                 Client_Destroy(c, LogMsg, FwdMsg, true);
1057
1058         /* Calculate statistics and log information */
1059         in_k = (double)My_Connections[Idx].bytes_in / 1024;
1060         out_k = (double)My_Connections[Idx].bytes_out / 1024;
1061 #ifdef ZLIB
1062         if (Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP)) {
1063                 in_z_k = (double)My_Connections[Idx].zip.bytes_in / 1024;
1064                 out_z_k = (double)My_Connections[Idx].zip.bytes_out / 1024;
1065                 /* Make sure that no division by zero can occur during
1066                  * the calculation of in_p and out_p: in_z_k and out_z_k
1067                  * are non-zero, that's guaranteed by the protocol until
1068                  * compression can be enabled. */
1069                 if (! in_z_k)
1070                         in_z_k = in_k;
1071                 if (! out_z_k)
1072                         out_z_k = out_k;
1073                 in_p = (int)(( in_k * 100 ) / in_z_k );
1074                 out_p = (int)(( out_k * 100 ) / out_z_k );
1075                 Log(LOG_INFO,
1076                     "Connection %d with %s:%d closed (in: %.1fk/%.1fk/%d%%, out: %.1fk/%.1fk/%d%%).",
1077                     Idx, My_Connections[Idx].host, port,
1078                     in_k, in_z_k, in_p, out_k, out_z_k, out_p);
1079         }
1080         else
1081 #endif
1082         {
1083                 Log(LOG_INFO,
1084                     "Connection %d with %s:%d closed (in: %.1fk, out: %.1fk).",
1085                     Idx, My_Connections[Idx].host, port,
1086                     in_k, out_k);
1087         }
1088
1089         /* Servers: Modify time of next connect attempt? */
1090         Conf_UnsetServer( Idx );
1091
1092 #ifdef ZLIB
1093         /* Clean up zlib, if link was compressed */
1094         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP )) {
1095                 inflateEnd( &My_Connections[Idx].zip.in );
1096                 deflateEnd( &My_Connections[Idx].zip.out );
1097                 array_free(&My_Connections[Idx].zip.rbuf);
1098                 array_free(&My_Connections[Idx].zip.wbuf);
1099         }
1100 #endif
1101
1102         array_free(&My_Connections[Idx].rbuf);
1103         array_free(&My_Connections[Idx].wbuf);
1104
1105         /* Clean up connection structure (=free it) */
1106         Init_Conn_Struct( Idx );
1107
1108         assert(NumConnections > 0);
1109         if (NumConnections)
1110                 NumConnections--;
1111         LogDebug("Shutdown of connection %d completed, %ld connection%s left.",
1112                  Idx, NumConnections, NumConnections != 1 ? "s" : "");
1113 } /* Conn_Close */
1114
1115
1116 GLOBAL long
1117 Conn_Count(void)
1118 {
1119         return NumConnections;
1120 } /* Conn_Count */
1121
1122
1123 GLOBAL long
1124 Conn_CountMax(void)
1125 {
1126         return NumConnectionsMax;
1127 } /* Conn_CountMax */
1128
1129
1130 GLOBAL long
1131 Conn_CountAccepted(void)
1132 {
1133         return NumConnectionsAccepted;
1134 } /* Conn_CountAccepted */
1135
1136
1137 /**
1138  * Synchronize established connections and configured server structures
1139  * after a configuration update and store the correct connection IDs, if any.
1140  */
1141 GLOBAL void
1142 Conn_SyncServerStruct(void)
1143 {
1144         CLIENT *client;
1145         CONN_ID i;
1146         int c;
1147
1148         for (i = 0; i < Pool_Size; i++) {
1149                 if (My_Connections[i].sock == NONE)
1150                         continue;
1151
1152                 /* Server link? */
1153                 client = Conn_GetClient(i);
1154                 if (!client || Client_Type(client) != CLIENT_SERVER)
1155                         continue;
1156
1157                 for (c = 0; c < MAX_SERVERS; c++) {
1158                         /* Configured server? */
1159                         if (!Conf_Server[c].host[0])
1160                                 continue;
1161
1162                         if (strcasecmp(Conf_Server[c].name, Client_ID(client)) == 0)
1163                                 Conf_Server[c].conn_id = i;
1164                 }
1165         }
1166 } /* SyncServerStruct */
1167
1168
1169 /**
1170  * Send out data of write buffer; connect new sockets.
1171  */
1172 static bool
1173 Handle_Write( CONN_ID Idx )
1174 {
1175         ssize_t len;
1176         size_t wdatalen;
1177
1178         assert( Idx > NONE );
1179         if ( My_Connections[Idx].sock < 0 ) {
1180                 LogDebug("Handle_Write() on closed socket, connection %d", Idx);
1181                 return false;
1182         }
1183         assert( My_Connections[Idx].sock > NONE );
1184
1185         wdatalen = array_bytes(&My_Connections[Idx].wbuf );
1186
1187 #ifdef ZLIB
1188         if (wdatalen == 0) {
1189                 /* Write buffer is empty, so we try to flush the compression
1190                  * buffer and get some data to work with from there :-) */
1191                 if (!Zip_Flush(Idx))
1192                         return false;
1193
1194                 /* Now the write buffer most probably has changed: */
1195                 wdatalen = array_bytes(&My_Connections[Idx].wbuf);
1196         }
1197 #endif
1198
1199         if (wdatalen == 0) {
1200                 /* Still no data, fine. */
1201                 io_event_del(My_Connections[Idx].sock, IO_WANTWRITE );
1202                 return true;
1203         }
1204
1205         LogDebug
1206             ("Handle_Write() called for connection %d, %ld bytes pending ...",
1207              Idx, wdatalen);
1208
1209 #ifdef SSL_SUPPORT
1210         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_SSL )) {
1211                 len = ConnSSL_Write(&My_Connections[Idx], array_start(&My_Connections[Idx].wbuf), wdatalen);
1212         } else
1213 #endif
1214         {
1215                 len = write(My_Connections[Idx].sock,
1216                             array_start(&My_Connections[Idx].wbuf), wdatalen );
1217         }
1218         if( len < 0 ) {
1219                 if (errno == EAGAIN || errno == EINTR)
1220                         return true;
1221
1222                 Log(LOG_ERR, "Write error on connection %d (socket %d): %s!",
1223                     Idx, My_Connections[Idx].sock, strerror(errno));
1224                 Conn_Close(Idx, "Write error!", NULL, false);
1225                 return false;
1226         }
1227
1228         /* move any data not yet written to beginning */
1229         array_moveleft(&My_Connections[Idx].wbuf, 1, (size_t)len);
1230
1231         return true;
1232 } /* Handle_Write */
1233
1234
1235 static int
1236 Count_Connections(ng_ipaddr_t *a)
1237 {
1238         int i, cnt;
1239
1240         cnt = 0;
1241         for (i = 0; i < Pool_Size; i++) {
1242                 if (My_Connections[i].sock <= NONE)
1243                         continue;
1244                 if (ng_ipaddr_ipequal(&My_Connections[i].addr, a))
1245                         cnt++;
1246         }
1247         return cnt;
1248 } /* Count_Connections */
1249
1250
1251 /**
1252  * Initialize new client connection on a listening socket.
1253  * @param Sock Listening socket descriptor
1254  * @return Accepted socket descriptor or -1 on error
1255  */
1256 static int
1257 New_Connection(int Sock)
1258 {
1259 #ifdef TCPWRAP
1260         struct request_info req;
1261 #endif
1262         ng_ipaddr_t new_addr;
1263         char ip_str[NG_INET_ADDRSTRLEN];
1264         int new_sock, new_sock_len, identsock;
1265         CLIENT *c;
1266         long cnt;
1267
1268         assert(Sock > NONE);
1269
1270         new_sock_len = (int)sizeof(new_addr);
1271         new_sock = accept(Sock, (struct sockaddr *)&new_addr,
1272                           (socklen_t *)&new_sock_len);
1273         if (new_sock < 0) {
1274                 Log(LOG_CRIT, "Can't accept connection: %s!", strerror(errno));
1275                 return -1;
1276         }
1277         NumConnectionsAccepted++;
1278
1279         if (!ng_ipaddr_tostr_r(&new_addr, ip_str)) {
1280                 Log(LOG_CRIT, "fd %d: Can't convert IP address!", new_sock);
1281                 Simple_Message(new_sock, "ERROR :Internal Server Error");
1282                 close(new_sock);
1283                 return -1;
1284         }
1285
1286 #ifdef TCPWRAP
1287         /* Validate socket using TCP Wrappers */
1288         request_init(&req, RQ_DAEMON, PACKAGE_NAME, RQ_FILE, new_sock,
1289                      RQ_CLIENT_SIN, &new_addr, NULL);
1290         fromhost(&req);
1291         if (!hosts_access(&req)) {
1292                 Log(deny_severity,
1293                     "Refused connection from %s (by TCP Wrappers)!", ip_str);
1294                 Simple_Message(new_sock, "ERROR :Connection refused");
1295                 close(new_sock);
1296                 return -1;
1297         }
1298 #endif
1299
1300         if (!Init_Socket(new_sock))
1301                 return -1;
1302
1303         /* Check global connection limit */
1304         if ((Conf_MaxConnections > 0) &&
1305             (NumConnections >= (size_t) Conf_MaxConnections)) {
1306                 Log(LOG_ALERT, "Can't accept connection: limit (%d) reached!",
1307                     Conf_MaxConnections);
1308                 Simple_Message(new_sock, "ERROR :Connection limit reached");
1309                 close(new_sock);
1310                 return -1;
1311         }
1312
1313         /* Check IP-based connection limit */
1314         cnt = Count_Connections(&new_addr);
1315         if ((Conf_MaxConnectionsIP > 0) && (cnt >= Conf_MaxConnectionsIP)) {
1316                 /* Access denied, too many connections from this IP address! */
1317                 Log(LOG_ERR,
1318                     "Refused connection from %s: too may connections (%ld) from this IP address!",
1319                     ip_str, cnt);
1320                 Simple_Message(new_sock,
1321                                "ERROR :Connection refused, too many connections from your IP address!");
1322                 close(new_sock);
1323                 return -1;
1324         }
1325
1326         if (new_sock >= Pool_Size) {
1327                 if (!array_alloc(&My_ConnArray, sizeof(CONNECTION),
1328                                  (size_t) new_sock)) {
1329                         Log(LOG_EMERG,
1330                             "Can't allocate memory! [New_Connection]");
1331                         Simple_Message(new_sock, "ERROR: Internal error");
1332                         close(new_sock);
1333                         return -1;
1334                 }
1335                 LogDebug("Bumped connection pool to %ld items (internal: %ld items, %ld bytes)",
1336                          new_sock, array_length(&My_ConnArray,
1337                          sizeof(CONNECTION)), array_bytes(&My_ConnArray));
1338
1339                 /* Adjust pointer to new block */
1340                 My_Connections = array_start(&My_ConnArray);
1341                 while (Pool_Size <= new_sock)
1342                         Init_Conn_Struct(Pool_Size++);
1343         }
1344
1345         /* register callback */
1346         if (!io_event_create(new_sock, IO_WANTREAD, cb_clientserver)) {
1347                 Log(LOG_ALERT,
1348                     "Can't accept connection: io_event_create failed!");
1349                 Simple_Message(new_sock, "ERROR :Internal error");
1350                 close(new_sock);
1351                 return -1;
1352         }
1353
1354         c = Client_NewLocal(new_sock, ip_str, CLIENT_UNKNOWN, false);
1355         if (!c) {
1356                 Log(LOG_ALERT,
1357                     "Can't accept connection: can't create client structure!");
1358                 Simple_Message(new_sock, "ERROR :Internal error");
1359                 io_close(new_sock);
1360                 return -1;
1361         }
1362
1363         Init_Conn_Struct(new_sock);
1364         My_Connections[new_sock].sock = new_sock;
1365         My_Connections[new_sock].addr = new_addr;
1366         My_Connections[new_sock].client = c;
1367
1368         /* Set initial hostname to IP address. This becomes overwritten when
1369          * the DNS lookup is enabled and succeeds, but is used otherwise. */
1370         if (ng_ipaddr_af(&new_addr) != AF_INET)
1371                 snprintf(My_Connections[new_sock].host,
1372                          sizeof(My_Connections[new_sock].host), "[%s]", ip_str);
1373         else
1374                 strlcpy(My_Connections[new_sock].host, ip_str,
1375                         sizeof(My_Connections[new_sock].host));
1376
1377         Client_SetHostname(c, My_Connections[new_sock].host);
1378
1379         Log(LOG_INFO, "Accepted connection %d from %s:%d on socket %d.",
1380             new_sock, My_Connections[new_sock].host,
1381             ng_ipaddr_getport(&new_addr), Sock);
1382
1383         identsock = new_sock;
1384 #ifdef IDENTAUTH
1385         if (Conf_NoIdent)
1386                 identsock = -1;
1387 #endif
1388         if (!Conf_NoDNS)
1389                 Resolve_Addr(&My_Connections[new_sock].proc_stat, &new_addr,
1390                              identsock, cb_Read_Resolver_Result);
1391
1392         Account_Connection();
1393         return new_sock;
1394 } /* New_Connection */
1395
1396
1397 static void
1398 Account_Connection(void)
1399 {
1400         NumConnections++;
1401         if (NumConnections > NumConnectionsMax)
1402                 NumConnectionsMax = NumConnections;
1403         LogDebug("Total number of connections now %lu (max %lu).",
1404                  NumConnections, NumConnectionsMax);
1405 } /* Account_Connection */
1406
1407
1408 static CONN_ID
1409 Socket2Index( int Sock )
1410 {
1411         assert( Sock >= 0 );
1412
1413         if( Sock >= Pool_Size || My_Connections[Sock].sock != Sock ) {
1414                 /* the Connection was already closed again, likely due to
1415                  * an error. */
1416                 LogDebug("Socket2Index: can't get connection for socket %d!", Sock);
1417                 return NONE;
1418         }
1419         return Sock;
1420 } /* Socket2Index */
1421
1422
1423 /**
1424  * Read data from the network to the read buffer. If an error occures,
1425  * the socket of this connection will be shut down.
1426  */
1427 static void
1428 Read_Request( CONN_ID Idx )
1429 {
1430         ssize_t len;
1431         static const unsigned int maxbps = COMMAND_LEN / 2;
1432         char readbuf[READBUFFER_LEN];
1433         time_t t;
1434         CLIENT *c;
1435         assert( Idx > NONE );
1436         assert( My_Connections[Idx].sock > NONE );
1437
1438 #ifdef ZLIB
1439         if ((array_bytes(&My_Connections[Idx].rbuf) >= READBUFFER_LEN) ||
1440                 (array_bytes(&My_Connections[Idx].zip.rbuf) >= READBUFFER_LEN))
1441 #else
1442         if (array_bytes(&My_Connections[Idx].rbuf) >= READBUFFER_LEN)
1443 #endif
1444         {
1445                 /* Read buffer is full */
1446                 Log(LOG_ERR,
1447                     "Receive buffer overflow (connection %d): %d bytes!",
1448                     Idx, array_bytes(&My_Connections[Idx].rbuf));
1449                 Conn_Close( Idx, "Receive buffer overflow!", NULL, false );
1450                 return;
1451         }
1452
1453 #ifdef SSL_SUPPORT
1454         if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_SSL))
1455                 len = ConnSSL_Read( &My_Connections[Idx], readbuf, sizeof(readbuf));
1456         else
1457 #endif
1458         len = read(My_Connections[Idx].sock, readbuf, sizeof(readbuf));
1459         if (len == 0) {
1460                 Log(LOG_INFO, "%s:%u (%s) is closing the connection ...",
1461                                 My_Connections[Idx].host,
1462                                 (unsigned int) ng_ipaddr_getport(&My_Connections[Idx].addr),
1463                                 ng_ipaddr_tostr(&My_Connections[Idx].addr));
1464                 Conn_Close(Idx,
1465                            "Socket closed!", "Client closed connection",
1466                            false);
1467                 return;
1468         }
1469
1470         if (len < 0) {
1471                 if( errno == EAGAIN ) return;
1472                 Log(LOG_ERR, "Read error on connection %d (socket %d): %s!",
1473                     Idx, My_Connections[Idx].sock, strerror(errno));
1474                 Conn_Close(Idx, "Read error!", "Client closed connection",
1475                            false);
1476                 return;
1477         }
1478 #ifdef ZLIB
1479         if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_ZIP)) {
1480                 if (!array_catb(&My_Connections[Idx].zip.rbuf, readbuf,
1481                                 (size_t) len)) {
1482                         Log(LOG_ERR,
1483                             "Could not append recieved data to zip input buffer (connn %d): %d bytes!",
1484                             Idx, len);
1485                         Conn_Close(Idx, "Receive buffer overflow!", NULL,
1486                                    false);
1487                         return;
1488                 }
1489         } else
1490 #endif
1491         {
1492                 if (!array_catb( &My_Connections[Idx].rbuf, readbuf, len)) {
1493                         Log( LOG_ERR, "Could not append recieved data to input buffer (connn %d): %d bytes!", Idx, len );
1494                         Conn_Close( Idx, "Receive buffer overflow!", NULL, false );
1495                 }
1496         }
1497
1498         /* Update connection statistics */
1499         My_Connections[Idx].bytes_in += len;
1500
1501         /* Update timestamp of last data received if this connection is
1502          * registered as a user, server or service connection. Don't update
1503          * otherwise, so users have at least Conf_PongTimeout seconds time to
1504          * register with the IRC server -- see Check_Connections().
1505          * Update "lastping", too, if time shifted backwards ... */
1506         c = Conn_GetClient(Idx);
1507         if (c && (Client_Type(c) == CLIENT_USER
1508                   || Client_Type(c) == CLIENT_SERVER
1509                   || Client_Type(c) == CLIENT_SERVICE)) {
1510                 t = time(NULL);
1511                 if (My_Connections[Idx].lastdata != t)
1512                         My_Connections[Idx].bps = 0;
1513
1514                 My_Connections[Idx].lastdata = t;
1515                 if (My_Connections[Idx].lastping > t)
1516                         My_Connections[Idx].lastping = t;
1517         }
1518
1519         /* Look at the data in the (read-) buffer of this connection */
1520         My_Connections[Idx].bps += Handle_Buffer(Idx);
1521         if (Client_Type(c) != CLIENT_SERVER
1522             && My_Connections[Idx].bps >= maxbps) {
1523                 LogDebug("Throttling connection %d: BPS exceeded! (%u >= %u)",
1524                          Idx, My_Connections[Idx].bps, maxbps);
1525                 Conn_SetPenalty(Idx, 1);
1526         }
1527 } /* Read_Request */
1528
1529
1530 /**
1531  * Handle all data in the connection read-buffer.
1532  * Data is processed until no complete command is left in the read buffer,
1533  * or MAX_COMMANDS[_SERVER] commands were processed.
1534  * When a fatal error occurs, the connection is shut down.
1535  * @param Idx Index of the connection.
1536  * @return number of bytes processed.
1537  */
1538 static unsigned int
1539 Handle_Buffer(CONN_ID Idx)
1540 {
1541 #ifndef STRICT_RFC
1542         char *ptr1, *ptr2, *first_eol;
1543 #endif
1544         char *ptr;
1545         size_t len, delta;
1546         time_t starttime;
1547 #ifdef ZLIB
1548         bool old_z;
1549 #endif
1550         unsigned int i, maxcmd = MAX_COMMANDS, len_processed = 0;
1551         CLIENT *c;
1552
1553         c = Conn_GetClient(Idx);
1554         assert( c != NULL);
1555
1556         /* Servers do get special command limits, so they can process
1557          * all the messages that are required while peering. */
1558         if (Client_Type(c) == CLIENT_SERVER)
1559                 maxcmd = MAX_COMMANDS_SERVER;
1560
1561         starttime = time(NULL);
1562         for (i=0; i < maxcmd; i++) {
1563                 /* Check penalty */
1564                 if (My_Connections[Idx].delaytime > starttime)
1565                         return 0;
1566 #ifdef ZLIB
1567                 /* Unpack compressed data, if compression is in use */
1568                 if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_ZIP)) {
1569                         /* When unzipping fails, Unzip_Buffer() shuts
1570                          * down the connection itself */
1571                         if (!Unzip_Buffer(Idx))
1572                                 return 0;
1573                 }
1574 #endif
1575
1576                 if (0 == array_bytes(&My_Connections[Idx].rbuf))
1577                         break;
1578
1579                 /* Make sure that the buffer is NULL terminated */
1580                 if (!array_cat0_temporary(&My_Connections[Idx].rbuf)) {
1581                         Conn_Close(Idx, NULL,
1582                                    "Can't allocate memory [Handle_Buffer]",
1583                                    true);
1584                         return 0;
1585                 }
1586
1587                 /* RFC 2812, section "2.3 Messages", 5th paragraph:
1588                  * "IRC messages are always lines of characters terminated
1589                  * with a CR-LF (Carriage Return - Line Feed) pair [...]". */
1590                 delta = 2;
1591                 ptr = strstr(array_start(&My_Connections[Idx].rbuf), "\r\n");
1592
1593 #ifndef STRICT_RFC
1594                 /* Check for non-RFC-compliant request (only CR or LF)?
1595                  * Unfortunately, there are quite a few clients out there
1596                  * that do this -- e. g. mIRC, BitchX, and Trillian :-( */
1597                 ptr1 = strchr(array_start(&My_Connections[Idx].rbuf), '\r');
1598                 ptr2 = strchr(array_start(&My_Connections[Idx].rbuf), '\n');
1599                 if (ptr) {
1600                         /* Check if there is a single CR or LF _before_ the
1601                          * corerct CR+LF line terminator:  */
1602                         first_eol = ptr1 < ptr2 ? ptr1 : ptr2;
1603                         if (first_eol < ptr) {
1604                                 /* Single CR or LF before CR+LF found */
1605                                 ptr = first_eol;
1606                                 delta = 1;
1607                         }
1608                 } else if (ptr1 || ptr2) {
1609                         /* No CR+LF terminated command found, but single
1610                          * CR or LF found ... */
1611                         if (ptr1 && ptr2)
1612                                 ptr = ptr1 < ptr2 ? ptr1 : ptr2;
1613                         else
1614                                 ptr = ptr1 ? ptr1 : ptr2;
1615                         delta = 1;
1616                 }
1617 #endif
1618
1619                 if (!ptr)
1620                         break;
1621
1622                 /* Complete (=line terminated) request found, handle it! */
1623                 *ptr = '\0';
1624
1625                 len = ptr - (char *)array_start(&My_Connections[Idx].rbuf) + delta;
1626
1627                 if (len > (COMMAND_LEN - 1)) {
1628                         /* Request must not exceed 512 chars (incl. CR+LF!),
1629                          * see RFC 2812. Disconnect Client if this happens. */
1630                         Log(LOG_ERR,
1631                             "Request too long (connection %d): %d bytes (max. %d expected)!",
1632                             Idx, array_bytes(&My_Connections[Idx].rbuf),
1633                             COMMAND_LEN - 1);
1634                         Conn_Close(Idx, NULL, "Request too long", true);
1635                         return 0;
1636                 }
1637
1638                 len_processed += (unsigned int)len;
1639                 if (len <= delta) {
1640                         /* Request is empty (only '\r\n', '\r' or '\n');
1641                          * delta is 2 ('\r\n') or 1 ('\r' or '\n'), see above */
1642                         array_moveleft(&My_Connections[Idx].rbuf, 1, len);
1643                         continue;
1644                 }
1645 #ifdef ZLIB
1646                 /* remember if stream is already compressed */
1647                 old_z = My_Connections[Idx].options & CONN_ZIP;
1648 #endif
1649
1650                 My_Connections[Idx].msg_in++;
1651                 if (!Parse_Request
1652                     (Idx, (char *)array_start(&My_Connections[Idx].rbuf)))
1653                         return 0; /* error -> connection has been closed */
1654
1655                 array_moveleft(&My_Connections[Idx].rbuf, 1, len);
1656                 LogDebug("Connection %d: %d bytes left in read buffer.",
1657                          Idx, array_bytes(&My_Connections[Idx].rbuf));
1658 #ifdef ZLIB
1659                 if ((!old_z) && (My_Connections[Idx].options & CONN_ZIP) &&
1660                     (array_bytes(&My_Connections[Idx].rbuf) > 0)) {
1661                         /* The last command activated socket compression.
1662                          * Data that was read after that needs to be copied
1663                          * to the unzip buffer for decompression: */
1664                         if (!array_copy
1665                             (&My_Connections[Idx].zip.rbuf,
1666                              &My_Connections[Idx].rbuf)) {
1667                                 Conn_Close(Idx, NULL,
1668                                            "Can't allocate memory [Handle_Buffer]",
1669                                            true);
1670                                 return 0;
1671                         }
1672
1673                         array_trunc(&My_Connections[Idx].rbuf);
1674                         LogDebug
1675                             ("Moved already received data (%u bytes) to uncompression buffer.",
1676                              array_bytes(&My_Connections[Idx].zip.rbuf));
1677                 }
1678 #endif
1679         }
1680         return len_processed;
1681 } /* Handle_Buffer */
1682
1683
1684 /**
1685  * Check whether established connections are still alive or not.
1686  * If not, play PING-PONG first; and if that doesn't help either,
1687  * disconnect the respective peer.
1688  */
1689 static void
1690 Check_Connections(void)
1691 {
1692         CLIENT *c;
1693         CONN_ID i;
1694         char msg[64];
1695
1696         for (i = 0; i < Pool_Size; i++) {
1697                 if (My_Connections[i].sock < 0)
1698                         continue;
1699
1700                 c = Conn_GetClient(i);
1701                 if (c && ((Client_Type(c) == CLIENT_USER)
1702                           || (Client_Type(c) == CLIENT_SERVER)
1703                           || (Client_Type(c) == CLIENT_SERVICE))) {
1704                         /* connected User, Server or Service */
1705                         if (My_Connections[i].lastping >
1706                             My_Connections[i].lastdata) {
1707                                 /* We already sent a ping */
1708                                 if (My_Connections[i].lastping <
1709                                     time(NULL) - Conf_PongTimeout) {
1710                                         /* Timeout */
1711                                         LogDebug
1712                                             ("Connection %d: Ping timeout: %d seconds.",
1713                                              i, Conf_PongTimeout);
1714                                         snprintf(msg, sizeof(msg), "Ping timeout: %d seconds", Conf_PongTimeout);
1715                                         Conn_Close(i, NULL, msg, true);
1716                                 }
1717                         } else if (My_Connections[i].lastdata <
1718                                    time(NULL) - Conf_PingTimeout) {
1719                                 /* We need to send a PING ... */
1720                                 LogDebug("Connection %d: sending PING ...", i);
1721                                 My_Connections[i].lastping = time(NULL);
1722                                 Conn_WriteStr(i, "PING :%s",
1723                                               Client_ID(Client_ThisServer()));
1724                         }
1725                 } else {
1726                         /* The connection is not fully established yet, so
1727                          * we don't do the PING-PONG game here but instead
1728                          * disconnect the client after "a short time" if it's
1729                          * still not registered. */
1730
1731                         if (My_Connections[i].lastdata <
1732                             time(NULL) - Conf_PongTimeout) {
1733                                 LogDebug
1734                                     ("Unregistered connection %d timed out ...",
1735                                      i);
1736                                 Conn_Close(i, NULL, "Timeout", false);
1737                         }
1738                 }
1739         }
1740 } /* Check_Connections */
1741
1742
1743 /**
1744  * Check if further server links should be established.
1745  */
1746 static void
1747 Check_Servers(void)
1748 {
1749         int i, n;
1750         time_t time_now;
1751
1752         time_now = time(NULL);
1753
1754         /* Check all configured servers */
1755         for (i = 0; i < MAX_SERVERS; i++) {
1756                 if (Conf_Server[i].conn_id != NONE)
1757                         continue;       /* Already establishing or connected */
1758                 if (!Conf_Server[i].host[0] || !Conf_Server[i].port > 0)
1759                         continue;       /* No host and/or port configured */
1760                 if (Conf_Server[i].flags & CONF_SFLAG_DISABLED)
1761                         continue;       /* Disabled configuration entry */
1762                 if (Conf_Server[i].lasttry > (time_now - Conf_ConnectRetry))
1763                         continue;       /* We have to wait a little bit ... */
1764
1765                 /* Is there already a connection in this group? */
1766                 if (Conf_Server[i].group > NONE) {
1767                         for (n = 0; n < MAX_SERVERS; n++) {
1768                                 if (n == i)
1769                                         continue;
1770                                 if ((Conf_Server[n].conn_id != NONE) &&
1771                                     (Conf_Server[n].group == Conf_Server[i].group))
1772                                         break;
1773                         }
1774                         if (n < MAX_SERVERS)
1775                                 continue;
1776                 }
1777
1778                 /* Okay, try to connect now */
1779                 Conf_Server[i].lasttry = time_now;
1780                 Conf_Server[i].conn_id = SERVER_WAIT;
1781                 assert(Proc_GetPipeFd(&Conf_Server[i].res_stat) < 0);
1782                 Resolve_Name(&Conf_Server[i].res_stat, Conf_Server[i].host,
1783                              cb_Connect_to_Server);
1784         }
1785 } /* Check_Servers */
1786
1787
1788 static void
1789 New_Server( int Server , ng_ipaddr_t *dest)
1790 {
1791         /* Establish new server link */
1792         char ip_str[NG_INET_ADDRSTRLEN];
1793         int af_dest, res, new_sock;
1794         CLIENT *c;
1795
1796         assert( Server > NONE );
1797
1798         if (!ng_ipaddr_tostr_r(dest, ip_str)) {
1799                 Log(LOG_WARNING, "New_Server: Could not convert IP to string");
1800                 return;
1801         }
1802
1803         Log( LOG_INFO, "Establishing connection to \"%s\", %s, port %d ... ",
1804                         Conf_Server[Server].host, ip_str, Conf_Server[Server].port );
1805
1806         af_dest = ng_ipaddr_af(dest);
1807         new_sock = socket(af_dest, SOCK_STREAM, 0);
1808         if (new_sock < 0) {
1809                 Log( LOG_CRIT, "Can't create socket (af %d) : %s!", af_dest, strerror( errno ));
1810                 return;
1811         }
1812
1813         if (!Init_Socket(new_sock))
1814                 return;
1815
1816         /* is a bind address configured? */
1817         res = ng_ipaddr_af(&Conf_Server[Server].bind_addr);
1818         /* if yes, bind now. If it fails, warn and let connect() pick a source address */
1819         if (res && bind(new_sock, (struct sockaddr *) &Conf_Server[Server].bind_addr,
1820                                 ng_ipaddr_salen(&Conf_Server[Server].bind_addr)))
1821         {
1822                 ng_ipaddr_tostr_r(&Conf_Server[Server].bind_addr, ip_str);
1823                 Log(LOG_WARNING, "Can't bind socket to %s: %s!", ip_str, strerror(errno));
1824         }
1825         ng_ipaddr_setport(dest, Conf_Server[Server].port);
1826         res = connect(new_sock, (struct sockaddr *) dest, ng_ipaddr_salen(dest));
1827         if(( res != 0 ) && ( errno != EINPROGRESS )) {
1828                 Log( LOG_CRIT, "Can't connect socket: %s!", strerror( errno ));
1829                 close( new_sock );
1830                 return;
1831         }
1832
1833         if (!array_alloc(&My_ConnArray, sizeof(CONNECTION), (size_t)new_sock)) {
1834                 Log(LOG_ALERT,
1835                     "Cannot allocate memory for server connection (socket %d)",
1836                     new_sock);
1837                 close( new_sock );
1838                 return;
1839         }
1840
1841         My_Connections = array_start(&My_ConnArray);
1842
1843         assert(My_Connections[new_sock].sock <= 0);
1844
1845         Init_Conn_Struct(new_sock);
1846
1847         ng_ipaddr_tostr_r(dest, ip_str);
1848         c = Client_NewLocal(new_sock, ip_str, CLIENT_UNKNOWNSERVER, false);
1849         if (!c) {
1850                 Log( LOG_ALERT, "Can't establish connection: can't create client structure!" );
1851                 close( new_sock );
1852                 return;
1853         }
1854
1855         /* Conn_Close() decrements this counter again */
1856         Account_Connection();
1857         Client_SetIntroducer( c, c );
1858         Client_SetToken( c, TOKEN_OUTBOUND );
1859
1860         /* Register connection */
1861         Conf_Server[Server].conn_id = new_sock;
1862         My_Connections[new_sock].sock = new_sock;
1863         My_Connections[new_sock].addr = *dest;
1864         My_Connections[new_sock].client = c;
1865         strlcpy( My_Connections[new_sock].host, Conf_Server[Server].host,
1866                                 sizeof(My_Connections[new_sock].host ));
1867
1868         /* Register new socket */
1869         if (!io_event_create( new_sock, IO_WANTWRITE, cb_connserver)) {
1870                 Log( LOG_ALERT, "io_event_create(): could not add fd %d", strerror(errno));
1871                 Conn_Close( new_sock, "io_event_create() failed", NULL, false );
1872                 Init_Conn_Struct( new_sock );
1873                 Conf_Server[Server].conn_id = NONE;
1874         }
1875 #ifdef SSL_SUPPORT
1876         if (Conf_Server[Server].SSLConnect && !ConnSSL_PrepareConnect( &My_Connections[new_sock],
1877                                                                 &Conf_Server[Server] ))
1878         {
1879                 Log(LOG_ALERT, "Could not initialize SSL for outgoing connection");
1880                 Conn_Close( new_sock, "Could not initialize SSL for outgoing connection", NULL, false );
1881                 Init_Conn_Struct( new_sock );
1882                 Conf_Server[Server].conn_id = NONE;
1883                 return;
1884         }
1885 #endif
1886         LogDebug("Registered new connection %d on socket %d (%ld in total).",
1887                  new_sock, My_Connections[new_sock].sock, NumConnections);
1888         Conn_OPTION_ADD( &My_Connections[new_sock], CONN_ISCONNECTING );
1889 } /* New_Server */
1890
1891
1892 /**
1893  * Initialize connection structure.
1894  */
1895 static void
1896 Init_Conn_Struct(CONN_ID Idx)
1897 {
1898         time_t now = time(NULL);
1899
1900         memset(&My_Connections[Idx], 0, sizeof(CONNECTION));
1901         My_Connections[Idx].sock = -1;
1902         My_Connections[Idx].signon = now;
1903         My_Connections[Idx].lastdata = now;
1904         My_Connections[Idx].lastprivmsg = now;
1905         Proc_InitStruct(&My_Connections[Idx].proc_stat);
1906 } /* Init_Conn_Struct */
1907
1908
1909 static bool
1910 Init_Socket( int Sock )
1911 {
1912         /* Initialize socket (set options) */
1913
1914         int value;
1915
1916         if (!io_setnonblock(Sock)) {
1917                 Log( LOG_CRIT, "Can't enable non-blocking mode for socket: %s!", strerror( errno ));
1918                 close( Sock );
1919                 return false;
1920         }
1921
1922         /* Don't block this port after socket shutdown */
1923         value = 1;
1924         if( setsockopt( Sock, SOL_SOCKET, SO_REUSEADDR, &value, (socklen_t)sizeof( value )) != 0 )
1925         {
1926                 Log( LOG_ERR, "Can't set socket option SO_REUSEADDR: %s!", strerror( errno ));
1927                 /* ignore this error */
1928         }
1929
1930         /* Set type of service (TOS) */
1931 #if defined(IPPROTO_IP) && defined(IPTOS_LOWDELAY)
1932         value = IPTOS_LOWDELAY;
1933         LogDebug("Setting IP_TOS on socket %d to IPTOS_LOWDELAY.", Sock);
1934         if (setsockopt(Sock, IPPROTO_IP, IP_TOS, &value,
1935                        (socklen_t) sizeof(value))) {
1936                 Log(LOG_ERR, "Can't set socket option IP_TOS: %s!",
1937                     strerror(errno));
1938                 /* ignore this error */
1939         }
1940 #endif
1941
1942         return true;
1943 } /* Init_Socket */
1944
1945
1946 static void
1947 cb_Connect_to_Server(int fd, UNUSED short events)
1948 {
1949         /* Read result of resolver sub-process from pipe and start connection */
1950         int i;
1951         size_t len;
1952         ng_ipaddr_t dest_addrs[4];      /* we can handle at most 3; but we read up to
1953                                            four so we can log the 'more than we can handle'
1954                                            condition. First result is tried immediately, rest
1955                                            is saved for later if needed. */
1956
1957         LogDebug("Resolver: Got forward lookup callback on fd %d, events %d", fd, events);
1958
1959         for (i=0; i < MAX_SERVERS; i++) {
1960                   if (Proc_GetPipeFd(&Conf_Server[i].res_stat) == fd )
1961                           break;
1962         }
1963
1964         if( i >= MAX_SERVERS) {
1965                 /* Ops, no matching server found?! */
1966                 io_close( fd );
1967                 LogDebug("Resolver: Got Forward Lookup callback for unknown server!?");
1968                 return;
1969         }
1970
1971         /* Read result from pipe */
1972         len = Proc_Read(&Conf_Server[i].res_stat, dest_addrs, sizeof(dest_addrs));
1973         if (len == 0)
1974                 return;
1975
1976         assert((len % sizeof(ng_ipaddr_t)) == 0);
1977
1978         LogDebug("Got result from resolver: %u structs (%u bytes).", len/sizeof(ng_ipaddr_t), len);
1979
1980         memset(&Conf_Server[i].dst_addr, 0, sizeof(Conf_Server[i].dst_addr));
1981         if (len > sizeof(ng_ipaddr_t)) {
1982                 /* more than one address for this hostname, remember them
1983                  * in case first address is unreachable/not available */
1984                 len -= sizeof(ng_ipaddr_t);
1985                 if (len > sizeof(Conf_Server[i].dst_addr)) {
1986                         len = sizeof(Conf_Server[i].dst_addr);
1987                         Log(LOG_NOTICE,
1988                                 "Notice: Resolver returned more IP Addresses for host than we can handle, additional addresses dropped.");
1989                 }
1990                 memcpy(&Conf_Server[i].dst_addr, &dest_addrs[1], len);
1991         }
1992         /* connect() */
1993         New_Server(i, dest_addrs);
1994 } /* cb_Read_Forward_Lookup */
1995
1996
1997 static void
1998 cb_Read_Resolver_Result( int r_fd, UNUSED short events )
1999 {
2000         /* Read result of resolver sub-process from pipe and update the
2001          * apropriate connection/client structure(s): hostname and/or
2002          * IDENT user name.*/
2003
2004         CLIENT *c;
2005         CONN_ID i;
2006         size_t len;
2007         char *identptr;
2008 #ifdef IDENTAUTH
2009         char readbuf[HOST_LEN + 2 + CLIENT_USER_LEN];
2010 #else
2011         char readbuf[HOST_LEN + 1];
2012 #endif
2013
2014         LogDebug("Resolver: Got callback on fd %d, events %d", r_fd, events );
2015         i = Conn_GetFromProc(r_fd);
2016         if (i == NONE) {
2017                 /* Ops, none found? Probably the connection has already
2018                  * been closed!? We'll ignore that ... */
2019                 io_close( r_fd );
2020                 LogDebug("Resolver: Got callback for unknown connection!?");
2021                 return;
2022         }
2023
2024         /* Read result from pipe */
2025         len = Proc_Read(&My_Connections[i].proc_stat, readbuf, sizeof readbuf -1);
2026         if (len == 0)
2027                 return;
2028
2029         readbuf[len] = '\0';
2030         identptr = strchr(readbuf, '\n');
2031         assert(identptr != NULL);
2032         if (!identptr) {
2033                 Log( LOG_CRIT, "Resolver: Got malformed result!");
2034                 return;
2035         }
2036
2037         *identptr = '\0';
2038         LogDebug("Got result from resolver: \"%s\" (%u bytes read).", readbuf, len);
2039         /* Okay, we got a complete result: this is a host name for outgoing
2040          * connections and a host name and IDENT user name (if enabled) for
2041          * incoming connections.*/
2042         assert ( My_Connections[i].sock >= 0 );
2043         /* Incoming connection. Search client ... */
2044         c = Conn_GetClient( i );
2045         assert( c != NULL );
2046
2047         /* Only update client information of unregistered clients.
2048          * Note: user commands (e. g. WEBIRC) are always read _after_ reading
2049          * the resolver results, so we don't have to worry to override settings
2050          * from these commands here. */
2051         if(Client_Type(c) == CLIENT_UNKNOWN) {
2052                 strlcpy(My_Connections[i].host, readbuf,
2053                         sizeof(My_Connections[i].host));
2054                 Client_SetHostname(c, readbuf);
2055 #ifdef IDENTAUTH
2056                 ++identptr;
2057                 if (*identptr) {
2058                         Log(LOG_INFO, "IDENT lookup for connection %d: \"%s\".", i, identptr);
2059                         Client_SetUser(c, identptr, true);
2060                 } else {
2061                         Log(LOG_INFO, "IDENT lookup for connection %d: no result.", i);
2062                 }
2063 #endif
2064         }
2065 #ifdef DEBUG
2066                 else Log( LOG_DEBUG, "Resolver: discarding result for already registered connection %d.", i );
2067 #endif
2068 } /* cb_Read_Resolver_Result */
2069
2070
2071 /**
2072  * Write a "simple" (error) message to a socket.
2073  * The message is sent without using the connection write buffers, without
2074  * compression/encryption, and even without any error reporting. It is
2075  * designed for error messages of e.g. New_Connection(). */
2076 static void
2077 Simple_Message(int Sock, const char *Msg)
2078 {
2079         char buf[COMMAND_LEN];
2080         size_t len;
2081
2082         assert(Sock > NONE);
2083         assert(Msg != NULL);
2084
2085         strlcpy(buf, Msg, sizeof buf - 2);
2086         len = strlcat(buf, "\r\n", sizeof buf);
2087         if (write(Sock, buf, len) < 0) {
2088                 /* Because this function most probably got called to log
2089                  * an error message, any write error is ignored here to
2090                  * avoid an endless loop. But casting the result of write()
2091                  * to "void" doesn't satisfy the GNU C code attribute
2092                  * "warn_unused_result" which is used by some versions of
2093                  * glibc (e.g. 2.11.1), therefore this silly error
2094                  * "handling" code here :-( */
2095                 return;
2096         }
2097 } /* Simple_Error */
2098
2099
2100 /**
2101  * Get CLIENT structure that belongs to a local connection identified by its
2102  * index number. Each connection belongs to a client by definition, so it is
2103  * not required that the caller checks for NULL return values.
2104  * @param Idx Connection index number
2105  * @return Pointer to CLIENT structure
2106  */
2107 GLOBAL CLIENT *
2108 Conn_GetClient( CONN_ID Idx )
2109 {
2110         CONNECTION *c;
2111
2112         assert(Idx >= 0);
2113         c = array_get(&My_ConnArray, sizeof (CONNECTION), (size_t)Idx);
2114         assert(c != NULL);
2115         return c ? c->client : NULL;
2116 }
2117
2118 /**
2119  * Get PROC_STAT sub-process structure of a connection.
2120  * @param Idx Connection index number
2121  * @return PROC_STAT structure
2122  */
2123 GLOBAL PROC_STAT *
2124 Conn_GetProcStat(CONN_ID Idx)
2125 {
2126         CONNECTION *c;
2127
2128         assert(Idx >= 0);
2129         c = array_get(&My_ConnArray, sizeof (CONNECTION), (size_t)Idx);
2130         assert(c != NULL);
2131         return &c->proc_stat;
2132 } /* Conn_GetProcStat */
2133
2134
2135 /**
2136  * Get CONN_ID from file descriptor associated to a subprocess structure.
2137  * @param fd File descriptor
2138  * @return CONN_ID or NONE (-1)
2139  */
2140 GLOBAL CONN_ID
2141 Conn_GetFromProc(int fd)
2142 {
2143         int i;
2144
2145         assert(fd > 0);
2146         for (i = 0; i < Pool_Size; i++) {
2147                 if ((My_Connections[i].sock != NONE)
2148                     && (Proc_GetPipeFd(&My_Connections[i].proc_stat) == fd))
2149                         return i;
2150         }
2151         return NONE;
2152 } /* Conn_GetFromProc */
2153
2154
2155 #ifdef SSL_SUPPORT
2156
2157 /**
2158  * Get information about used SSL chiper.
2159  * @param Idx Connection index number
2160  * @param buf Buffer for returned information text
2161  * @param len Size of return buffer "buf"
2162  * @return true on success, false otherwise
2163  */
2164 GLOBAL bool
2165 Conn_GetCipherInfo(CONN_ID Idx, char *buf, size_t len)
2166 {
2167         if (Idx < 0)
2168                 return false;
2169         assert(Idx < (int) array_length(&My_ConnArray, sizeof(CONNECTION)));
2170         return ConnSSL_GetCipherInfo(&My_Connections[Idx], buf, len);
2171 }
2172
2173
2174 /**
2175  * Check if a connection is SSL-enabled or not.
2176  * @param Idx Connection index number
2177  * @return true if connection is SSL-enabled, false otherwise.
2178  */
2179 GLOBAL bool
2180 Conn_UsesSSL(CONN_ID Idx)
2181 {
2182         if (Idx < 0)
2183                 return false;
2184         assert(Idx < (int) array_length(&My_ConnArray, sizeof(CONNECTION)));
2185         return Conn_OPTION_ISSET(&My_Connections[Idx], CONN_SSL);
2186 }
2187
2188 #endif
2189
2190
2191 /* -eof- */