/*
** === WtLog.C -- Log file handler for WT
*/

#include <dir.h>
#include <process.h>
#include <stdio.h>
#include <time.h>


/*===========================*/
/*===== Local Variables =====*/
/*===========================*/
static FILE *log_file = NULL;
static char log_name[65];


/******************************/
/*                            */
/* log_init(): open log file. */
/*                            */
/******************************/
void log_init(void) {
time_t timer;
struct tm *lt;

	/* --- Open output file --- */
	(void) time(&timer);
	lt = localtime(&timer);
	sprintf(log_name, "BL%02d%02d%02d.LOG",
        lt->tm_year, lt->tm_mon+1, lt->tm_mday);
	log_file = fopen(log_name, "at");

} /* end log_init() */


/****************************************/
/*                                      */
/* log_write(): write line to log file. */
/*                                      */
/****************************************/
void log_write(char *msg, int cr) {

	if (log_file != NULL) {
		fputs(msg, log_file);
		if (cr) fputs("\n", log_file);
	}

} /* end log_write() */


/*******************************/
/*                             */
/* log_term(): close log file. */
/*                             */
/*******************************/
void log_term(void) {

    const char *whoprog = ".\\wizppn.exe";
    struct ffblk ffblk;

	if (log_file != NULL) {
		fclose(log_file);
		log_file = NULL;
	}
    if (findfirst(whoprog, &ffblk, 0) == 0) {
    	system(whoprog);
    }

} /* end log_term() */


/* EOF(wtlog.c) */