X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=util%2Flog.c;h=66d4cc29553625c7e3655009fcffe26bcd902bf8;hp=318adbd1dd1ba9225799c3e6b1aad28266f023bf;hb=115041d41421c262942dd2d97d3828a1e3281ad1;hpb=87a9bdcb0fda85461f9992519f4239645c8b2826 diff --git a/util/log.c b/util/log.c index 318adbd..66d4cc2 100644 --- a/util/log.c +++ b/util/log.c @@ -1,10 +1,82 @@ /* - * Copyright (C) 1994, Index Data I/S - * All rights reserved. + * Copyright (c) 1995-2000, Index Data + * See the file LICENSE for details. * Sebastian Hammer, Adam Dickmeiss * * $Log: log.c,v $ - * Revision 1.2 1995-03-31 10:16:55 quinn + * Revision 1.25 2001-08-23 09:02:46 adam + * WIN32 fixes: Socket not re-used for bind. yaz_log logs WIN32 error + * message. + * + * Revision 1.24 2000/09/04 08:58:15 adam + * Added prefix yaz_ for most logging utility functions. + * + * Revision 1.23 2000/03/14 09:06:11 adam + * Added POSIX threads support for frontend server. + * + * Revision 1.22 2000/02/29 13:44:55 adam + * Check for config.h (currently not generated). + * + * Revision 1.21 2000/02/28 11:20:06 adam + * Using autoconf. New definitions: YAZ_BEGIN_CDECL/YAZ_END_CDECL. + * + * Revision 1.20 1999/11/30 13:47:12 adam + * Improved installation. Moved header files to include/yaz. + * + * Revision 1.19 1999/08/27 09:40:32 adam + * Renamed logf function to yaz_log. Removed VC++ project files. + * + * Revision 1.18 1998/10/28 10:27:00 adam + * New functions log_init_file, log_init_level, log_init_prefix. + * + * Revision 1.17 1997/12/09 16:11:02 adam + * Assume strerror is defined on Unixes as well. It's standard ANSI. + * + * Revision 1.16 1997/10/06 08:55:07 adam + * Changed log_init so that previous (if any) is closed. + * + * Revision 1.15 1997/09/29 07:13:13 adam + * Minor changes. + * + * Revision 1.14 1997/09/18 08:48:09 adam + * Fixed minor bug that caused log_init to ignore filename. + * + * Revision 1.13 1997/09/01 08:54:13 adam + * New windows NT/95 port using MSV5.0. Made prefix query handling + * thread safe. The function options ignores empty arguments when met. + * + * Revision 1.12 1997/05/01 15:08:14 adam + * Added log_mask_str_x routine. + * + * Revision 1.11 1996/02/05 12:24:32 adam + * Implemented log_event_{start,end}-functions. + * + * Revision 1.10 1995/12/06 09:51:27 quinn + * Fixed the log-prefix buffer - it was too small and the setup code lacked + * a bounds-check. + * + * Revision 1.9 1995/09/29 17:12:34 quinn + * Smallish + * + * Revision 1.8 1995/09/27 15:03:02 quinn + * Modified function heads & prototypes. + * + * Revision 1.7 1995/06/19 12:40:18 quinn + * Added log_file() + * + * Revision 1.6 1995/06/15 15:45:03 quinn + * Added date info. + * + * Revision 1.5 1995/05/16 08:51:11 quinn + * License, documentation, and memory fixes + * + * Revision 1.4 1995/05/15 11:56:55 quinn + * Debuggng & adjustments. + * + * Revision 1.3 1995/04/10 10:23:51 quinn + * Fixes. + * + * Revision 1.2 1995/03/31 10:16:55 quinn * Fixed logging. * * Revision 1.1 1995/03/30 10:26:53 quinn @@ -40,16 +112,39 @@ * */ -#include +#if HAVE_CONFIG_H +#include +#endif + +#ifdef WIN32 +#include +#endif + #include #include #include +#include #include #include +#include +#include + +#define HAS_STRERROR 1 + +#if HAS_STRERROR + +#else +char *strerror(int n) +{ + extern char *sys_errlist[]; + return sys_errlist[n]; +} + +#endif static int l_level = LOG_DEFAULT_LEVEL; -static FILE *l_file = stderr; -static char l_prefix[30] = "log"; +static FILE *l_file = NULL; +static char l_prefix[512] = "log"; static struct { int mask; @@ -66,28 +161,79 @@ static struct { { 0, NULL } }; -void log_init(int level, const char *prefix, const char *name) +FILE *yaz_log_file(void) +{ + if (!l_file) + l_file = stderr; + return l_file; +} + +void yaz_log_init_file (const char *fname) +{ + FILE *new_file; + if (!l_file) + l_file = stderr; + if (!fname || !*fname) + return; + if (!(new_file = fopen(fname, "a"))) + return; + if (l_file != stderr) + { + fclose (l_file); + } + setvbuf(new_file, 0, _IONBF, 0); + l_file = new_file; +} + +void yaz_log_init_level (int level) { l_level = level; +} + +void yaz_log_init_prefix (const char *prefix) +{ if (prefix && *prefix) - strcpy(l_prefix, prefix); - if (!name || !*name || l_file != stderr) - return; - if (!(l_file = fopen(name, "a"))) - return; - setbuffer(l_file, 0, 0); + sprintf(l_prefix, "%.512s", prefix); +} + +void yaz_log_init(int level, const char *prefix, const char *fname) +{ + yaz_log_init_level (level); + yaz_log_init_prefix (prefix); + yaz_log_init_file (fname); +} + +static void (*start_hook_func)(int, const char *, void *) = NULL; +static void *start_hook_info; +static void (*end_hook_func)(int, const char *, void *) = NULL; +static void *end_hook_info; + +void log_event_start (void (*func)(int, const char *, void *), void *info) +{ + start_hook_func = func; + start_hook_info = info; } -void logf(int level, const char *fmt, ...) +void log_event_end (void (*func)(int, const char *, void *), void *info) +{ + end_hook_func = func; + end_hook_info = info; +} + +void yaz_log(int level, const char *fmt, ...) { va_list ap; char buf[4096], flags[1024]; - int i, p_error = 0; + int i; + time_t ti; + struct tm *tim; + char tbuf[50]; + int o_level = level; if (!(level & l_level)) return; - if (level & LOG_ERRNO) - p_error = 1; + if (!l_file) + l_file = stderr; *flags = '\0'; for (i = 0; level && mask_names[i].name; i++) if (mask_names[i].mask & level) @@ -97,17 +243,52 @@ void logf(int level, const char *fmt, ...) level -= mask_names[i].mask; } va_start(ap, fmt); +#if HAVE_VSNPRINTF + vsnprintf(buf, sizeof(buf), fmt, ap); +#else vsprintf(buf, fmt, ap); - if (p_error) - sprintf(buf + strlen(buf), " [%s]", strerror(errno)); - fprintf(l_file, "%s: %s %s\n", l_prefix, flags, buf); +#endif + if (o_level & LOG_ERRNO) + { +#ifdef WIN32 + DWORD err = GetLastError(); + if (err) + { + strcat(buf, " ["); + FormatMessage( + FORMAT_MESSAGE_FROM_SYSTEM, + NULL, + err, + MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language + (LPTSTR) buf + strlen(buf), + 2048, + NULL); + strcat(buf, "]"); + } +#else + sprintf(buf + strlen(buf), " [%s]", strerror(errno)); +#endif + } + if (start_hook_func) + (*start_hook_func)(o_level, buf, start_hook_info); + ti = time(0); + tim = localtime(&ti); + strftime(tbuf, 50, "%H:%M:%S-%d/%m", tim); + fprintf(l_file, "%s: %s: %s %s\n", tbuf, l_prefix, flags, buf); fflush(l_file); + if (end_hook_func) + (*end_hook_func)(o_level, buf, end_hook_info); +} + +int yaz_log_mask_str (const char *str) +{ + return yaz_log_mask_str_x (str, LOG_DEFAULT_LEVEL); } -int log_mask_str (const char *str) +int yaz_log_mask_str_x (const char *str, int level) { const char *p; - int i, level = LOG_DEFAULT_LEVEL; + int i; while (*str) { @@ -117,7 +298,7 @@ int log_mask_str (const char *str) level = atoi (str); else for (i = 0; mask_names[i].name; i++) - if (strlen (mask_names[i].name) == p-str && + if (strlen (mask_names[i].name) == (size_t) (p-str) && memcmp (mask_names[i].name, str, p-str) == 0) { if (mask_names[i].mask)