/* * $Id$ * * debug print * * * Copyright (C) 2001-2003 FhG Fokus * * 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 */ /*! * \file * \brief SIP-router core :: * \ingroup core * Module: \ref core */ #include "globals.h" #include "dprint.h" #include #include #include #ifndef NO_SIG_DEBUG /* signal protection: !=0 when LOG/DBG/... are printing */ volatile int dprint_crit = 0; #endif static char* str_fac[]={"LOG_AUTH","LOG_CRON","LOG_DAEMON", "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", #ifndef __OS_solaris "LOG_AUTHPRIV","LOG_FTP","LOG_SYSLOG", #endif 0}; static int int_fac[]={LOG_AUTH , LOG_CRON , LOG_DAEMON , 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, #ifndef __OS_solaris LOG_AUTHPRIV,LOG_FTP,LOG_SYSLOG, #endif 0}; struct log_level_info log_level_info[] = { {"ALERT", LOG_ALERT}, /* L_ALERT */ {"BUG", LOG_CRIT}, /* L_BUG */ {"CRITICAL", LOG_CRIT}, /* L_CRIT2 */ {"", LOG_CRIT}, /* L_CRIT */ {"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 */ }; 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; } /* fixup function for log_facility cfg parameter */ int log_facility_fixup(void *handle, str *gname, str *name, void **val) { 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; } /** * 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; /* 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; } /** * @brief return the log level - the local one if it set, * otherwise the global value */ 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; } } 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; } 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(levelL_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); } void dprint_color_update(int level, char f, char b) { if(levelL_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; }