/* * Copyright (C) 1999 Rob Crittenden (rcrit@greyoak.com) * Copyright (C) 1999,2000 Ross Combs (rocombs@cs.nmsu.edu) * * This program 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 2 * of the License, or (at your option) any later version. * * This program 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 this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "common/setup_before.h" #include #ifdef HAVE_STDDEF_H # include #else # ifndef NULL # define NULL ((void *)0) # endif #endif #include #include "compat/strerror.h" #ifdef HAVE_STRING_H # include #else # ifdef HAVE_STRINGS_H # include # endif #endif #include "compat/strcasecmp.h" #ifdef HAVE_STDARG_H # include #else # ifdef HAVE_VARARGS_H # include # endif #endif #ifdef TIME_WITH_SYS_TIME # include # include #else # ifdef HAVE_SYS_TIME_H # include # else # include # endif #endif #include "compat/strftime.h" #ifdef HAVE_UNISTD_H # include #endif #include "common/eventlog.h" #include "common/setup_after.h" static FILE * eventstrm=NULL; static t_eventlog_level currlevel=eventlog_level_debug| eventlog_level_info| eventlog_level_warn| eventlog_level_error| eventlog_level_fatal; extern void eventlog_set(FILE * fp) { eventstrm = fp; } extern FILE * eventlog_get(void) { return eventstrm; } extern int eventlog_open(char const * filename) { FILE * temp; if (!filename) { eventlog(eventlog_level_error,"eventlog_open","got NULL filename"); return -1; } if (!(temp = fopen(filename,"a"))) { eventlog(eventlog_level_error,"eventlog_open","could not open file \"%s\" for appending (fopen: %s)",filename,strerror(errno)); return -1; } if (eventstrm && eventstrm!=stderr) /* close old one */ if (fclose(eventstrm)<0) { eventstrm = temp; eventlog(eventlog_level_error,"eventlog_open","could not close previous logfile after writing (fclose: %s)",strerror(errno)); return 0; } eventstrm = temp; return 0; } extern void eventlog_clear_level(void) { currlevel = eventlog_level_none; } extern int eventlog_add_level(char const * levelname) { if (!levelname) { eventlog(eventlog_level_error,"eventlog_add_level","got NULL levelname"); return -1; } if (strcasecmp(levelname,"trace")==0) { currlevel |= eventlog_level_trace; return 0; } if (strcasecmp(levelname,"debug")==0) { currlevel |= eventlog_level_debug; return 0; } if (strcasecmp(levelname,"info")==0) { currlevel |= eventlog_level_info; return 0; } if (strcasecmp(levelname,"warn")==0) { currlevel |= eventlog_level_warn; return 0; } if (strcasecmp(levelname,"error")==0) { currlevel |= eventlog_level_error; return 0; } if (strcasecmp(levelname,"fatal")==0) { currlevel |= eventlog_level_fatal; return 0; } eventlog(eventlog_level_error,"eventlog_add_level","got bad levelname \"%s\"",levelname); return -1; } extern int eventlog_del_level(char const * levelname) { if (!levelname) { eventlog(eventlog_level_error,"eventlog_del_level","got NULL levelname"); return -1; } if (strcasecmp(levelname,"trace")==0) { currlevel &= ~eventlog_level_trace; return 0; } if (strcasecmp(levelname,"debug")==0) { currlevel &= ~eventlog_level_debug; return 0; } if (strcasecmp(levelname,"info")==0) { currlevel &= ~eventlog_level_info; return 0; } if (strcasecmp(levelname,"warn")==0) { currlevel &= ~eventlog_level_warn; return 0; } if (strcasecmp(levelname,"error")==0) { currlevel &= ~eventlog_level_error; return 0; } if (strcasecmp(levelname,"fatal")==0) { currlevel &= ~eventlog_level_fatal; return 0; } eventlog(eventlog_level_error,"eventlog_del_level","got bad levelname \"%s\"",levelname); return -1; } #ifdef DEBUGMODSTRINGS extern void eventlog_real(t_eventlog_level level, char const * module, char const * fmt, ...) #else extern void eventlog(t_eventlog_level level, char const * module, char const * fmt, ...) #endif { va_list args; char time_string[EVENT_TIME_MAXLEN]; struct tm * tmnow; time_t now; if (!(level&currlevel)) return; if (!eventstrm) return; /* get the time before parsing args */ time(&now); if (!(tmnow = localtime(&now))) strcpy(time_string,"?"); else strftime(time_string,EVENT_TIME_MAXLEN,EVENT_TIME_FORMAT,tmnow); if (!module) { fprintf(eventstrm,"%s eventlog: got NULL module\n",time_string); fflush(eventstrm); return; } if (!fmt) { fprintf(eventstrm,"%s eventlog: got NULL fmt\n",time_string); fflush(eventstrm); return; } fprintf(eventstrm,"%s %s: ",time_string,module); va_start(args,fmt); #ifdef HAVE_VPRINTF vfprintf(eventstrm,fmt,args); #else # if HAVE__DOPRNT _doprnt(fmt,args,eventstrm); # else fprintf(eventstrm,"sorry, vfprintf() and _doprnt() are not available on this system"); # endif #endif va_end(args); fprintf(eventstrm,"\n"); fflush(eventstrm); } extern void eventlog_step(char const * filename, t_eventlog_level level, char const * module, char const * fmt, ...) { va_list args; char time_string[EVENT_TIME_MAXLEN]; struct tm * tmnow; time_t now; FILE * fp; if (!(level&currlevel)) return; if (!eventstrm) return; if (!(fp = fopen(filename, "a"))) return; /* get the time before parsing args */ time(&now); if (!(tmnow = localtime(&now))) strcpy(time_string,"?"); else strftime(time_string,EVENT_TIME_MAXLEN,EVENT_TIME_FORMAT,tmnow); if (!module) { fprintf(fp,"%s eventlog_step: got NULL module\n",time_string); fclose(fp); return; } if (!fmt) { fprintf(fp,"%s eventlog_step: got NULL fmt\n",time_string); fclose(fp); return; } fprintf(fp,"%s %s: ",time_string,module); va_start(args,fmt); #ifdef HAVE_VPRINTF vfprintf(fp,fmt,args); #else # if HAVE__DOPRNT _doprnt(fmt,args,fp); # else fprintf(fp,"sorry, vfprintf() and _doprnt() are not available on this system"); # endif #endif va_end(args); fprintf(fp,"\n"); fclose(fp); }