dprint.c
512dcd98
 /*
  * $Id$
  *
  * debug print 
  *
7dd0b342
  *
53c7e0f1
  * Copyright (C) 2001-2003 FhG Fokus
7dd0b342
  *
  * This file is part of ser, a free SIP server.
  *
  * ser 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
  *
  * For a license to use the ser software under conditions
  * other than those described here, or to purchase support for this
  * software, please contact iptel.org by e-mail at the following addresses:
  *    info@iptel.org
  *
  * ser 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
512dcd98
  */
1d0661db
 /*!
  * \file
  * \brief SIP-router core :: 
  * \ingroup core
  * Module: \ref core
  */
 
7dd0b342
 
512dcd98
  
404073d3
 #include "globals.h"
bf79b581
 #include "dprint.h"
512dcd98
  
 #include <stdarg.h>
 #include <stdio.h>
26456ace
 #include <strings.h>
 
bf79b581
 #ifndef NO_SIG_DEBUG
 /* signal protection: !=0 when LOG/DBG/... are printing */
 volatile int dprint_crit = 0; 
 #endif
2d90691c
 
9178fc78
 static char* str_fac[]={"LOG_AUTH","LOG_CRON","LOG_DAEMON",
bf79b581
 			"LOG_KERN","LOG_LOCAL0","LOG_LOCAL1",
 			"LOG_LOCAL2","LOG_LOCAL3","LOG_LOCAL4","LOG_LOCAL5",
 			"LOG_LOCAL6","LOG_LOCAL7","LOG_LPR","LOG_MAIL",
 			"LOG_NEWS","LOG_USER","LOG_UUCP",
9178fc78
 #ifndef __OS_solaris
bf79b581
 			"LOG_AUTHPRIV","LOG_FTP","LOG_SYSLOG",
9178fc78
 #endif
bf79b581
 			0};
 			
9178fc78
 static int int_fac[]={LOG_AUTH ,  LOG_CRON , LOG_DAEMON ,
bf79b581
 		      LOG_KERN , LOG_LOCAL0 , LOG_LOCAL1 ,
 		      LOG_LOCAL2 , LOG_LOCAL3 , LOG_LOCAL4 , LOG_LOCAL5 ,
 		      LOG_LOCAL6 , LOG_LOCAL7 , LOG_LPR , LOG_MAIL ,
 		      LOG_NEWS , LOG_USER , LOG_UUCP,
9178fc78
 #ifndef __OS_solaris
bf79b581
 		      LOG_AUTHPRIV,LOG_FTP,LOG_SYSLOG,
9178fc78
 #endif
bf79b581
 		      0};
26456ace
 
bf79b581
 struct log_level_info log_level_info[] = {
 	{"ALERT", LOG_ALERT},	  /* L_ALERT */
271bfb0e
 	{"BUG", LOG_CRIT},        /* L_BUG */
a07e7447
 	{"CRITICAL", LOG_CRIT},   /* L_CRIT2 */
54dc3302
 	{"",    LOG_CRIT},         /* L_CRIT */
bf79b581
 	{"ERROR", LOG_ERR},       /* L_ERR */
 	{"WARNING", LOG_WARNING}, /* L_WARN */
 	{"NOTICE", LOG_NOTICE},   /* L_NOTICE */
 	{"INFO", LOG_INFO},       /* L_INFO */
 	{"DEBUG", LOG_DEBUG}	  /* L_DBG */
 };
26456ace
 
 int str2facility(char *s)
 {
 	int i;
 
 	for( i=0; str_fac[i] ; i++) {
 		if (!strcasecmp(s,str_fac[i]))
 			return int_fac[i];
 	}
 	return -1;
 }
0d09b88d
 
 /* fixup function for log_facility cfg parameter */
33bfeb9d
 int log_facility_fixup(void *handle, str *gname, str *name, void **val)
0d09b88d
 {
 	int	i;
 
 	if ((i = str2facility((char *)*val)) == -1) {
 		LOG(L_ERR, "log_facility_fixup: invalid log facility: %s\n",
 			(char *)*val);
 		return -1;
 	}
 	*val = (void *)(long)i;
 	return 0;
 }
0d2716bc
 
 
 /**
  * per process debug log level (local)
  */
 
 /* value for unset local log level  */
 #define UNSET_LOCAL_DEBUG_LEVEL	-255
 
 /* the local debug log level */
 static int _local_debug_level = UNSET_LOCAL_DEBUG_LEVEL;
34378c35
 /* callback to get per module debug level */
 static get_module_debug_level_f _module_debug_level = NULL;
 
 /**
  * @brief set callback function for per module debug level
  */
 void set_module_debug_level_cb(get_module_debug_level_f f)
 {
 	_module_debug_level = f;
 }
0d2716bc
 
 /**
  * @brief return the log level - the local one if it set,
  *   otherwise the global value
  */
34378c35
 int get_debug_level(char *mname, int mnlen) {
 	int mlevel = L_DBG;
 	/*important -- no LOGs inside, because it will loop */
 	if(unlikely(_module_debug_level!=NULL && mnlen>0)) {
 		if(_module_debug_level(mname, mnlen, &mlevel)==0) {
 			return mlevel;
 		}
 	}
0d2716bc
 	return (_local_debug_level != UNSET_LOCAL_DEBUG_LEVEL) ?
 				_local_debug_level : cfg_get(core, core_cfg, debug);
 }
 
 /**
  * @brief set the local debug log level
  */
 void set_local_debug_level(int level)
 {
 	_local_debug_level = level;
 }
 
 /**
  * @brief reset the local debug log level
  */
 void reset_local_debug_level(void)
 {
 	_local_debug_level = UNSET_LOCAL_DEBUG_LEVEL;
 }
6bda9c0b
 
 typedef struct log_level_color {
 	char f;
 	char b;
 } log_level_color_t;
 
 log_level_color_t _log_level_colors[L_MAX - L_MIN + 1];
 
 void dprint_init_colors(void)
 {
 	int i;
 
 	i = 0;
 
 	memset(_log_level_colors, 0,
 			(L_MAX - L_MIN + 1)*sizeof(log_level_color_t));
 
 	/* L_ALERT */
 	_log_level_colors[i].f = 'R'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_BUG */
 	_log_level_colors[i].f = 'P'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_CRIT2 */
 	_log_level_colors[i].f = 'y'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_CRIT */
 	_log_level_colors[i].f = 'b'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_ERR */
 	_log_level_colors[i].f = 'r'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_WARN */
 	_log_level_colors[i].f = 'p'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_NOTICE */
 	_log_level_colors[i].f = 'g'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_INFO */
 	_log_level_colors[i].f = 'c'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 
 	/* L_DBG */
 	_log_level_colors[i].f = 'x'; /* default */
 	_log_level_colors[i].b = 'x'; /* default */
 	i++;
 }
 
 #define TERM_COLOR_SIZE 16
 
 #define dprint_termc_add(p, end, s) \
         do{ \
                 if ((p)+(sizeof(s)-1)<=(end)){ \
                         memcpy((p), s, sizeof(s)-1); \
                         (p)+=sizeof(s)-1; \
                 }else{ \
                         /* overflow */ \
                         LM_ERR("dprint_termc_add overflow\n"); \
                         goto error; \
                 } \
         } while(0)
 
 
 void dprint_term_color(char f, char b, str *obuf)
 {
 	static char term_color[TERM_COLOR_SIZE];
 	char* p;
 	char* end;
 
 	p = term_color;
 	end = p + TERM_COLOR_SIZE;
 
 	/* excape sequence */
 	dprint_termc_add(p, end, "\033[");
 
 	if(f!='_')
 	{
 		if (islower((int)f))
 		{
 			/* normal font */
 			dprint_termc_add(p, end, "0;");
 		} else {
 			/* bold font */
 			dprint_termc_add(p, end, "1;");
 			f += 32;
 		}
 	}
 
 	/* foreground */
 	switch(f)
 	{
 		case 'x':
 			dprint_termc_add(p, end, "39;");
 		break;
 		case 's':
 			dprint_termc_add(p, end, "30;");
 		break;
 		case 'r':
 			dprint_termc_add(p, end, "31;");
 		break;
 		case 'g':
 			dprint_termc_add(p, end, "32;");
 		break;
 		case 'y':
 			dprint_termc_add(p, end, "33;");
 		break;
 		case 'b':
 			dprint_termc_add(p, end, "34;");
 		break;
 		case 'p':
 			dprint_termc_add(p, end, "35;");
 		break;
 		case 'c':
 			dprint_termc_add(p, end, "36;");
 		break;
 		case 'w':
 			dprint_termc_add(p, end, "37;");
 		break;
 		default:
 			dprint_termc_add(p, end, "39;");
 	}
 
 	/* background */
 	switch(b)
 	{
 		case 'x':
 			dprint_termc_add(p, end, "49");
 		break;
 		case 's':
 			dprint_termc_add(p, end, "40");
 		break;
 		case 'r':
 			dprint_termc_add(p, end, "41");
 		break;
 		case 'g':
 			dprint_termc_add(p, end, "42");
 		break;
 		case 'y':
 			dprint_termc_add(p, end, "43");
 		break;
 		case 'b':
 			dprint_termc_add(p, end, "44");
 		break;
 		case 'p':
 			dprint_termc_add(p, end, "45");
 		break;
 		case 'c':
 			dprint_termc_add(p, end, "46");
 		break;
 		case 'w':
 			dprint_termc_add(p, end, "47");
 		break;
 		default:
 			dprint_termc_add(p, end, "49");
 	}
 
 	/* end */
 	dprint_termc_add(p, end, "m");
 
 	obuf->s = term_color;
 	obuf->len = p - term_color;
 	return;
 
 error:
 	obuf->s = term_color;
 	term_color[0] = '\0';
 	obuf->len = 0;
 }
 
 void dprint_color(int level)
 {
 	str obuf;
 
 	if(level<L_MIN || level>L_MAX)
 		return;
 	dprint_term_color(_log_level_colors[level - L_MIN].f,
 			_log_level_colors[level - L_MIN].b,
 			&obuf);
 	fprintf(stderr, "%.*s", obuf.len, obuf.s);
 }
 
 void dprint_color_reset(void)
 {
 	str obuf;
 
 	dprint_term_color('x', 'x', &obuf);
 	fprintf(stderr, "%.*s", obuf.len, obuf.s);
 }
1c1bdda1
 
 void dprint_color_update(int level, char f, char b)
 {
 	if(level<L_MIN || level>L_MAX)
 		return;
 	if(f && f!='0') _log_level_colors[level - L_MIN].f = f;
 	if(b && b!='0') _log_level_colors[level - L_MIN].b = b;
 }