ramkomd.c 13.4 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
David Byers's avatar
David Byers committed
2
 * $Id: ramkomd.c,v 0.71 1998/12/30 17:39:36 byers 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 *
David Byers's avatar
David Byers committed
47
rcsid = "$Id: ramkomd.c,v 0.71 1998/12/30 17:39:36 byers 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"
108

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

439 440
    log("*** Version %s (process %lu) started.\n",
	kom_version_info.server_version, (unsigned long)getpid());
441

Per Cederqvist's avatar
Per Cederqvist committed
442
#ifdef ENCRYPT_PASSWORDS
443
    /* Seed the random number generator. */
Per Cederqvist's avatar
Per Cederqvist committed
444 445
    srand(time(NULL) + getpid());
#endif
Per Cederqvist's avatar
Per Cederqvist committed
446

447 448
    /* Initialize the string handling package. */
    s_set_storage_management(string_malloc, string_realloc, string_free);
449

450
    /* Parse command line arguments. */
Per Cederqvist's avatar
Per Cederqvist committed
451 452 453 454 455 456 457
    for (i = 1; i < argc && argv[i][0] == '-'; i++)
	switch (argv[i][1])
	{
	case 'd':
	    buglevel++;
	    break;

458
	default:
459
	    restart_kom("usage: %s [-d ...] [config-file]\n", argv[0]);
460
	}
Per Cederqvist's avatar
Per Cederqvist committed
461

462

463
    /* Read in the configuration file. */
464

465 466 467
    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
468
    if (i < argc)
469 470 471
	config_file = argv[i++];
    else
	config_file = default_config_file;
Per Cederqvist's avatar
Per Cederqvist committed
472

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

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

498
    initialize(config_file);	/* Read config, listen, and start db */
499
    chdir(param.core_dir);
500 501
    sfree(default_config_file);

Per Cederqvist's avatar
Per Cederqvist committed
502
    save_pid();
Per Cederqvist's avatar
Per Cederqvist committed
503

Per Cederqvist's avatar
Per Cederqvist committed
504
    toploop();
Per Cederqvist's avatar
Per Cederqvist committed
505 506

    logout_all_clients();
507
    isc_shutdown(kom_server_mcb);
Per Cederqvist's avatar
Per Cederqvist committed
508
    cache_sync_all();
Per Cederqvist's avatar
Per Cederqvist committed
509

David Byers's avatar
David Byers committed
510
    free_kom_info();
511 512
    dump_exit_statistics();

Per Cederqvist's avatar
Per Cederqvist committed
513
    log("%s terminated normally.\n", argv[0]);
514 515 516 517 518 519 520 521 522 523

    /* 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();
    }
524 525 526 527 528 529 530 531 532 533 534
    
    return 0;
}

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

    time(&now);
535
    stat_file = fopen(param.memuse_name, "a");
Per Cederqvist's avatar
Per Cederqvist committed
536 537 538 539

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

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

542 543 544 545
    dump_cache_stats (stat_file);

    free_all_tmp();
    free_all_cache();
546
    free_all_jubel();
547

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

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