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