ramkomd.c 13.1 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2
 * $Id: ramkomd.c,v 0.66 1998/07/12 01:24:19 ceder Exp $
Per Cederqvist's avatar
Per Cederqvist committed
3
 * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996  Lysator Academic Computer Association.
Linus Tolke Y's avatar
Linus Tolke Y committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
 *
 * This file is part of the LysKOM server.
 * 
 * LysKOM is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by 
 * the Free Software Foundation; either version 1, or (at your option) 
 * any later version.
 * 
 * LysKOM is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with LysKOM; see the file COPYING.  If not, write to
 * Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
 * or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
 * MA 02139, USA.
 *
 * Please mail bug reports to bug-lyskom@lysator.liu.se. 
 */
25 26 27 28 29 30 31
/*
 * The next comment block is a historic comment, written in Swedish
 * using ISO 646 since nobody in Lysator knew about ISO 8859-1 by
 * then.  It translates, rougly, to "This is the main program of the
 * server.  It will hopefully be bigger than it is at the moment.
 * Created by Willfr 31-mar-1990."
 */
Per Cederqvist's avatar
Per Cederqvist committed
32 33 34 35 36 37 38 39 40
/*
 * Detta {r serverns huvudprogram. Det kommer f|rhoppningsvis bli st|rre
 * {n det {r just nu...
 *
 * Created by Willf|r 31/3-90
 *
 * It has grown! /ceder
 */

41
static const char *
42
rcsid = "$Id: ramkomd.c,v 0.66 1998/07/12 01:24:19 ceder Exp $";
43 44
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
45

46 47 48
#ifdef HAVE_LOCALE_H
#  include <locale.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
49
#include <stdio.h>
Per Cederqvist's avatar
Per Cederqvist committed
50
#include <signal.h>
Per Cederqvist's avatar
Per Cederqvist committed
51 52 53
#ifdef HAVE_STDARG_H
#  include <stdarg.h>
#endif
54 55 56 57 58 59
#ifdef HAVE_STDLIB_H
#  include <stdlib.h>
#endif
#ifdef HAVE_STRING_H
#  include <string.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
60
#include <sys/wait.h>
Per Cederqvist's avatar
Per Cederqvist committed
61
#include <time.h>
62
#ifdef HAVE_SYS_RESOURCE_H
Per Cederqvist's avatar
Per Cederqvist committed
63
#  include <sys/time.h>
64 65
#  include <sys/resource.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
66
#include <unistd.h>
Per Cederqvist's avatar
Per Cederqvist committed
67 68 69 70
#include <setjmp.h>
#if defined(HAVE_SYS_PARAM_H) && !defined(HAVE_GETCWD)
# include <sys/param.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
71
#include <errno.h>
Per Cederqvist's avatar
Per Cederqvist committed
72
#include <sys/types.h>
73
#include <sys/socket.h>
Per Cederqvist's avatar
Per Cederqvist committed
74
#include <fcntl.h>
Per Cederqvist's avatar
Per Cederqvist committed
75

Per Cederqvist's avatar
Per Cederqvist committed
76
#include "exp.h"
77
#include "s-string.h"
Per Cederqvist's avatar
Per Cederqvist committed
78
#include "misc-types.h"
79
#include "kom-types.h"
Per Cederqvist's avatar
Per Cederqvist committed
80
#include "com.h"
81
#include "async.h"
Per Cederqvist's avatar
Per Cederqvist committed
82 83 84
#include "connections.h"
#include "internal-connections.h"
#include "kom-errno.h"
Per Cederqvist's avatar
Per Cederqvist committed
85
#include "isc-malloc.h"
86
#include "isc-interface.h"
Per Cederqvist's avatar
Per Cederqvist committed
87
#include "config.h"
Per Cederqvist's avatar
Per Cederqvist committed
88
#include "cache.h"
Per Cederqvist's avatar
Per Cederqvist committed
89 90
#include "string-malloc.h"
#include "lyskomd.h"
Per Cederqvist's avatar
Per Cederqvist committed
91
#include "log.h"
Per Cederqvist's avatar
Per Cederqvist committed
92 93 94
#include "internal-services.h"
#include "server/smalloc.h"
#include "kom-memory.h"
95 96
#include "conf-file.h"
#include "param.h"
97 98
#include "server-config.h"
#include "manipulate.h"
99
#include "version-info.h"
100
#include "aux-items.h"
101
#include "unused.h"
102

103 104 105 106
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_OFILE) && !defined(RLIMIT_NOFILE)
#  define RLIMIT_NOFILE RLIMIT_OFILE
#endif

107 108 109 110 111 112
struct kom_par param;
 
Kom_err		  kom_errno = KOM_NO_ERROR;
unsigned long	  err_stat = 0;


Per Cederqvist's avatar
Per Cederqvist committed
113
#ifndef NDEBUG
114
int	buglevel = 0;
115
#endif
Per Cederqvist's avatar
Per Cederqvist committed
116

117 118
static IscSession *listen_client = NULL;      /* ISC listen identifier */
static IscSession *listen_mux    = NULL;      /*          -"-          */
Per Cederqvist's avatar
Per Cederqvist committed
119

120
static void dump_exit_statistics(void);
121

Per Cederqvist's avatar
Per Cederqvist committed
122
static void
123
server_init (char * client_port, char * mux_port)
Per Cederqvist's avatar
Per Cederqvist committed
124
{
Per Cederqvist's avatar
Per Cederqvist committed
125
    IscConfig config;
126
    IscAddress *isc_adr = NULL;
127 128 129 130
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif

Per Cederqvist's avatar
Per Cederqvist committed
131 132 133
    /*
    ** Setup some parameters here
    */
Per Cederqvist's avatar
Per Cederqvist committed
134 135 136 137 138
    config.version = 1005;
    config.master.version = 1001;
    config.master.memfn.alloc = &isc_malloc_wrapper;
    config.master.memfn.realloc = &isc_realloc_wrapper;
    config.master.memfn.free = &isc_free_wrapper;
139
    config.master.abortfn = NULL; /* Use default abort function. */
Per Cederqvist's avatar
Per Cederqvist committed
140
    config.session.version = 1001;
141
    config.session.max.msgsize = -1; /* Use default sizes. */
Per Cederqvist's avatar
Per Cederqvist committed
142 143 144 145
    config.session.max.queuedsize = -1;
    config.session.max.dequeuelen = -1;
    config.session.max.openretries = -1;
    config.session.max.backlog = -1;
Per Cederqvist's avatar
Per Cederqvist committed
146

147
    kom_server_mcb  = isc_initialize(&config);
Per Cederqvist's avatar
Per Cederqvist committed
148
    if ( kom_server_mcb == NULL )
Per Cederqvist's avatar
Per Cederqvist committed
149 150 151 152 153
	restart_kom("server_init: can't isc_initialize()\n");

    listen_client = isc_listentcp(kom_server_mcb, NULL, client_port);
    if (listen_client == NULL)
        restart_kom("server_init: can't isc_listentcp(CLIENT)\n");
Per Cederqvist's avatar
Per Cederqvist committed
154

155 156 157 158
    isc_adr = isc_getladdress (listen_client);
    if (isc_adr == NULL)
	restart_kom("server_init(): can't isc_getladdress (listen_client)\n");

159
    param.num_ip_client_port = isc_getportnum (isc_adr);
160 161 162
    isc_freeaddress (isc_adr);
    
    listen_mux = isc_listentcp (kom_server_mcb, NULL, mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
163 164
    if (listen_mux == NULL)
        restart_kom("server_init: can't isc_listentcp(MUX)\n");
165 166 167 168

    isc_adr = isc_getladdress (listen_mux);
    if (isc_adr == NULL)
	restart_kom("server_init(): can't isc_getladdress (listen_mux)\n");
Per Cederqvist's avatar
Per Cederqvist committed
169
    
170
    param.num_ip_mux_port = isc_getportnum (isc_adr);
171 172 173
    isc_freeaddress (isc_adr);

    log("Listening for clients on %d and muxes on %d.\n",
174
	param.num_ip_client_port, param.num_ip_mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
175 176 177 178 179 180

    /*
     * Ignore SIGPIPE, which the server gets if it tries to write to a
     * socket and the client has died. The server will anyhow handle
     * this situation correct.
     */
181 182 183 184
#ifdef HAVE_STRUCT_SIGACTION
    sigemptyset(&act.sa_mask);
    act.sa_flags = 0;
    act.sa_handler = SIG_IGN;
185
    sigaction(SIGPIPE, &act, NULL);
186
#else
Per Cederqvist's avatar
Per Cederqvist committed
187
    signal(SIGPIPE, SIG_IGN);
188
#endif
Per Cederqvist's avatar
Per Cederqvist committed
189 190 191
}

static void
192
init_data_base(void)
Per Cederqvist's avatar
Per Cederqvist committed
193
{
194 195
    log("Database = %s\n",  param.datafile_name);
    log("Backup = %s\n", param.backupfile_name);
Per Cederqvist's avatar
Per Cederqvist committed
196 197
    
    if ( init_cache() == FAILURE )
198
	restart_kom ("Cannot find database.\n");
Per Cederqvist's avatar
Per Cederqvist committed
199 200
}

Per Cederqvist's avatar
Per Cederqvist committed
201
static void
202
sighandler_hup (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
203
{
204
#ifndef HAVE_STRUCT_SIGACTION
205
    signal(SIGHUP, sighandler_hup);
206
#endif
Per Cederqvist's avatar
Per Cederqvist committed
207 208 209 210
    log ("Signal HUP received. Shutting down server.\n");
    go_and_die = TRUE;
}

Per Cederqvist's avatar
Per Cederqvist committed
211
static void
212
sighandler_quit (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
213 214 215 216 217 218 219
{
    log ("Signal QUIT received - syncing...\n");
    cache_sync_all();
    log ("Dumping core now.\n");
    abort();
}

Per Cederqvist's avatar
Per Cederqvist committed
220
static void
221
sighandler_usr1 (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
222
{
223
#ifndef HAVE_STRUCT_SIGACTION
224
    signal(SIGUSR1, sighandler_usr1);
225
#endif
Per Cederqvist's avatar
Per Cederqvist committed
226 227 228
    do_sync_db = TRUE;
}

Per Cederqvist's avatar
Per Cederqvist committed
229
static void
230
sighandler_usr2 (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
231 232 233
{
    int		  child;

234
#ifndef HAVE_STRUCT_SIGACTION
235
    signal(SIGUSR2, sighandler_usr2);
236
#endif
237

Per Cederqvist's avatar
Per Cederqvist committed
238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254
    log ("Signal USR2 received - will dump core now.  (Check that child dies.)\n");
    if ((child = fork()) == 0)
    {
	abort();
	log ("Abort() failed!!!");
	exit(1);
    }
    else if (child < 0)
    {
	log ("Couldn't fork.\n");
    }
    else
    {
	wait (NULL);
    }
}

Per Cederqvist's avatar
Per Cederqvist committed
255
static void
Per Cederqvist's avatar
Per Cederqvist committed
256 257 258 259
save_pid(void)
{
    FILE *fp;

260
    if ((fp = fopen(param.pid_name, "w")) == NULL)
Per Cederqvist's avatar
Per Cederqvist committed
261 262
	return;

263
    fprintf(fp, "%ld\n", (long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
264 265 266
    fclose(fp);
}

Per Cederqvist's avatar
Per Cederqvist committed
267
static void
268
go_daemon(void)
Per Cederqvist's avatar
Per Cederqvist committed
269 270 271
{
    pid_t child;
    int fd;
272 273 274 275
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif
    
276 277 278 279 280
    if (buglevel != 0)
    {
	return;
    }

Per Cederqvist's avatar
Per Cederqvist committed
281 282 283 284 285
    if (getppid() != 1)
    {
	/* We were not invoked from /etc/inittab, so
	   disassociate from controlling terminal. */

286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303
#ifdef HAVE_STRUCT_SIGACTION
	sigemptyset(&act.sa_mask);
	act.sa_flags = 0;
	act.sa_handler = SIG_IGN;

#  ifdef SIGTTOU
	sigaction(SIGTTOU, &act, NULL);
#  endif
#  ifdef SIGTTIN
	sigaction(SIGTTIN, &act, NULL);
#  endif
#  ifdef SIGTSTP
	sigaction(SIGTSTP, &act, NULL);
#  endif

#else  /* !HAVE_STRUCT_SIGACTION */

#  ifdef SIGTTOU
Per Cederqvist's avatar
Per Cederqvist committed
304
	signal(SIGTTOU, SIG_IGN);
305 306
#  endif
#  ifdef SIGTTIN
Per Cederqvist's avatar
Per Cederqvist committed
307
	signal(SIGTTIN, SIG_IGN);
308 309
#  endif
#  ifdef SIGTSTP
Per Cederqvist's avatar
Per Cederqvist committed
310
	signal(SIGTSTP, SIG_IGN);
311 312
#  endif

Per Cederqvist's avatar
Per Cederqvist committed
313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328
#endif

	child = fork();
	if (child < 0)
	    restart_kom("fork failed: %d\n", errno);
	else if (child > 0)
	    exit (0);		/* parent */
	
	setsid();
    }

    /* Close all file descriptors */
    for (fd = 0; fd < MAX_NO_OF_CONNECTIONS + PROTECTED_FDS; fd++)
	close(fd);
    if (open("/dev/null", O_RDONLY) != 0
	||open("/dev/null", O_WRONLY) != 1
329
	||open(param.logfile_name, O_WRONLY|O_CREAT|O_APPEND, 0644) != 2)
Per Cederqvist's avatar
Per Cederqvist committed
330 331 332
    {
	/* Kinda stupid to try to log an error message now, but
	   who knows? */
333
	restart_kom("open of log file failed: %d\n", errno);
Per Cederqvist's avatar
Per Cederqvist committed
334
    }
335 336
    log("*** Version %s (process %lu) coming up.\n",
	kom_version_info.server_version, (unsigned long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
337 338
}

339
static void
340
initialize(const char *config_file, char *aux_def_file)
341
{
342 343 344 345
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
    struct rlimit rlim;
#endif

346
    read_configuration(config_file);
347
    initialize_aux_items(aux_def_file);
348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363

#ifdef HAVE_LOCALE_H
    if (param.use_locale != NULL)
	if (setlocale(LC_CTYPE, param.use_locale) == NULL)
	{
	    fprintf(stderr, "setlocale: ");
	    perror(param.use_locale);
	    exit(1);
	}
#else
    if (param.use_locale != NULL)
    {
	fprintf(stderr, "locale not supported in your environment.\n");
	exit(1);
    }
#endif
364 365

#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
Per Cederqvist's avatar
Per Cederqvist committed
366
    if (param.no_files != -1)
367 368 369 370 371 372 373 374
    {
	if (getrlimit(RLIMIT_NOFILE, &rlim) < 0)
	{
	    perror("getrlimit(RLIMIT_NOFILE) failed");
	    exit(1);
	}
	if (param.no_files > rlim.rlim_max)
	{
375 376 377 378
	    fprintf(stderr, "attempt to raise open files from %ld to %ld, "
		    "but only %ld is allowed\n",
		    (long)rlim.rlim_cur, (long)param.no_files,
		    (long)rlim.rlim_max);
379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410
	    rlim.rlim_cur = rlim.rlim_max;
	}
	else
	    rlim.rlim_cur = param.no_files;
	
	if (setrlimit(RLIMIT_NOFILE, &rlim) < 0)
	{
	    perror("setrlimit failed");
	    exit(1);
	}
    }
#else
    if (param.no_files != -1)
    {
	fprintf(stderr,
		"can't alter number of open files in your environment.\n");
	exit(1);
    }
#endif

    /* Find out how many connections we can handle. */
#if defined (HAVE_SYSCONF)
    MAX_NO_OF_CONNECTIONS = sysconf(_SC_OPEN_MAX) - PROTECTED_FDS;
#else
# ifdef HAVE_GETDTABLESIZE
    MAX_NO_OF_CONNECTIONS = getdtablesize() - PROTECTED_FDS;
# else
    /* If we don't have getdtablesize or sysconf, MAX_NO_OF_CONNECTIONS is
       set at compile time. */
# endif
#endif

411
    go_daemon();
412
    server_init(param.ip_client_port, param.ip_mux_port);
413
    init_data_base();
414 415
}

Per Cederqvist's avatar
Per Cederqvist committed
416 417 418
/* Stop complaint from gcc 2.0 about "no previous prototype for `main'". */
int main(int argc, char **argv);

419
	
Per Cederqvist's avatar
Per Cederqvist committed
420 421 422 423 424
int
main (int    argc,
      char **argv)
{
    int i;
425 426
    char *default_config_file;
    char *config_file;
427 428
    char *default_aux_def_file;
    char *aux_def_file;
429 430 431
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif
Per Cederqvist's avatar
Per Cederqvist committed
432

433 434
    log("*** Version %s (process %lu) started.\n",
	kom_version_info.server_version, (unsigned long)getpid());
435

Per Cederqvist's avatar
Per Cederqvist committed
436
#ifdef ENCRYPT_PASSWORDS
437
    /* Seed the random number generator. */
Per Cederqvist's avatar
Per Cederqvist committed
438 439
    srand(time(NULL) + getpid());
#endif
Per Cederqvist's avatar
Per Cederqvist committed
440

441 442
    /* Initialize the string handling package. */
    s_set_storage_management(string_malloc, string_realloc, string_free);
443

444 445 446 447 448 449 450 451 452 453 454 455 456
    /* Set default file names */

    default_config_file = smalloc(strlen(DEFAULT_DBASE_DIR) +
				  strlen(CONFIG_FILE) + 2);
    default_aux_def_file = smalloc(strlen(DEFAULT_DBASE_DIR) +
				  strlen(AUX_DEF_FILE) + 2);
    sprintf(default_config_file, "%s/%s", DEFAULT_DBASE_DIR, CONFIG_FILE);
    sprintf(default_aux_def_file, "%s/%s", DEFAULT_DBASE_DIR, AUX_DEF_FILE);

    config_file = default_config_file;
    aux_def_file = default_aux_def_file;


457
    /* Parse command line arguments. */
Per Cederqvist's avatar
Per Cederqvist committed
458 459 460 461 462 463 464
    for (i = 1; i < argc && argv[i][0] == '-'; i++)
	switch (argv[i][1])
	{
	case 'd':
	    buglevel++;
	    break;

465 466 467 468 469 470 471 472
        case 'c':
            config_file = argv[i++];
            break;

        case 'a':
            aux_def_file = argv[i++];
            break;

473
	default:
474
	    restart_kom("usage: %s [-d ...] [-c config-file] [-a aux-ite-defs] [config-file]\n", argv[0]);
475
	}
Per Cederqvist's avatar
Per Cederqvist committed
476

477

478
    /* Read in the configuration file. */
479

Per Cederqvist's avatar
Per Cederqvist committed
480
    if (i < argc)
481 482 483
	config_file = argv[i++];
    else
	config_file = default_config_file;
Per Cederqvist's avatar
Per Cederqvist committed
484

485 486
    if (i < argc)
	    restart_kom("usage: %s [-d ...] [config-file]\n", argv[0]);
487

488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503
#ifdef HAVE_STRUCT_SIGACTION
    sigemptyset(&act.sa_mask);
    act.sa_flags = 0;

    act.sa_handler = sighandler_hup;
    sigaction(SIGHUP, &act, NULL);

    act.sa_handler = sighandler_quit;
    sigaction(SIGQUIT, &act, NULL);

    act.sa_handler = sighandler_usr1;
    sigaction(SIGUSR1, &act, NULL);

    act.sa_handler = sighandler_usr2;
    sigaction(SIGUSR2, &act, NULL);
#else
Per Cederqvist's avatar
Per Cederqvist committed
504 505 506 507
    signal(SIGHUP, sighandler_hup);
    signal(SIGQUIT, sighandler_quit);
    signal(SIGUSR1, sighandler_usr1);
    signal(SIGUSR2, sighandler_usr2);
508 509
#endif

510 511 512
    /* Read config, listen, and start db */
    initialize(config_file, aux_def_file);

513
    chdir(param.core_dir);
514 515
    sfree(default_config_file);

Per Cederqvist's avatar
Per Cederqvist committed
516
    save_pid();
Per Cederqvist's avatar
Per Cederqvist committed
517

Per Cederqvist's avatar
Per Cederqvist committed
518
    toploop();
Per Cederqvist's avatar
Per Cederqvist committed
519 520

    logout_all_clients();
521
    isc_shutdown(kom_server_mcb);
Per Cederqvist's avatar
Per Cederqvist committed
522
    cache_sync_all();
Per Cederqvist's avatar
Per Cederqvist committed
523

524 525
    dump_exit_statistics();

Per Cederqvist's avatar
Per Cederqvist committed
526
    log("%s terminated normally.\n", argv[0]);
527 528 529 530 531 532 533 534 535 536 537
    
    return 0;
}

static void 
dump_exit_statistics(void)
{
    FILE *stat_file;
    time_t now;

    time(&now);
538
    stat_file = fopen(param.memuse_name, "a");
Per Cederqvist's avatar
Per Cederqvist committed
539 540 541 542

    if ( stat_file == NULL )
	restart_kom("Can't open file to save memory usage to.\n");

543 544
    fprintf(stat_file, "\nLysKOM Server going down at %s\n", ctime(&now));

545 546 547 548
    dump_cache_stats (stat_file);

    free_all_tmp();
    free_all_cache();
549
    free_all_jubel();
550

Per Cederqvist's avatar
Per Cederqvist committed
551 552
    dump_smalloc_counts(stat_file);
    dump_alloc_counts(stat_file);
553
    dump_cache_mem_usage(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
554
    dump_string_alloc_counts(stat_file);
555
    dump_allocated_connections(stat_file);
556
    dump_isc_alloc_counts(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
557
    fclose (stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
558
}