#include #ifdef __rtems__ #include #include "rtems-bsd-racoon-namespace.h" #endif /* __rtems__ */ /* $NetBSD: plog.c,v 1.7 2011/01/28 12:51:40 tteras Exp $ */ /* Id: plog.c,v 1.11 2006/06/20 09:57:31 vanhu Exp */ /* * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include "config.h" #include #include #include #include #include #include #include #ifdef HAVE_STDARG_H #include #else #include #endif #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #ifdef __rtems__ #include #endif /* __rtems__ */ #include "var.h" #include "misc.h" #include "plog.h" #include "logger.h" #include "debug.h" #include "gcmalloc.h" #ifndef VA_COPY # define VA_COPY(dst,src) memcpy(&(dst), &(src), sizeof(va_list)) #endif char *pname = NULL; u_int32_t loglevel = LLV_BASE; int f_foreground = 0; int print_location = 0; static struct log *logp = NULL; static char *logfile = NULL; static char *plog_common __P((int, const char *, const char *, struct sockaddr *)); static struct plogtags { char *name; int priority; } ptab[] = { { "(not defined)", 0, }, { "ERROR", LOG_INFO, }, { "WARNING", LOG_INFO, }, { "NOTIFY", LOG_INFO, }, { "INFO", LOG_INFO, }, { "DEBUG", LOG_DEBUG, }, { "DEBUG2", LOG_DEBUG, }, }; static char * plog_common(pri, fmt, func, sa) int pri; const char *fmt, *func; struct sockaddr *sa; { static char buf[800]; /* XXX shoule be allocated every time ? */ void *addr; char *p; int reslen, len; p = buf; reslen = sizeof(buf); if (logfile || f_foreground) { time_t t; struct tm *tm; t = time(0); tm = localtime(&t); len = strftime(p, reslen, "%Y-%m-%d %T: ", tm); p += len; reslen -= len; } if (sa && reslen > 3) { addr = NULL; switch (sa->sa_family) { case AF_INET: addr = &((struct sockaddr_in*)sa)->sin_addr; break; case AF_INET6: addr = &((struct sockaddr_in6*)sa)->sin6_addr; break; } if (inet_ntop(sa->sa_family, addr, p + 1, reslen - 3) != NULL) { *p++ = '['; len = strlen(p); p += len; *p++ = ']'; *p++ = ' '; reslen -= len + 3; } } if (pri < ARRAYLEN(ptab)) { len = snprintf(p, reslen, "%s: ", ptab[pri].name); p += len; reslen -= len; } if (print_location) len = snprintf(p, reslen, "%s: %s", func, fmt); else len = snprintf(p, reslen, "%s", fmt); p += len; reslen -= len; /* Force nul termination */ if (reslen == 0) p[-1] = 0; #ifdef BROKEN_PRINTF while ((p = strstr(buf,"%z")) != NULL) p[1] = 'l'; #endif return buf; } void _plog(int pri, const char *func, struct sockaddr *sa, const char *fmt, ...) { va_list ap; va_start(ap, fmt); plogv(pri, func, sa, fmt, ap); va_end(ap); } void plogv(int pri, const char *func, struct sockaddr *sa, const char *fmt, va_list ap) { char *newfmt; va_list ap_bak; if (pri > loglevel) return; newfmt = plog_common(pri, fmt, func, sa); VA_COPY(ap_bak, ap); if (f_foreground) vprintf(newfmt, ap); if (logfile) log_vaprint(logp, newfmt, ap_bak); else { if (pri < ARRAYLEN(ptab)) vsyslog(ptab[pri].priority, newfmt, ap_bak); else vsyslog(LOG_ALERT, newfmt, ap_bak); } } void plogdump(pri, data, len) int pri; void *data; size_t len; { caddr_t buf; size_t buflen; int i, j; if (pri > loglevel) return; /* * 2 words a bytes + 1 space 4 bytes + 1 newline 32 bytes * + 2 newline + '\0' */ buflen = (len * 2) + (len / 4) + (len / 32) + 3; buf = racoon_malloc(buflen); i = 0; j = 0; while (j < len) { if (j % 32 == 0) buf[i++] = '\n'; else if (j % 4 == 0) buf[i++] = ' '; snprintf(&buf[i], buflen - i, "%02x", ((unsigned char *)data)[j] & 0xff); i += 2; j++; } if (buflen - i >= 2) { buf[i++] = '\n'; buf[i] = '\0'; } plog(pri, LOCATION, NULL, "%s", buf); racoon_free(buf); } void ploginit() { if (logfile) { logp = log_open(250, logfile); if (logp == NULL) errx(1, "ERROR: failed to open log file %s.", logfile); return; } openlog(pname, LOG_NDELAY, LOG_DAEMON); } void plogset(file) char *file; { if (logfile != NULL) racoon_free(logfile); logfile = racoon_strdup(file); STRDUP_FATAL(logfile); } /* Returns a printable string from (possibly) binary data ; concatenates all unprintable chars to one space. XXX Maybe the printable chars range is too large... */ char* binsanitize(binstr, n) char *binstr; size_t n; { int p,q; char* d; d = racoon_malloc(n + 1); for (p = 0, q = 0; p < n; p++) { if (isgraph((int)binstr[p])) { d[q++] = binstr[p]; } else { if (q && d[q - 1] != ' ') d[q++] = ' '; } } d[q++] = '\0'; return d; } #ifdef __rtems__ #include "rtems-bsd-racoon-plog-data.h" #endif /* __rtems__ */