/*
- * $Id: log.c,v 1.17 2004/12/07 15:39:32 ajs Exp $
- *
* Logging of zebra
* Copyright (C) 1997, 1998, 1999 Kunihiro Ishiguro
*
* 02111-1307, USA.
*/
+#define QUAGGA_DEFINE_DESC_TABLE
+
#include <zebra.h>
#include "log.h"
#ifndef SUNOS_5
#include <sys/un.h>
#endif
+/* for printstack on solaris */
+#ifdef HAVE_UCONTEXT_H
+#include <ucontext.h>
+#endif
+
+DEFINE_MTYPE_STATIC(LIB, ZLOG, "Logging")
+
+static int logfile_fd = -1; /* Used in signal handler. */
struct zlog *zlog_default = NULL;
"OSPF",
"RIPNG",
"OSPF6",
+ "LDP",
"ISIS",
+ "PIM",
"MASC",
+ "RFP",
NULL,
};
"debugging",
NULL,
};
-
-\f
+/*
+ * write_wrapper
+ *
+ * glibc has declared that the return value from write *must* not be
+ * ignored.
+ * gcc see's this problem and issues a warning for the line.
+ *
+ * Why is this a big deal you say? Because both of them are right
+ * and if you have -Werror enabled then all calls to write
+ * generate a build error and the build stops.
+ *
+ * clang has helpfully allowed this construct:
+ * (void)write(...)
+ * to tell the compiler yeah I know it has a return value
+ * I don't care about it at this time.
+ * gcc doesn't have this ability.
+ *
+ * This code was written such that it didn't care about the
+ * return value from write. At this time do I want
+ * to go through and fix and test this code for correctness.
+ * So just wrapper the bad behavior and move on.
+ */
+static void write_wrapper (int fd, const void *buf, size_t count)
+{
+ if (write (fd, buf, count) <= 0)
+ return;
+
+ return;
+}
+
/* For time string format. */
-#define TIME_BUF 27
+
+size_t
+quagga_timestamp(int timestamp_precision, char *buf, size_t buflen)
+{
+ static struct {
+ time_t last;
+ size_t len;
+ char buf[28];
+ } cache;
+ struct timeval clock;
+
+ /* would it be sufficient to use global 'recent_time' here? I fear not... */
+ gettimeofday(&clock, NULL);
+
+ /* first, we update the cache if the time has changed */
+ if (cache.last != clock.tv_sec)
+ {
+ struct tm *tm;
+ cache.last = clock.tv_sec;
+ tm = localtime(&cache.last);
+ cache.len = strftime(cache.buf, sizeof(cache.buf),
+ "%Y/%m/%d %H:%M:%S", tm);
+ }
+ /* note: it's not worth caching the subsecond part, because
+ chances are that back-to-back calls are not sufficiently close together
+ for the clock not to have ticked forward */
+
+ if (buflen > cache.len)
+ {
+ memcpy(buf, cache.buf, cache.len);
+ if ((timestamp_precision > 0) &&
+ (buflen > cache.len+1+timestamp_precision))
+ {
+ /* should we worry about locale issues? */
+ static const int divisor[] = {0, 100000, 10000, 1000, 100, 10, 1};
+ int prec;
+ char *p = buf+cache.len+1+(prec = timestamp_precision);
+ *p-- = '\0';
+ while (prec > 6)
+ /* this is unlikely to happen, but protect anyway */
+ {
+ *p-- = '0';
+ prec--;
+ }
+ clock.tv_usec /= divisor[prec];
+ do
+ {
+ *p-- = '0'+(clock.tv_usec % 10);
+ clock.tv_usec /= 10;
+ }
+ while (--prec > 0);
+ *p = '.';
+ return cache.len+1+timestamp_precision;
+ }
+ buf[cache.len] = '\0';
+ return cache.len;
+ }
+ if (buflen > 0)
+ buf[0] = '\0';
+ return 0;
+}
/* Utility routine for current time printing. */
static void
-time_print (FILE *fp)
+time_print(FILE *fp, struct timestamp_control *ctl)
{
- int ret;
- char buf [TIME_BUF];
- time_t clock;
- struct tm *tm;
+ if (!ctl->already_rendered)
+ {
+ ctl->len = quagga_timestamp(ctl->precision, ctl->buf, sizeof(ctl->buf));
+ ctl->already_rendered = 1;
+ }
+ fprintf(fp, "%s ", ctl->buf);
+}
- time (&clock);
- tm = localtime (&clock);
- ret = strftime (buf, TIME_BUF, "%Y/%m/%d %H:%M:%S", tm);
- if (ret == 0) {
- zlog_warn ("strftime error");
- }
-
- fprintf (fp, "%s ", buf);
-}
-\f
/* va_list version of zlog. */
-static void
+void
vzlog (struct zlog *zl, int priority, const char *format, va_list args)
{
+ char proto_str[32];
+ int original_errno = errno;
+ struct timestamp_control tsctl;
+ tsctl.already_rendered = 0;
+
/* If zlog is not specified, use default one. */
if (zl == NULL)
zl = zlog_default;
/* When zlog_default is also NULL, use stderr for logging. */
if (zl == NULL)
{
- time_print (stderr);
+ tsctl.precision = 0;
+ time_print(stderr, &tsctl);
fprintf (stderr, "%s: ", "unknown");
vfprintf (stderr, format, args);
fprintf (stderr, "\n");
fflush (stderr);
/* In this case we return at here. */
+ errno = original_errno;
return;
}
+ tsctl.precision = zl->timestamp_precision;
/* Syslog output */
if (priority <= zl->maxlvl[ZLOG_DEST_SYSLOG])
va_end(ac);
}
+ if (zl->instance)
+ sprintf (proto_str, "%s[%d]: ", zlog_proto_names[zl->protocol], zl->instance);
+ else
+ sprintf (proto_str, "%s: ", zlog_proto_names[zl->protocol]);
+
/* File output. */
if ((priority <= zl->maxlvl[ZLOG_DEST_FILE]) && zl->fp)
{
va_list ac;
- time_print (zl->fp);
+ time_print (zl->fp, &tsctl);
if (zl->record_priority)
fprintf (zl->fp, "%s: ", zlog_priority[priority]);
- fprintf (zl->fp, "%s: ", zlog_proto_names[zl->protocol]);
+ fprintf (zl->fp, "%s", proto_str);
va_copy(ac, args);
vfprintf (zl->fp, format, ac);
va_end(ac);
if (priority <= zl->maxlvl[ZLOG_DEST_STDOUT])
{
va_list ac;
- time_print (stdout);
+ time_print (stdout, &tsctl);
if (zl->record_priority)
fprintf (stdout, "%s: ", zlog_priority[priority]);
- fprintf (stdout, "%s: ", zlog_proto_names[zl->protocol]);
+ fprintf (stdout, "%s", proto_str);
va_copy(ac, args);
vfprintf (stdout, format, ac);
va_end(ac);
/* Terminal monitor. */
if (priority <= zl->maxlvl[ZLOG_DEST_MONITOR])
vty_log ((zl->record_priority ? zlog_priority[priority] : NULL),
- zlog_proto_names[zl->protocol], format, args);
+ proto_str, format, &tsctl, args);
+
+ errno = original_errno;
+}
+
+int
+vzlog_test (struct zlog *zl, int priority)
+{
+ /* If zlog is not specified, use default one. */
+ if (zl == NULL)
+ zl = zlog_default;
+
+ /* When zlog_default is also NULL, use stderr for logging. */
+ if (zl == NULL)
+ {
+ return 1;
+ }
+
+ /* Syslog output */
+ if (priority <= zl->maxlvl[ZLOG_DEST_SYSLOG])
+ {
+ return 1;
+ }
+
+ /* File output. */
+ if ((priority <= zl->maxlvl[ZLOG_DEST_FILE]) && zl->fp)
+ {
+ return 1;
+ }
+
+ /* stdout output. */
+ if (priority <= zl->maxlvl[ZLOG_DEST_STDOUT])
+ {
+ return 1;
+ }
+
+ /* Terminal monitor. */
+ if (priority <= zl->maxlvl[ZLOG_DEST_MONITOR])
+ return 1;
+
+ return 0;
}
static char *
return str_append(s,len,t);
}
+#if defined(SA_SIGINFO) || defined(HAVE_STACK_TRACE)
static char *
hex_append(char *s, int len, u_long x)
{
}
return str_append(s,len,t);
}
-
-static int syslog_fd = -1;
+#endif
/* Needs to be enhanced to support Solaris. */
static int
static void
syslog_sigsafe(int priority, const char *msg, size_t msglen)
{
+ static int syslog_fd = -1;
char buf[sizeof("<1234567890>ripngd[1234567890]: ")+msglen+50];
char *s;
}
s = str_append(LOC,": ");
s = str_append(LOC,msg);
- write(syslog_fd,buf,s-buf);
+ write_wrapper (syslog_fd,buf,s-buf);
+#undef LOC
+}
+
+static int
+open_crashlog(void)
+{
+#define CRASHLOG_PREFIX "/var/tmp/quagga."
+#define CRASHLOG_SUFFIX "crashlog"
+ if (zlog_default && zlog_default->ident)
+ {
+ /* Avoid strlen since it is not async-signal-safe. */
+ const char *p;
+ size_t ilen;
+
+ for (p = zlog_default->ident, ilen = 0; *p; p++)
+ ilen++;
+ {
+ char buf[sizeof(CRASHLOG_PREFIX)+ilen+sizeof(CRASHLOG_SUFFIX)+3];
+ char *s = buf;
+#define LOC s,buf+sizeof(buf)-s
+ s = str_append(LOC, CRASHLOG_PREFIX);
+ s = str_append(LOC, zlog_default->ident);
+ s = str_append(LOC, ".");
+ s = str_append(LOC, CRASHLOG_SUFFIX);
#undef LOC
+ *s = '\0';
+ return open(buf, O_WRONLY|O_CREAT|O_EXCL, LOGFILE_MASK);
+ }
+ }
+ return open(CRASHLOG_PREFIX CRASHLOG_SUFFIX, O_WRONLY|O_CREAT|O_EXCL,
+ LOGFILE_MASK);
+#undef CRASHLOG_SUFFIX
+#undef CRASHLOG_PREFIX
}
/* Note: the goal here is to use only async-signal-safe functions. */
void
-zlog_signal(int signo, const char *action)
+zlog_signal(int signo, const char *action
+#ifdef SA_SIGINFO
+ , siginfo_t *siginfo, void *program_counter
+#endif
+ )
{
time_t now;
- char buf[sizeof("DEFAULT: Received signal S at T; aborting...")+60];
+ char buf[sizeof("DEFAULT: Received signal S at T (si_addr 0xP, PC 0xP); aborting...")+100];
char *s = buf;
char *msgstart = buf;
#define LOC s,buf+sizeof(buf)-s
s = num_append(LOC,signo);
s = str_append(LOC," at ");
s = num_append(LOC,now);
+#ifdef SA_SIGINFO
+ s = str_append(LOC," (si_addr 0x");
+ s = hex_append(LOC,(u_long)(siginfo->si_addr));
+ if (program_counter)
+ {
+ s = str_append(LOC,", PC 0x");
+ s = hex_append(LOC,(u_long)program_counter);
+ }
+ s = str_append(LOC,"); ");
+#else /* SA_SIGINFO */
s = str_append(LOC,"; ");
+#endif /* SA_SIGINFO */
s = str_append(LOC,action);
if (s < buf+sizeof(buf))
*s++ = '\n';
/* N.B. implicit priority is most severe */
-#define PRI LOG_EMERG
+#define PRI LOG_CRIT
+
+#define DUMP(FD) write_wrapper(FD, buf, s-buf);
+ /* If no file logging configured, try to write to fallback log file. */
+ if ((logfile_fd >= 0) || ((logfile_fd = open_crashlog()) >= 0))
+ DUMP(logfile_fd)
+ if (!zlog_default)
+ DUMP(STDERR_FILENO)
+ else
+ {
+ if (PRI <= zlog_default->maxlvl[ZLOG_DEST_STDOUT])
+ DUMP(STDOUT_FILENO)
+ /* Remove trailing '\n' for monitor and syslog */
+ *--s = '\0';
+ if (PRI <= zlog_default->maxlvl[ZLOG_DEST_MONITOR])
+ vty_log_fixed(buf,s-buf);
+ if (PRI <= zlog_default->maxlvl[ZLOG_DEST_SYSLOG])
+ syslog_sigsafe(PRI|zlog_default->facility,msgstart,s-msgstart);
+ }
+#undef DUMP
+
+ zlog_backtrace_sigsafe(PRI,
+#ifdef SA_SIGINFO
+ program_counter
+#else
+ NULL
+#endif
+ );
+
+ s = buf;
+ if (!thread_current)
+ s = str_append (LOC, "no thread information available\n");
+ else
+ {
+ s = str_append (LOC, "in thread ");
+ s = str_append (LOC, thread_current->funcname);
+ s = str_append (LOC, " scheduled from ");
+ s = str_append (LOC, thread_current->schedfrom);
+ s = str_append (LOC, ":");
+ s = num_append (LOC, thread_current->schedfrom_line);
+ s = str_append (LOC, "\n");
+ }
-#define DUMP(FP) write(fileno(FP),buf,s-buf);
+#define DUMP(FD) write_wrapper(FD, buf, s-buf);
+ /* If no file logging configured, try to write to fallback log file. */
+ if (logfile_fd >= 0)
+ DUMP(logfile_fd)
if (!zlog_default)
- DUMP(stderr)
+ DUMP(STDERR_FILENO)
else
{
- if ((PRI <= zlog_default->maxlvl[ZLOG_DEST_FILE]) && zlog_default->fp)
- DUMP(zlog_default->fp)
if (PRI <= zlog_default->maxlvl[ZLOG_DEST_STDOUT])
- DUMP(stdout)
+ DUMP(STDOUT_FILENO)
/* Remove trailing '\n' for monitor and syslog */
*--s = '\0';
if (PRI <= zlog_default->maxlvl[ZLOG_DEST_MONITOR])
}
#undef DUMP
- zlog_backtrace_sigsafe(PRI);
#undef PRI
#undef LOC
}
/* Log a backtrace using only async-signal-safe functions.
Needs to be enhanced to support syslog logging. */
void
-zlog_backtrace_sigsafe(int priority)
+zlog_backtrace_sigsafe(int priority, void *program_counter)
{
-#ifdef HAVE_GLIBC_BACKTRACE
- void *array[20];
+#ifdef HAVE_STACK_TRACE
+ static const char pclabel[] = "Program counter: ";
+ void *array[64];
int size;
char buf[100];
- char *s;
+ char *s, **bt = NULL;
#define LOC s,buf+sizeof(buf)-s
- if (((size = backtrace(array,sizeof(array)/sizeof(array[0]))) <= 0) ||
- ((size_t)size > sizeof(array)/sizeof(array[0])))
+#ifdef HAVE_GLIBC_BACKTRACE
+ size = backtrace(array, array_size(array));
+ if (size <= 0 || (size_t)size > array_size(array))
return;
+
+#define DUMP(FD) { \
+ if (program_counter) \
+ { \
+ write_wrapper(FD, pclabel, sizeof(pclabel)-1); \
+ backtrace_symbols_fd(&program_counter, 1, FD); \
+ } \
+ write_wrapper(FD, buf, s-buf); \
+ backtrace_symbols_fd(array, size, FD); \
+}
+#elif defined(HAVE_PRINTSTACK)
+#define DUMP(FD) { \
+ if (program_counter) \
+ write_wrapper((FD), pclabel, sizeof(pclabel)-1); \
+ write_wrapper((FD), buf, s-buf); \
+ printstack((FD)); \
+}
+#endif /* HAVE_GLIBC_BACKTRACE, HAVE_PRINTSTACK */
+
s = buf;
s = str_append(LOC,"Backtrace for ");
s = num_append(LOC,size);
s = str_append(LOC," stack frames:\n");
-#define DUMP(FP) { \
- write(fileno(FP),buf,s-buf); \
- backtrace_symbols_fd(array, size, fileno(FP)); \
-}
-
+ if ((logfile_fd >= 0) || ((logfile_fd = open_crashlog()) >= 0))
+ DUMP(logfile_fd)
if (!zlog_default)
- DUMP(stderr)
+ DUMP(STDERR_FILENO)
else
{
- if ((priority <= zlog_default->maxlvl[ZLOG_DEST_FILE]) &&
- zlog_default->fp)
- DUMP(zlog_default->fp)
if (priority <= zlog_default->maxlvl[ZLOG_DEST_STDOUT])
- DUMP(stdout)
+ DUMP(STDOUT_FILENO)
/* Remove trailing '\n' for monitor and syslog */
*--s = '\0';
if (priority <= zlog_default->maxlvl[ZLOG_DEST_MONITOR])
syslog_sigsafe(priority|zlog_default->facility,buf,s-buf);
{
int i;
+#ifdef HAVE_GLIBC_BACKTRACE
+ bt = backtrace_symbols(array, size);
+#endif
/* Just print the function addresses. */
for (i = 0; i < size; i++)
{
s = buf;
- s = str_append(LOC,"[bt ");
- s = num_append(LOC,i);
- s = str_append(LOC,"] 0x");
- s = hex_append(LOC,(u_long)(array[i]));
+ if (bt)
+ s = str_append(LOC, bt[i]);
+ else {
+ s = str_append(LOC,"[bt ");
+ s = num_append(LOC,i);
+ s = str_append(LOC,"] 0x");
+ s = hex_append(LOC,(u_long)(array[i]));
+ }
*s = '\0';
if (priority <= zlog_default->maxlvl[ZLOG_DEST_MONITOR])
vty_log_fixed(buf,s-buf);
if (priority <= zlog_default->maxlvl[ZLOG_DEST_SYSLOG])
syslog_sigsafe(priority|zlog_default->facility,buf,s-buf);
}
+ if (bt)
+ free(bt);
}
}
#undef DUMP
#undef LOC
-#endif /* HAVE_GLIBC_BACKTRACE */
+#endif /* HAVE_STRACK_TRACE */
}
void
int size, i;
char **strings;
- if (((size = backtrace(array,sizeof(array)/sizeof(array[0]))) <= 0) ||
- ((size_t)size > sizeof(array)/sizeof(array[0])))
+ size = backtrace(array, array_size(array));
+ if (size <= 0 || (size_t)size > array_size(array))
{
zlog_err("Cannot get backtrace, returned invalid # of frames %d "
- "(valid range is between 1 and %u)",
- size, sizeof(array)/sizeof(array[0]));
+ "(valid range is between 1 and %lu)",
+ size, (unsigned long)(array_size(array)));
return;
}
zlog(NULL, priority, "Backtrace for %d stack frames:", size);
#undef ZLOG_FUNC
-#define PLOG_FUNC(FUNCNAME,PRIORITY) \
-void \
-FUNCNAME(struct zlog *zl, const char *format, ...) \
-{ \
- va_list args; \
- va_start(args, format); \
- vzlog (zl, PRIORITY, format, args); \
- va_end(args); \
+void zlog_thread_info (int log_level)
+{
+ if (thread_current)
+ zlog(NULL, log_level, "Current thread function %s, scheduled from "
+ "file %s, line %u", thread_current->funcname,
+ thread_current->schedfrom, thread_current->schedfrom_line);
+ else
+ zlog(NULL, log_level, "Current thread not known/applicable");
}
-PLOG_FUNC(plog_err, LOG_ERR)
-
-PLOG_FUNC(plog_warn, LOG_WARNING)
-
-PLOG_FUNC(plog_info, LOG_INFO)
-
-PLOG_FUNC(plog_notice, LOG_NOTICE)
-
-PLOG_FUNC(plog_debug, LOG_DEBUG)
-
-#undef PLOG_FUNC
-
void
_zlog_assert_failed (const char *assertion, const char *file,
unsigned int line, const char *function)
{
- zlog_err("Assertion `%s' failed in file %s, line %u, function %s",
- assertion,file,line,(function ? function : "?"));
- zlog_backtrace(LOG_EMERG);
+ /* Force fallback file logging? */
+ if (zlog_default && !zlog_default->fp &&
+ ((logfile_fd = open_crashlog()) >= 0) &&
+ ((zlog_default->fp = fdopen(logfile_fd, "w")) != NULL))
+ zlog_default->maxlvl[ZLOG_DEST_FILE] = LOG_ERR;
+ zlog(NULL, LOG_CRIT, "Assertion `%s' failed in file %s, line %u, function %s",
+ assertion,file,line,(function ? function : "?"));
+ zlog_backtrace(LOG_CRIT);
+ zlog_thread_info(LOG_CRIT);
+ log_memstats_stderr ("log");
abort();
}
-\f
+void
+memory_oom (size_t size, const char *name)
+{
+ zlog_err("out of memory: failed to allocate %zu bytes for %s"
+ "object", size, name);
+ zlog_backtrace(LOG_ERR);
+ abort();
+}
+
/* Open log stream */
struct zlog *
-openzlog (const char *progname, zlog_proto_t protocol,
+openzlog (const char *progname, zlog_proto_t protocol, u_short instance,
int syslog_flags, int syslog_facility)
{
struct zlog *zl;
zl->ident = progname;
zl->protocol = protocol;
+ zl->instance = instance;
zl->facility = syslog_facility;
zl->syslog_options = syslog_flags;
/* Set default logging levels. */
- for (i = 0; i < sizeof(zl->maxlvl)/sizeof(zl->maxlvl[0]); i++)
+ for (i = 0; i < array_size(zl->maxlvl); i++)
zl->maxlvl[i] = ZLOG_DISABLED;
zl->maxlvl[ZLOG_DEST_MONITOR] = LOG_DEBUG;
zl->default_lvl = LOG_DEBUG;
closezlog (struct zlog *zl)
{
closelog();
- fclose (zl->fp);
+
+ if (zl->fp != NULL)
+ fclose (zl->fp);
+
+ if (zl->filename != NULL)
+ XFREE(MTYPE_ZLOG, zl->filename);
XFREE (MTYPE_ZLOG, zl);
}
return 0;
/* Set flags. */
- zl->filename = strdup (filename);
+ zl->filename = XSTRDUP(MTYPE_ZLOG, filename);
zl->maxlvl[ZLOG_DEST_FILE] = log_level;
zl->fp = fp;
+ logfile_fd = fileno(fp);
return 1;
}
if (zl->fp)
fclose (zl->fp);
zl->fp = NULL;
+ logfile_fd = -1;
zl->maxlvl[ZLOG_DEST_FILE] = ZLOG_DISABLED;
if (zl->filename)
- free (zl->filename);
+ XFREE(MTYPE_ZLOG, zl->filename);
zl->filename = NULL;
return 1;
if (zl->fp)
fclose (zl->fp);
zl->fp = NULL;
+ logfile_fd = -1;
level = zl->maxlvl[ZLOG_DEST_FILE];
zl->maxlvl[ZLOG_DEST_FILE] = ZLOG_DISABLED;
zl->filename, safe_strerror(save_errno));
return -1;
}
+ logfile_fd = fileno(zl->fp);
zl->maxlvl[ZLOG_DEST_FILE] = level;
}
return 1;
}
-\f
+
/* Message lookup function. */
const char *
-lookup (struct message *mes, int key)
+lookup (const struct message *mes, int key)
{
- struct message *pnt;
+ const struct message *pnt;
for (pnt = mes; pnt->key != 0; pnt++)
if (pnt->key == key)
return "";
}
-/* Very old hacky version of message lookup function. Still partly
- used in bgpd and ospfd. FIXME Seems that it's not used any more. */
+/* Older/faster version of message lookup function, but requires caller to pass
+ * in the array size (instead of relying on a 0 key to terminate the search).
+ *
+ * The return value is the message string if found, or the 'none' pointer
+ * provided otherwise.
+ */
const char *
-mes_lookup (struct message *meslist, int max, int index)
+mes_lookup (const struct message *meslist, int max, int index,
+ const char *none, const char *mesname)
{
- if (index < 0 || index >= max)
- {
- zlog_err ("message index out of bound: %d", max);
- return NULL;
- }
- return meslist[index].str;
+ int pos = index - meslist[0].key;
+
+ /* first check for best case: index is in range and matches the key
+ * value in that slot.
+ * NB: key numbering might be offset from 0. E.g. protocol constants
+ * often start at 1.
+ */
+ if ((pos >= 0) && (pos < max)
+ && (meslist[pos].key == index))
+ return meslist[pos].str;
+
+ /* fall back to linear search */
+ {
+ int i;
+
+ for (i = 0; i < max; i++, meslist++)
+ {
+ if (meslist->key == index)
+ {
+ const char *str = (meslist->str ? meslist->str : none);
+
+ zlog_debug ("message index %d [%s] found in %s at position %d (max is %d)",
+ index, str, mesname, i, max);
+ return str;
+ }
+ }
+ }
+ zlog_err("message index %d not found in %s (max is %d)", index, mesname, max);
+ assert (none);
+ return none;
}
/* Wrapper around strerror to handle case where it returns NULL. */
const char *s = strerror(errnum);
return (s != NULL) ? s : "Unknown error";
}
+
+#define DESC_ENTRY(T) [(T)] = { (T), (#T), '\0' }
+static const struct zebra_desc_table command_types[] = {
+ DESC_ENTRY (ZEBRA_INTERFACE_ADD),
+ DESC_ENTRY (ZEBRA_INTERFACE_DELETE),
+ DESC_ENTRY (ZEBRA_INTERFACE_ADDRESS_ADD),
+ DESC_ENTRY (ZEBRA_INTERFACE_ADDRESS_DELETE),
+ DESC_ENTRY (ZEBRA_INTERFACE_UP),
+ DESC_ENTRY (ZEBRA_INTERFACE_DOWN),
+ DESC_ENTRY (ZEBRA_IPV4_ROUTE_ADD),
+ DESC_ENTRY (ZEBRA_IPV4_ROUTE_DELETE),
+ DESC_ENTRY (ZEBRA_IPV6_ROUTE_ADD),
+ DESC_ENTRY (ZEBRA_IPV6_ROUTE_DELETE),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_ADD),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_DELETE),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_DEFAULT_ADD),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_DEFAULT_DELETE),
+ DESC_ENTRY (ZEBRA_ROUTER_ID_ADD),
+ DESC_ENTRY (ZEBRA_ROUTER_ID_DELETE),
+ DESC_ENTRY (ZEBRA_ROUTER_ID_UPDATE),
+ DESC_ENTRY (ZEBRA_HELLO),
+ DESC_ENTRY (ZEBRA_NEXTHOP_REGISTER),
+ DESC_ENTRY (ZEBRA_NEXTHOP_UNREGISTER),
+ DESC_ENTRY (ZEBRA_NEXTHOP_UPDATE),
+ DESC_ENTRY (ZEBRA_INTERFACE_NBR_ADDRESS_ADD),
+ DESC_ENTRY (ZEBRA_INTERFACE_NBR_ADDRESS_DELETE),
+ DESC_ENTRY (ZEBRA_INTERFACE_BFD_DEST_UPDATE),
+ DESC_ENTRY (ZEBRA_IMPORT_ROUTE_REGISTER),
+ DESC_ENTRY (ZEBRA_IMPORT_ROUTE_UNREGISTER),
+ DESC_ENTRY (ZEBRA_IMPORT_CHECK_UPDATE),
+ DESC_ENTRY (ZEBRA_IPV4_ROUTE_IPV6_NEXTHOP_ADD),
+ DESC_ENTRY (ZEBRA_BFD_DEST_REGISTER),
+ DESC_ENTRY (ZEBRA_BFD_DEST_DEREGISTER),
+ DESC_ENTRY (ZEBRA_BFD_DEST_UPDATE),
+ DESC_ENTRY (ZEBRA_BFD_DEST_REPLAY),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_IPV4_ADD),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_IPV4_DEL),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_IPV6_ADD),
+ DESC_ENTRY (ZEBRA_REDISTRIBUTE_IPV6_DEL),
+ DESC_ENTRY (ZEBRA_VRF_UNREGISTER),
+ DESC_ENTRY (ZEBRA_VRF_ADD),
+ DESC_ENTRY (ZEBRA_VRF_DELETE),
+ DESC_ENTRY (ZEBRA_INTERFACE_VRF_UPDATE),
+ DESC_ENTRY (ZEBRA_BFD_CLIENT_REGISTER),
+ DESC_ENTRY (ZEBRA_INTERFACE_ENABLE_RADV),
+ DESC_ENTRY (ZEBRA_INTERFACE_DISABLE_RADV),
+ DESC_ENTRY (ZEBRA_IPV4_NEXTHOP_LOOKUP_MRIB),
+ DESC_ENTRY (ZEBRA_MPLS_LABELS_ADD),
+ DESC_ENTRY (ZEBRA_MPLS_LABELS_DELETE),
+ DESC_ENTRY (ZEBRA_IPV4_NEXTHOP_ADD),
+ DESC_ENTRY (ZEBRA_IPV4_NEXTHOP_DELETE),
+ DESC_ENTRY (ZEBRA_IPV6_NEXTHOP_ADD),
+ DESC_ENTRY (ZEBRA_IPV6_NEXTHOP_DELETE),
+};
+#undef DESC_ENTRY
+
+static const struct zebra_desc_table unknown = { 0, "unknown", '?' };
+
+static const struct zebra_desc_table *
+zroute_lookup(u_int zroute)
+{
+ u_int i;
+
+ if (zroute >= array_size(route_types))
+ {
+ zlog_err("unknown zebra route type: %u", zroute);
+ return &unknown;
+ }
+ if (zroute == route_types[zroute].type)
+ return &route_types[zroute];
+ for (i = 0; i < array_size(route_types); i++)
+ {
+ if (zroute == route_types[i].type)
+ {
+ zlog_warn("internal error: route type table out of order "
+ "while searching for %u, please notify developers", zroute);
+ return &route_types[i];
+ }
+ }
+ zlog_err("internal error: cannot find route type %u in table!", zroute);
+ return &unknown;
+}
+
+const char *
+zebra_route_string(u_int zroute)
+{
+ return zroute_lookup(zroute)->string;
+}
+
+char
+zebra_route_char(u_int zroute)
+{
+ return zroute_lookup(zroute)->chr;
+}
+
+const char *
+zserv_command_string (unsigned int command)
+{
+ if (command >= array_size(command_types))
+ {
+ zlog_err ("unknown zserv command type: %u", command);
+ return unknown.string;
+ }
+ return command_types[command].string;
+}
+
+int
+proto_name2num(const char *s)
+{
+ unsigned i;
+
+ for (i=0; i<array_size(route_types); ++i)
+ if (strcasecmp(s, route_types[i].string) == 0)
+ return route_types[i].type;
+ return -1;
+}
+
+int
+proto_redistnum(int afi, const char *s)
+{
+ if (! s)
+ return -1;
+
+ if (afi == AFI_IP)
+ {
+ if (strncmp (s, "k", 1) == 0)
+ return ZEBRA_ROUTE_KERNEL;
+ else if (strncmp (s, "c", 1) == 0)
+ return ZEBRA_ROUTE_CONNECT;
+ else if (strncmp (s, "s", 1) == 0)
+ return ZEBRA_ROUTE_STATIC;
+ else if (strncmp (s, "r", 1) == 0)
+ return ZEBRA_ROUTE_RIP;
+ else if (strncmp (s, "o", 1) == 0)
+ return ZEBRA_ROUTE_OSPF;
+ else if (strncmp (s, "i", 1) == 0)
+ return ZEBRA_ROUTE_ISIS;
+ else if (strncmp (s, "bg", 2) == 0)
+ return ZEBRA_ROUTE_BGP;
+ else if (strncmp (s, "ta", 2) == 0)
+ return ZEBRA_ROUTE_TABLE;
+ else if (strncmp (s, "v", 1) == 0)
+ return ZEBRA_ROUTE_VNC;
+ else if (strncmp (s, "vd", 1) == 0)
+ return ZEBRA_ROUTE_VNC_DIRECT;
+ }
+ if (afi == AFI_IP6)
+ {
+ if (strncmp (s, "k", 1) == 0)
+ return ZEBRA_ROUTE_KERNEL;
+ else if (strncmp (s, "c", 1) == 0)
+ return ZEBRA_ROUTE_CONNECT;
+ else if (strncmp (s, "s", 1) == 0)
+ return ZEBRA_ROUTE_STATIC;
+ else if (strncmp (s, "r", 1) == 0)
+ return ZEBRA_ROUTE_RIPNG;
+ else if (strncmp (s, "o", 1) == 0)
+ return ZEBRA_ROUTE_OSPF6;
+ else if (strncmp (s, "i", 1) == 0)
+ return ZEBRA_ROUTE_ISIS;
+ else if (strncmp (s, "bg", 2) == 0)
+ return ZEBRA_ROUTE_BGP;
+ else if (strncmp (s, "ta", 2) == 0)
+ return ZEBRA_ROUTE_TABLE;
+ else if (strncmp (s, "v", 1) == 0)
+ return ZEBRA_ROUTE_VNC;
+ else if (strncmp (s, "vd", 1) == 0)
+ return ZEBRA_ROUTE_VNC_DIRECT;
+ }
+ return -1;
+}
+
+void
+zlog_hexdump (const void *mem, unsigned int len) {
+ unsigned long i = 0;
+ unsigned int j = 0;
+ unsigned int columns = 8;
+ char buf[(len * 4) + ((len/4) * 20) + 30];
+ char *s = buf;
+
+ for (i = 0; i < len + ((len % columns) ? (columns - len % columns) : 0); i++)
+ {
+ /* print offset */
+ if (i % columns == 0)
+ s += sprintf(s, "0x%016lx: ", (unsigned long)mem + i);
+
+ /* print hex data */
+ if (i < len)
+ s += sprintf(s, "%02x ", 0xFF & ((const char*)mem)[i]);
+
+ /* end of block, just aligning for ASCII dump */
+ else
+ s += sprintf(s, " ");
+
+ /* print ASCII dump */
+ if (i % columns == (columns - 1))
+ {
+ for (j = i - (columns - 1); j <= i; j++)
+ {
+ if (j >= len) /* end of block, not really printing */
+ s += sprintf(s, " ");
+
+ else if(isprint((int)((const char *)mem)[j])) /* printable char */
+ s += sprintf(s, "%c", 0xFF & ((const char *)mem)[j]);
+
+ else /* other char */
+ s += sprintf(s, ".");
+ }
+ s += sprintf(s, "\n");
+ }
+ }
+ zlog_debug("\n%s", buf);
+}