#include <time.h>
#include <stdio.h>
#include <stdarg.h>

#include "config.h"
#include "random.h"
#include "strings.h"
#include "externs.h"

void log_status(const char *format, ...)
{
 FILE *fp;
 time_t lt;
 va_list ap;
 char msgbuf[BUFSIZ];
 extern int panicking;

 lt = curtm();
 bcopy(ctime(&lt),&msgbuf[0],16);
 msgbuf[16] = ':';
 msgbuf[17] = ' ';
 va_start(ap,format);
 vsprintf(&msgbuf[18],format,ap);
 va_end(ap);
 fp = fopen(LOG_STATUS,"a");
 if (fp == 0)
  { fprintf(stderr,"Unable to open %s!\n",LOG_STATUS);
    fprintf(stderr,"%s\n",&msgbuf[0]);
  }
 else
  { fprintf(fp,"%s\n",&msgbuf[0]);
    fclose(fp);
  }
 if (! panicking)
  { announce_status(&msgbuf[0]);
    seed_random(&msgbuf[0],strlen(&msgbuf[0]));
  }
}

void log_money(const char *format, ...)
{
 FILE *fp;
 time_t lt;
 va_list ap;
 char msgbuf[BUFSIZ];

 lt = curtm();
 bcopy(ctime(&lt),&msgbuf[0],16);
 msgbuf[16] = ':';
 msgbuf[17] = ' ';
 va_start(ap,format);
 vsprintf(&msgbuf[18],format,ap);
 va_end(ap);
 fp = fopen(LOG_MONEY,"a");
 if (fp)
  { fprintf(fp,"%s\n",&msgbuf[0]);
    fclose(fp);
  }
}

void log_conc(const char *format, ...)
{
 FILE *conclog;
 va_list ap;

 conclog = fopen(LOG_CONC,"a");
 if (conclog == 0)
  { fprintf(stderr,"Unable to open %s!\n",LOG_CONC);
    va_start(ap,format);
    vfprintf(stderr,format,ap);
    va_end(ap);
  }
 else
  { va_start(ap,format);
    vfprintf(conclog,format,ap);
    va_end(ap);
    fclose(conclog);
  }
}

void log_muf(const char *format, ...)
{
 FILE *muflog;
 va_list ap;

 muflog = fopen(LOG_MUF,"a");
 if (muflog == 0)
  { fprintf(stderr,"Unable to open %s!\n",LOG_MUF);
    va_start(ap,format);
    vfprintf(stderr,format,ap);
    va_end(ap);
  }
 else
  { va_start(ap,format);
    vfprintf(muflog,format,ap);
    va_end(ap);
    fclose(muflog);
  }
}

void log_gripe(const char *format, ...)
{
 FILE *fp;
 time_t lt;
 va_list ap;

 lt = curtm();
 fp = fopen(LOG_GRIPE,"a");
 if (fp == 0)
  { fprintf(stderr,"Unable to open %s!\n",LOG_GRIPE);
    fprintf(stderr,"%.16s: ",ctime(&lt));
    va_start(ap,format);
    vfprintf(stderr,format,ap);
    va_end(ap);
  }
 else
  { fprintf(fp,"%.16s: ",ctime(&lt));
    va_start(ap,format);
    vfprintf(fp,format,ap);
    va_end(ap);
    fclose(fp);
  }
}

void log_command(const char *format, ...)
{
 FILE *fp;
 va_list ap;

 fp = fopen(COMMAND_LOG,"a");
 if (fp == 0)
  { fprintf(stderr,"Unable to open %s!\n",COMMAND_LOG);
    va_start(ap,format);
    vfprintf(stderr,format,ap);
    va_end(ap);
  }
 else
  { va_start(ap,format);
    vfprintf(fp,format,ap);
    va_end(ap);
    fclose(fp);
  }
}