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.76 1999/04/06 07:29:14 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.76 1999/04/06 07:29:14 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"
Per Cederqvist's avatar
Per Cederqvist committed
109
#include "local-to-global.h"
110

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
Per Cederqvist's avatar
Per Cederqvist committed
376
    if (param.no_files != -1)
377 378 379 380 381 382 383 384
    {
	if (getrlimit(RLIMIT_NOFILE, &rlim) < 0)
	{
	    perror("getrlimit(RLIMIT_NOFILE) failed");
	    exit(1);
	}
	if (param.no_files > rlim.rlim_max)
	{
385 386 387 388
	    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);
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 420
	    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

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

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

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

441 442
    log("*** Version %s (process %lu) started.\n",
	kom_version_info.server_version, (unsigned long)getpid());
443 444 445 446
#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
447

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

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

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

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

468

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

471 472 473
    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
474
    if (i < argc)
475 476 477
	config_file = argv[i++];
    else
	config_file = default_config_file;
Per Cederqvist's avatar
Per Cederqvist committed
478

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

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

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

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

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

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

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

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

    /* 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();
    }
530
    
531
    exit(0);
532 533 534 535 536 537 538 539 540
}

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

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

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

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

548 549 550 551
    dump_cache_stats (stat_file);

    free_all_tmp();
    free_all_cache();
552
    free_all_jubel();
553

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

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;
}