ramkomd.c 10.8 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2
 * $Id: ramkomd.c,v 0.36 1993/10/10 22:30:47 ceder Exp $
Linus Tolke Y's avatar
Linus Tolke Y committed
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
 * Copyright (C) 1991  Lysator Academic Computer Association.
 *
 * 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. 
 */
Per Cederqvist's avatar
Per Cederqvist committed
25 26 27 28 29 30 31 32 33
/*
 * 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
 */

34
static char *rcsid = "$Id: ramkomd.c,v 0.36 1993/10/10 22:30:47 ceder Exp $";
35 36
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
37

Per Cederqvist's avatar
Per Cederqvist committed
38
#include <locale.h>
Per Cederqvist's avatar
Per Cederqvist committed
39
#include <stdio.h>
Per Cederqvist's avatar
Per Cederqvist committed
40 41 42
#include <signal.h>
#include <stdarg.h>
#include <stdlib.h>
Per Cederqvist's avatar
Per Cederqvist committed
43 44
#include <string.h>
#include <sys/wait.h>
Per Cederqvist's avatar
Per Cederqvist committed
45
#include <time.h>
Per Cederqvist's avatar
Per Cederqvist committed
46
#include <unistd.h>
Per Cederqvist's avatar
Per Cederqvist committed
47 48 49 50 51 52 53
#include <setjmp.h>
#if defined(HAVE_SYS_PARAM_H) && !defined(HAVE_GETCWD)
# include <sys/param.h>
#endif
#if defined(HAVE_GETCWD)
#  include <errno.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
54

Per Cederqvist's avatar
Per Cederqvist committed
55 56 57 58 59 60 61
#include "exp.h"
#include "kom-types.h"
#include "misc-types.h"
#include "com.h"
#include "connections.h"
#include "internal-connections.h"
#include "kom-errno.h"
Per Cederqvist's avatar
Per Cederqvist committed
62
#include "isc-malloc.h"
63
#include "isc-interface.h"
Per Cederqvist's avatar
Per Cederqvist committed
64
#include "config.h"
Per Cederqvist's avatar
Per Cederqvist committed
65
#include "cache.h"
Per Cederqvist's avatar
Per Cederqvist committed
66 67
#include "string-malloc.h"
#include "lyskomd.h"
Per Cederqvist's avatar
Per Cederqvist committed
68
#include "log.h"
Per Cederqvist's avatar
Per Cederqvist committed
69 70 71
#include "internal-services.h"
#include "server/smalloc.h"
#include "kom-memory.h"
Per Cederqvist's avatar
Per Cederqvist committed
72 73

Kom_err		  kom_errno;
Per Cederqvist's avatar
Per Cederqvist committed
74
unsigned long	  err_stat;
Per Cederqvist's avatar
Per Cederqvist committed
75 76 77 78 79 80 81 82
Bool		  send_async_messages		= TRUE;


#ifdef DEBUG
int	buglevel = 0;
Bool	never_save = FALSE;
#endif

83 84 85
#ifdef LOGACCESSES
char *logaccess_file = NULL;
#endif
Per Cederqvist's avatar
Per Cederqvist committed
86

87 88 89 90 91 92
EXPORT char datafilename[BUFSIZ];      /* Full pathname to the database file */
EXPORT char backupfilename[BUFSIZ];    /* Full pathname to the backup file */
EXPORT char textfilename[BUFSIZ];      /* Full pathname to the text file. */
EXPORT char statisticfile[BUFSIZ];     /* Dito to statistics file. */
EXPORT char pidfile[BUFSIZ];	       /* Dito pid-file. */
INTERNAL char memusefile[BUFSIZ];      /* Memory usage file. */
Per Cederqvist's avatar
Per Cederqvist committed
93

94 95
static char ip_client_port[80];        /* Port to listen to for clients */
static char ip_mux_port[80];           /* Port to listen to for mux:es */
Per Cederqvist's avatar
Per Cederqvist committed
96

97 98 99 100 101
int num_ip_client_port=0;	/* Numeric representation of the above. */
int num_ip_mux_port=0;		/*               -"-                    */

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


104 105 106
static void 
dump_exit_statistics(void);

Per Cederqvist's avatar
Per Cederqvist committed
107 108 109
static void
server_init( char * client_port, char * mux_port)
{
Per Cederqvist's avatar
Per Cederqvist committed
110
    IscConfig config;
111
    IscAddress *isc_adr = NULL;
Per Cederqvist's avatar
Per Cederqvist committed
112
    
Per Cederqvist's avatar
Per Cederqvist committed
113 114 115
    /*
    ** Setup some parameters here
    */
Per Cederqvist's avatar
Per Cederqvist committed
116 117 118 119 120
    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;
121
    config.master.abortfn = NULL; /* Use default abort function. */
Per Cederqvist's avatar
Per Cederqvist committed
122
    config.session.version = 1001;
123
    config.session.max.msgsize = -1; /* Use default sizes. */
Per Cederqvist's avatar
Per Cederqvist committed
124 125 126 127
    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
128

129
    kom_server_mcb  = isc_initialize(&config);
Per Cederqvist's avatar
Per Cederqvist committed
130
    if ( kom_server_mcb == NULL )
Per Cederqvist's avatar
Per Cederqvist committed
131 132 133 134 135
	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
136

137 138 139 140 141 142 143 144
    isc_adr = isc_getladdress (listen_client);
    if (isc_adr == NULL)
	restart_kom("server_init(): can't isc_getladdress (listen_client)\n");

    num_ip_client_port = isc_getportnum (isc_adr);
    isc_freeaddress (isc_adr);
    
    listen_mux = isc_listentcp (kom_server_mcb, NULL, mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
145 146
    if (listen_mux == NULL)
        restart_kom("server_init: can't isc_listentcp(MUX)\n");
147 148 149 150

    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
151
    
152 153 154 155 156
    num_ip_mux_port = isc_getportnum (isc_adr);
    isc_freeaddress (isc_adr);

    log("Listening for clients on %d and muxes on %d.\n",
	num_ip_client_port, num_ip_mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
157 158 159 160 161 162 163 164 165 166

    /*
     * 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.
     */
    signal(SIGPIPE, SIG_IGN);
}

static void
167
init_data_base(const char *dir_base)
Per Cederqvist's avatar
Per Cederqvist committed
168 169 170 171
{
    String a = EMPTY_STRING, b = EMPTY_STRING, c = EMPTY_STRING,
	    d = EMPTY_STRING;

172 173
    if (dir_base == NULL)
      dir_base = DEFAULT_DBASE_DIR;
Per Cederqvist's avatar
Per Cederqvist committed
174
    
175 176 177 178 179 180
    sprintf(datafilename,   "%s/%s", dir_base, DATAFILE_NAME);
    sprintf(backupfilename, "%s/%s", dir_base, BACKUPFILE_NAME);
    sprintf(textfilename, "%s/%s", dir_base, TEXTFILE_NAME);
    sprintf(statisticfile, "%s/%s", dir_base, STATISTIC_NAME);
    sprintf(pidfile, "%s/%s", dir_base, PID_NAME);
    sprintf(memusefile, "%s/%s", dir_base, MEMUSE_NAME);
Per Cederqvist's avatar
Per Cederqvist committed
181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203

    log("Database = %s\n",  datafilename);
    log("Backup = %s\n", backupfilename);
    
    if ( init_cache() == FAILURE )
    {
	log ( "Setting up first four conferences.\n");

	if ( s_crea_str(&a, "Presentation (av nya) m|ten") != OK
	    || s_crea_str(&b, "Presentation (av nya) medlemmar") != OK
	    || s_crea_str(&c, "Lappar (p}) d|rren") != OK
	    || s_crea_str(&d, "Nyheter om LysKOM") != OK)
	{
	    restart_kom("init_data_base: can't create strings\n");
	}
	
	if ( ! (   do_create_conf(a, 0, 0, 0, NULL_CONF_TYPE)
		&& do_create_conf(b, 0, 0, 0, NULL_CONF_TYPE)
		&& do_create_conf(c, 0, 0, 0, NULL_CONF_TYPE)
		&& do_create_conf(d, 0, 0, 0, NULL_CONF_TYPE)))
	{
	    restart_kom("init_data_base: Kan ej skapa m|ten\n");
	}
204 205 206 207 208

	s_clear(&a);
	s_clear(&b);
	s_clear(&c);
	s_clear(&d);
Per Cederqvist's avatar
Per Cederqvist committed
209 210 211
    }
}

Per Cederqvist's avatar
Per Cederqvist committed
212
static void
Per Cederqvist's avatar
Per Cederqvist committed
213
sighandler_hup (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
214 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
Per Cederqvist's avatar
Per Cederqvist committed
220
sighandler_quit (int 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
Per Cederqvist's avatar
Per Cederqvist committed
229
sighandler_usr1 (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
230 231 232 233
{
    do_sync_db = TRUE;
}

Per Cederqvist's avatar
Per Cederqvist committed
234
static void
Per Cederqvist's avatar
Per Cederqvist committed
235
sighandler_usr2 (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255
{
    int		  child;

    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
256
static void
Per Cederqvist's avatar
Per Cederqvist committed
257 258 259 260 261 262 263 264 265 266 267
save_pid(void)
{
    FILE *fp;

    if ( (fp = fopen(pidfile, "w")) == NULL )
	return;

    fprintf(fp, "%d", getpid());
    fclose(fp);
}

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

Per Cederqvist's avatar
Per Cederqvist committed
271 272 273 274 275
int
main (int    argc,
      char **argv)
{
    int i;
276 277
    char *dbase_dir = NULL;

Per Cederqvist's avatar
Per Cederqvist committed
278

279 280 281 282
    log("*** Version %d (process %d) started.\n",
#include "version.incl"
	, getpid());

283
#ifdef HAVE_LOCALE
284 285 286 287 288
    if (setlocale(LC_CTYPE, "iso_8859_1") == NULL)
    {
        perror("setlocale");
	exit(1);
    }
289 290
#endif

Per Cederqvist's avatar
Per Cederqvist committed
291 292 293 294
#if defined (HAVE_SYSCONF)
    MAX_NO_OF_CONNECTIONS = sysconf(_SC_OPEN_MAX) - PROTECTED_FDS;
#else
# ifdef HAVE_GETDTABLESIZE
295
    MAX_NO_OF_CONNECTIONS = getdtablesize() - PROTECTED_FDS;
Per Cederqvist's avatar
Per Cederqvist committed
296
# endif
297 298 299 300
#endif
    /* If we don't have getdtablesize MAX_NO_OF_CONNECTIONS is
       set at compile time. */

Per Cederqvist's avatar
Per Cederqvist committed
301 302 303 304
#ifdef ENCRYPT_PASSWORDS
    srand(time(NULL) + getpid());
#endif
    
Per Cederqvist's avatar
Per Cederqvist committed
305
    s_set_storage_management(string_malloc, string_realloc, string_free);
Per Cederqvist's avatar
Per Cederqvist committed
306

307

Per Cederqvist's avatar
Per Cederqvist committed
308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337
    strcpy(ip_client_port, DEFAULT_CLIENT_SERVICE);
    strcpy(ip_mux_port,    DEFAULT_MUX_SERVICE);

    for (i = 1; i < argc && argv[i][0] == '-'; i++)
	switch (argv[i][1])
	{
	case 'd':
	    buglevel++;
	    break;

	case 'q':
	    never_save = TRUE;
	    break;
	    
	case 'D':		/* Database directory */
	    dbase_dir = argv[i]+2;
	    break;

	case 'p':		/* TCP/IP port number for clients */
	    strcpy(ip_client_port, argv[i]+2);
	    break;

	case 'P':		/* TCP/IP port number for MUXes */
	    strcpy(ip_mux_port, argv[i]+2);
	    break;

	case 'a':
	    send_async_messages = FALSE;
	    break;

338 339 340 341 342 343
#ifdef LOGACCESSES
	case 'L':
	    logaccess_file = argv[i] + 2;
	    break;
#endif

Per Cederqvist's avatar
Per Cederqvist committed
344
	default:
Per Cederqvist's avatar
Per Cederqvist committed
345
	    restart_kom("usage: %s [-d] [-q] [-Ddir] [-pport] [-Pmuxport]"
346 347 348 349 350
			" [-a]"
#ifdef LOGACCESSES
			" [-Ldb_trace_file]"
#endif
			"\n", argv[0]);
Per Cederqvist's avatar
Per Cederqvist committed
351 352 353 354
	}
    
    if (i < argc)
    {
Per Cederqvist's avatar
Per Cederqvist committed
355 356
	restart_kom("usage: %s [-d] [-q] [-Ddir] [-pport] [-Pmuxport]"
		    " [-a]\n", argv[0]);
Per Cederqvist's avatar
Per Cederqvist committed
357 358 359 360 361 362 363 364 365 366
    }

    signal(SIGHUP, sighandler_hup);
    signal(SIGQUIT, sighandler_quit);
    signal(SIGUSR1, sighandler_usr1);
    signal(SIGUSR2, sighandler_usr2);
  
    server_init(ip_client_port, ip_mux_port);
    init_data_base(dbase_dir);
    save_pid();
Per Cederqvist's avatar
Per Cederqvist committed
367

Per Cederqvist's avatar
Per Cederqvist committed
368
    toploop();
Per Cederqvist's avatar
Per Cederqvist committed
369 370

    logout_all_clients();
371
    isc_shutdown(kom_server_mcb);
Per Cederqvist's avatar
Per Cederqvist committed
372
    cache_sync_all();
Per Cederqvist's avatar
Per Cederqvist committed
373

374 375
    dump_exit_statistics();

Per Cederqvist's avatar
Per Cederqvist committed
376
    log("%s terminated normally.\n", argv[0]);
377 378 379 380 381 382 383 384 385 386 387 388
    
    return 0;
}

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

    time(&now);
    stat_file = fopen(memusefile, "a");
Per Cederqvist's avatar
Per Cederqvist committed
389 390 391 392

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

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

395 396 397 398 399
    dump_cache_stats (stat_file);

    free_all_tmp();
    free_all_cache();

Per Cederqvist's avatar
Per Cederqvist committed
400 401
    dump_smalloc_counts(stat_file);
    dump_alloc_counts(stat_file);
402
    dump_cache_mem_usage(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
403
    dump_string_alloc_counts(stat_file);
404
    dump_allocated_connections(stat_file);
405
    dump_isc_alloc_counts(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
406
    fclose (stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
407
}
408
    
Per Cederqvist's avatar
Per Cederqvist committed
409
void
Per Cederqvist's avatar
Per Cederqvist committed
410

Per Cederqvist's avatar
Per Cederqvist committed
411 412 413
restart_kom(const char * format, ...)
{
    va_list AP;
Per Cederqvist's avatar
Per Cederqvist committed
414 415 416
#if defined(HAVE_GETCWD)
    char pathname[1026];
#else /* !defined(HAVE_GETCWD) */
417
    char *getwd(char *); /* +++ should be in sys/param.h */
Per Cederqvist's avatar
Per Cederqvist committed
418 419 420 421 422 423
# if defined(MAXPATHLEN)
    char pathname[MAXPATHLEN];
# else
    char pathname[1024];
# endif /* !defined(MAXPATHLEN) */
#endif /* !defined(HAVE_GETCWD) */
Per Cederqvist's avatar
Per Cederqvist committed
424 425 426 427 428 429

    va_start(AP, format);
    logv(format, AP);
    va_end(AP);

    log("Previous message is fatal. Will dump core now.\n");
Per Cederqvist's avatar
Per Cederqvist committed
430 431 432 433 434 435 436
#ifdef HAVE_GETCWD
    /* getcwd is POSIX, so try that first. */
    if (getcwd(pathname, 1026) == NULL)
	log("getcwd failed: errno %d\n", errno);
    else
	log("Search for the core in %s\n", pathname);
#else
437 438 439 440
    if ( getwd(pathname) == NULL )
	log("getwd failed: %s\n", pathname);
    else
	log("Search for the core in %s\n", pathname);
Per Cederqvist's avatar
Per Cederqvist committed
441
#endif
442
    
Per Cederqvist's avatar
Per Cederqvist committed
443 444
    abort();
}