#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <stdio.h>
#include <errno.h>
#include <string.h>
#if defined(HAVE_SYSLOG)
#include <syslog.h>
#endif
#include "i18n.h"
#include "fetchmail.h"
#if defined(HAVE_VPRINTF) || defined(HAVE_DOPRNT) || defined(_LIBC) || defined(HAVE_STDARG_H)
# if HAVE_STDARG_H
# include <stdarg.h>
# define VA_START(args, lastarg) va_start(args, lastarg)
# else
# include <varargs.h>
# define VA_START(args, lastarg) va_start(args)
# endif
#else
# define va_alist a1, a2, a3, a4, a5, a6, a7, a8
# define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
#endif
#define MALLOC(n) xmalloc(n)
#define REALLOC(n,s) xrealloc(n,s)
static void (*report_print_progname) (
#if __STDC__ - 0
void
#endif
);
static unsigned int partial_message_size = 0;
static unsigned int partial_message_size_used = 0;
static char *partial_message;
static unsigned use_stderr;
static unsigned int use_syslog;
static unsigned int report_message_count;
#ifdef _LIBC
# define program_name program_invocation_name
# include <errno.h>
#else
# if !HAVE_STRERROR && !defined(strerror)
char *strerror (int errnum)
{
extern char *sys_errlist[];
extern int sys_nerr;
if (errnum > 0 && errnum <= sys_nerr)
return sys_errlist[errnum];
return GT_("Unknown system error");
}
# endif
#endif
void
#ifdef HAVE_STDARG_H
report (FILE *errfp, const char *message, ...)
#else
report (FILE *errfp, message, va_alist)
const char *message;
va_dcl
#endif
{
#ifdef VA_START
va_list args;
#endif
if (partial_message_size_used != 0)
{
partial_message_size_used = 0;
report (errfp, GT_("%s (log message incomplete)"), partial_message);
}
#if defined(HAVE_SYSLOG)
if (use_syslog)
{
int priority;
#ifdef VA_START
VA_START (args, message);
#endif
priority = (errfp == stderr) ? LOG_ERR : LOG_INFO;
#ifdef HAVE_VSYSLOG
vsyslog (priority, message, args);
#else
{
char *a1 = va_arg(args, char *);
char *a2 = va_arg(args, char *);
char *a3 = va_arg(args, char *);
char *a4 = va_arg(args, char *);
char *a5 = va_arg(args, char *);
char *a6 = va_arg(args, char *);
char *a7 = va_arg(args, char *);
char *a8 = va_arg(args, char *);
syslog (priority, message, a1, a2, a3, a4, a5, a6, a7, a8);
}
#endif
#ifdef VA_START
va_end(args);
#endif
}
else
#endif
{
if (report_print_progname)
(*report_print_progname) ();
else
{
fflush (errfp);
if ( *message == '\n' )
{
fputc( '\n', errfp );
++message;
}
fprintf (errfp, "%s: ", program_name);
}
#ifdef VA_START
VA_START (args, message);
# if defined(HAVE_VPRINTF) || defined(_LIBC)
vfprintf (errfp, message, args);
# else
_doprnt (message, args, errfp);
# endif
va_end (args);
#else
fprintf (errfp, message, a1, a2, a3, a4, a5, a6, a7, a8);
#endif
fflush (errfp);
}
++report_message_count;
}
void report_init(int mode)
{
switch(mode)
{
case 0:
default:
use_stderr = FALSE;
use_syslog = FALSE;
break;
case 1:
use_stderr = TRUE;
use_syslog = FALSE;
break;
#ifdef HAVE_SYSLOG
case -1:
use_stderr = FALSE;
use_syslog = TRUE;
break;
#endif
}
}
static void rep_ensuresize(void) {
if (partial_message_size == 0)
{
partial_message_size_used = 0;
partial_message_size = 2048;
partial_message = MALLOC (partial_message_size);
}
else
if (partial_message_size - partial_message_size_used < 1024)
{
partial_message_size += 2048;
partial_message = REALLOC (partial_message, partial_message_size);
}
}
void
#ifdef HAVE_STDARG_H
report_build (FILE *errfp, const char *message, ...)
#else
report_build (FILE *errfp, message, va_alist)
const char *message;
va_dcl
#endif
{
#ifdef VA_START
va_list args;
int n;
#endif
rep_ensuresize();
#if defined(VA_START)
for ( ; ; )
{
VA_START(args, message);
n = vsnprintf (partial_message + partial_message_size_used, partial_message_size - partial_message_size_used,
message, args);
va_end (args);
if (n >= 0
&& (unsigned)n < partial_message_size - partial_message_size_used)
{
partial_message_size_used += n;
break;
}
partial_message_size += 2048;
partial_message = REALLOC (partial_message, partial_message_size);
}
#else
for ( ; ; )
{
n = snprintf (partial_message + partial_message_size_used,
partial_message_size - partial_message_size_used,
message, a1, a2, a3, a4, a5, a6, a7, a8);
if (n >= 0
&& (unsigned)n < partial_message_size - partial_message_size_used)
{
partial_message_size_used += n;
break;
}
partial_message_size += 2048;
partial_message = REALLOC (partial_message, partial_message_size);
}
#endif
if (use_stderr && partial_message_size_used != 0)
{
partial_message_size_used = 0;
fputs(partial_message, errfp);
}
}
void
#ifdef HAVE_STDARG_H
report_complete (FILE *errfp, const char *message, ...)
#else
report_complete (FILE *errfp, message, va_alist)
const char *message;
va_dcl
#endif
{
#ifdef VA_START
va_list args;
int n;
#endif
rep_ensuresize();
#if defined(VA_START)
for ( ; ; )
{
VA_START(args, message);
n = vsnprintf (partial_message + partial_message_size_used,
partial_message_size - partial_message_size_used,
message, args);
va_end(args);
if (n >= 0
&& (unsigned)n < partial_message_size - partial_message_size_used)
{
partial_message_size_used += n;
break;
}
partial_message_size += 2048;
partial_message = REALLOC (partial_message, partial_message_size);
}
#else
for ( ; ; )
{
n = snprintf (partial_message + partial_message_size_used,
partial_message_size - partial_message_size_used,
message, a1, a2, a3, a4, a5, a6, a7, a8);
if (n >= 0
&& (unsigned)n < partial_message_size - partial_message_size_used)
{
partial_message_size_used += n;
break;
}
partial_message_size += 2048;
partial_message = REALLOC (partial_message, partial_message_size);
}
#endif
partial_message_size_used = 0;
if (use_stderr)
{
fputs(partial_message, errfp);
fflush (errfp);
++report_message_count;
}
else
report(errfp, "%s", partial_message);
}
static int error_one_per_line;
void
#ifdef HAVE_STDARG_H
report_at_line (FILE *errfp, int errnum, const char *file_name,
unsigned int line_number, const char *message, ...)
#else
report_at_line (FILE *errfp, errnum, file_name, line_number, message, va_alist)
int errnum;
const char *file_name;
unsigned int line_number;
const char *message;
va_dcl
#endif
{
#ifdef VA_START
va_list args;
#endif
if (error_one_per_line)
{
static const char *old_file_name;
static unsigned int old_line_number;
if (old_line_number == line_number &&
(file_name == old_file_name || !strcmp (old_file_name, file_name)))
return;
old_file_name = file_name;
old_line_number = line_number;
}
if (report_print_progname)
(*report_print_progname) ();
else
{
fflush (errfp);
if ( *message == '\n' )
{
fputc( '\n', errfp );
++message;
}
fprintf (errfp, "%s:", program_name);
}
if (file_name != NULL)
fprintf (errfp, "%s:%u: ", file_name, line_number);
#ifdef VA_START
VA_START (args, message);
# if defined(HAVE_VPRINTF) || defined(_LIBC)
vfprintf (errfp, message, args);
# else
_doprnt (message, args, errfp);
# endif
va_end (args);
#else
fprintf (errfp, message, a1, a2, a3, a4, a5, a6, a7, a8);
#endif
++report_message_count;
if (errnum)
fprintf (errfp, ": %s", strerror (errnum));
putc ('\n', errfp);
fflush (errfp);
}