ramkomd.c 13.6 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
Per Cederqvist's avatar
Per Cederqvist committed
2
 * $Id: ramkomd.c,v 0.74 1999/04/03 22:15:48 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
 */

David Byers's avatar
David Byers committed
41 42 43 44 45

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

46
static const char *
Per Cederqvist's avatar
Per Cederqvist committed
47
rcsid = "$Id: ramkomd.c,v 0.74 1999/04/03 22:15:48 ceder Exp $";
48 49
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
50

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

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

110 111 112 113
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_OFILE) && !defined(RLIMIT_NOFILE)
#  define RLIMIT_NOFILE RLIMIT_OFILE
#endif

114 115 116 117 118 119
struct kom_par param;
 
Kom_err		  kom_errno = KOM_NO_ERROR;
unsigned long	  err_stat = 0;


Per Cederqvist's avatar
Per Cederqvist committed
120
#ifndef NDEBUG
121
int	buglevel = 0;
122
#endif
Per Cederqvist's avatar
Per Cederqvist committed
123

124 125
static IscSession *listen_client = NULL;      /* ISC listen identifier */
static IscSession *listen_mux    = NULL;      /*          -"-          */
Per Cederqvist's avatar
Per Cederqvist committed
126

127
static void dump_exit_statistics(void);
David Byers's avatar
David Byers committed
128
static void free_kom_info(void);
129

Per Cederqvist's avatar
Per Cederqvist committed
130
static void
131
server_init (char * client_port, char * mux_port)
Per Cederqvist's avatar
Per Cederqvist committed
132
{
Per Cederqvist's avatar
Per Cederqvist committed
133
    IscConfig config;
134
    IscAddress *isc_adr = NULL;
135 136 137 138
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif

Per Cederqvist's avatar
Per Cederqvist committed
139 140 141
    /*
    ** Setup some parameters here
    */
Per Cederqvist's avatar
Per Cederqvist committed
142 143 144 145 146
    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;
147
    config.master.abortfn = NULL; /* Use default abort function. */
Per Cederqvist's avatar
Per Cederqvist committed
148
    config.session.version = 1001;
149
    config.session.max.msgsize = -1; /* Use default sizes. */
Per Cederqvist's avatar
Per Cederqvist committed
150 151 152 153
    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
154

155
    kom_server_mcb  = isc_initialize(&config);
Per Cederqvist's avatar
Per Cederqvist committed
156
    if ( kom_server_mcb == NULL )
Per Cederqvist's avatar
Per Cederqvist committed
157 158 159 160 161
	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
162

163 164 165 166
    isc_adr = isc_getladdress (listen_client);
    if (isc_adr == NULL)
	restart_kom("server_init(): can't isc_getladdress (listen_client)\n");

167
    param.num_ip_client_port = isc_getportnum (isc_adr);
168 169 170
    isc_freeaddress (isc_adr);
    
    listen_mux = isc_listentcp (kom_server_mcb, NULL, mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
171 172
    if (listen_mux == NULL)
        restart_kom("server_init: can't isc_listentcp(MUX)\n");
173 174 175 176

    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
177
    
178
    param.num_ip_mux_port = isc_getportnum (isc_adr);
179 180 181
    isc_freeaddress (isc_adr);

    log("Listening for clients on %d and muxes on %d.\n",
182
	param.num_ip_client_port, param.num_ip_mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
183 184 185 186 187 188

    /*
     * 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.
     */
189 190 191 192
#ifdef HAVE_STRUCT_SIGACTION
    sigemptyset(&act.sa_mask);
    act.sa_flags = 0;
    act.sa_handler = SIG_IGN;
193
    sigaction(SIGPIPE, &act, NULL);
194
#else
Per Cederqvist's avatar
Per Cederqvist committed
195
    signal(SIGPIPE, SIG_IGN);
196
#endif
Per Cederqvist's avatar
Per Cederqvist committed
197 198 199
}

static void
200
init_data_base(void)
Per Cederqvist's avatar
Per Cederqvist committed
201
{
202 203
    log("Database = %s\n",  param.datafile_name);
    log("Backup = %s\n", param.backupfile_name);
204
    log("2nd Backup = %s\n", param.backupfile_name_2);
Per Cederqvist's avatar
Per Cederqvist committed
205 206
    
    if ( init_cache() == FAILURE )
207
	restart_kom ("Cannot find database.\n");
Per Cederqvist's avatar
Per Cederqvist committed
208 209
}

Per Cederqvist's avatar
Per Cederqvist committed
210
static void
211
sighandler_hup (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
212
{
213
#ifndef HAVE_STRUCT_SIGACTION
214
    signal(SIGHUP, sighandler_hup);
215
#endif
Per Cederqvist's avatar
Per Cederqvist committed
216
    log ("Signal HUP received. Shutting down server.\n");
Per Cederqvist's avatar
Per Cederqvist committed
217
    go_and_die = 1;
Per Cederqvist's avatar
Per Cederqvist committed
218 219
}

Per Cederqvist's avatar
Per Cederqvist committed
220
static void
221
sighandler_quit (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
222 223 224 225 226 227 228
{
    log ("Signal QUIT received - syncing...\n");
    cache_sync_all();
    log ("Dumping core now.\n");
    abort();
}

Per Cederqvist's avatar
Per Cederqvist committed
229
static void
230
sighandler_usr1 (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
231
{
232
#ifndef HAVE_STRUCT_SIGACTION
233
    signal(SIGUSR1, sighandler_usr1);
234
#endif
Per Cederqvist's avatar
Per Cederqvist committed
235
    do_statistics = 1;
Per Cederqvist's avatar
Per Cederqvist committed
236 237
}

Per Cederqvist's avatar
Per Cederqvist committed
238
static void
239
sighandler_usr2 (int UNUSED(sig))
Per Cederqvist's avatar
Per Cederqvist committed
240 241 242
{
    int		  child;

243
#ifndef HAVE_STRUCT_SIGACTION
244
    signal(SIGUSR2, sighandler_usr2);
245
#endif
246

Per Cederqvist's avatar
Per Cederqvist committed
247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263
    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
264
static void
Per Cederqvist's avatar
Per Cederqvist committed
265 266 267 268
save_pid(void)
{
    FILE *fp;

269
    if ((fp = fopen(param.pid_name, "w")) == NULL)
Per Cederqvist's avatar
Per Cederqvist committed
270 271
	return;

272
    fprintf(fp, "%ld\n", (long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
273 274 275
    fclose(fp);
}

Per Cederqvist's avatar
Per Cederqvist committed
276
static void
277
go_daemon(void)
Per Cederqvist's avatar
Per Cederqvist committed
278 279 280
{
    pid_t child;
    int fd;
281 282 283 284
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif
    
285 286 287 288 289
    if (buglevel != 0)
    {
	return;
    }

Per Cederqvist's avatar
Per Cederqvist committed
290 291 292 293 294
    if (getppid() != 1)
    {
	/* We were not invoked from /etc/inittab, so
	   disassociate from controlling terminal. */

295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312
#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
313
	signal(SIGTTOU, SIG_IGN);
314 315
#  endif
#  ifdef SIGTTIN
Per Cederqvist's avatar
Per Cederqvist committed
316
	signal(SIGTTIN, SIG_IGN);
317 318
#  endif
#  ifdef SIGTSTP
Per Cederqvist's avatar
Per Cederqvist committed
319
	signal(SIGTSTP, SIG_IGN);
320 321
#  endif

Per Cederqvist's avatar
Per Cederqvist committed
322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337
#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
338
	||open(param.logfile_name, O_WRONLY|O_CREAT|O_APPEND, 0644) != 2)
Per Cederqvist's avatar
Per Cederqvist committed
339 340 341
    {
	/* Kinda stupid to try to log an error message now, but
	   who knows? */
342
	restart_kom("open of log file failed: %d\n", errno);
Per Cederqvist's avatar
Per Cederqvist committed
343
    }
344 345
    log("*** Version %s (process %lu) coming up.\n",
	kom_version_info.server_version, (unsigned long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
346 347
}

348
static void
349
initialize(const char *config_file)
350
{
351 352 353 354
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
    struct rlimit rlim;
#endif

355
    read_configuration(config_file);
356
    initialize_aux_items(param.aux_def_file);
357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372

#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
373 374

#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
Per Cederqvist's avatar
Per Cederqvist committed
375
    if (param.no_files != -1)
376 377 378 379 380 381 382 383
    {
	if (getrlimit(RLIMIT_NOFILE, &rlim) < 0)
	{
	    perror("getrlimit(RLIMIT_NOFILE) failed");
	    exit(1);
	}
	if (param.no_files > rlim.rlim_max)
	{
384 385 386 387
	    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);
388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419
	    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

420
    go_daemon();
421
    server_init(param.ip_client_port, param.ip_mux_port);
422
    init_data_base();
423 424
}

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

428
	
Per Cederqvist's avatar
Per Cederqvist committed
429 430 431 432 433
int
main (int    argc,
      char **argv)
{
    int i;
434 435
    char *default_config_file;
    char *config_file;
436 437 438
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif
Per Cederqvist's avatar
Per Cederqvist committed
439

440 441
    log("*** Version %s (process %lu) started.\n",
	kom_version_info.server_version, (unsigned long)getpid());
442 443 444 445
#ifdef DEBUG_CALLS
    log("WARNING: This server was compiled with --with-debug-calls.\n");
    log("It isn't safe to use in a production environment.\n");
#endif
446

Per Cederqvist's avatar
Per Cederqvist committed
447
#ifdef ENCRYPT_PASSWORDS
448
    /* Seed the random number generator. */
Per Cederqvist's avatar
Per Cederqvist committed
449 450
    srand(time(NULL) + getpid());
#endif
Per Cederqvist's avatar
Per Cederqvist committed
451

452 453
    /* Initialize the string handling package. */
    s_set_storage_management(string_malloc, string_realloc, string_free);
454

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

463
	default:
464
	    restart_kom("usage: %s [-d ...] [config-file]\n", argv[0]);
465
	}
Per Cederqvist's avatar
Per Cederqvist committed
466

467

468
    /* Read in the configuration file. */
469

470 471 472
    default_config_file = smalloc(strlen(DEFAULT_DBASE_DIR) +
				  strlen(CONFIG_FILE) + 2);
    sprintf(default_config_file, "%s/%s", DEFAULT_DBASE_DIR, CONFIG_FILE);
Per Cederqvist's avatar
Per Cederqvist committed
473
    if (i < argc)
474 475 476
	config_file = argv[i++];
    else
	config_file = default_config_file;
Per Cederqvist's avatar
Per Cederqvist committed
477

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

481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496
#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
497 498 499 500
    signal(SIGHUP, sighandler_hup);
    signal(SIGQUIT, sighandler_quit);
    signal(SIGUSR1, sighandler_usr1);
    signal(SIGUSR2, sighandler_usr2);
501 502
#endif

503
    initialize(config_file);	/* Read config, listen, and start db */
504
    chdir(param.core_dir);
505 506
    sfree(default_config_file);

Per Cederqvist's avatar
Per Cederqvist committed
507
    save_pid();
Per Cederqvist's avatar
Per Cederqvist committed
508

Per Cederqvist's avatar
Per Cederqvist committed
509
    toploop();
Per Cederqvist's avatar
Per Cederqvist committed
510 511

    logout_all_clients();
512
    isc_shutdown(kom_server_mcb);
Per Cederqvist's avatar
Per Cederqvist committed
513
    cache_sync_all();
Per Cederqvist's avatar
Per Cederqvist committed
514

David Byers's avatar
David Byers committed
515
    free_kom_info();
516 517
    dump_exit_statistics();

Per Cederqvist's avatar
Per Cederqvist committed
518
    log("%s terminated normally.\n", argv[0]);
519 520 521 522 523 524 525 526 527 528

    /* Don't actually die until something is entered on stdin in debug
       mode.  This is mainly here for the benefit of the test suite,
       but is could also be useful to be able to attach a debugger and
       do pre-mortem debugging of the process at this point.  */
    if (buglevel > 0)
    {
	log("Press enter to terminate lyskomd\n");
	getchar();
    }
529
    
530
    exit(0);
531 532 533 534 535 536 537 538 539
}

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

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

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

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

547 548 549 550
    dump_cache_stats (stat_file);

    free_all_tmp();
    free_all_cache();
551
    free_all_jubel();
552

Per Cederqvist's avatar
Per Cederqvist committed
553 554
    dump_smalloc_counts(stat_file);
    dump_alloc_counts(stat_file);
555
    dump_cache_mem_usage(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
556
    dump_string_alloc_counts(stat_file);
557
    dump_allocated_connections(stat_file);
558
    dump_isc_alloc_counts(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
559
    fclose (stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
560
}
David Byers's avatar
David Byers committed
561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577

static void
free_kom_info(void)
{
    unsigned long i;

    if (kom_info.aux_item_list.items != NULL)
    {
        for (i = 0; i < kom_info.aux_item_list.length; i++)
        {
            s_clear(&kom_info.aux_item_list.items[i].data);
        }
        sfree(kom_info.aux_item_list.items);
    }
    kom_info.aux_item_list.length = 0;
    kom_info.aux_item_list.items = 0;
}