src/util/common_logging.c

   1 /*
   2      This file is part of GNUnet.
   3      (C) 2006-2013 Christian Grothoff (and other contributing authors)
   4
   5      GNUnet is free software; you can redistribute it and/or modify
   6      it under the terms of the GNU General Public License as published
   7      by the Free Software Foundation; either version 3, or (at your
   8      option) any later version.
   9
  10      GNUnet is distributed in the hope that it will be useful, but
  11      WITHOUT ANY WARRANTY; without even the implied warranty of
  12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13      General Public License for more details.
  14
  15      You should have received a copy of the GNU General Public License
  16      along with GNUnet; see the file COPYING.  If not, write to the
  17      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18      Boston, MA 02111-1307, USA.
  19 */
  20
  21 /**
  22  * @file util/common_logging.c
  23  * @brief error handling API
  24  *
  25  * @author Christian Grothoff
  26  */
  27 #include "platform.h"
  28 #include "gnunet_util_lib.h"
  29 #include <regex.h>
  30
  31
  32 /**
  33  * After how many milliseconds do we always print
  34  * that "message X was repeated N times"?  Use 12h.
  35  */
  36 #define BULK_DELAY_THRESHOLD (12 * 60 * 60 * 1000LL * 1000LL)
  37
  38 /**
  39  * After how many repetitions do we always print
  40  * that "message X was repeated N times"? (even if
  41  * we have not yet reached the delay threshold)
  42  */
  43 #define BULK_REPEAT_THRESHOLD 1000
  44
  45 /**
  46  * How many characters do we use for matching of
  47  * bulk messages?
  48  */
  49 #define BULK_TRACK_SIZE 256
  50
  51 /**
  52  * How many characters do we use for matching of
  53  * bulk components?
  54  */
  55 #define COMP_TRACK_SIZE 32
  56
  57 /**
  58  * How many characters can a date/time string
  59  * be at most?
  60  */
  61 #define DATE_STR_SIZE 64
  62
  63 /**
  64  * How many log files to keep?
  65  */
  66 #define ROTATION_KEEP 3
  67
  68 #ifndef PATH_MAX
  69 /**
  70  * Assumed maximum path length (for the log file name).
  71  */
  72 #define PATH_MAX 4096
  73 #endif
  74
  75
  76 /**
  77  * Linked list of active loggers.
  78  */
  79 struct CustomLogger
  80 {
  81   /**
  82    * This is a linked list.
  83    */
  84   struct CustomLogger *next;
  85
  86   /**
  87    * Log function.
  88    */
  89   GNUNET_Logger logger;
  90
  91   /**
  92    * Closure for logger.
  93    */
  94   void *logger_cls;
  95 };
  96
  97 /**
  98  * The last "bulk" error message that we have been logging.
  99  * Note that this message maybe truncated to the first BULK_TRACK_SIZE
 100  * characters, in which case it is NOT 0-terminated!
 101  */
 102 static char last_bulk[BULK_TRACK_SIZE];
 103
 104 /**
 105  * Type of the last bulk message.
 106  */
 107 static enum GNUNET_ErrorType last_bulk_kind;
 108
 109 /**
 110  * Time of the last bulk error message (0 for none)
 111  */
 112 static struct GNUNET_TIME_Absolute last_bulk_time;
 113
 114 /**
 115  * Number of times that bulk message has been repeated since.
 116  */
 117 static unsigned int last_bulk_repeat;
 118
 119 /**
 120  * Component when the last bulk was logged.  Will be 0-terminated.
 121  */
 122 static char last_bulk_comp[COMP_TRACK_SIZE + 1];
 123
 124 /**
 125  * Running component.
 126  */
 127 static char *component;
 128
 129 /**
 130  * Running component (without pid).
 131  */
 132 static char *component_nopid;
 133
 134 /**
 135  * Format string describing the name of the log file.
 136  */
 137 static char *log_file_name;
 138
 139 /**
 140  * Minimum log level.
 141  */
 142 static enum GNUNET_ErrorType min_level;
 143
 144 /**
 145  * Linked list of our custom loggres.
 146  */
 147 static struct CustomLogger *loggers;
 148
 149 /**
 150  * Number of log calls to ignore.
 151  */
 152 int skip_log = 0;
 153
 154 /**
 155  * File descriptor to use for "stderr", or NULL for none.
 156  */
 157 static FILE *GNUNET_stderr;
 158
 159 /**
 160  * Represents a single logging definition
 161  */
 162 struct LogDef
 163 {
 164   /**
 165    * Component name regex
 166    */
 167   regex_t component_regex;
 168
 169   /**
 170    * File name regex
 171    */
 172   regex_t file_regex;
 173
 174   /**
 175    * Function name regex
 176    */
 177   regex_t function_regex;
 178
 179   /**
 180    * Lowest line at which this definition matches.
 181    * Defaults to 0. Must be <= to_line.
 182    */
 183   int from_line;
 184
 185   /**
 186    * Highest line at which this definition matches.
 187    * Defaults to INT_MAX. Must be >= from_line.
 188    */
 189   int to_line;
 190
 191   /**
 192    * Maximal log level allowed for calls that match this definition.
 193    * Calls with higher log level will be disabled.
 194    * Must be >= 0
 195    */
 196   int level;
 197
 198   /**
 199    * 1 if this definition comes from GNUNET_FORCE_LOG, which means that it
 200    * overrides any configuration options. 0 otherwise.
 201    */
 202   int force;
 203 };
 204
 205 /**
 206  * Dynamic array of logging definitions
 207  */
 208 static struct LogDef *logdefs;
 209
 210 /**
 211  * Allocated size of logdefs array (in units)
 212  */
 213 static int logdefs_size;
 214
 215 /**
 216  * The number of units used in logdefs array.
 217  */
 218 static int logdefs_len;
 219
 220 /**
 221  * GNUNET_YES if GNUNET_LOG environment variable is already parsed.
 222  */
 223 static int gnunet_log_parsed;
 224
 225 /**
 226  * GNUNET_YES if GNUNET_FORCE_LOG environment variable is already parsed.
 227  */
 228 static int gnunet_force_log_parsed;
 229
 230 /**
 231  * GNUNET_YES if at least one definition with forced == 1 is available.
 232  */
 233 static int gnunet_force_log_present;
 234
 235 #ifdef WINDOWS
 236 /**
 237  * Contains the number of performance counts per second.
 238  */
 239 static LARGE_INTEGER performance_frequency;
 240 #endif
 241
 242
 243 /**
 244  * Convert a textual description of a loglevel
 245  * to the respective GNUNET_GE_KIND.
 246  *
 247  * @param log loglevel to parse
 248  * @return GNUNET_GE_INVALID if log does not parse
 249  */
 250 static enum GNUNET_ErrorType
 251 get_type (const char *log)
 252 {
 253   if (NULL == log)
 254     return GNUNET_ERROR_TYPE_UNSPECIFIED;
 255   if (0 == strcasecmp (log, _("DEBUG")))
 256     return GNUNET_ERROR_TYPE_DEBUG;
 257   if (0 == strcasecmp (log, _("INFO")))
 258     return GNUNET_ERROR_TYPE_INFO;
 259   if (0 == strcasecmp (log, _("WARNING")))
 260     return GNUNET_ERROR_TYPE_WARNING;
 261   if (0 == strcasecmp (log, _("ERROR")))
 262     return GNUNET_ERROR_TYPE_ERROR;
 263   if (0 == strcasecmp (log, _("NONE")))
 264     return GNUNET_ERROR_TYPE_NONE;
 265   return GNUNET_ERROR_TYPE_INVALID;
 266 }
 267
 268
 269 #if !defined(GNUNET_CULL_LOGGING)
 270 /**
 271  * Utility function - reallocates logdefs array to be twice as large.
 272  */
 273 static void
 274 resize_logdefs ()
 275 {
 276   logdefs_size = (logdefs_size + 1) * 2;
 277   logdefs = GNUNET_realloc (logdefs, logdefs_size * sizeof (struct LogDef));
 278 }
 279
 280
 281 /**
 282  * Abort the process, generate a core dump if possible.
 283  */
 284 void
 285 GNUNET_abort ()
 286 {
 287 #if WINDOWS
 288   DebugBreak ();
 289 #endif
 290   abort ();
 291 }
 292
 293
 294 /**
 295  * Rotate logs, deleting the oldest log.
 296  *
 297  * @param new_name new name to add to the rotation
 298  */
 299 static void
 300 log_rotate (const char *new_name)
 301 {
 302   static char *rotation[ROTATION_KEEP];
 303   static unsigned int rotation_off;
 304   char *discard;
 305
 306   if ('\0' == *new_name)
 307     return; /* not a real log file name */
 308   discard = rotation[rotation_off % ROTATION_KEEP];
 309   if (NULL != discard)
 310   {
 311     /* Note: can't log errors during logging (recursion!), so this
 312        operation MUST silently fail... */
 313     (void) UNLINK (discard);
 314     GNUNET_free (discard);
 315   }
 316   rotation[rotation_off % ROTATION_KEEP] = GNUNET_strdup (new_name);
 317   rotation_off++;
 318 }
 319
 320
 321 /**
 322  * Setup the log file.
 323  *
 324  * @param tm timestamp for which we should setup logging
 325  * @return GNUNET_OK on success, GNUNET_SYSERR on error
 326  */
 327 static int
 328 setup_log_file (const struct tm *tm)
 329 {
 330   static char last_fn[PATH_MAX + 1];
 331   char fn[PATH_MAX + 1];
 332   int dirwarn;
 333   int altlog_fd;
 334   int dup_return;
 335   FILE *altlog;
 336   char *leftsquare;
 337
 338   if (NULL == log_file_name)
 339     return GNUNET_SYSERR;
 340   if (0 == strftime (fn, sizeof (fn), log_file_name, tm))
 341     return GNUNET_SYSERR;
 342   leftsquare = strrchr (fn, '[');
 343   if ( (NULL != leftsquare) && (']' == leftsquare[1]) )
 344   {
 345     char *logfile_copy = GNUNET_strdup (fn);
 346     logfile_copy[leftsquare - fn] = '\0';
 347     logfile_copy[leftsquare - fn + 1] = '\0';
 348     snprintf (fn, PATH_MAX, "%s%d%s",
 349          logfile_copy, getpid (), &logfile_copy[leftsquare - fn + 2]);
 350     GNUNET_free (logfile_copy);
 351   }
 352   if (0 == strcmp (fn, last_fn))
 353     return GNUNET_OK; /* no change */
 354   log_rotate (last_fn);
 355   strcpy (last_fn, fn);
 356   dirwarn = (GNUNET_OK != GNUNET_DISK_directory_create_for_file (fn));
 357 #if WINDOWS
 358   altlog_fd = OPEN (fn, O_APPEND |
 359                         O_BINARY |
 360                         O_WRONLY | O_CREAT,
 361                         _S_IREAD | _S_IWRITE);
 362 #else
 363   altlog_fd = OPEN (fn, O_APPEND |
 364                         O_WRONLY | O_CREAT,
 365                         S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH);
 366 #endif
 367   if (-1 != altlog_fd)
 368   {
 369     if (NULL != GNUNET_stderr)
 370       fclose (GNUNET_stderr);
 371     dup_return = dup2 (altlog_fd, 2);
 372     (void) close (altlog_fd);
 373     if (-1 != dup_return)
 374     {
 375       altlog = fdopen (2, "ab");
 376       if (NULL == altlog)
 377       {
 378         (void) close (2);
 379         altlog_fd = -1;
 380       }
 381     }
 382     else
 383     {
 384       altlog_fd = -1;
 385     }
 386   }
 387   if (-1 == altlog_fd)
 388   {
 389     GNUNET_log_strerror_file (GNUNET_ERROR_TYPE_ERROR, "open", fn);
 390     if (dirwarn)
 391       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
 392                   _("Failed to create or access directory for log file `%s'\n"),
 393                   fn);
 394     return GNUNET_SYSERR;
 395   }
 396   GNUNET_stderr = altlog;
 397   return GNUNET_OK;
 398 }
 399
 400 /**
 401  * Utility function - adds a parsed definition to logdefs array.
 402  *
 403  * @param component see struct LogDef, can't be NULL
 404  * @param file see struct LogDef, can't be NULL
 405  * @param function see struct LogDef, can't be NULL
 406  * @param from_line see struct LogDef
 407  * @param to_line see struct LogDef
 408  * @param level see struct LogDef, must be >= 0
 409  * @param force see struct LogDef
 410  * @return 0 on success, regex-specific error otherwise
 411  */
 412 static int
 413 add_definition (char *component, char *file, char *function, int from_line,
 414                 int to_line, int level, int force)
 415 {
 416   struct LogDef n;
 417   int r;
 418
 419   if (logdefs_size == logdefs_len)
 420     resize_logdefs ();
 421   memset (&n, 0, sizeof (n));
 422   if (0 == strlen (component))
 423     component = (char *) ".*";
 424   r = regcomp (&n.component_regex, (const char *) component, REG_NOSUB);
 425   if (0 != r)
 426   {
 427     return r;
 428   }
 429   if (0 == strlen (file))
 430     file = (char *) ".*";
 431   r = regcomp (&n.file_regex, (const char *) file, REG_NOSUB);
 432   if (0 != r)
 433   {
 434     regfree (&n.component_regex);
 435     return r;
 436   }
 437   if ((NULL == function) || (0 == strlen (function)))
 438     function = (char *) ".*";
 439   r = regcomp (&n.function_regex, (const char *) function, REG_NOSUB);
 440   if (0 != r)
 441   {
 442     regfree (&n.component_regex);
 443     regfree (&n.file_regex);
 444     return r;
 445   }
 446   n.from_line = from_line;
 447   n.to_line = to_line;
 448   n.level = level;
 449   n.force = force;
 450   logdefs[logdefs_len++] = n;
 451   return 0;
 452 }
 453
 454
 455 /**
 456  * Decides whether a particular logging call should or should not be allowed
 457  * to be made. Used internally by GNUNET_log*()
 458  *
 459  * @param caller_level loglevel the caller wants to use
 460  * @param comp component name the caller uses (NULL means that global
 461  *   component name is used)
 462  * @param file file name containing the logging call, usually __FILE__
 463  * @param function function which tries to make a logging call,
 464  *   usually __FUNCTION__
 465  * @param line line at which the call is made, usually __LINE__
 466  * @return 0 to disallow the call, 1 to allow it
 467  */
 468 int
 469 GNUNET_get_log_call_status (int caller_level, const char *comp,
 470                             const char *file, const char *function, int line)
 471 {
 472   struct LogDef *ld;
 473   int i;
 474   int force_only;
 475
 476   if (NULL == comp)
 477     /* Use default component */
 478     comp = component_nopid;
 479
 480   /* We have no definitions to override globally configured log level,
 481    * so just use it right away.
 482    */
 483   if ( (min_level >= 0) && (GNUNET_NO == gnunet_force_log_present) )
 484     return caller_level <= min_level;
 485
 486   /* Only look for forced definitions? */
 487   force_only = min_level >= 0;
 488   for (i = 0; i < logdefs_len; i++)
 489   {
 490     ld = &logdefs[i];
 491     if (( (!force_only) || ld->force) &&
 492         (line >= ld->from_line && line <= ld->to_line) &&
 493         (0 == regexec (&ld->component_regex, comp, 0, NULL, 0)) &&
 494         (0 == regexec (&ld->file_regex, file, 0, NULL, 0)) &&
 495         (0 == regexec (&ld->function_regex, function, 0, NULL, 0)))
 496     {
 497       /* We're finished */
 498       return caller_level <= ld->level;
 499     }
 500   }
 501   /* No matches - use global level, if defined */
 502   if (min_level >= 0)
 503     return caller_level <= min_level;
 504   /* All programs/services previously defaulted to WARNING.
 505    * Now WE default to WARNING, and THEY default to NULL.
 506    */
 507   return caller_level <= GNUNET_ERROR_TYPE_WARNING;
 508 }
 509
 510
 511 /**
 512  * Utility function - parses a definition
 513  *
 514  * Definition format:
 515  * component;file;function;from_line-to_line;level[/component...]
 516  * All entries are mandatory, but may be empty.
 517  * Empty entries for component, file and function are treated as
 518  * "matches anything".
 519  * Empty line entry is treated as "from 0 to INT_MAX"
 520  * Line entry with only one line is treated as "this line only"
 521  * Entry for level MUST NOT be empty.
 522  * Entries for component, file and function that consist of a
 523  * single character "*" are treated (at the moment) the same way
 524  * empty entries are treated (wildcard matching is not implemented (yet?)).
 525  * file entry is matched to the end of __FILE__. That is, it might be
 526  * a base name, or a base name with leading directory names (some compilers
 527  * define __FILE__ to absolute file path).
 528  *
 529  * @param constname name of the environment variable from which to get the
 530  *   string to be parsed
 531  * @param force 1 if definitions found in constname are to be forced
 532  * @return number of added definitions
 533  */
 534 static int
 535 parse_definitions (const char *constname, int force)
 536 {
 537   char *def;
 538   const char *tmp;
 539   char *comp = NULL;
 540   char *file = NULL;
 541   char *function = NULL;
 542   char *p;
 543   char *start;
 544   char *t;
 545   short state;
 546   int level;
 547   int from_line, to_line;
 548   int counter = 0;
 549   int keep_looking = 1;
 550
 551   tmp = getenv (constname);
 552   if (NULL == tmp)
 553     return 0;
 554   def = GNUNET_strdup (tmp);
 555   from_line = 0;
 556   to_line = INT_MAX;
 557   for (p = def, state = 0, start = def; keep_looking; p++)
 558   {
 559     switch (p[0])
 560     {
 561     case ';':                  /* found a field separator */
 562       p[0] = '\0';
 563       switch (state)
 564       {
 565       case 0:                  /* within a component name */
 566         comp = start;
 567         break;
 568       case 1:                  /* within a file name */
 569         file = start;
 570         break;
 571       case 2:                  /* within a function name */
 572         /* after a file name there must be a function name */
 573         function = start;
 574         break;
 575       case 3:                  /* within a from-to line range */
 576         if (strlen (start) > 0)
 577         {
 578           errno = 0;
 579           from_line = strtol (start, &t, 10);
 580           if ( (0 != errno) || (from_line < 0) )
 581           {
 582             GNUNET_free (def);
 583             return counter;
 584           }
 585           if ( (t < p) && ('-' == t[0]) )
 586           {
 587             errno = 0;
 588             start = t + 1;
 589             to_line = strtol (start, &t, 10);
 590             if ( (0 != errno) || (to_line < 0) || (t != p) )
 591             {
 592               GNUNET_free (def);
 593               return counter;
 594             }
 595           }
 596           else                  /* one number means "match this line only" */
 597             to_line = from_line;
 598         }
 599         else                    /* default to 0-max */
 600         {
 601           from_line = 0;
 602           to_line = INT_MAX;
 603         }
 604         break;
 605       }
 606       start = p + 1;
 607       state++;
 608       break;
 609     case '\0':                 /* found EOL */
 610       keep_looking = 0;
 611       /* fall through to '/' */
 612     case '/':                  /* found a definition separator */
 613       switch (state)
 614       {
 615       case 4:                  /* within a log level */
 616         p[0] = '\0';
 617         state = 0;
 618         level = get_type ((const char *) start);
 619         if ( (GNUNET_ERROR_TYPE_INVALID == level) ||
 620              (GNUNET_ERROR_TYPE_UNSPECIFIED == level) ||
 621              (0 != add_definition (comp, file, function, from_line, to_line,
 622                                    level, force)) )
 623         {
 624           GNUNET_free (def);
 625           return counter;
 626         }
 627         counter++;
 628         start = p + 1;
 629         break;
 630       default:
 631         break;
 632       }
 633     default:
 634       break;
 635     }
 636   }
 637   GNUNET_free (def);
 638   return counter;
 639 }
 640
 641
 642 /**
 643  * Utility function - parses GNUNET_LOG and GNUNET_FORCE_LOG.
 644  */
 645 static void
 646 parse_all_definitions ()
 647 {
 648   if (GNUNET_NO == gnunet_log_parsed)
 649     parse_definitions ("GNUNET_LOG", 0);
 650   gnunet_log_parsed = GNUNET_YES;
 651   if (GNUNET_NO == gnunet_force_log_parsed)
 652     gnunet_force_log_present =
 653         parse_definitions ("GNUNET_FORCE_LOG", 1) > 0 ? GNUNET_YES : GNUNET_NO;
 654   gnunet_force_log_parsed = GNUNET_YES;
 655 }
 656 #endif
 657
 658
 659 /**
 660  * Setup logging.
 661  *
 662  * @param comp default component to use
 663  * @param loglevel what types of messages should be logged
 664  * @param logfile which file to write log messages to (can be NULL)
 665  * @return #GNUNET_OK on success
 666  */
 667 int
 668 GNUNET_log_setup (const char *comp, const char *loglevel, const char *logfile)
 669 {
 670   const char *env_logfile;
 671   const struct tm *tm;
 672   time_t t;
 673
 674   min_level = get_type (loglevel);
 675 #if !defined(GNUNET_CULL_LOGGING)
 676   parse_all_definitions ();
 677 #endif
 678 #ifdef WINDOWS
 679   QueryPerformanceFrequency (&performance_frequency);
 680 #endif
 681   GNUNET_free_non_null (component);
 682   GNUNET_asprintf (&component, "%s-%d", comp, getpid ());
 683   GNUNET_free_non_null (component_nopid);
 684   component_nopid = GNUNET_strdup (comp);
 685
 686   env_logfile = getenv ("GNUNET_FORCE_LOGFILE");
 687   if ((NULL != env_logfile) && (strlen (env_logfile) > 0))
 688     logfile = env_logfile;
 689   if (NULL == logfile)
 690     return GNUNET_OK;
 691   GNUNET_free_non_null (log_file_name);
 692   log_file_name = GNUNET_STRINGS_filename_expand (logfile);
 693   if (NULL == log_file_name)
 694     return GNUNET_SYSERR;
 695   t = time (NULL);
 696   tm = gmtime (&t);
 697   return setup_log_file (tm);
 698 }
 699
 700
 701 /**
 702  * Add a custom logger.
 703  *
 704  * @param logger log function
 705  * @param logger_cls closure for logger
 706  */
 707 void
 708 GNUNET_logger_add (GNUNET_Logger logger, void *logger_cls)
 709 {
 710   struct CustomLogger *entry;
 711
 712   entry = GNUNET_malloc (sizeof (struct CustomLogger));
 713   entry->logger = logger;
 714   entry->logger_cls = logger_cls;
 715   entry->next = loggers;
 716   loggers = entry;
 717 }
 718
 719
 720 /**
 721  * Remove a custom logger.
 722  *
 723  * @param logger log function
 724  * @param logger_cls closure for logger
 725  */
 726 void
 727 GNUNET_logger_remove (GNUNET_Logger logger, void *logger_cls)
 728 {
 729   struct CustomLogger *pos;
 730   struct CustomLogger *prev;
 731
 732   prev = NULL;
 733   pos = loggers;
 734   while ((pos != NULL) &&
 735          ((pos->logger != logger) || (pos->logger_cls != logger_cls)))
 736   {
 737     prev = pos;
 738     pos = pos->next;
 739   }
 740   GNUNET_assert (pos != NULL);
 741   if (prev == NULL)
 742     loggers = pos->next;
 743   else
 744     prev->next = pos->next;
 745   GNUNET_free (pos);
 746 }
 747
 748 #if WINDOWS
 749 CRITICAL_SECTION output_message_cs;
 750 #endif
 751
 752
 753 /**
 754  * Actually output the log message.
 755  *
 756  * @param kind how severe was the issue
 757  * @param comp component responsible
 758  * @param datestr current date/time
 759  * @param msg the actual message
 760  */
 761 static void
 762 output_message (enum GNUNET_ErrorType kind, const char *comp,
 763                 const char *datestr, const char *msg)
 764 {
 765   struct CustomLogger *pos;
 766 #if WINDOWS
 767   EnterCriticalSection (&output_message_cs);
 768 #endif
 769   if (NULL != GNUNET_stderr)
 770   {
 771     FPRINTF (GNUNET_stderr, "%s %s %s %s", datestr, comp,
 772              GNUNET_error_type_to_string (kind), msg);
 773     fflush (GNUNET_stderr);
 774   }
 775   pos = loggers;
 776   while (pos != NULL)
 777   {
 778     pos->logger (pos->logger_cls, kind, comp, datestr, msg);
 779     pos = pos->next;
 780   }
 781 #if WINDOWS
 782   LeaveCriticalSection (&output_message_cs);
 783 #endif
 784 }
 785
 786
 787 /**
 788  * Flush an existing bulk report to the output.
 789  *
 790  * @param datestr our current timestamp
 791  */
 792 static void
 793 flush_bulk (const char *datestr)
 794 {
 795   char msg[DATE_STR_SIZE + BULK_TRACK_SIZE + 256];
 796   int rev;
 797   char *last;
 798   const char *ft;
 799
 800   if ((0 == last_bulk_time.abs_value_us) || (0 == last_bulk_repeat))
 801     return;
 802   rev = 0;
 803   last = memchr (last_bulk, '\0', BULK_TRACK_SIZE);
 804   if (last == NULL)
 805     last = &last_bulk[BULK_TRACK_SIZE - 1];
 806   else if (last != last_bulk)
 807     last--;
 808   if (last[0] == '\n')
 809   {
 810     rev = 1;
 811     last[0] = '\0';
 812   }
 813   ft = GNUNET_STRINGS_relative_time_to_string (GNUNET_TIME_absolute_get_duration
 814                                                (last_bulk_time), GNUNET_YES);
 815   snprintf (msg, sizeof (msg),
 816             _("Message `%.*s' repeated %u times in the last %s\n"),
 817             BULK_TRACK_SIZE, last_bulk, last_bulk_repeat, ft);
 818   if (rev == 1)
 819     last[0] = '\n';
 820   output_message (last_bulk_kind, last_bulk_comp, datestr, msg);
 821   last_bulk_time = GNUNET_TIME_absolute_get ();
 822   last_bulk_repeat = 0;
 823 }
 824
 825
 826 /**
 827  * Ignore the next n calls to the log function.
 828  *
 829  * @param n number of log calls to ignore (could be negative)
 830  * @param check_reset GNUNET_YES to assert that the log skip counter is currently zero
 831  */
 832 void
 833 GNUNET_log_skip (int n, int check_reset)
 834 {
 835   int ok;
 836
 837   if (0 == n)
 838   {
 839     ok = (0 == skip_log);
 840     skip_log = 0;
 841     if (check_reset)
 842       GNUNET_break (ok);
 843   }
 844   else
 845   {
 846     skip_log += n;
 847   }
 848 }
 849
 850 /**
 851  * Get the number of log calls that are going to be skipped
 852  *
 853  * @return number of log calls to be ignored
 854  */
 855 int
 856 GNUNET_get_log_skip ()
 857 {
 858   return skip_log;
 859 }
 860
 861 /**
 862  * Output a log message using the default mechanism.
 863  *
 864  * @param kind how severe was the issue
 865  * @param comp component responsible
 866  * @param message the actual message
 867  * @param va arguments to the format string "message"
 868  */
 869 static void
 870 mylog (enum GNUNET_ErrorType kind, const char *comp, const char *message,
 871        va_list va)
 872 {
 873   char date[DATE_STR_SIZE];
 874   char date2[DATE_STR_SIZE];
 875   struct tm *tmptr;
 876   size_t size;
 877   va_list vacp;
 878
 879   va_copy (vacp, va);
 880   size = VSNPRINTF (NULL, 0, message, vacp) + 1;
 881   GNUNET_assert (0 != size);
 882   va_end (vacp);
 883   memset (date, 0, DATE_STR_SIZE);
 884   {
 885     char buf[size];
 886     long long offset;
 887 #ifdef WINDOWS
 888     LARGE_INTEGER pc;
 889     time_t timetmp;
 890
 891     offset = GNUNET_TIME_get_offset ();
 892     time (&timetmp);
 893     timetmp += offset / 1000;
 894     tmptr = localtime (&timetmp);
 895     pc.QuadPart = 0;
 896     QueryPerformanceCounter (&pc);
 897     if (NULL == tmptr)
 898     {
 899       strcpy (date, "localtime error");
 900     }
 901     else
 902     {
 903       strftime (date2, DATE_STR_SIZE, "%b %d %H:%M:%S-%%020llu", tmptr);
 904       snprintf (date, sizeof (date), date2,
 905                 (long long) (pc.QuadPart /
 906                              (performance_frequency.QuadPart / 1000)));
 907     }
 908 #else
 909     struct timeval timeofday;
 910
 911     gettimeofday (&timeofday, NULL);
 912     offset = GNUNET_TIME_get_offset ();
 913     if (offset > 0)
 914     {
 915       timeofday.tv_sec += offset / 1000LL;
 916       timeofday.tv_usec += (offset % 1000LL) * 1000LL;
 917       if (timeofday.tv_usec > 1000000LL)
 918       {
 919         timeofday.tv_usec -= 1000000LL;
 920         timeofday.tv_sec++;
 921       }
 922     }
 923     else
 924     {
 925       timeofday.tv_sec += offset / 1000LL;
 926       if (timeofday.tv_usec > - (offset % 1000LL) * 1000LL)
 927       {
 928         timeofday.tv_usec += (offset % 1000LL) * 1000LL;
 929       }
 930       else
 931       {
 932         timeofday.tv_usec += 1000000LL + (offset % 1000LL) * 1000LL;
 933         timeofday.tv_sec--;
 934       }
 935     }
 936     tmptr = localtime (&timeofday.tv_sec);
 937     if (NULL == tmptr)
 938     {
 939       strcpy (date, "localtime error");
 940     }
 941     else
 942     {
 943       strftime (date2, DATE_STR_SIZE, "%b %d %H:%M:%S-%%06u", tmptr);
 944       snprintf (date, sizeof (date), date2, timeofday.tv_usec);
 945     }
 946 #endif
 947     VSNPRINTF (buf, size, message, va);
 948     if (NULL != tmptr)
 949       (void) setup_log_file (tmptr);
 950     if ((0 != (kind & GNUNET_ERROR_TYPE_BULK)) &&
 951         (0 != last_bulk_time.abs_value_us) &&
 952         (0 == strncmp (buf, last_bulk, sizeof (last_bulk))))
 953     {
 954       last_bulk_repeat++;
 955       if ( (GNUNET_TIME_absolute_get_duration (last_bulk_time).rel_value_us >
 956             BULK_DELAY_THRESHOLD) ||
 957            (last_bulk_repeat > BULK_REPEAT_THRESHOLD) )
 958         flush_bulk (date);
 959       return;
 960     }
 961     flush_bulk (date);
 962     strncpy (last_bulk, buf, sizeof (last_bulk));
 963     last_bulk_repeat = 0;
 964     last_bulk_kind = kind;
 965     last_bulk_time = GNUNET_TIME_absolute_get ();
 966     strncpy (last_bulk_comp, comp, COMP_TRACK_SIZE);
 967     output_message (kind, comp, date, buf);
 968   }
 969 }
 970
 971
 972 /**
 973  * Main log function.
 974  *
 975  * @param kind how serious is the error?
 976  * @param message what is the message (format string)
 977  * @param ... arguments for format string
 978  */
 979 void
 980 GNUNET_log_nocheck (enum GNUNET_ErrorType kind, const char *message, ...)
 981 {
 982   va_list va;
 983
 984   va_start (va, message);
 985   mylog (kind, component, message, va);
 986   va_end (va);
 987 }
 988
 989
 990 /**
 991  * Log function that specifies an alternative component.
 992  * This function should be used by plugins.
 993  *
 994  * @param kind how serious is the error?
 995  * @param comp component responsible for generating the message
 996  * @param message what is the message (format string)
 997  * @param ... arguments for format string
 998  */
 999 void
1000 GNUNET_log_from_nocheck (enum GNUNET_ErrorType kind, const char *comp,
1001                          const char *message, ...)
1002 {
1003   va_list va;
1004   char comp_w_pid[128];
1005
1006   if (comp == NULL)
1007     comp = component_nopid;
1008
1009   va_start (va, message);
1010   GNUNET_snprintf (comp_w_pid, sizeof (comp_w_pid), "%s-%d", comp, getpid ());
1011   mylog (kind, comp_w_pid, message, va);
1012   va_end (va);
1013 }
1014
1015
1016 /**
1017  * Convert error type to string.
1018  *
1019  * @param kind type to convert
1020  * @return string corresponding to the type
1021  */
1022 const char *
1023 GNUNET_error_type_to_string (enum GNUNET_ErrorType kind)
1024 {
1025   if ((kind & GNUNET_ERROR_TYPE_ERROR) > 0)
1026     return _("ERROR");
1027   if ((kind & GNUNET_ERROR_TYPE_WARNING) > 0)
1028     return _("WARNING");
1029   if ((kind & GNUNET_ERROR_TYPE_INFO) > 0)
1030     return _("INFO");
1031   if ((kind & GNUNET_ERROR_TYPE_DEBUG) > 0)
1032     return _("DEBUG");
1033   if ((kind & ~GNUNET_ERROR_TYPE_BULK) == 0)
1034     return _("NONE");
1035   return _("INVALID");
1036 }
1037
1038
1039 /**
1040  * Convert a hash to a string (for printing debug messages).
1041  * This is one of the very few calls in the entire API that is
1042  * NOT reentrant!
1043  *
1044  * @param hc the hash code
1045  * @return string form; will be overwritten by next call to GNUNET_h2s.
1046  */
1047 const char *
1048 GNUNET_h2s (const struct GNUNET_HashCode * hc)
1049 {
1050   static struct GNUNET_CRYPTO_HashAsciiEncoded ret;
1051
1052   GNUNET_CRYPTO_hash_to_enc (hc, &ret);
1053   ret.encoding[8] = '\0';
1054   return (const char *) ret.encoding;
1055 }
1056
1057
1058 /**
1059  * Convert a hash to a string (for printing debug messages).
1060  * This is one of the very few calls in the entire API that is
1061  * NOT reentrant!
1062  *
1063  * @param hc the hash code
1064  * @return string form; will be overwritten by next call to GNUNET_h2s_full.
1065  */
1066 const char *
1067 GNUNET_h2s_full (const struct GNUNET_HashCode * hc)
1068 {
1069   static struct GNUNET_CRYPTO_HashAsciiEncoded ret;
1070
1071   GNUNET_CRYPTO_hash_to_enc (hc, &ret);
1072   ret.encoding[sizeof (ret) - 1] = '\0';
1073   return (const char *) ret.encoding;
1074 }
1075
1076
1077 /**
1078  * Convert a peer identity to a string (for printing debug messages).
1079  * This is one of the very few calls in the entire API that is
1080  * NOT reentrant!
1081  *
1082  * @param pid the peer identity
1083  * @return string form of the pid; will be overwritten by next
1084  *         call to #GNUNET_i2s.
1085  */
1086 const char *
1087 GNUNET_i2s (const struct GNUNET_PeerIdentity *pid)
1088 {
1089   static char buf[256];
1090   char *ret;
1091
1092   ret = GNUNET_CRYPTO_ecc_public_sign_key_to_string (&pid->public_key);
1093   strcpy (buf, ret);
1094   GNUNET_free (ret);
1095   buf[4] = '\0';
1096   return buf;
1097 }
1098
1099
1100 /**
1101  * Convert a peer identity to a string (for printing debug messages).
1102  * This is one of the very few calls in the entire API that is
1103  * NOT reentrant!
1104  *
1105  * @param pid the peer identity
1106  * @return string form of the pid; will be overwritten by next
1107  *         call to #GNUNET_i2s_full.
1108  */
1109 const char *
1110 GNUNET_i2s_full (const struct GNUNET_PeerIdentity *pid)
1111 {
1112   static char buf[256];
1113   char *ret;
1114
1115   ret = GNUNET_CRYPTO_ecc_public_sign_key_to_string (&pid->public_key);
1116   strcpy (buf, ret);
1117   GNUNET_free (ret);
1118   return buf;
1119 }
1120
1121
1122 /**
1123  * Convert a "struct sockaddr*" (IPv4 or IPv6 address) to a string
1124  * (for printing debug messages).  This is one of the very few calls
1125  * in the entire API that is NOT reentrant!
1126  *
1127  * @param addr the address
1128  * @param addrlen the length of the address
1129  * @return nicely formatted string for the address
1130  *  will be overwritten by next call to GNUNET_a2s.
1131  */
1132 const char *
1133 GNUNET_a2s (const struct sockaddr *addr, socklen_t addrlen)
1134 {
1135   static char buf[INET6_ADDRSTRLEN + 8];
1136   static char b2[6];
1137   const struct sockaddr_in *v4;
1138   const struct sockaddr_un *un;
1139   const struct sockaddr_in6 *v6;
1140   unsigned int off;
1141
1142   if (addr == NULL)
1143     return _("unknown address");
1144   switch (addr->sa_family)
1145   {
1146   case AF_INET:
1147     if (addrlen != sizeof (struct sockaddr_in))
1148       return "<invalid v4 address>";
1149     v4 = (const struct sockaddr_in *) addr;
1150     inet_ntop (AF_INET, &v4->sin_addr, buf, INET_ADDRSTRLEN);
1151     if (0 == ntohs (v4->sin_port))
1152       return buf;
1153     strcat (buf, ":");
1154     GNUNET_snprintf (b2, sizeof (b2), "%u", ntohs (v4->sin_port));
1155     strcat (buf, b2);
1156     return buf;
1157   case AF_INET6:
1158     if (addrlen != sizeof (struct sockaddr_in6))
1159       return "<invalid v4 address>";
1160     v6 = (const struct sockaddr_in6 *) addr;
1161     buf[0] = '[';
1162     inet_ntop (AF_INET6, &v6->sin6_addr, &buf[1], INET6_ADDRSTRLEN);
1163     if (0 == ntohs (v6->sin6_port))
1164       return &buf[1];
1165     strcat (buf, "]:");
1166     GNUNET_snprintf (b2, sizeof (b2), "%u", ntohs (v6->sin6_port));
1167     strcat (buf, b2);
1168     return buf;
1169   case AF_UNIX:
1170     if (addrlen <= sizeof (sa_family_t))
1171       return "<unbound UNIX client>";
1172     un = (const struct sockaddr_un *) addr;
1173     off = 0;
1174     if (un->sun_path[0] == '\0')
1175       off++;
1176     memset (buf, 0, sizeof (buf));
1177     snprintf (buf, sizeof (buf) - 1, "%s%.*s", (off == 1) ? "@" : "",
1178               (int) (addrlen - sizeof (sa_family_t) - 1 - off),
1179               &un->sun_path[off]);
1180     return buf;
1181   default:
1182     return _("invalid address");
1183   }
1184 }
1185
1186
1187 /**
1188  * Log error message about missing configuration option.
1189  *
1190  * @param kind log level
1191  * @param section section with missing option
1192  * @param option name of missing option
1193  */
1194 void
1195 GNUNET_log_config_missing (enum GNUNET_ErrorType kind,
1196                            const char *section,
1197                            const char *option)
1198 {
1199   GNUNET_log (kind,
1200               _("Configuration fails to specify option `%s' in section `%s'!\n"),
1201               option,
1202               section);
1203 }
1204
1205
1206 /**
1207  * Log error message about invalid configuration option value.
1208  *
1209  * @param kind log level
1210  * @param section section with invalid option
1211  * @param option name of invalid option
1212  * @param required what is required that is invalid about the option
1213  */
1214 void
1215 GNUNET_log_config_invalid (enum GNUNET_ErrorType kind,
1216                            const char *section,
1217                            const char *option,
1218                            const char *required)
1219 {
1220   GNUNET_log (kind,
1221               _("Configuration specifies invalid value for option `%s' in section `%s': %s\n"),
1222               option, section, required);
1223 }
1224
1225
1226 /**
1227  * Initializer
1228  */
1229 void __attribute__ ((constructor)) GNUNET_util_cl_init ()
1230 {
1231   GNUNET_stderr = stderr;
1232 #ifdef MINGW
1233   GNInitWinEnv (NULL);
1234 #endif
1235 #if WINDOWS
1236   if (!InitializeCriticalSectionAndSpinCount (&output_message_cs, 0x00000400))\r
1237     GNUNET_abort ();
1238 #endif
1239 }
1240
1241
1242 /**
1243  * Destructor
1244  */
1245 void __attribute__ ((destructor)) GNUNET_util_cl_fini ()
1246 {
1247 #if WINDOWS
1248   DeleteCriticalSection (&output_message_cs);
1249 #endif
1250 #ifdef MINGW
1251   GNShutdownWinEnv ();
1252 #endif
1253 }
1254
1255 /* end of common_logging.c */