src/ircd.c

   1 /*
   2  *  ircd-ratbox: A slightly useful ircd.
   3  *  ircd.c: Starts up and runs the ircd.
   4  *
   5  *  Copyright (C) 1990 Jarkko Oikarinen and University of Oulu, Co Center
   6  *  Copyright (C) 1996-2002 Hybrid Development Team
   7  *  Copyright (C) 2002-2005 ircd-ratbox development team
   8  *
   9  *  This program is free software; you can redistribute it and/or modify
  10  *  it under the terms of the GNU General Public License as published by
  11  *  the Free Software Foundation; either version 2 of the License, or
  12  *  (at your option) any later version.
  13  *
  14  *  This program is distributed in the hope that it will be useful,
  15  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  *  GNU General Public License for more details.
  18  *
  19  *  You should have received a copy of the GNU General Public License
  20  *  along with this program; if not, write to the Free Software
  21  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
  22  *  USA
  23  *
  24  *  $Id: ircd.c 3380 2007-04-03 22:25:11Z jilles $
  25  */
  26
  27 #include "stdinc.h"
  28 #include "setup.h"
  29 #include "config.h"
  30
  31 #include "tools.h"
  32 #include "ircd.h"
  33 #include "channel.h"
  34 #include "class.h"
  35 #include "client.h"
  36 #include "common.h"
  37 #include "event.h"
  38 #include "hash.h"
  39 #include "irc_string.h"
  40 #include "ircd_signal.h"
  41 #include "sprintf_irc.h"
  42 #include "s_gline.h"
  43 #include "msg.h"                /* msgtab */
  44 #include "hostmask.h"
  45 #include "numeric.h"
  46 #include "parse.h"
  47 #include "res.h"
  48 #include "restart.h"
  49 #include "s_auth.h"
  50 #include "commio.h"
  51 #include "s_conf.h"
  52 #include "s_log.h"
  53 #include "s_serv.h"             /* try_connections */
  54 #include "s_user.h"
  55 #include "s_stats.h"
  56 #include "scache.h"
  57 #include "send.h"
  58 #include "supported.h"
  59 #include "whowas.h"
  60 #include "modules.h"
  61 #include "memory.h"
  62 #include "hook.h"
  63 #include "ircd_getopt.h"
  64 #include "balloc.h"
  65 #include "newconf.h"
  66 #include "reject.h"
  67 #include "s_conf.h"
  68 #include "s_newconf.h"
  69 #include "cache.h"
  70 #include "monitor.h"
  71 #include "libcharybdis.h"
  72 #include "patchlevel.h"
  73 #include "serno.h"
  74
  75 #include "ratbox_lib.h"
  76
  77 /*
  78  * Try and find the correct name to use with getrlimit() for setting the max.
  79  * number of files allowed to be open by this process.
  80  */
  81 int _charybdis_data_version = CHARYBDIS_DV;
  82
  83 extern int ServerRunning;
  84 extern struct LocalUser meLocalUser;
  85 extern char **myargv;
  86
  87 extern int maxconnections; /* XXX */
  88
  89 /*
  90  * print_startup - print startup information
  91  */
  92 static void
  93 print_startup(int pid)
  94 {
  95         inotice("now running in %s mode from %s as pid %d ...",
  96                !server_state_foreground ? "background" : "foreground",
  97                 ConfigFileEntry.dpath, pid);
  98
  99         /* let the parent process know the initialization was successful
 100          * -- jilles */
 101         if (!server_state_foreground)
 102                 write(0, ".", 1);
 103         fclose(stdin);
 104         fclose(stdout);
 105         fclose(stderr);
 106         open("/dev/null", O_RDWR);
 107         dup2(0, 1);
 108         dup2(0, 2);
 109 }
 110
 111 static void
 112 ircd_log_cb(const char *str)
 113 {
 114         ilog(L_MAIN, "%s", str);
 115 }
 116
 117 static void
 118 ircd_restart_cb(const char *str)
 119 {
 120         ilog(L_MAIN, "%s", str);
 121 }
 122
 123 /*
 124  * Why EXIT_FAILURE here?
 125  * Because if ircd_die_cb() is called it's because of a fatal
 126  * error inside libcharybdis, and we don't know how to handle the
 127  * exception, so it is logical to return a FAILURE exit code here.
 128  *    --nenolod
 129  */
 130 static void
 131 ircd_die_cb(const char *str)
 132 {
 133         /* Try to get the message out to currently logged in operators. */
 134         sendto_realops_snomask(SNO_GENERAL, L_NETWIDE, "Server panic! %s", str);
 135         inotice("server panic: %s", str);
 136
 137         unlink(pidFileName);
 138         exit(EXIT_FAILURE);
 139 }
 140
 141 /*
 142  * init_sys
 143  *
 144  * inputs       - boot_daemon flag
 145  * output       - none
 146  * side effects - if boot_daemon flag is not set, don't daemonize
 147  */
 148 static void
 149 init_sys(void)
 150 {
 151 #if defined(RLIMIT_NOFILE) && defined(HAVE_SYS_RESOURCE_H)
 152         struct rlimit limit;
 153
 154         if(!getrlimit(RLIMIT_NOFILE, &limit))
 155         {
 156                 limit.rlim_cur = limit.rlim_max;        /* make soft limit the max */
 157                 if(setrlimit(RLIMIT_NOFILE, &limit) == -1)
 158                 {
 159                         fprintf(stderr, "error setting max fd's to %ld\n", (long) limit.rlim_cur);
 160                         exit(EXIT_FAILURE);
 161                 }
 162         }
 163 #endif /* RLIMIT_NOFILE */
 164 }
 165
 166 static int
 167 make_daemon(void)
 168 {
 169         int pid;
 170         int pip[2];
 171         char c;
 172
 173         if (pipe(pip) < 0)
 174         {
 175                 perror("pipe");
 176                 exit(EXIT_FAILURE);
 177         }
 178         dup2(pip[1], 0);
 179         close(pip[1]);
 180         if((pid = fork()) < 0)
 181         {
 182                 perror("fork");
 183                 exit(EXIT_FAILURE);
 184         }
 185         else if(pid > 0)
 186         {
 187                 close(0);
 188                 /* Wait for initialization to finish, successfully or
 189                  * unsuccessfully. Until this point the child may still
 190                  * write to stdout/stderr.
 191                  * -- jilles */
 192                 if (read(pip[0], &c, 1) > 0)
 193                         exit(EXIT_SUCCESS);
 194                 else
 195                         exit(EXIT_FAILURE);
 196         }
 197
 198         close(pip[0]);
 199         setsid();
 200 /*      fclose(stdin);
 201         fclose(stdout);
 202         fclose(stderr); */
 203
 204         return 0;
 205 }
 206
 207 static int printVersion = 0;
 208
 209 struct lgetopt myopts[] = {
 210         {"dlinefile", &ConfigFileEntry.dlinefile,
 211          STRING, "File to use for dlines.conf"},
 212         {"configfile", &ConfigFileEntry.configfile,
 213          STRING, "File to use for ircd.conf"},
 214         {"klinefile", &ConfigFileEntry.klinefile,
 215          STRING, "File to use for kline.conf"},
 216         {"xlinefile", &ConfigFileEntry.xlinefile,
 217          STRING, "File to use for xline.conf"},
 218         {"resvfile", &ConfigFileEntry.resvfile,
 219          STRING, "File to use for resv.conf"},
 220         {"logfile", &logFileName,
 221          STRING, "File to use for ircd.log"},
 222         {"pidfile", &pidFileName,
 223          STRING, "File to use for process ID"},
 224         {"foreground", &server_state_foreground,
 225          YESNO, "Run in foreground (don't detach)"},
 226         {"version", &printVersion,
 227          YESNO, "Print version and exit"},
 228         {"conftest", &testing_conf,
 229          YESNO, "Test the configuration files and exit"},
 230         {"help", NULL, USAGE, "Print this text"},
 231         {NULL, NULL, STRING, NULL},
 232 };
 233
 234 void
 235 set_time(void)
 236 {
 237         struct timeval newtime;
 238         newtime.tv_sec = 0;
 239         newtime.tv_usec = 0;
 240 #ifdef HAVE_GETTIMEOFDAY
 241         if(gettimeofday(&newtime, NULL) == -1)
 242         {
 243                 ilog(L_MAIN, "Clock Failure (%d)", errno);
 244                 sendto_realops_snomask(SNO_GENERAL, L_ALL,
 245                                      "Clock Failure (%d), TS can be corrupted", errno);
 246
 247                 restart("Clock Failure");
 248         }
 249 #else
 250         newtime.tv_sec = time(NULL);
 251
 252 #endif
 253         if(newtime.tv_sec < CurrentTime)
 254                 rb_set_back_events(CurrentTime - newtime.tv_sec);
 255
 256         SystemTime.tv_sec = newtime.tv_sec;
 257         SystemTime.tv_usec = newtime.tv_usec;
 258 }
 259
 260 static void
 261 check_rehash(void *unused)
 262 {
 263         /*
 264          * Check to see whether we have to rehash the configuration ..
 265          */
 266         if(dorehash)
 267         {
 268                 rehash(1);
 269                 dorehash = 0;
 270         }
 271
 272         if(dorehashbans)
 273         {
 274                 rehash_bans(1);
 275                 dorehashbans = 0;
 276         }
 277
 278         if(doremotd)
 279         {
 280                 sendto_realops_snomask(SNO_GENERAL, L_ALL,
 281                                      "Got signal SIGUSR1, reloading ircd motd file");
 282                 free_cachefile(user_motd);
 283                 user_motd = cache_file(MPATH, "ircd.motd", 0);
 284                 doremotd = 0;
 285         }
 286 }
 287
 288 void
 289 charybdis_io_loop(void)
 290 {
 291         time_t delay;
 292
 293         while (ServerRunning)
 294         {
 295                 /* Run pending events, then get the number of seconds to the next
 296                  * event
 297                  */
 298
 299                 delay = rb_event_next();
 300                 if(delay <= CurrentTime)
 301                         rb_event_run();
 302
 303
 304                 rb_select(250);
 305         }
 306 }
 307
 308 /*
 309  * initalialize_global_set_options
 310  *
 311  * inputs       - none
 312  * output       - none
 313  * side effects - This sets all global set options needed
 314  */
 315 static void
 316 initialize_global_set_options(void)
 317 {
 318         memset(&GlobalSetOptions, 0, sizeof(GlobalSetOptions));
 319         /* memset( &ConfigFileEntry, 0, sizeof(ConfigFileEntry)); */
 320
 321         GlobalSetOptions.maxclients = ServerInfo.max_clients;
 322         GlobalSetOptions.autoconn = 1;
 323
 324         GlobalSetOptions.spam_time = MIN_JOIN_LEAVE_TIME;
 325         GlobalSetOptions.spam_num = MAX_JOIN_LEAVE_COUNT;
 326
 327         if(ConfigFileEntry.default_floodcount)
 328                 GlobalSetOptions.floodcount = ConfigFileEntry.default_floodcount;
 329         else
 330                 GlobalSetOptions.floodcount = 10;
 331
 332         split_servers = ConfigChannel.default_split_server_count;
 333         split_users = ConfigChannel.default_split_user_count;
 334
 335         if(split_users && split_servers
 336            && (ConfigChannel.no_create_on_split || ConfigChannel.no_join_on_split))
 337         {
 338                 splitmode = 1;
 339                 splitchecking = 1;
 340         }
 341
 342         GlobalSetOptions.ident_timeout = IDENT_TIMEOUT;
 343
 344         strlcpy(GlobalSetOptions.operstring,
 345                 ConfigFileEntry.default_operstring,
 346                 sizeof(GlobalSetOptions.operstring));
 347         strlcpy(GlobalSetOptions.adminstring,
 348                 ConfigFileEntry.default_adminstring,
 349                 sizeof(GlobalSetOptions.adminstring));
 350
 351         /* memset( &ConfigChannel, 0, sizeof(ConfigChannel)); */
 352
 353         /* End of global set options */
 354
 355 }
 356
 357 /*
 358  * initialize_server_capabs
 359  *
 360  * inputs       - none
 361  * output       - none
 362  */
 363 static void
 364 initialize_server_capabs(void)
 365 {
 366         default_server_capabs &= ~CAP_ZIP;
 367 }
 368
 369
 370 /*
 371  * write_pidfile
 372  *
 373  * inputs       - filename+path of pid file
 374  * output       - none
 375  * side effects - write the pid of the ircd to filename
 376  */
 377 static void
 378 write_pidfile(const char *filename)
 379 {
 380         FILE *fb;
 381         char buff[32];
 382         if((fb = fopen(filename, "w")))
 383         {
 384                 unsigned int pid = (unsigned int) getpid();
 385
 386                 rb_snprintf(buff, sizeof(buff), "%u\n", pid);
 387                 if((fputs(buff, fb) == -1))
 388                 {
 389                         ilog(L_MAIN, "Error writing %u to pid file %s (%s)",
 390                              pid, filename, strerror(errno));
 391                 }
 392                 fclose(fb);
 393                 return;
 394         }
 395         else
 396         {
 397                 ilog(L_MAIN, "Error opening pid file %s", filename);
 398         }
 399 }
 400
 401 /*
 402  * check_pidfile
 403  *
 404  * inputs       - filename+path of pid file
 405  * output       - none
 406  * side effects - reads pid from pidfile and checks if ircd is in process
 407  *                list. if it is, gracefully exits
 408  * -kre
 409  */
 410 static void
 411 check_pidfile(const char *filename)
 412 {
 413         FILE *fb;
 414         char buff[32];
 415         pid_t pidfromfile;
 416
 417         /* Don't do logging here, since we don't have log() initialised */
 418         if((fb = fopen(filename, "r")))
 419         {
 420                 if(fgets(buff, 20, fb) != NULL)
 421                 {
 422                         pidfromfile = atoi(buff);
 423                         if(!kill(pidfromfile, 0))
 424                         {
 425                                 printf("ircd: daemon is already running\n");
 426                                 exit(-1);
 427                         }
 428                 }
 429                 fclose(fb);
 430         }
 431 }
 432
 433 /*
 434  * setup_corefile
 435  *
 436  * inputs       - nothing
 437  * output       - nothing
 438  * side effects - setups corefile to system limits.
 439  * -kre
 440  */
 441 static void
 442 setup_corefile(void)
 443 {
 444 #ifdef HAVE_SYS_RESOURCE_H
 445         struct rlimit rlim;     /* resource limits */
 446
 447         /* Set corefilesize to maximum */
 448         if(!getrlimit(RLIMIT_CORE, &rlim))
 449         {
 450                 rlim.rlim_cur = rlim.rlim_max;
 451                 setrlimit(RLIMIT_CORE, &rlim);
 452         }
 453 #endif
 454 }
 455
 456 struct ev_entry *check_splitmode_ev = NULL;
 457
 458 /*
 459  * main
 460  *
 461  * Initializes the IRCd.
 462  *
 463  * Inputs       - number of commandline args, args themselves
 464  * Outputs      - none
 465  * Side Effects - this is where the ircd gets going right now
 466  */
 467 int
 468 main(int argc, char *argv[])
 469 {
 470         int fd;
 471
 472         /* Check to see if the user is running us as root, which is a nono */
 473         if(geteuid() == 0)
 474         {
 475                 fprintf(stderr, "Don't run ircd as root!!!\n");
 476                 return -1;
 477         }
 478
 479         /*
 480          * save server boot time right away, so getrusage works correctly
 481          */
 482         set_time();
 483         /*
 484          * Setup corefile size immediately after boot -kre
 485          */
 486         setup_corefile();
 487
 488         ServerRunning = 0;
 489         /* It ain't random, but it ought to be a little harder to guess */
 490         srand(SystemTime.tv_sec ^ (SystemTime.tv_usec | (getpid() << 20)));
 491         memset(&me, 0, sizeof(me));
 492         memset(&meLocalUser, 0, sizeof(meLocalUser));
 493         me.localClient = &meLocalUser;
 494
 495         /* Make sure all lists are zeroed */
 496         memset(&unknown_list, 0, sizeof(unknown_list));
 497         memset(&lclient_list, 0, sizeof(lclient_list));
 498         memset(&serv_list, 0, sizeof(serv_list));
 499         memset(&global_serv_list, 0, sizeof(global_serv_list));
 500         memset(&local_oper_list, 0, sizeof(local_oper_list));
 501         memset(&oper_list, 0, sizeof(oper_list));
 502
 503         rb_dlinkAddTail(&me, &me.node, &global_client_list);
 504
 505         memset((void *) &Count, 0, sizeof(Count));
 506         memset((void *) &ServerInfo, 0, sizeof(ServerInfo));
 507         memset((void *) &AdminInfo, 0, sizeof(AdminInfo));
 508
 509         /* Initialise the channel capability usage counts... */
 510         init_chcap_usage_counts();
 511
 512         ConfigFileEntry.dpath = DPATH;
 513         ConfigFileEntry.configfile = CPATH;     /* Server configuration file */
 514         ConfigFileEntry.klinefile = KPATH;      /* Server kline file */
 515         ConfigFileEntry.dlinefile = DLPATH;     /* dline file */
 516         ConfigFileEntry.xlinefile = XPATH;
 517         ConfigFileEntry.resvfile = RESVPATH;
 518         ConfigFileEntry.connect_timeout = 30;   /* Default to 30 */
 519         myargv = argv;
 520         umask(077);             /* better safe than sorry --SRB */
 521
 522         parseargs(&argc, &argv, myopts);
 523
 524         if(printVersion)
 525         {
 526                 printf("ircd: version %s\n", ircd_version);
 527                 exit(EXIT_SUCCESS);
 528         }
 529
 530         if(chdir(ConfigFileEntry.dpath))
 531         {
 532                 fprintf(stderr, "Unable to chdir to %s: %s\n", ConfigFileEntry.dpath, strerror(errno));
 533                 exit(EXIT_FAILURE);
 534         }
 535
 536         setup_signals();
 537
 538 #ifdef __CYGWIN__
 539         server_state_foreground = 1;
 540 #endif
 541
 542         if (testing_conf)
 543                 server_state_foreground = 1;
 544
 545         /* Make sure fd 0, 1 and 2 are in use -- jilles */
 546         do
 547         {
 548                 fd = open("/dev/null", O_RDWR);
 549         } while (fd < 2 && fd != -1);
 550         if (fd > 2)
 551                 close(fd);
 552         else if (fd == -1)
 553                 exit(1);
 554
 555         /* Check if there is pidfile and daemon already running */
 556         if(!testing_conf)
 557         {
 558                 check_pidfile(pidFileName);
 559
 560                 if(!server_state_foreground)
 561                         make_daemon();
 562                 inotice("starting %s ...", ircd_version);
 563         }
 564
 565         /* Init the event subsystem */
 566         init_sys();
 567         libcharybdis_init(ircd_log_cb, restart, ircd_die_cb);
 568         rb_lib_init(ircd_log_cb, restart, ircd_die_cb, !server_state_foreground, maxconnections, DNODE_HEAP_SIZE, FD_HEAP_SIZE);
 569
 570         init_main_logfile();
 571         newconf_init();
 572         init_s_conf();
 573         init_s_newconf();
 574         init_hash();
 575         clear_scache_hash_table();      /* server cache name table */
 576         init_host_hash();
 577         clear_hash_parse();
 578         init_client();
 579         initUser();
 580         init_hook();
 581         init_channels();
 582         initclass();
 583         initwhowas();
 584         init_stats();
 585         init_reject();
 586         init_cache();
 587         init_monitor();
 588         init_isupport();
 589         load_all_modules(1);
 590 #ifndef STATIC_MODULES
 591         load_core_modules(1);
 592 #endif
 593         init_auth();            /* Initialise the auth code */
 594         init_resolver();        /* Needs to be setup before the io loop */
 595
 596         if (testing_conf)
 597                 fprintf(stderr, "\nBeginning config test\n");
 598         read_conf_files(YES);   /* cold start init conf files */
 599         rehash_bans(0);
 600 #ifndef STATIC_MODULES
 601
 602         mod_add_path(MODULE_DIR);
 603         mod_add_path(MODULE_DIR "/autoload");
 604 #endif
 605
 606         initialize_server_capabs();     /* Set up default_server_capabs */
 607         initialize_global_set_options();
 608
 609         if(ServerInfo.name == NULL)
 610         {
 611                 ierror("no server name specified in serverinfo block.");
 612                 return -1;
 613         }
 614         strlcpy(me.name, ServerInfo.name, sizeof(me.name));
 615
 616         if(ServerInfo.sid[0] == '\0')
 617         {
 618                 ierror("no server sid specified in serverinfo block.");
 619                 return -2;
 620         }
 621         strcpy(me.id, ServerInfo.sid);
 622         init_uid();
 623
 624         /* serverinfo{} description must exist.  If not, error out. */
 625         if(ServerInfo.description == NULL)
 626         {
 627                 ierror("no server description specified in serverinfo block.");
 628                 return -3;
 629         }
 630         strlcpy(me.info, ServerInfo.description, sizeof(me.info));
 631
 632         if (testing_conf)
 633         {
 634                 fprintf(stderr, "\nConfig testing complete.\n");
 635                 fflush(stderr);
 636                 return 0;       /* Why? We want the launcher to exit out. */
 637         }
 638
 639         me.from = &me;
 640         me.servptr = &me;
 641         SetMe(&me);
 642         make_server(&me);
 643         startup_time = CurrentTime;
 644         add_to_client_hash(me.name, &me);
 645         add_to_id_hash(me.id, &me);
 646         me.serv->nameinfo = scache_connect(me.name, me.info, 0);
 647
 648         rb_dlinkAddAlloc(&me, &global_serv_list);
 649
 650         construct_umodebuf();
 651
 652         check_class();
 653         write_pidfile(pidFileName);
 654         load_help();
 655         open_logfiles();
 656
 657         ilog(L_MAIN, "Server Ready");
 658
 659         eventAddIsh("cleanup_glines", cleanup_glines, NULL, CLEANUP_GLINES_TIME);
 660
 661         /* We want try_connections to be called as soon as possible now! -- adrian */
 662         /* No, 'cause after a restart it would cause all sorts of nick collides */
 663         /* um.  by waiting even longer, that just means we have even *more*
 664          * nick collisions.  what a stupid idea. set an event for the IO loop --fl
 665          */
 666         eventAddIsh("try_connections", try_connections, NULL, STARTUP_CONNECTIONS_TIME);
 667         eventAddOnce("try_connections_startup", try_connections, NULL, 0);
 668
 669         eventAddIsh("collect_zipstats", collect_zipstats, NULL, ZIPSTATS_TIME);
 670
 671         /* Setup the timeout check. I'll shift it later :)  -- adrian */
 672         eventAddIsh("rb_checktimeouts", rb_checktimeouts, NULL, 1);
 673
 674         eventAdd("check_rehash", check_rehash, NULL, 1);
 675
 676         if(splitmode)
 677                 check_splitmode_ev = rb_event_add("check_splitmode", check_splitmode, NULL, 2);
 678
 679         ServerRunning = 1;
 680
 681         print_startup(getpid());
 682
 683         charybdis_io_loop();
 684
 685         return 0;
 686 }