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         if (!io_library_init(CONNECTION_POOL)) {
 481                 Log(LOG_EMERG, "Cannot initialize IO routines: %s", strerror(errno));
 482                 return -1;
 483         }
 484
 485         assert(Conf_ListenAddress);
 486
 487         /* can't use Conf_ListenAddress directly, see below */
 488         copy = strdup(Conf_ListenAddress);
 489         if (!copy) {
 490                 Log(LOG_CRIT, "Cannot copy %s: %s", Conf_ListenAddress, strerror(errno));
 491                 return 0;
 492         }
 493         listen_addr = strtok(copy, ",");
 494
 495         while (listen_addr) {
 496                 ngt_TrimStr(listen_addr);
 497                 if (*listen_addr) {
 498                         created += ports_initlisteners(&Conf_ListenPorts, listen_addr, cb_listen);
 499 #ifdef SSL_SUPPORT
 500                         created += ports_initlisteners(&Conf_SSLOptions.ListenPorts, listen_addr, cb_listen_ssl);
 501 #endif
 502                 }
 503
 504                 listen_addr = strtok(NULL, ",");
 505         }
 506
 507         /* Can't free() Conf_ListenAddress here: on REHASH, if the config file
 508          * cannot be re-loaded, we'd end up with a NULL Conf_ListenAddress.
 509          * Instead, free() takes place in conf.c, before the config file
 510          * is being parsed. */
 511         free(copy);
 512
 513         return created;
 514 } /* Conn_InitListeners */
 515
 516
 517 GLOBAL void
 518 Conn_ExitListeners( void )
 519 {
 520         /* Close down all listening sockets */
 521         int *fd;
 522         size_t arraylen;
 523 #ifdef ZEROCONF
 524         Rendezvous_UnregisterListeners( );
 525 #endif
 526
 527         arraylen = array_length(&My_Listeners, sizeof (int));
 528         Log(LOG_INFO,
 529             "Shutting down all listening sockets (%d total) ...", arraylen);
 530         fd = array_start(&My_Listeners);
 531         while(arraylen--) {
 532                 assert(fd != NULL);
 533                 assert(*fd >= 0);
 534                 io_close(*fd);
 535                 LogDebug("Listening socket %d closed.", *fd );
 536                 fd++;
 537         }
 538         array_free(&My_Listeners);
 539 } /* Conn_ExitListeners */
 540
 541
 542 static bool
 543 InitSinaddrListenAddr(ng_ipaddr_t *addr, const char *listen_addrstr, UINT16 Port)
 544 {
 545         bool ret;
 546
 547         ret = ng_ipaddr_init(addr, listen_addrstr, Port);
 548         if (!ret) {
 549                 assert(listen_addrstr);
 550                 Log(LOG_CRIT, "Can't bind to [%s]:%u: can't convert ip address \"%s\"",
 551                                                 listen_addrstr, Port, listen_addrstr);
 552         }
 553         return ret;
 554 }
 555
 556
 557 static void
 558 set_v6_only(int af, int sock)
 559 {
 560 #if defined(IPV6_V6ONLY) && defined(WANT_IPV6)
 561         int on = 1;
 562
 563         if (af != AF_INET6)
 564                 return;
 565
 566         if (setsockopt(sock, IPPROTO_IPV6, IPV6_V6ONLY, &on, (socklen_t)sizeof(on)))
 567                 Log(LOG_ERR, "Could not set IPV6_V6ONLY: %s", strerror(errno));
 568 #else
 569         (void)af;
 570         (void)sock;
 571 #endif
 572 }
 573
 574
 575 /* return new listening port file descriptor or -1 on failure */
 576 static int
 577 NewListener(const char *listen_addr, UINT16 Port)
 578 {
 579         /* Create new listening socket on specified port */
 580         ng_ipaddr_t addr;
 581         int sock, af;
 582 #ifdef ZEROCONF
 583         char name[CLIENT_ID_LEN], *info;
 584 #endif
 585         if (!InitSinaddrListenAddr(&addr, listen_addr, Port))
 586                 return -1;
 587
 588         af = ng_ipaddr_af(&addr);
 589         sock = socket(af, SOCK_STREAM, 0);
 590         if( sock < 0 ) {
 591                 Log(LOG_CRIT, "Can't create socket (af %d) : %s!", af, strerror(errno));
 592                 return -1;
 593         }
 594
 595         set_v6_only(af, sock);
 596
 597         if (!Init_Socket(sock))
 598                 return -1;
 599
 600         if (bind(sock, (struct sockaddr *)&addr, ng_ipaddr_salen(&addr)) != 0) {
 601                 Log(LOG_CRIT, "Can't bind socket to address %s:%d - %s",
 602                         ng_ipaddr_tostr(&addr), Port, strerror(errno));
 603                 close(sock);
 604                 return -1;
 605         }
 606
 607         if( listen( sock, 10 ) != 0 ) {
 608                 Log( LOG_CRIT, "Can't listen on socket: %s!", strerror( errno ));
 609                 close( sock );
 610                 return -1;
 611         }
 612
 613         /* keep fd in list so we can close it when ngircd restarts/shuts down */
 614         if (!array_catb( &My_Listeners,(char*) &sock, sizeof(int) )) {
 615                 Log( LOG_CRIT, "Can't add socket to My_Listeners array: %s!", strerror( errno ));
 616                 close( sock );
 617                 return -1;
 618         }
 619
 620         Log(LOG_INFO, "Now listening on [%s]:%d (socket %d).", ng_ipaddr_tostr(&addr), Port, sock);
 621
 622 #ifdef ZEROCONF
 623         /* Get best server description text */
 624         if( ! Conf_ServerInfo[0] ) info = Conf_ServerName;
 625         else
 626         {
 627                 /* Use server info string */
 628                 info = NULL;
 629                 if( Conf_ServerInfo[0] == '[' )
 630                 {
 631                         /* Cut off leading hostname part in "[]" */
 632                         info = strchr( Conf_ServerInfo, ']' );
 633                         if( info )
 634                         {
 635                                 info++;
 636                                 while( *info == ' ' ) info++;
 637                         }
 638                 }
 639                 if( ! info ) info = Conf_ServerInfo;
 640         }
 641
 642         /* Add port number to description if non-standard */
 643         if (Port != 6667)
 644                 snprintf(name, sizeof name, "%s (port %u)", info,
 645                          (unsigned int)Port);
 646         else
 647                 strlcpy(name, info, sizeof name);
 648
 649         /* Register service */
 650         Rendezvous_Register( name, MDNS_TYPE, Port );
 651 #endif
 652         return sock;
 653 } /* NewListener */
 654
 655
 656 #ifdef SSL_SUPPORT
 657 /*
 658  * SSL/TLS connections require extra treatment:
 659  * When either CONN_SSL_WANT_WRITE or CONN_SSL_WANT_READ is set, we
 660  * need to take care of that first, before checking read/write buffers.
 661  * For instance, while we might have data in our write buffer, the
 662  * TLS/SSL protocol might need to read internal data first for TLS/SSL
 663  * writes to succeed.
 664  *
 665  * If this function returns true, such a condition is met and we have
 666  * to reverse the condition (check for read even if we've data to write,
 667  * do not check for read but writeability even if write-buffer is empty).
 668  */
 669 static bool
 670 SSL_WantRead(const CONNECTION *c)
 671 {
 672         if (Conn_OPTION_ISSET(c, CONN_SSL_WANT_READ)) {
 673                 io_event_add(c->sock, IO_WANTREAD);
 674                 return true;
 675         }
 676         return false;
 677 }
 678 static bool
 679 SSL_WantWrite(const CONNECTION *c)
 680 {
 681         if (Conn_OPTION_ISSET(c, CONN_SSL_WANT_WRITE)) {
 682                 io_event_add(c->sock, IO_WANTWRITE);
 683                 return true;
 684         }
 685         return false;
 686 }
 687 #else
 688 static inline bool
 689 SSL_WantRead(UNUSED const CONNECTION *c) { return false; }
 690 static inline bool
 691 SSL_WantWrite(UNUSED const CONNECTION *c) { return false; }
 692 #endif
 693
 694
 695 /**
 696  * "Main Loop": Loop until shutdown or restart is signalled.
 697  * This function loops until a shutdown or restart of ngIRCd is signalled and
 698  * calls io_dispatch() to check for readable and writable sockets every second.
 699  * It checks for status changes on pending connections (e. g. when a hostname
 700  * has been resolved), checks for "penalties" and timeouts, and handles the
 701  * input buffers.
 702  */
 703 GLOBAL void
 704 Conn_Handler(void)
 705 {
 706         int i;
 707         unsigned int wdatalen, bytes_processed;
 708         struct timeval tv;
 709         time_t t;
 710
 711         while (!NGIRCd_SignalQuit && !NGIRCd_SignalRestart) {
 712                 t = time(NULL);
 713
 714 #ifdef ZEROCONF
 715                 Rendezvous_Handler();
 716 #endif
 717
 718                 /* Should the configuration be reloaded? */
 719                 if (NGIRCd_SignalRehash)
 720                         NGIRCd_Rehash();
 721
 722                 /* Check configured servers and established links */
 723                 Check_Servers();
 724                 Check_Connections();
 725
 726                 /* Look for non-empty read buffers ... */
 727                 for (i = 0; i < Pool_Size; i++) {
 728                         if ((My_Connections[i].sock > NONE)
 729                             && (array_bytes(&My_Connections[i].rbuf) > 0)
 730                             && (My_Connections[i].delaytime <= t)) {
 731                                 /* ... and try to handle the received data */
 732                                 bytes_processed = Handle_Buffer(i);
 733                                 /* if we processed data, and there might be
 734                                  * more commands in the input buffer, do not
 735                                  * try to read any more data now */
 736                                 if (bytes_processed &&
 737                                     array_bytes(&My_Connections[i].rbuf) > 2) {
 738                                         LogDebug
 739                                             ("Throttling connection %d: command limit reached!",
 740                                              i);
 741                                         Conn_SetPenalty(i, 1);
 742                                 }
 743                         }
 744                 }
 745
 746                 /* Look for non-empty write buffers ... */
 747                 for (i = 0; i < Pool_Size; i++) {
 748                         if (My_Connections[i].sock <= NONE)
 749                                 continue;
 750
 751                         wdatalen = (unsigned int)array_bytes(&My_Connections[i].wbuf);
 752 #ifdef ZLIB
 753                         if (wdatalen > 0 ||
 754                             array_bytes(&My_Connections[i].zip.wbuf) > 0)
 755 #else
 756                         if (wdatalen > 0)
 757 #endif
 758                         {
 759                                 if (SSL_WantRead(&My_Connections[i]))
 760                                         continue;
 761                                 io_event_add(My_Connections[i].sock,
 762                                              IO_WANTWRITE);
 763                         }
 764                 }
 765
 766                 /* Check from which sockets we possibly could read ... */
 767                 for (i = 0; i < Pool_Size; i++) {
 768                         if (My_Connections[i].sock <= NONE)
 769                                 continue;
 770 #ifdef SSL_SUPPORT
 771                         if (SSL_WantWrite(&My_Connections[i]))
 772                                 continue; /* TLS/SSL layer needs to write data; deal with this first */
 773 #endif
 774                         if (Proc_InProgress(&My_Connections[i].proc_stat)) {
 775                                 /* Wait for completion of forked subprocess
 776                                  * and ignore the socket in the meantime ... */
 777                                 io_event_del(My_Connections[i].sock,
 778                                              IO_WANTREAD);
 779                                 continue;
 780                         }
 781
 782                         if (Conn_OPTION_ISSET(&My_Connections[i], CONN_ISCONNECTING))
 783                                 /* Wait for completion of connect() ... */
 784                                 continue;
 785
 786                         if (My_Connections[i].delaytime > t) {
 787                                 /* There is a "penalty time" set: ignore socket! */
 788                                 io_event_del(My_Connections[i].sock,
 789                                              IO_WANTREAD);
 790                                 continue;
 791                         }
 792
 793                         io_event_add(My_Connections[i].sock, IO_WANTREAD);
 794                 }
 795
 796                 /* Set the timeout for reading from the network to 1 second,
 797                  * which is the granularity with witch we handle "penalty
 798                  * times" for example.
 799                  * Note: tv_sec/usec are undefined(!) after io_dispatch()
 800                  * returns, so we have to set it beforce each call to it! */
 801                 tv.tv_usec = 0;
 802                 tv.tv_sec = 1;
 803
 804                 /* Wait for activity ... */
 805                 i = io_dispatch(&tv);
 806                 if (i == -1 && errno != EINTR) {
 807                         Log(LOG_EMERG, "Conn_Handler(): io_dispatch(): %s!",
 808                             strerror(errno));
 809                         Log(LOG_ALERT, "%s exiting due to fatal errors!",
 810                             PACKAGE_NAME);
 811                         exit(1);
 812                 }
 813         }
 814
 815         if (NGIRCd_SignalQuit)
 816                 Log(LOG_NOTICE | LOG_snotice, "Server going down NOW!");
 817         else if (NGIRCd_SignalRestart)
 818                 Log(LOG_NOTICE | LOG_snotice, "Server restarting NOW!");
 819 } /* Conn_Handler */
 820
 821
 822 /**
 823  * Write a text string into the socket of a connection.
 824  * This function automatically appends CR+LF to the string and validates that
 825  * the result is a valid IRC message (oversized messages are shortened, for
 826  * example). Then it calls the Conn_Write() function to do the actual sending.
 827  * @param Idx Index fo the connection.
 828  * @param Format Format string, see printf().
 829  * @return true on success, false otherwise.
 830  */
 831 #ifdef PROTOTYPES
 832 GLOBAL bool
 833 Conn_WriteStr(CONN_ID Idx, const char *Format, ...)
 834 #else
 835 GLOBAL bool
 836 Conn_WriteStr(Idx, Format, va_alist)
 837 CONN_ID Idx;
 838 const char *Format;
 839 va_dcl
 840 #endif
 841 {
 842         char buffer[COMMAND_LEN];
 843         size_t len;
 844         bool ok;
 845         va_list ap;
 846
 847         assert( Idx > NONE );
 848         assert( Format != NULL );
 849
 850 #ifdef PROTOTYPES
 851         va_start( ap, Format );
 852 #else
 853         va_start( ap );
 854 #endif
 855         if (vsnprintf( buffer, COMMAND_LEN - 2, Format, ap ) >= COMMAND_LEN - 2 ) {
 856                 /*
 857                  * The string that should be written to the socket is longer
 858                  * than the allowed size of COMMAND_LEN bytes (including both
 859                  * the CR and LF characters). This can be caused by the
 860                  * IRC_WriteXXX() functions when the prefix of this server had
 861                  * to be added to an already "quite long" command line which
 862                  * has been received from a regular IRC client, for example.
 863                  *
 864                  * We are not allowed to send such "oversized" messages to
 865                  * other servers and clients, see RFC 2812 2.3 and 2813 3.3
 866                  * ("these messages SHALL NOT exceed 512 characters in length,
 867                  * counting all characters including the trailing CR-LF").
 868                  *
 869                  * So we have a big problem here: we should send more bytes
 870                  * to the network than we are allowed to and we don't know
 871                  * the originator (any more). The "old" behaviour of blaming
 872                  * the receiver ("next hop") is a bad idea (it could be just
 873                  * an other server only routing the message!), so the only
 874                  * option left is to shorten the string and to hope that the
 875                  * result is still somewhat useful ...
 876                  *                                                   -alex-
 877                  */
 878
 879                 strcpy (buffer + sizeof(buffer) - strlen(CUT_TXTSUFFIX) - 2 - 1,
 880                         CUT_TXTSUFFIX);
 881         }
 882
 883 #ifdef SNIFFER
 884         if (NGIRCd_Sniffer)
 885                 Log(LOG_DEBUG, " -> connection %d: '%s'.", Idx, buffer);
 886 #endif
 887
 888         len = strlcat( buffer, "\r\n", sizeof( buffer ));
 889         ok = Conn_Write(Idx, buffer, len);
 890         My_Connections[Idx].msg_out++;
 891
 892         va_end( ap );
 893         return ok;
 894 } /* Conn_WriteStr */
 895
 896
 897 /**
 898  * Append Data to the outbound write buffer of a connection.
 899  * @param Idx Index of the connection.
 900  * @param Data pointer to the data.
 901  * @param Len length of Data.
 902  * @return true on success, false otherwise.
 903  */
 904 static bool
 905 Conn_Write( CONN_ID Idx, char *Data, size_t Len )
 906 {
 907         CLIENT *c;
 908         size_t writebuf_limit = WRITEBUFFER_LEN;
 909         assert( Idx > NONE );
 910         assert( Data != NULL );
 911         assert( Len > 0 );
 912
 913         c = Conn_GetClient(Idx);
 914         assert( c != NULL);
 915
 916         /* Servers do get special write buffer limits, so they can generate
 917          * all the messages that are required while peering. */
 918         if (Client_Type(c) == CLIENT_SERVER)
 919                 writebuf_limit = WRITEBUFFER_SLINK_LEN;
 920
 921         /* Is the socket still open? A previous call to Conn_Write()
 922          * may have closed the connection due to a fatal error.
 923          * In this case it is sufficient to return an error, as well. */
 924         if( My_Connections[Idx].sock <= NONE ) {
 925                 LogDebug("Skipped write on closed socket (connection %d).", Idx);
 926                 return false;
 927         }
 928
 929 #ifdef ZLIB
 930         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP )) {
 931                 /* Compressed link:
 932                  * Zip_Buffer() does all the dirty work for us: it flushes
 933                  * the (pre-)compression buffers if required and handles
 934                  * all error conditions. */
 935                 if (!Zip_Buffer(Idx, Data, Len))
 936                         return false;
 937         }
 938         else
 939 #endif
 940         {
 941                 /* Uncompressed link:
 942                  * Check if outbound buffer has enough space for the data. */
 943                 if (array_bytes(&My_Connections[Idx].wbuf) + Len >=
 944                     writebuf_limit) {
 945                         /* Buffer is full, flush it. Handle_Write deals with
 946                          * low-level errors, if any. */
 947                         if (!Handle_Write(Idx))
 948                                 return false;
 949                 }
 950
 951                 /* When the write buffer is still too big after flushing it,
 952                  * the connection will be killed. */
 953                 if (array_bytes(&My_Connections[Idx].wbuf) + Len >=
 954                     writebuf_limit) {
 955                         Log(LOG_NOTICE,
 956                             "Write buffer overflow (connection %d, size %lu byte)!",
 957                             Idx,
 958                             (unsigned long)array_bytes(&My_Connections[Idx].wbuf));
 959                         Conn_Close(Idx, "Write buffer overflow!", NULL, false);
 960                         return false;
 961                 }
 962
 963                 /* Copy data to write buffer */
 964                 if (!array_catb(&My_Connections[Idx].wbuf, Data, Len))
 965                         return false;
 966
 967                 My_Connections[Idx].bytes_out += Len;
 968         }
 969
 970         /* Adjust global write counter */
 971         WCounter += Len;
 972
 973         return true;
 974 } /* Conn_Write */
 975
 976
 977 GLOBAL void
 978 Conn_Close( CONN_ID Idx, const char *LogMsg, const char *FwdMsg, bool InformClient )
 979 {
 980         /* Close connection. Open pipes of asyncronous resolver
 981          * sub-processes are closed down. */
 982
 983         CLIENT *c;
 984         double in_k, out_k;
 985         UINT16 port;
 986 #ifdef ZLIB
 987         double in_z_k, out_z_k;
 988         int in_p, out_p;
 989 #endif
 990
 991         assert( Idx > NONE );
 992
 993         /* Is this link already shutting down? */
 994         if( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ISCLOSING )) {
 995                 /* Conn_Close() has been called recursively for this link;
 996                  * probabe reason: Handle_Write() failed  -- see below. */
 997                 LogDebug("Recursive request to close connection: %d", Idx );
 998                 return;
 999         }
1000
1001         assert( My_Connections[Idx].sock > NONE );
1002
1003         /* Mark link as "closing" */
1004         Conn_OPTION_ADD( &My_Connections[Idx], CONN_ISCLOSING );
1005
1006         port = ng_ipaddr_getport(&My_Connections[Idx].addr);
1007         Log(LOG_INFO, "Shutting down connection %d (%s) with %s:%d ...", Idx,
1008             LogMsg ? LogMsg : FwdMsg, My_Connections[Idx].host, port);
1009
1010         /* Search client, if any */
1011         c = Conn_GetClient( Idx );
1012
1013         /* Should the client be informed? */
1014         if (InformClient) {
1015 #ifndef STRICT_RFC
1016                 /* Send statistics to client if registered as user: */
1017                 if ((c != NULL) && (Client_Type(c) == CLIENT_USER)) {
1018                         Conn_WriteStr( Idx,
1019                          ":%s NOTICE %s :%sConnection statistics: client %.1f kb, server %.1f kb.",
1020                          Client_ID(Client_ThisServer()), Client_ID(c),
1021                          NOTICE_TXTPREFIX,
1022                          (double)My_Connections[Idx].bytes_in / 1024,
1023                          (double)My_Connections[Idx].bytes_out / 1024);
1024                 }
1025 #endif
1026                 /* Send ERROR to client (see RFC 2812, section 3.1.7) */
1027                 if (FwdMsg)
1028                         Conn_WriteStr(Idx, "ERROR :%s", FwdMsg);
1029                 else
1030                         Conn_WriteStr(Idx, "ERROR :Closing connection.");
1031         }
1032
1033         /* Try to write out the write buffer. Note: Handle_Write() eventually
1034          * removes the CLIENT structure associated with this connection if an
1035          * error occurs! So we have to re-check if there is still an valid
1036          * CLIENT structure after calling Handle_Write() ...*/
1037         (void)Handle_Write( Idx );
1038
1039         /* Search client, if any (re-check!) */
1040         c = Conn_GetClient( Idx );
1041 #ifdef SSL_SUPPORT
1042         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_SSL )) {
1043                 Log(LOG_INFO, "SSL connection %d shutting down ...", Idx);
1044                 ConnSSL_Free(&My_Connections[Idx]);
1045         }
1046 #endif
1047         /* Shut down socket */
1048         if (! io_close(My_Connections[Idx].sock)) {
1049                 /* Oops, we can't close the socket!? This is ... ugly! */
1050                 Log(LOG_CRIT,
1051                     "Error closing connection %d (socket %d) with %s:%d - %s! (ignored)",
1052                     Idx, My_Connections[Idx].sock, My_Connections[Idx].host,
1053                     port, strerror(errno));
1054         }
1055
1056         /* Mark socket as invalid: */
1057         My_Connections[Idx].sock = NONE;
1058
1059         /* If there is still a client, unregister it now */
1060         if (c)
1061                 Client_Destroy(c, LogMsg, FwdMsg, true);
1062
1063         /* Calculate statistics and log information */
1064         in_k = (double)My_Connections[Idx].bytes_in / 1024;
1065         out_k = (double)My_Connections[Idx].bytes_out / 1024;
1066 #ifdef ZLIB
1067         if (Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP)) {
1068                 in_z_k = (double)My_Connections[Idx].zip.bytes_in / 1024;
1069                 out_z_k = (double)My_Connections[Idx].zip.bytes_out / 1024;
1070                 /* Make sure that no division by zero can occur during
1071                  * the calculation of in_p and out_p: in_z_k and out_z_k
1072                  * are non-zero, that's guaranteed by the protocol until
1073                  * compression can be enabled. */
1074                 if (! in_z_k)
1075                         in_z_k = in_k;
1076                 if (! out_z_k)
1077                         out_z_k = out_k;
1078                 in_p = (int)(( in_k * 100 ) / in_z_k );
1079                 out_p = (int)(( out_k * 100 ) / out_z_k );
1080                 Log(LOG_INFO,
1081                     "Connection %d with %s:%d closed (in: %.1fk/%.1fk/%d%%, out: %.1fk/%.1fk/%d%%).",
1082                     Idx, My_Connections[Idx].host, port,
1083                     in_k, in_z_k, in_p, out_k, out_z_k, out_p);
1084         }
1085         else
1086 #endif
1087         {
1088                 Log(LOG_INFO,
1089                     "Connection %d with %s:%d closed (in: %.1fk, out: %.1fk).",
1090                     Idx, My_Connections[Idx].host, port,
1091                     in_k, out_k);
1092         }
1093
1094         /* Servers: Modify time of next connect attempt? */
1095         Conf_UnsetServer( Idx );
1096
1097 #ifdef ZLIB
1098         /* Clean up zlib, if link was compressed */
1099         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_ZIP )) {
1100                 inflateEnd( &My_Connections[Idx].zip.in );
1101                 deflateEnd( &My_Connections[Idx].zip.out );
1102                 array_free(&My_Connections[Idx].zip.rbuf);
1103                 array_free(&My_Connections[Idx].zip.wbuf);
1104         }
1105 #endif
1106
1107         array_free(&My_Connections[Idx].rbuf);
1108         array_free(&My_Connections[Idx].wbuf);
1109
1110         /* Clean up connection structure (=free it) */
1111         Init_Conn_Struct( Idx );
1112
1113         assert(NumConnections > 0);
1114         if (NumConnections)
1115                 NumConnections--;
1116         LogDebug("Shutdown of connection %d completed, %ld connection%s left.",
1117                  Idx, NumConnections, NumConnections != 1 ? "s" : "");
1118 } /* Conn_Close */
1119
1120
1121 GLOBAL long
1122 Conn_Count(void)
1123 {
1124         return NumConnections;
1125 } /* Conn_Count */
1126
1127
1128 GLOBAL long
1129 Conn_CountMax(void)
1130 {
1131         return NumConnectionsMax;
1132 } /* Conn_CountMax */
1133
1134
1135 GLOBAL long
1136 Conn_CountAccepted(void)
1137 {
1138         return NumConnectionsAccepted;
1139 } /* Conn_CountAccepted */
1140
1141
1142 GLOBAL void
1143 Conn_SyncServerStruct( void )
1144 {
1145         /* Synchronize server structures (connection IDs):
1146          * connections <-> configuration */
1147
1148         CLIENT *client;
1149         CONN_ID i;
1150         int c;
1151
1152         for( i = 0; i < Pool_Size; i++ ) {
1153                 /* Established connection? */
1154                 if (My_Connections[i].sock < 0)
1155                         continue;
1156
1157                 /* Server connection? */
1158                 client = Conn_GetClient( i );
1159                 if(( ! client ) || ( Client_Type( client ) != CLIENT_SERVER )) continue;
1160
1161                 for( c = 0; c < MAX_SERVERS; c++ )
1162                 {
1163                         /* Configured server? */
1164                         if( ! Conf_Server[c].host[0] ) continue;
1165
1166                         /* Duplicate? */
1167                         if( strcmp( Conf_Server[c].name, Client_ID( client )) == 0 )
1168                                 Conf_Server[c].conn_id = i;
1169                 }
1170         }
1171 } /* SyncServerStruct */
1172
1173
1174 /**
1175  * Send out data of write buffer; connect new sockets.
1176  */
1177 static bool
1178 Handle_Write( CONN_ID Idx )
1179 {
1180         ssize_t len;
1181         size_t wdatalen;
1182
1183         assert( Idx > NONE );
1184         if ( My_Connections[Idx].sock < 0 ) {
1185                 LogDebug("Handle_Write() on closed socket, connection %d", Idx);
1186                 return false;
1187         }
1188         assert( My_Connections[Idx].sock > NONE );
1189
1190         wdatalen = array_bytes(&My_Connections[Idx].wbuf );
1191
1192 #ifdef ZLIB
1193         if (wdatalen == 0) {
1194                 /* Write buffer is empty, so we try to flush the compression
1195                  * buffer and get some data to work with from there :-) */
1196                 if (!Zip_Flush(Idx))
1197                         return false;
1198
1199                 /* Now the write buffer most probably has changed: */
1200                 wdatalen = array_bytes(&My_Connections[Idx].wbuf);
1201         }
1202 #endif
1203
1204         if (wdatalen == 0) {
1205                 /* Still no data, fine. */
1206                 io_event_del(My_Connections[Idx].sock, IO_WANTWRITE );
1207                 return true;
1208         }
1209
1210         LogDebug
1211             ("Handle_Write() called for connection %d, %ld bytes pending ...",
1212              Idx, wdatalen);
1213
1214 #ifdef SSL_SUPPORT
1215         if ( Conn_OPTION_ISSET( &My_Connections[Idx], CONN_SSL )) {
1216                 len = ConnSSL_Write(&My_Connections[Idx], array_start(&My_Connections[Idx].wbuf), wdatalen);
1217         } else
1218 #endif
1219         {
1220                 len = write(My_Connections[Idx].sock,
1221                             array_start(&My_Connections[Idx].wbuf), wdatalen );
1222         }
1223         if( len < 0 ) {
1224                 if (errno == EAGAIN || errno == EINTR)
1225                         return true;
1226
1227                 Log(LOG_ERR, "Write error on connection %d (socket %d): %s!",
1228                     Idx, My_Connections[Idx].sock, strerror(errno));
1229                 Conn_Close(Idx, "Write error!", NULL, false);
1230                 return false;
1231         }
1232
1233         /* move any data not yet written to beginning */
1234         array_moveleft(&My_Connections[Idx].wbuf, 1, (size_t)len);
1235
1236         return true;
1237 } /* Handle_Write */
1238
1239
1240 static int
1241 Count_Connections(ng_ipaddr_t *a)
1242 {
1243         int i, cnt;
1244
1245         cnt = 0;
1246         for (i = 0; i < Pool_Size; i++) {
1247                 if (My_Connections[i].sock <= NONE)
1248                         continue;
1249                 if (ng_ipaddr_ipequal(&My_Connections[i].addr, a))
1250                         cnt++;
1251         }
1252         return cnt;
1253 } /* Count_Connections */
1254
1255
1256 /**
1257  * Initialize new client connection on a listening socket.
1258  * @param Sock Listening socket descriptor
1259  * @return Accepted socket descriptor or -1 on error
1260  */
1261 static int
1262 New_Connection(int Sock)
1263 {
1264 #ifdef TCPWRAP
1265         struct request_info req;
1266 #endif
1267         ng_ipaddr_t new_addr;
1268         char ip_str[NG_INET_ADDRSTRLEN];
1269         int new_sock, new_sock_len, identsock;
1270         CLIENT *c;
1271         long cnt;
1272
1273         assert(Sock > NONE);
1274
1275         new_sock_len = (int)sizeof(new_addr);
1276         new_sock = accept(Sock, (struct sockaddr *)&new_addr,
1277                           (socklen_t *)&new_sock_len);
1278         if (new_sock < 0) {
1279                 Log(LOG_CRIT, "Can't accept connection: %s!", strerror(errno));
1280                 return -1;
1281         }
1282         NumConnectionsAccepted++;
1283
1284         if (!ng_ipaddr_tostr_r(&new_addr, ip_str)) {
1285                 Log(LOG_CRIT, "fd %d: Can't convert IP address!", new_sock);
1286                 Simple_Message(new_sock, "ERROR :Internal Server Error");
1287                 close(new_sock);
1288                 return -1;
1289         }
1290
1291 #ifdef TCPWRAP
1292         /* Validate socket using TCP Wrappers */
1293         request_init(&req, RQ_DAEMON, PACKAGE_NAME, RQ_FILE, new_sock,
1294                      RQ_CLIENT_SIN, &new_addr, NULL);
1295         fromhost(&req);
1296         if (!hosts_access(&req)) {
1297                 Log(deny_severity,
1298                     "Refused connection from %s (by TCP Wrappers)!", ip_str);
1299                 Simple_Message(new_sock, "ERROR :Connection refused");
1300                 close(new_sock);
1301                 return -1;
1302         }
1303 #endif
1304
1305         if (!Init_Socket(new_sock))
1306                 return -1;
1307
1308         /* Check global connection limit */
1309         if ((Conf_MaxConnections > 0) &&
1310             (NumConnections >= (size_t) Conf_MaxConnections)) {
1311                 Log(LOG_ALERT, "Can't accept connection: limit (%d) reached!",
1312                     Conf_MaxConnections);
1313                 Simple_Message(new_sock, "ERROR :Connection limit reached");
1314                 close(new_sock);
1315                 return -1;
1316         }
1317
1318         /* Check IP-based connection limit */
1319         cnt = Count_Connections(&new_addr);
1320         if ((Conf_MaxConnectionsIP > 0) && (cnt >= Conf_MaxConnectionsIP)) {
1321                 /* Access denied, too many connections from this IP address! */
1322                 Log(LOG_ERR,
1323                     "Refused connection from %s: too may connections (%ld) from this IP address!",
1324                     ip_str, cnt);
1325                 Simple_Message(new_sock,
1326                                "ERROR :Connection refused, too many connections from your IP address!");
1327                 close(new_sock);
1328                 return -1;
1329         }
1330
1331         if (new_sock >= Pool_Size) {
1332                 if (!array_alloc(&My_ConnArray, sizeof(CONNECTION),
1333                                  (size_t) new_sock)) {
1334                         Log(LOG_EMERG,
1335                             "Can't allocate memory! [New_Connection]");
1336                         Simple_Message(new_sock, "ERROR: Internal error");
1337                         close(new_sock);
1338                         return -1;
1339                 }
1340                 LogDebug("Bumped connection pool to %ld items (internal: %ld items, %ld bytes)",
1341                          new_sock, array_length(&My_ConnArray,
1342                          sizeof(CONNECTION)), array_bytes(&My_ConnArray));
1343
1344                 /* Adjust pointer to new block */
1345                 My_Connections = array_start(&My_ConnArray);
1346                 while (Pool_Size <= new_sock)
1347                         Init_Conn_Struct(Pool_Size++);
1348         }
1349
1350         /* register callback */
1351         if (!io_event_create(new_sock, IO_WANTREAD, cb_clientserver)) {
1352                 Log(LOG_ALERT,
1353                     "Can't accept connection: io_event_create failed!");
1354                 Simple_Message(new_sock, "ERROR :Internal error");
1355                 close(new_sock);
1356                 return -1;
1357         }
1358
1359         c = Client_NewLocal(new_sock, ip_str, CLIENT_UNKNOWN, false);
1360         if (!c) {
1361                 Log(LOG_ALERT,
1362                     "Can't accept connection: can't create client structure!");
1363                 Simple_Message(new_sock, "ERROR :Internal error");
1364                 io_close(new_sock);
1365                 return -1;
1366         }
1367
1368         Init_Conn_Struct(new_sock);
1369         My_Connections[new_sock].sock = new_sock;
1370         My_Connections[new_sock].addr = new_addr;
1371         My_Connections[new_sock].client = c;
1372
1373         /* Set initial hostname to IP address. This becomes overwritten when
1374          * the DNS lookup is enabled and succeeds, but is used otherwise. */
1375         if (ng_ipaddr_af(&new_addr) != AF_INET)
1376                 snprintf(My_Connections[new_sock].host,
1377                          sizeof(My_Connections[new_sock].host), "[%s]", ip_str);
1378         else
1379                 strlcpy(My_Connections[new_sock].host, ip_str,
1380                         sizeof(My_Connections[new_sock].host));
1381
1382         Client_SetHostname(c, My_Connections[new_sock].host);
1383
1384         Log(LOG_INFO, "Accepted connection %d from %s:%d on socket %d.",
1385             new_sock, My_Connections[new_sock].host,
1386             ng_ipaddr_getport(&new_addr), Sock);
1387
1388         identsock = new_sock;
1389 #ifdef IDENTAUTH
1390         if (Conf_NoIdent)
1391                 identsock = -1;
1392 #endif
1393         if (!Conf_NoDNS)
1394                 Resolve_Addr(&My_Connections[new_sock].proc_stat, &new_addr,
1395                              identsock, cb_Read_Resolver_Result);
1396
1397         Account_Connection();
1398         return new_sock;
1399 } /* New_Connection */
1400
1401
1402 static void
1403 Account_Connection(void)
1404 {
1405         NumConnections++;
1406         if (NumConnections > NumConnectionsMax)
1407                 NumConnectionsMax = NumConnections;
1408         LogDebug("Total number of connections now %lu (max %lu).",
1409                  NumConnections, NumConnectionsMax);
1410 } /* Account_Connection */
1411
1412
1413 static CONN_ID
1414 Socket2Index( int Sock )
1415 {
1416         assert( Sock >= 0 );
1417
1418         if( Sock >= Pool_Size || My_Connections[Sock].sock != Sock ) {
1419                 /* the Connection was already closed again, likely due to
1420                  * an error. */
1421                 LogDebug("Socket2Index: can't get connection for socket %d!", Sock);
1422                 return NONE;
1423         }
1424         return Sock;
1425 } /* Socket2Index */
1426
1427
1428 /**
1429  * Read data from the network to the read buffer. If an error occures,
1430  * the socket of this connection will be shut down.
1431  */
1432 static void
1433 Read_Request( CONN_ID Idx )
1434 {
1435         ssize_t len;
1436         static const unsigned int maxbps = COMMAND_LEN / 2;
1437         char readbuf[READBUFFER_LEN];
1438         time_t t;
1439         CLIENT *c;
1440         assert( Idx > NONE );
1441         assert( My_Connections[Idx].sock > NONE );
1442
1443 #ifdef ZLIB
1444         if ((array_bytes(&My_Connections[Idx].rbuf) >= READBUFFER_LEN) ||
1445                 (array_bytes(&My_Connections[Idx].zip.rbuf) >= READBUFFER_LEN))
1446 #else
1447         if (array_bytes(&My_Connections[Idx].rbuf) >= READBUFFER_LEN)
1448 #endif
1449         {
1450                 /* Read buffer is full */
1451                 Log(LOG_ERR,
1452                     "Receive buffer overflow (connection %d): %d bytes!",
1453                     Idx, array_bytes(&My_Connections[Idx].rbuf));
1454                 Conn_Close( Idx, "Receive buffer overflow!", NULL, false );
1455                 return;
1456         }
1457
1458 #ifdef SSL_SUPPORT
1459         if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_SSL))
1460                 len = ConnSSL_Read( &My_Connections[Idx], readbuf, sizeof(readbuf));
1461         else
1462 #endif
1463         len = read(My_Connections[Idx].sock, readbuf, sizeof(readbuf));
1464         if (len == 0) {
1465                 Log(LOG_INFO, "%s:%u (%s) is closing the connection ...",
1466                                 My_Connections[Idx].host,
1467                                 (unsigned int) ng_ipaddr_getport(&My_Connections[Idx].addr),
1468                                 ng_ipaddr_tostr(&My_Connections[Idx].addr));
1469                 Conn_Close(Idx,
1470                            "Socket closed!", "Client closed connection",
1471                            false);
1472                 return;
1473         }
1474
1475         if (len < 0) {
1476                 if( errno == EAGAIN ) return;
1477                 Log(LOG_ERR, "Read error on connection %d (socket %d): %s!",
1478                     Idx, My_Connections[Idx].sock, strerror(errno));
1479                 Conn_Close(Idx, "Read error!", "Client closed connection",
1480                            false);
1481                 return;
1482         }
1483 #ifdef ZLIB
1484         if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_ZIP)) {
1485                 if (!array_catb(&My_Connections[Idx].zip.rbuf, readbuf,
1486                                 (size_t) len)) {
1487                         Log(LOG_ERR,
1488                             "Could not append recieved data to zip input buffer (connn %d): %d bytes!",
1489                             Idx, len);
1490                         Conn_Close(Idx, "Receive buffer overflow!", NULL,
1491                                    false);
1492                         return;
1493                 }
1494         } else
1495 #endif
1496         {
1497                 if (!array_catb( &My_Connections[Idx].rbuf, readbuf, len)) {
1498                         Log( LOG_ERR, "Could not append recieved data to input buffer (connn %d): %d bytes!", Idx, len );
1499                         Conn_Close( Idx, "Receive buffer overflow!", NULL, false );
1500                 }
1501         }
1502
1503         /* Update connection statistics */
1504         My_Connections[Idx].bytes_in += len;
1505
1506         /* Update timestamp of last data received if this connection is
1507          * registered as a user, server or service connection. Don't update
1508          * otherwise, so users have at least Conf_PongTimeout seconds time to
1509          * register with the IRC server -- see Check_Connections().
1510          * Update "lastping", too, if time shifted backwards ... */
1511         c = Conn_GetClient(Idx);
1512         if (c && (Client_Type(c) == CLIENT_USER
1513                   || Client_Type(c) == CLIENT_SERVER
1514                   || Client_Type(c) == CLIENT_SERVICE)) {
1515                 t = time(NULL);
1516                 if (My_Connections[Idx].lastdata != t)
1517                         My_Connections[Idx].bps = 0;
1518
1519                 My_Connections[Idx].lastdata = t;
1520                 if (My_Connections[Idx].lastping > t)
1521                         My_Connections[Idx].lastping = t;
1522         }
1523
1524         /* Look at the data in the (read-) buffer of this connection */
1525         My_Connections[Idx].bps += Handle_Buffer(Idx);
1526         if (Client_Type(c) != CLIENT_SERVER
1527             && My_Connections[Idx].bps >= maxbps) {
1528                 LogDebug("Throttling connection %d: BPS exceeded! (%u >= %u)",
1529                          Idx, My_Connections[Idx].bps, maxbps);
1530                 Conn_SetPenalty(Idx, 1);
1531         }
1532 } /* Read_Request */
1533
1534
1535 /**
1536  * Handle all data in the connection read-buffer.
1537  * Data is processed until no complete command is left in the read buffer,
1538  * or MAX_COMMANDS[_SERVER] commands were processed.
1539  * When a fatal error occurs, the connection is shut down.
1540  * @param Idx Index of the connection.
1541  * @return number of bytes processed.
1542  */
1543 static unsigned int
1544 Handle_Buffer(CONN_ID Idx)
1545 {
1546 #ifndef STRICT_RFC
1547         char *ptr1, *ptr2, *first_eol;
1548 #endif
1549         char *ptr;
1550         size_t len, delta;
1551         time_t starttime;
1552 #ifdef ZLIB
1553         bool old_z;
1554 #endif
1555         unsigned int i, maxcmd = MAX_COMMANDS, len_processed = 0;
1556         CLIENT *c;
1557
1558         c = Conn_GetClient(Idx);
1559         assert( c != NULL);
1560
1561         /* Servers do get special command limits, so they can process
1562          * all the messages that are required while peering. */
1563         if (Client_Type(c) == CLIENT_SERVER)
1564                 maxcmd = MAX_COMMANDS_SERVER;
1565
1566         starttime = time(NULL);
1567         for (i=0; i < maxcmd; i++) {
1568                 /* Check penalty */
1569                 if (My_Connections[Idx].delaytime > starttime)
1570                         return 0;
1571 #ifdef ZLIB
1572                 /* Unpack compressed data, if compression is in use */
1573                 if (Conn_OPTION_ISSET(&My_Connections[Idx], CONN_ZIP)) {
1574                         /* When unzipping fails, Unzip_Buffer() shuts
1575                          * down the connection itself */
1576                         if (!Unzip_Buffer(Idx))
1577                                 return 0;
1578                 }
1579 #endif
1580
1581                 if (0 == array_bytes(&My_Connections[Idx].rbuf))
1582                         break;
1583
1584                 /* Make sure that the buffer is NULL terminated */
1585                 if (!array_cat0_temporary(&My_Connections[Idx].rbuf)) {
1586                         Conn_Close(Idx, NULL,
1587                                    "Can't allocate memory [Handle_Buffer]",
1588                                    true);
1589                         return 0;
1590                 }
1591
1592                 /* RFC 2812, section "2.3 Messages", 5th paragraph:
1593                  * "IRC messages are always lines of characters terminated
1594                  * with a CR-LF (Carriage Return - Line Feed) pair [...]". */
1595                 delta = 2;
1596                 ptr = strstr(array_start(&My_Connections[Idx].rbuf), "\r\n");
1597
1598 #ifndef STRICT_RFC
1599                 /* Check for non-RFC-compliant request (only CR or LF)?
1600                  * Unfortunately, there are quite a few clients out there
1601                  * that do this -- e. g. mIRC, BitchX, and Trillian :-( */
1602                 ptr1 = strchr(array_start(&My_Connections[Idx].rbuf), '\r');
1603                 ptr2 = strchr(array_start(&My_Connections[Idx].rbuf), '\n');
1604                 if (ptr) {
1605                         /* Check if there is a single CR or LF _before_ the
1606                          * corerct CR+LF line terminator:  */
1607                         first_eol = ptr1 < ptr2 ? ptr1 : ptr2;
1608                         if (first_eol < ptr) {
1609                                 /* Single CR or LF before CR+LF found */
1610                                 ptr = first_eol;
1611                                 delta = 1;
1612                         }
1613                 } else if (ptr1 || ptr2) {
1614                         /* No CR+LF terminated command found, but single
1615                          * CR or LF found ... */
1616                         if (ptr1 && ptr2)
1617                                 ptr = ptr1 < ptr2 ? ptr1 : ptr2;
1618                         else
1619                                 ptr = ptr1 ? ptr1 : ptr2;
1620                         delta = 1;
1621                 }
1622 #endif
1623
1624                 if (!ptr)
1625                         break;
1626
1627                 /* Complete (=line terminated) request found, handle it! */
1628                 *ptr = '\0';
1629
1630                 len = ptr - (char *)array_start(&My_Connections[Idx].rbuf) + delta;
1631
1632                 if (len > (COMMAND_LEN - 1)) {
1633                         /* Request must not exceed 512 chars (incl. CR+LF!),
1634                          * see RFC 2812. Disconnect Client if this happens. */
1635                         Log(LOG_ERR,
1636                             "Request too long (connection %d): %d bytes (max. %d expected)!",
1637                             Idx, array_bytes(&My_Connections[Idx].rbuf),
1638                             COMMAND_LEN - 1);
1639                         Conn_Close(Idx, NULL, "Request too long", true);
1640                         return 0;
1641                 }
1642
1643                 len_processed += (unsigned int)len;
1644                 if (len <= delta) {
1645                         /* Request is empty (only '\r\n', '\r' or '\n');
1646                          * delta is 2 ('\r\n') or 1 ('\r' or '\n'), see above */
1647                         array_moveleft(&My_Connections[Idx].rbuf, 1, len);
1648                         continue;
1649                 }
1650 #ifdef ZLIB
1651                 /* remember if stream is already compressed */
1652                 old_z = My_Connections[Idx].options & CONN_ZIP;
1653 #endif
1654
1655                 My_Connections[Idx].msg_in++;
1656                 if (!Parse_Request
1657                     (Idx, (char *)array_start(&My_Connections[Idx].rbuf)))
1658                         return 0; /* error -> connection has been closed */
1659
1660                 array_moveleft(&My_Connections[Idx].rbuf, 1, len);
1661                 LogDebug("Connection %d: %d bytes left in read buffer.",
1662                          Idx, array_bytes(&My_Connections[Idx].rbuf));
1663 #ifdef ZLIB
1664                 if ((!old_z) && (My_Connections[Idx].options & CONN_ZIP) &&
1665                     (array_bytes(&My_Connections[Idx].rbuf) > 0)) {
1666                         /* The last command activated socket compression.
1667                          * Data that was read after that needs to be copied
1668                          * to the unzip buffer for decompression: */
1669                         if (!array_copy
1670                             (&My_Connections[Idx].zip.rbuf,
1671                              &My_Connections[Idx].rbuf)) {
1672                                 Conn_Close(Idx, NULL,
1673                                            "Can't allocate memory [Handle_Buffer]",
1674                                            true);
1675                                 return 0;
1676                         }
1677
1678                         array_trunc(&My_Connections[Idx].rbuf);
1679                         LogDebug
1680                             ("Moved already received data (%u bytes) to uncompression buffer.",
1681                              array_bytes(&My_Connections[Idx].zip.rbuf));
1682                 }
1683 #endif
1684         }
1685         return len_processed;
1686 } /* Handle_Buffer */
1687
1688
1689 /**
1690  * Check whether established connections are still alive or not.
1691  * If not, play PING-PONG first; and if that doesn't help either,
1692  * disconnect the respective peer.
1693  */
1694 static void
1695 Check_Connections(void)
1696 {
1697         CLIENT *c;
1698         CONN_ID i;
1699         char msg[64];
1700
1701         for (i = 0; i < Pool_Size; i++) {
1702                 if (My_Connections[i].sock < 0)
1703                         continue;
1704
1705                 c = Conn_GetClient(i);
1706                 if (c && ((Client_Type(c) == CLIENT_USER)
1707                           || (Client_Type(c) == CLIENT_SERVER)
1708                           || (Client_Type(c) == CLIENT_SERVICE))) {
1709                         /* connected User, Server or Service */
1710                         if (My_Connections[i].lastping >
1711                             My_Connections[i].lastdata) {
1712                                 /* We already sent a ping */
1713                                 if (My_Connections[i].lastping <
1714                                     time(NULL) - Conf_PongTimeout) {
1715                                         /* Timeout */
1716                                         LogDebug
1717                                             ("Connection %d: Ping timeout: %d seconds.",
1718                                              i, Conf_PongTimeout);
1719                                         snprintf(msg, sizeof(msg), "Ping timeout: %d seconds", Conf_PongTimeout);
1720                                         Conn_Close(i, NULL, msg, true);
1721                                 }
1722                         } else if (My_Connections[i].lastdata <
1723                                    time(NULL) - Conf_PingTimeout) {
1724                                 /* We need to send a PING ... */
1725                                 LogDebug("Connection %d: sending PING ...", i);
1726                                 My_Connections[i].lastping = time(NULL);
1727                                 Conn_WriteStr(i, "PING :%s",
1728                                               Client_ID(Client_ThisServer()));
1729                         }
1730                 } else {
1731                         /* The connection is not fully established yet, so
1732                          * we don't do the PING-PONG game here but instead
1733                          * disconnect the client after "a short time" if it's
1734                          * still not registered. */
1735
1736                         if (My_Connections[i].lastdata <
1737                             time(NULL) - Conf_PongTimeout) {
1738                                 LogDebug
1739                                     ("Unregistered connection %d timed out ...",
1740                                      i);
1741                                 Conn_Close(i, NULL, "Timeout", false);
1742                         }
1743                 }
1744         }
1745 } /* Check_Connections */
1746
1747
1748 /**
1749  * Check if further server links should be established.
1750  */
1751 static void
1752 Check_Servers(void)
1753 {
1754         int i, n;
1755         time_t time_now;
1756
1757         time_now = time(NULL);
1758
1759         /* Check all configured servers */
1760         for (i = 0; i < MAX_SERVERS; i++) {
1761                 if (Conf_Server[i].conn_id != NONE)
1762                         continue;       /* Already establishing or connected */
1763                 if (!Conf_Server[i].host[0] || !Conf_Server[i].port > 0)
1764                         continue;       /* No host and/or port configured */
1765                 if (Conf_Server[i].flags & CONF_SFLAG_DISABLED)
1766                         continue;       /* Disabled configuration entry */
1767                 if (Conf_Server[i].lasttry > (time_now - Conf_ConnectRetry))
1768                         continue;       /* We have to wait a little bit ... */
1769
1770                 /* Is there already a connection in this group? */
1771                 if (Conf_Server[i].group > NONE) {
1772                         for (n = 0; n < MAX_SERVERS; n++) {
1773                                 if (n == i)
1774                                         continue;
1775                                 if ((Conf_Server[n].conn_id != NONE) &&
1776                                     (Conf_Server[n].group == Conf_Server[i].group))
1777                                         break;
1778                         }
1779                         if (n < MAX_SERVERS)
1780                                 continue;
1781                 }
1782
1783                 /* Okay, try to connect now */
1784                 Conf_Server[i].lasttry = time_now;
1785                 Conf_Server[i].conn_id = SERVER_WAIT;
1786                 assert(Proc_GetPipeFd(&Conf_Server[i].res_stat) < 0);
1787                 Resolve_Name(&Conf_Server[i].res_stat, Conf_Server[i].host,
1788                              cb_Connect_to_Server);
1789         }
1790 } /* Check_Servers */
1791
1792
1793 static void
1794 New_Server( int Server , ng_ipaddr_t *dest)
1795 {
1796         /* Establish new server link */
1797         char ip_str[NG_INET_ADDRSTRLEN];
1798         int af_dest, res, new_sock;
1799         CLIENT *c;
1800
1801         assert( Server > NONE );
1802
1803         if (!ng_ipaddr_tostr_r(dest, ip_str)) {
1804                 Log(LOG_WARNING, "New_Server: Could not convert IP to string");
1805                 return;
1806         }
1807
1808         Log( LOG_INFO, "Establishing connection to \"%s\", %s, port %d ... ",
1809                         Conf_Server[Server].host, ip_str, Conf_Server[Server].port );
1810
1811         af_dest = ng_ipaddr_af(dest);
1812         new_sock = socket(af_dest, SOCK_STREAM, 0);
1813         if (new_sock < 0) {
1814                 Log( LOG_CRIT, "Can't create socket (af %d) : %s!", af_dest, strerror( errno ));
1815                 return;
1816         }
1817
1818         if (!Init_Socket(new_sock))
1819                 return;
1820
1821         /* is a bind address configured? */
1822         res = ng_ipaddr_af(&Conf_Server[Server].bind_addr);
1823         /* if yes, bind now. If it fails, warn and let connect() pick a source address */
1824         if (res && bind(new_sock, (struct sockaddr *) &Conf_Server[Server].bind_addr,
1825                                 ng_ipaddr_salen(&Conf_Server[Server].bind_addr)))
1826         {
1827                 ng_ipaddr_tostr_r(&Conf_Server[Server].bind_addr, ip_str);
1828                 Log(LOG_WARNING, "Can't bind socket to %s: %s!", ip_str, strerror(errno));
1829         }
1830         ng_ipaddr_setport(dest, Conf_Server[Server].port);
1831         res = connect(new_sock, (struct sockaddr *) dest, ng_ipaddr_salen(dest));
1832         if(( res != 0 ) && ( errno != EINPROGRESS )) {
1833                 Log( LOG_CRIT, "Can't connect socket: %s!", strerror( errno ));
1834                 close( new_sock );
1835                 return;
1836         }
1837
1838         if (!array_alloc(&My_ConnArray, sizeof(CONNECTION), (size_t)new_sock)) {
1839                 Log(LOG_ALERT,
1840                     "Cannot allocate memory for server connection (socket %d)",
1841                     new_sock);
1842                 close( new_sock );
1843                 return;
1844         }
1845
1846         My_Connections = array_start(&My_ConnArray);
1847
1848         assert(My_Connections[new_sock].sock <= 0);
1849
1850         Init_Conn_Struct(new_sock);
1851
1852         ng_ipaddr_tostr_r(dest, ip_str);
1853         c = Client_NewLocal(new_sock, ip_str, CLIENT_UNKNOWNSERVER, false);
1854         if (!c) {
1855                 Log( LOG_ALERT, "Can't establish connection: can't create client structure!" );
1856                 close( new_sock );
1857                 return;
1858         }
1859
1860         /* Conn_Close() decrements this counter again */
1861         Account_Connection();
1862         Client_SetIntroducer( c, c );
1863         Client_SetToken( c, TOKEN_OUTBOUND );
1864
1865         /* Register connection */
1866         Conf_Server[Server].conn_id = new_sock;
1867         My_Connections[new_sock].sock = new_sock;
1868         My_Connections[new_sock].addr = *dest;
1869         My_Connections[new_sock].client = c;
1870         strlcpy( My_Connections[new_sock].host, Conf_Server[Server].host,
1871                                 sizeof(My_Connections[new_sock].host ));
1872
1873         /* Register new socket */
1874         if (!io_event_create( new_sock, IO_WANTWRITE, cb_connserver)) {
1875                 Log( LOG_ALERT, "io_event_create(): could not add fd %d", strerror(errno));
1876                 Conn_Close( new_sock, "io_event_create() failed", NULL, false );
1877                 Init_Conn_Struct( new_sock );
1878                 Conf_Server[Server].conn_id = NONE;
1879         }
1880 #ifdef SSL_SUPPORT
1881         if (Conf_Server[Server].SSLConnect && !ConnSSL_PrepareConnect( &My_Connections[new_sock],
1882                                                                 &Conf_Server[Server] ))
1883         {
1884                 Log(LOG_ALERT, "Could not initialize SSL for outgoing connection");
1885                 Conn_Close( new_sock, "Could not initialize SSL for outgoing connection", NULL, false );
1886                 Init_Conn_Struct( new_sock );
1887                 Conf_Server[Server].conn_id = NONE;
1888                 return;
1889         }
1890 #endif
1891         LogDebug("Registered new connection %d on socket %d (%ld in total).",
1892                  new_sock, My_Connections[new_sock].sock, NumConnections);
1893         Conn_OPTION_ADD( &My_Connections[new_sock], CONN_ISCONNECTING );
1894 } /* New_Server */
1895
1896
1897 /**
1898  * Initialize connection structure.
1899  */
1900 static void
1901 Init_Conn_Struct(CONN_ID Idx)
1902 {
1903         time_t now = time(NULL);
1904
1905         memset(&My_Connections[Idx], 0, sizeof(CONNECTION));
1906         My_Connections[Idx].sock = -1;
1907         My_Connections[Idx].signon = now;
1908         My_Connections[Idx].lastdata = now;
1909         My_Connections[Idx].lastprivmsg = now;
1910         Proc_InitStruct(&My_Connections[Idx].proc_stat);
1911 } /* Init_Conn_Struct */
1912
1913
1914 static bool
1915 Init_Socket( int Sock )
1916 {
1917         /* Initialize socket (set options) */
1918
1919         int value;
1920
1921         if (!io_setnonblock(Sock)) {
1922                 Log( LOG_CRIT, "Can't enable non-blocking mode for socket: %s!", strerror( errno ));
1923                 close( Sock );
1924                 return false;
1925         }
1926
1927         /* Don't block this port after socket shutdown */
1928         value = 1;
1929         if( setsockopt( Sock, SOL_SOCKET, SO_REUSEADDR, &value, (socklen_t)sizeof( value )) != 0 )
1930         {
1931                 Log( LOG_ERR, "Can't set socket option SO_REUSEADDR: %s!", strerror( errno ));
1932                 /* ignore this error */
1933         }
1934
1935         /* Set type of service (TOS) */
1936 #if defined(IPPROTO_IP) && defined(IPTOS_LOWDELAY)
1937         value = IPTOS_LOWDELAY;
1938         LogDebug("Setting IP_TOS on socket %d to IPTOS_LOWDELAY.", Sock);
1939         if (setsockopt(Sock, IPPROTO_IP, IP_TOS, &value,
1940                        (socklen_t) sizeof(value))) {
1941                 Log(LOG_ERR, "Can't set socket option IP_TOS: %s!",
1942                     strerror(errno));
1943                 /* ignore this error */
1944         }
1945 #endif
1946
1947         return true;
1948 } /* Init_Socket */
1949
1950
1951 static void
1952 cb_Connect_to_Server(int fd, UNUSED short events)
1953 {
1954         /* Read result of resolver sub-process from pipe and start connection */
1955         int i;
1956         size_t len;
1957         ng_ipaddr_t dest_addrs[4];      /* we can handle at most 3; but we read up to
1958                                            four so we can log the 'more than we can handle'
1959                                            condition. First result is tried immediately, rest
1960                                            is saved for later if needed. */
1961
1962         LogDebug("Resolver: Got forward lookup callback on fd %d, events %d", fd, events);
1963
1964         for (i=0; i < MAX_SERVERS; i++) {
1965                   if (Proc_GetPipeFd(&Conf_Server[i].res_stat) == fd )
1966                           break;
1967         }
1968
1969         if( i >= MAX_SERVERS) {
1970                 /* Ops, no matching server found?! */
1971                 io_close( fd );
1972                 LogDebug("Resolver: Got Forward Lookup callback for unknown server!?");
1973                 return;
1974         }
1975
1976         /* Read result from pipe */
1977         len = Proc_Read(&Conf_Server[i].res_stat, dest_addrs, sizeof(dest_addrs));
1978         if (len == 0)
1979                 return;
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 /* -eof- */