/* log.c - logging routines */

#include "autoconf.h"
#include "copyright.h"
#ifndef	lint
static char *RCSid = "$Id: log.c,v 1.7 1995/03/21 00:00:35 ambar Exp $";
USE(RCSid);
#endif

#include "externs.h"
#include "flags.h"
#include "alloc.h"
#include "htab.h"

#ifndef STANDALONE

NAMETAB logdata_nametab[] =
{
    {(char *) "flags", 1, 0, LOGOPT_FLAGS},
    {(char *) "location", 1, 0, LOGOPT_LOC},
    {(char *) "owner", 1, 0, LOGOPT_OWNER},
    {(char *) "timestamp", 1, 0, LOGOPT_TIMESTAMP},
    {NULL, 0, 0, 0}};

NAMETAB logoptions_nametab[] =
{
    {(char *) "accounting", 2, 0, LOG_ACCOUNTING},
    {(char *) "all_commands", 2, 0, LOG_ALLCOMMANDS},
    {(char *) "bad_commands", 2, 0, LOG_BADCOMMANDS},
    {(char *) "buffer_alloc", 3, 0, LOG_ALLOCATE},
    {(char *) "bugs", 3, 0, LOG_BUGS},
    {(char *) "checkpoints", 2, 0, LOG_DBSAVES},
    {(char *) "config_changes", 2, 0, LOG_CONFIGMODS},
    {(char *) "create", 2, 0, LOG_PCREATES},
    {(char *) "killing", 1, 0, LOG_KILLS},
    {(char *) "logins", 1, 0, LOG_LOGIN},
    {(char *) "network", 1, 0, LOG_NET},
    {(char *) "problems", 1, 0, LOG_PROBLEMS},
    {(char *) "security", 2, 0, LOG_SECURITY},
    {(char *) "shouts", 2, 0, LOG_SHOUTS},
    {(char *) "startup", 2, 0, LOG_STARTUP},
    {(char *) "wizard", 1, 0, LOG_WIZARD},
    {NULL, 0, 0, 0}};

#endif

/* ---------------------------------------------------------------------------
 * start_log: see if it is OK to log something, and if so, start writing the
 * log entry.
 */

int 
start_log(primary, secondary)
    const char *primary, *secondary;
{
    struct tm *tp;
    time_t now;

    mudstate.logging++;
    switch (mudstate.logging) {
    case 1:
    case 2:

	/* Format the timestamp */

	if ((mudconf.log_info & LOGOPT_TIMESTAMP) != 0) {
	    time((time_t *) (&now));
	    tp = localtime((time_t *) (&now));
	    sprintf(mudstate.buffer, "%d%d%d%d%d.%d%d%d%d%d%d ",
		    tp->tm_year, (((tp->tm_mon) + 1) / 10),
		    (((tp->tm_mon) + 1) % 10), (tp->tm_mday / 10),
		    (tp->tm_mday % 10),
		    (tp->tm_hour / 10), (tp->tm_hour % 10),
		    (tp->tm_min / 10), (tp->tm_min % 10),
		    (tp->tm_sec / 10), (tp->tm_sec % 10));
	} else {
	    mudstate.buffer[0] = '\0';
	}
#ifndef STANDALONE
	/* Write the header to the log */

	if (secondary && *secondary)
	    fprintf(stderr, "%s%s %3s/%-5s: ", mudstate.buffer,
		    mudconf.mud_name, primary, secondary);
	else
	    fprintf(stderr, "%s%s %-9s: ", mudstate.buffer,
		    mudconf.mud_name, primary);
#endif
	/* If a recursive call, log it and return indicating no log */

	if (mudstate.logging == 1)
	    return 1;
	fprintf(stderr, "Recursive logging request.\r\n");
    default:
	mudstate.logging--;
    }
    return 0;
}

/* ---------------------------------------------------------------------------
 * end_log: Finish up writing a log entry
 */

void 
NDECL(end_log)
{
    fprintf(stderr, "\n");
    fflush(stderr);
    mudstate.logging--;
}

/* ---------------------------------------------------------------------------
 * log_perror: Write perror message to the log
 */

void 
log_perror(primary, secondary, extra, failing_object)
    const char *primary, *secondary, *extra, *failing_object;
{
    start_log(primary, secondary);
    if (extra && *extra) {
	log_text((char *) "(");
	log_text((char *) extra);
	log_text((char *) ") ");
    }
    perror((char *) failing_object);
    fflush(stderr);
    mudstate.logging--;
}

/* ---------------------------------------------------------------------------
 * log_text, log_number: Write text or number to the log file.
 */

void 
log_text(text)
    char *text;
{
    fprintf(stderr, "%s", text);
}

void 
log_number(num)
    int num;
{
    fprintf(stderr, "%d", num);
}

/* ---------------------------------------------------------------------------
 * log_name: write the name, db number, and flags of an object to the log.
 * If the object does not own itself, append the name, db number, and flags
 * of the owner.
 */

void 
log_name(target)
    dbref target;
{
#ifndef STANDALONE
    char *tp;

    if ((mudconf.log_info & LOGOPT_FLAGS) != 0)
	tp = unparse_object((dbref) GOD, target, 0);
    else
	tp = unparse_object_numonly(target);
    fprintf(stderr, "%s", tp);
    free_lbuf(tp);
    if (((mudconf.log_info & LOGOPT_OWNER) != 0) &&
	(target != Owner(target))) {
	if ((mudconf.log_info & LOGOPT_FLAGS) != 0)
	    tp = unparse_object((dbref) GOD, Owner(target), 0);
	else
	    tp = unparse_object_numonly(Owner(target));
	fprintf(stderr, "[%s]", tp);
	free_lbuf(tp);
    }
#else
    fprintf(stderr, "%s(#%d)", Name(target), target);
#endif
    return;
}

/* ---------------------------------------------------------------------------
 * log_name_and_loc: Log both the name and location of an object
 */

void 
log_name_and_loc(player)
    dbref player;
{
    log_name(player);
    if ((mudconf.log_info & LOGOPT_LOC) && Has_location(player)) {
	log_text((char *) " in ");
	log_name(Location(player));
    }
    return;
}

char *
OBJTYP(thing)
    dbref thing;
{
    if (!Good_obj(thing)) {
	return (char *) "??OUT-OF-RANGE??";
    }
    switch (Typeof(thing)) {
    case TYPE_PLAYER:
	return (char *) "PLAYER";
    case TYPE_THING:
	return (char *) "THING";
    case TYPE_ROOM:
	return (char *) "ROOM";
    case TYPE_EXIT:
	return (char *) "EXIT";
    default:
	return (char *) "??ILLEGAL??";
    }
    /* NOTREACHED */
    return NULL;
}

void 
log_type_and_name(thing)
    dbref thing;
{
    char nbuf[16];

    log_text(OBJTYP(thing));
    sprintf(nbuf, " #%d(", thing);
    log_text(nbuf);
    if (Good_obj(thing))
	log_text(Name(thing));
    log_text((char *) ")");
    return;
}

void 
log_type_and_num(thing)
    dbref thing;
{
    char nbuf[16];

    log_text(OBJTYP(thing));
    *nbuf = ' ';
    nbuf[1] = '#';
    ltos(&nbuf[2], thing);
    log_text(nbuf);
    return;
}