ramkomd.c 13.6 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2
 * $Id: ramkomd.c,v 0.62 1996/08/02 00:08:26 ceder Exp $
Per Cederqvist's avatar
Per Cederqvist committed
3
 * Copyright (C) 1991, 1992, 1993, 1994, 1995  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 char *rcsid = "$Id: ramkomd.c,v 0.62 1996/08/02 00:08:26 ceder Exp $";
42 43
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
44

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

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

100 101 102 103
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_OFILE) && !defined(RLIMIT_NOFILE)
#  define RLIMIT_NOFILE RLIMIT_OFILE
#endif

104 105 106 107 108 109
struct kom_par param;
 
Kom_err		  kom_errno = KOM_NO_ERROR;
unsigned long	  err_stat = 0;


Per Cederqvist's avatar
Per Cederqvist committed
110
#ifndef NDEBUG
111
int	buglevel = 0;
112
#endif
Per Cederqvist's avatar
Per Cederqvist committed
113

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

117
static void dump_exit_statistics(void);
118

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

Per Cederqvist's avatar
Per Cederqvist committed
128 129 130
    /*
    ** Setup some parameters here
    */
Per Cederqvist's avatar
Per Cederqvist committed
131 132 133 134 135
    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;
136
    config.master.abortfn = NULL; /* Use default abort function. */
Per Cederqvist's avatar
Per Cederqvist committed
137
    config.session.version = 1001;
138
    config.session.max.msgsize = -1; /* Use default sizes. */
Per Cederqvist's avatar
Per Cederqvist committed
139 140 141 142
    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
143

144
    kom_server_mcb  = isc_initialize(&config);
Per Cederqvist's avatar
Per Cederqvist committed
145
    if ( kom_server_mcb == NULL )
Per Cederqvist's avatar
Per Cederqvist committed
146 147 148 149 150
	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
151

152 153 154 155
    isc_adr = isc_getladdress (listen_client);
    if (isc_adr == NULL)
	restart_kom("server_init(): can't isc_getladdress (listen_client)\n");

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

    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
166
    
167
    param.num_ip_mux_port = isc_getportnum (isc_adr);
168 169 170
    isc_freeaddress (isc_adr);

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

    /*
     * 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.
     */
178 179 180 181
#ifdef HAVE_STRUCT_SIGACTION
    sigemptyset(&act.sa_mask);
    act.sa_flags = 0;
    act.sa_handler = SIG_IGN;
182
    sigaction(SIGPIPE, &act, NULL);
183
#else
Per Cederqvist's avatar
Per Cederqvist committed
184
    signal(SIGPIPE, SIG_IGN);
185
#endif
Per Cederqvist's avatar
Per Cederqvist committed
186 187 188
}

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

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

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

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

Per Cederqvist's avatar
Per Cederqvist committed
226
static void
Per Cederqvist's avatar
Per Cederqvist committed
227
sighandler_usr2 (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
228 229 230
{
    int		  child;

231
#ifndef HAVE_STRUCT_SIGACTION
232
    signal(SIGUSR2, sighandler_usr2);
233
#endif
234

Per Cederqvist's avatar
Per Cederqvist committed
235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251
    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
252
static void
Per Cederqvist's avatar
Per Cederqvist committed
253 254 255 256
save_pid(void)
{
    FILE *fp;

257
    if ((fp = fopen(param.pid_name, "w")) == NULL)
Per Cederqvist's avatar
Per Cederqvist committed
258 259
	return;

260
    fprintf(fp, "%ld\n", (long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
261 262 263
    fclose(fp);
}

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

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

283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300
#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
301
	signal(SIGTTOU, SIG_IGN);
302 303
#  endif
#  ifdef SIGTTIN
Per Cederqvist's avatar
Per Cederqvist committed
304
	signal(SIGTTIN, SIG_IGN);
305 306
#  endif
#  ifdef SIGTSTP
Per Cederqvist's avatar
Per Cederqvist committed
307
	signal(SIGTSTP, SIG_IGN);
308 309
#  endif

Per Cederqvist's avatar
Per Cederqvist committed
310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325
#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
326
	||open(param.logfile_name, O_WRONLY|O_CREAT|O_APPEND, 0644) != 2)
Per Cederqvist's avatar
Per Cederqvist committed
327 328 329
    {
	/* Kinda stupid to try to log an error message now, but
	   who knows? */
330
	restart_kom("open of log file failed: %d\n", errno);
Per Cederqvist's avatar
Per Cederqvist committed
331
    }
332 333
    log("*** Version %s (process %lu) coming up.\n",
	kom_version_info.server_version, (unsigned long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
334 335
}

336 337 338
void
initialize(const char *config_file)
{
339 340 341 342
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
    struct rlimit rlim;
#endif

343
    read_configuration(config_file);
344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359

#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
360 361

#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
Per Cederqvist's avatar
Per Cederqvist committed
362
    if (param.no_files != -1)
363 364 365 366 367 368 369 370
    {
	if (getrlimit(RLIMIT_NOFILE, &rlim) < 0)
	{
	    perror("getrlimit(RLIMIT_NOFILE) failed");
	    exit(1);
	}
	if (param.no_files > rlim.rlim_max)
	{
371 372 373 374
	    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);
375 376 377 378 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
	    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

407
    go_daemon();
408 409 410 411
    server_init(param.ip_client_port, param.ip_mux_port);
    init_data_base(param.dbase_dir);
}

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

415
	
Per Cederqvist's avatar
Per Cederqvist committed
416 417 418 419 420
int
main (int    argc,
      char **argv)
{
    int i;
421 422
    char *default_config_file;
    char *config_file;
423 424 425
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif
Per Cederqvist's avatar
Per Cederqvist committed
426

427 428
    log("*** Version %s (process %lu) started.\n",
	kom_version_info.server_version, (unsigned long)getpid());
429

Per Cederqvist's avatar
Per Cederqvist committed
430
#ifdef ENCRYPT_PASSWORDS
431
    /* Seed the random number generator. */
Per Cederqvist's avatar
Per Cederqvist committed
432 433
    srand(time(NULL) + getpid());
#endif
Per Cederqvist's avatar
Per Cederqvist committed
434

435 436
    /* Initialize the string handling package. */
    s_set_storage_management(string_malloc, string_realloc, string_free);
437

438
    /* Parse command line arguments. */
Per Cederqvist's avatar
Per Cederqvist committed
439 440 441 442 443 444 445
    for (i = 1; i < argc && argv[i][0] == '-'; i++)
	switch (argv[i][1])
	{
	case 'd':
	    buglevel++;
	    break;

446 447 448
	default:
	    restart_kom("usage: %s [-d ...] [config-file]\n", argv[0]);
	}
Per Cederqvist's avatar
Per Cederqvist committed
449

450

451
    /* Read in the configuration file. */
452

453 454
    default_config_file = smalloc(strlen(DEFAULT_DBASE_DIR) +
				  strlen(CONFIG_FILE) + 2);
455
    sprintf(default_config_file, "%s/%s", DEFAULT_DBASE_DIR, CONFIG_FILE);
Per Cederqvist's avatar
Per Cederqvist committed
456
    if (i < argc)
457 458 459
	config_file = argv[i++];
    else
	config_file = default_config_file;
Per Cederqvist's avatar
Per Cederqvist committed
460

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

464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479
#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
480 481 482 483
    signal(SIGHUP, sighandler_hup);
    signal(SIGQUIT, sighandler_quit);
    signal(SIGUSR1, sighandler_usr1);
    signal(SIGUSR2, sighandler_usr2);
484 485
#endif

486
    initialize(config_file);	/* Read config, listen, and start db */
487
    chdir(param.core_dir);
488 489
    sfree(default_config_file);

Per Cederqvist's avatar
Per Cederqvist committed
490
    save_pid();
Per Cederqvist's avatar
Per Cederqvist committed
491

Per Cederqvist's avatar
Per Cederqvist committed
492
    toploop();
Per Cederqvist's avatar
Per Cederqvist committed
493 494

    logout_all_clients();
495
    isc_shutdown(kom_server_mcb);
Per Cederqvist's avatar
Per Cederqvist committed
496
    cache_sync_all();
Per Cederqvist's avatar
Per Cederqvist committed
497

498 499
    dump_exit_statistics();

Per Cederqvist's avatar
Per Cederqvist committed
500
    log("%s terminated normally.\n", argv[0]);
501 502 503 504 505 506 507 508 509 510 511
    
    return 0;
}

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

    time(&now);
512
    stat_file = fopen(param.memuse_name, "a");
Per Cederqvist's avatar
Per Cederqvist committed
513 514 515 516

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

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

519 520 521 522
    dump_cache_stats (stat_file);

    free_all_tmp();
    free_all_cache();
523
    free_all_jubel();
524

Per Cederqvist's avatar
Per Cederqvist committed
525 526
    dump_smalloc_counts(stat_file);
    dump_alloc_counts(stat_file);
527
    dump_cache_mem_usage(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
528
    dump_string_alloc_counts(stat_file);
529
    dump_allocated_connections(stat_file);
530
    dump_isc_alloc_counts(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
531
    fclose (stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
532
}
533
    
Per Cederqvist's avatar
Per Cederqvist committed
534
void
Per Cederqvist's avatar
Per Cederqvist committed
535
#if defined(HAVE_VFPRINTF) && defined(HAVE_STDARG_H)
Per Cederqvist's avatar
Per Cederqvist committed
536
restart_kom(const char * format, ...)
537 538 539 540 541 542
#else
restart_kom(format,
	    a, b, c, d, e, f, g)
     const char *format;
     int a, b, c, d, e, f, g;
#endif
Per Cederqvist's avatar
Per Cederqvist committed
543
{
Per Cederqvist's avatar
Per Cederqvist committed
544
#if defined(HAVE_VFPRINTF) && defined(HAVE_STDARG_H)
Per Cederqvist's avatar
Per Cederqvist committed
545
    va_list AP;
546
#endif
Per Cederqvist's avatar
Per Cederqvist committed
547 548 549
#if defined(HAVE_GETCWD)
    char pathname[1026];
#else /* !defined(HAVE_GETCWD) */
550
    char *getwd(char *); /* +++ should be in sys/param.h */
Per Cederqvist's avatar
Per Cederqvist committed
551 552 553 554 555 556
# if defined(MAXPATHLEN)
    char pathname[MAXPATHLEN];
# else
    char pathname[1024];
# endif /* !defined(MAXPATHLEN) */
#endif /* !defined(HAVE_GETCWD) */
Per Cederqvist's avatar
Per Cederqvist committed
557

Per Cederqvist's avatar
Per Cederqvist committed
558
#if defined(HAVE_VFPRINTF) && defined(HAVE_STDARG_H)
Per Cederqvist's avatar
Per Cederqvist committed
559 560 561
    va_start(AP, format);
    logv(format, AP);
    va_end(AP);
562 563 564
#else
    log(format, a, b, c, d, e, f, g);
#endif
Per Cederqvist's avatar
Per Cederqvist committed
565 566

    log("Previous message is fatal. Will dump core now.\n");
567

Per Cederqvist's avatar
Per Cederqvist committed
568 569 570 571 572 573 574
#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
575 576 577 578
    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
579
#endif
580
    
Per Cederqvist's avatar
Per Cederqvist committed
581 582
    abort();
}