- Add signal handling (unix)
[privoxy.git] / errlog.c
1 const char errlog_rcs[] = "$Id: errlog.c,v 1.23 2001/11/07 00:02:13 steudten Exp $";
2 /*********************************************************************
3  *
4  * File        :  $Source: /cvsroot/ijbswa/current/errlog.c,v $
5  *
6  * Purpose     :  Log errors to a designated destination in an elegant,
7  *                printf-like fashion.
8  *
9  * Copyright   :  Written by and Copyright (C) 2001 the SourceForge
10  *                IJBSWA team.  http://ijbswa.sourceforge.net
11  *
12  *                Based on the Internet Junkbuster originally written
13  *                by and Copyright (C) 1997 Anonymous Coders and 
14  *                Junkbusters Corporation.  http://www.junkbusters.com
15  *
16  *                This program is free software; you can redistribute it 
17  *                and/or modify it under the terms of the GNU General
18  *                Public License as published by the Free Software
19  *                Foundation; either version 2 of the License, or (at
20  *                your option) any later version.
21  *
22  *                This program is distributed in the hope that it will
23  *                be useful, but WITHOUT ANY WARRANTY; without even the
24  *                implied warranty of MERCHANTABILITY or FITNESS FOR A
25  *                PARTICULAR PURPOSE.  See the GNU General Public
26  *                License for more details.
27  *
28  *                The GNU General Public License should be included with
29  *                this file.  If not, you can view it at
30  *                http://www.gnu.org/copyleft/gpl.html
31  *                or write to the Free Software Foundation, Inc., 59
32  *                Temple Place - Suite 330, Boston, MA  02111-1307, USA.
33  *
34  * Revisions   :
35  *    $Log: errlog.c,v $
36  *    Revision 1.23  2001/11/07 00:02:13  steudten
37  *    Add line number in error output for lineparsing for
38  *    actionsfile and configfile.
39  *    Special handling for CLF added.
40  *
41  *    Revision 1.22  2001/11/05 23:43:05  steudten
42  *    Add time+date to log files.
43  *
44  *    Revision 1.21  2001/10/25 03:40:47  david__schmidt
45  *    Change in porting tactics: OS/2's EMX porting layer doesn't allow multiple
46  *    threads to call select() simultaneously.  So, it's time to do a real, live,
47  *    native OS/2 port.  See defines for __EMX__ (the porting layer) vs. __OS2__
48  *    (native). Both versions will work, but using __OS2__ offers multi-threading.
49  *
50  *    Revision 1.20  2001/09/16 23:04:34  jongfoster
51  *    Fixing a warning
52  *
53  *    Revision 1.19  2001/09/13 20:08:06  jongfoster
54  *    Adding support for LOG_LEVEL_CGI
55  *
56  *    Revision 1.18  2001/09/10 11:27:24  oes
57  *    Declaration of w32_socket_strerr now conditional
58  *
59  *    Revision 1.17  2001/09/10 10:17:13  oes
60  *    Removed unused variable; Fixed sprintf format
61  *
62  *    Revision 1.16  2001/07/30 22:08:36  jongfoster
63  *    Tidying up #defines:
64  *    - All feature #defines are now of the form FEATURE_xxx
65  *    - Permanently turned off WIN_GUI_EDIT
66  *    - Permanently turned on WEBDAV and SPLIT_PROXY_ARGS
67  *
68  *    Revision 1.15  2001/07/29 17:41:10  jongfoster
69  *    Now prints thread ID for each message (pthreads only)
70  *
71  *    Revision 1.14  2001/07/19 19:03:48  haroon
72  *    - Added case for LOG_LEVEL_POPUPS
73  *
74  *    Revision 1.13  2001/07/13 13:58:58  oes
75  *     - Added case for LOG_LEVEL_DEANIMATE
76  *     - Removed all #ifdef PCRS
77  *
78  *    Revision 1.12  2001/06/09 10:55:28  jongfoster
79  *    Changing BUFSIZ ==> BUFFER_SIZE
80  *
81  *    Revision 1.11  2001/06/01 18:14:49  jongfoster
82  *    Changing the calls to strerr() to check HAVE_STRERR (which is defined
83  *    in config.h if appropriate) rather than the NO_STRERR macro.
84  *
85  *    Revision 1.10  2001/05/29 11:52:21  oes
86  *    Conditional compilation of w32_socket_error
87  *
88  *    Revision 1.9  2001/05/28 16:15:17  jongfoster
89  *    Improved reporting of errors under Win32.
90  *
91  *    Revision 1.8  2001/05/26 17:25:14  jongfoster
92  *    Added support for CLF (Common Log Format) and fixed LOG_LEVEL_LOG
93  *
94  *    Revision 1.7  2001/05/26 15:21:28  jongfoster
95  *    Activity animation in Win32 GUI now works even if debug==0
96  *
97  *    Revision 1.6  2001/05/25 21:55:08  jongfoster
98  *    Now cleans up properly on FATAL (removes taskbar icon etc)
99  *
100  *    Revision 1.5  2001/05/22 18:46:04  oes
101  *
102  *    - Enabled filtering banners by size rather than URL
103  *      by adding patterns that replace all standard banner
104  *      sizes with the "Junkbuster" gif to the re_filterfile
105  *
106  *    - Enabled filtering WebBugs by providing a pattern
107  *      which kills all 1x1 images
108  *
109  *    - Added support for PCRE_UNGREEDY behaviour to pcrs,
110  *      which is selected by the (nonstandard and therefore
111  *      capital) letter 'U' in the option string.
112  *      It causes the quantifiers to be ungreedy by default.
113  *      Appending a ? turns back to greedy (!).
114  *
115  *    - Added a new interceptor ijb-send-banner, which
116  *      sends back the "Junkbuster" gif. Without imagelist or
117  *      MSIE detection support, or if tinygif = 1, or the
118  *      URL isn't recognized as an imageurl, a lame HTML
119  *      explanation is sent instead.
120  *
121  *    - Added new feature, which permits blocking remote
122  *      script redirects and firing back a local redirect
123  *      to the browser.
124  *      The feature is conditionally compiled, i.e. it
125  *      can be disabled with --disable-fast-redirects,
126  *      plus it must be activated by a "fast-redirects"
127  *      line in the config file, has its own log level
128  *      and of course wants to be displayed by show-proxy-args
129  *      Note: Boy, all the #ifdefs in 1001 locations and
130  *      all the fumbling with configure.in and acconfig.h
131  *      were *way* more work than the feature itself :-(
132  *
133  *    - Because a generic redirect template was needed for
134  *      this, tinygif = 3 now uses the same.
135  *
136  *    - Moved GIFs, and other static HTTP response templates
137  *      to project.h
138  *
139  *    - Some minor fixes
140  *
141  *    - Removed some >400 CRs again (Jon, you really worked
142  *      a lot! ;-)
143  *
144  *    Revision 1.4  2001/05/21 19:32:54  jongfoster
145  *    Added another #ifdef _WIN_CONSOLE
146  *
147  *    Revision 1.3  2001/05/20 01:11:40  jongfoster
148  *    Added support for LOG_LEVEL_FATAL
149  *    Renamed LOG_LEVEL_FRC to LOG_LEVEL_FORCE,
150  *    and LOG_LEVEL_REF to LOG_LEVEL_RE_FILTER
151  *
152  *    Revision 1.2  2001/05/17 22:42:01  oes
153  *     - Cleaned CRLF's from the sources and related files
154  *     - Repaired logging for REF and FRC
155  *
156  *    Revision 1.1.1.1  2001/05/15 13:58:51  oes
157  *    Initial import of version 2.9.3 source tree
158  *
159  *
160  *********************************************************************/
161 \f
162
163 #include "config.h"
164 #include "miscutil.h"
165
166 #include <stdlib.h>
167 #include <stdio.h>
168 #include <stdarg.h>
169 #include <string.h>
170
171 #if !defined(_WIN32) && !defined(__OS2__)
172 #include <unistd.h>
173 #endif /* !defined(_WIN32) && !defined(__OS2__) */
174
175 #include <errno.h>
176 #include <assert.h>
177 #ifdef FEATURE_PTHREAD
178 #include <pthread.h>
179 #endif /* def FEATURE_PTHREAD */
180
181 #ifdef _WIN32
182 #include <windows.h>
183 #ifndef _WIN_CONSOLE
184 #include "w32log.h"
185 #endif /* ndef _WIN_CONSOLE */
186 #endif /* def _WIN32 */
187
188 #ifdef __OS2__
189 #define INCL_DOS
190 #include <os2.h>
191 #endif
192
193 #include "errlog.h"
194 #include "project.h"
195
196 const char errlog_h_rcs[] = ERRLOG_H_VERSION;
197
198
199 /*
200  * LOG_LEVEL_FATAL cannot be turned off.  (There are
201  * some exceptional situations where we need to get a
202  * message to the user).
203  */
204 #define LOG_LEVEL_MINIMUM  LOG_LEVEL_FATAL
205
206 /* where to log (default: stderr) */
207 static FILE *logfp = NULL;
208
209 /* logging detail level.  */
210 static int debug = (LOG_LEVEL_FATAL | LOG_LEVEL_ERROR | LOG_LEVEL_INFO);  
211
212 /* static functions */
213 static void fatal_error(const char * error_message);
214 #ifdef _WIN32
215 static char *w32_socket_strerr(int errcode, char *tmp_buf);
216 #endif
217
218 /*********************************************************************
219  *
220  * Function    :  fatal_error
221  *
222  * Description :  Displays a fatal error to standard error (or, on 
223  *                a WIN32 GUI, to a dialog box), and exits
224  *                JunkBuster with status code 1.
225  *
226  * Parameters  :
227  *          1  :  error_message = The error message to display.
228  *
229  * Returns     :  Does not return.
230  *
231  *********************************************************************/
232 static void fatal_error(const char * error_message)
233 {
234 #if defined(_WIN32) && !defined(_WIN_CONSOLE)
235    MessageBox(g_hwndLogFrame, error_message, "Internet JunkBuster Error", 
236       MB_OK | MB_ICONERROR | MB_TASKMODAL | MB_SETFOREGROUND | MB_TOPMOST);  
237
238    /* Cleanup - remove taskbar icon etc. */
239    TermLogWindow();
240
241 #else /* if !defined(_WIN32) || defined(_WIN_CONSOLE) */
242    fputs(error_message, stderr);
243 #endif /* defined(_WIN32) && !defined(_WIN_CONSOLE) */
244
245 #if defined(unix)
246    deletePidFile();
247 #endif /* unix */
248
249    exit(1);
250 }
251
252
253 /*********************************************************************
254  *
255  * Function    :  init_errlog
256  *
257  * Description :  Initializes the logging module.  Must call before
258  *                calling log_error.
259  *
260  * Parameters  :
261  *          1  :  prog_name  = The program name.
262  *          2  :  logfname   = The logfile name, or NULL for stderr.
263  *          3  :  debuglevel = The debugging level.
264  *
265  * Returns     :  N/A
266  *
267  *********************************************************************/
268 void init_error_log(const char *prog_name, const char *logfname, int debuglevel)
269 {
270    FILE *fp;
271
272    /* FIXME RACE HAZARD: should start critical section error_log_use here */
273
274    /* set the logging detail level */
275    debug = debuglevel | LOG_LEVEL_MINIMUM;
276
277    if ((logfp != NULL) && (logfp != stderr))
278    {
279       log_error(LOG_LEVEL_INFO, "(Re-)Open logfile %s", logfname ? logfname : "none");
280       fclose(logfp);
281    }
282    logfp = stderr;
283
284    /* set the designated log file */
285    if( logfname )
286    {
287       if( !(fp = fopen(logfname, "a")) )
288       {
289          log_error(LOG_LEVEL_FATAL, "init_errlog(): can't open logfile: %s", logfname);
290       }
291
292       /* set logging to be completely unbuffered */
293       setbuf(fp, NULL);
294
295       logfp = fp;
296    }
297
298    log_error(LOG_LEVEL_INFO, "Internet JunkBuster version " VERSION);
299    if (prog_name != NULL)
300    {
301       log_error(LOG_LEVEL_INFO, "Program name: %s", prog_name);
302    }
303
304    /* FIXME RACE HAZARD: should end critical section error_log_use here */
305
306 } /* init_error_log */
307
308
309 /*********************************************************************
310  *
311  * Function    :  log_error
312  *
313  * Description :  This is the error-reporting and logging function.
314  *
315  * Parameters  :
316  *          1  :  loglevel  = the type of message to be logged
317  *          2  :  fmt       = the main string we want logged, printf-like
318  *          3  :  ...       = arguments to be inserted in fmt (printf-like).
319  *
320  * Returns     :  N/A
321  *
322  *********************************************************************/
323 void log_error(int loglevel, char *fmt, ...)
324 {
325    va_list ap;
326    char *outbuf= NULL;
327    char *outbuf_save = NULL;
328    char * src = fmt;
329    int outc = 0;
330    long this_thread = 1;  /* was: pthread_t this_thread;*/
331 #ifdef __OS2__
332    PTIB     ptib;
333    APIRET   ulrc;
334 #endif /* __OS2__ */
335
336 #if defined(_WIN32) && !defined(_WIN_CONSOLE)
337    /*
338     * Irrespective of debug setting, a GET/POST/CONNECT makes
339     * the taskbar icon animate.  (There is an option to disable
340     * this but checking that is handled inside LogShowActivity()).
341     */
342    if (loglevel == LOG_LEVEL_GPC)
343    {
344       LogShowActivity();
345    }
346 #endif /* defined(_WIN32) && !defined(_WIN_CONSOLE) */
347
348    /* verify if loglevel applies to current settings and bail out if negative */
349    if ((loglevel & debug) == 0)
350    {
351       return;
352    }
353
354    /* FIXME get current thread id */
355 #ifdef FEATURE_PTHREAD
356    this_thread = (long)pthread_self();
357 #elif __OS2__
358   
359    ulrc = DosGetInfoBlocks(&ptib, NULL);
360    if (ulrc == 0)
361      this_thread = ptib -> tib_ptib2 -> tib2_ultid;
362 #endif /* def FEATURE_PTHREAD */
363
364    outbuf_save = outbuf = (char*)malloc(BUFFER_SIZE);
365    assert(outbuf);
366
367     {
368        /*
369         * Write timestamp into tempbuf.
370         *
371         * Complex because not all OSs have tm_gmtoff or
372         * the %z field in strftime()
373         */
374        time_t now; 
375        struct tm *tm_now; 
376        time (&now); 
377        tm_now = localtime (&now); 
378        strftime (outbuf, BUFFER_SIZE-6, "%b %d %H:%M:%S ", tm_now); 
379        outbuf += strlen( outbuf );
380     }
381    switch (loglevel)
382    {
383       case LOG_LEVEL_ERROR:
384          outc = sprintf(outbuf, "IJB(%ld) Error: ", this_thread);
385          break;
386       case LOG_LEVEL_FATAL:
387          outc = sprintf(outbuf, "IJB(%ld) Fatal error: ", this_thread);
388          break;
389       case LOG_LEVEL_GPC:
390          outc = sprintf(outbuf, "IJB(%ld) Request: ", this_thread);
391          break;
392       case LOG_LEVEL_CONNECT:
393          outc = sprintf(outbuf, "IJB(%ld) Connect: ", this_thread);
394          break;
395       case LOG_LEVEL_LOG:
396          outc = sprintf(outbuf, "IJB(%ld) Writing: ", this_thread);
397          break;
398       case LOG_LEVEL_HEADER:
399          outc = sprintf(outbuf, "IJB(%ld) Header: ", this_thread);
400          break;
401       case LOG_LEVEL_INFO:
402          outc = sprintf(outbuf, "IJB(%ld) Info: ", this_thread);
403          break;
404       case LOG_LEVEL_RE_FILTER:
405          outc = sprintf(outbuf, "IJB(%ld) Re-Filter: ", this_thread);
406          break;
407 #ifdef FEATURE_FORCE_LOAD
408       case LOG_LEVEL_FORCE:
409          outc = sprintf(outbuf, "IJB(%ld) Force: ", this_thread);
410          break;
411 #endif /* def FEATURE_FORCE_LOAD */
412 #ifdef FEATURE_FAST_REDIRECTS
413       case LOG_LEVEL_REDIRECTS:
414          outc = sprintf(outbuf, "IJB(%ld) Redirect: ", this_thread);
415          break;
416 #endif /* def FEATURE_FAST_REDIRECTS */
417       case LOG_LEVEL_DEANIMATE:
418          outc = sprintf(outbuf, "IJB(%ld) Gif-Deanimate: ", this_thread);
419          break;
420       case LOG_LEVEL_CLF:
421          outbuf = outbuf_save;
422          outc = 0;
423          outbuf[0] = '\0';
424          break;
425 #ifdef FEATURE_KILL_POPUPS
426       case LOG_LEVEL_POPUPS:
427          outc = sprintf(outbuf, "IJB(%ld) Kill-Popups: ", this_thread);
428          break;
429 #endif /* def FEATURE_KILL_POPUPS */
430       case LOG_LEVEL_CGI:
431          outc = sprintf(outbuf, "IJB(%ld) CGI: ", this_thread);
432          break;
433       default:
434          outc = sprintf(outbuf, "IJB(%ld) UNKNOWN LOG TYPE(%d): ", this_thread, loglevel);
435          break;
436    }
437    
438    /* get ready to scan var. args. */
439    va_start( ap, fmt );
440
441    /* build formatted message from fmt and var-args */
442    while ((*src) && (outc < BUFFER_SIZE-2))
443    {
444       char tempbuf[BUFFER_SIZE];
445       char *sval;
446       int ival;
447       unsigned uval;
448       long lval;
449       unsigned long ulval;
450       int oldoutc;
451       char ch;
452       
453       ch = *src++;
454       if( ch != '%' )
455       {
456          outbuf[outc++] = ch;
457          continue;
458       }
459
460       ch = *src++;
461       switch (ch) {
462          case '%':
463             outbuf[outc++] = '%';
464             break;
465          case 'd':
466             ival = va_arg( ap, int );
467             oldoutc = outc;
468             outc += sprintf(tempbuf, "%d", ival);
469             if (outc < BUFFER_SIZE-1) 
470             {
471                strcpy(outbuf + oldoutc, tempbuf);
472             }
473             else
474             {
475                outbuf[oldoutc] = '\0';
476             }
477             break;
478          case 'u':
479             uval = va_arg( ap, unsigned );
480             oldoutc = outc;
481             outc += sprintf(tempbuf, "%u", uval);
482             if (outc < BUFFER_SIZE-1) 
483             {
484                strcpy(outbuf + oldoutc, tempbuf);
485             }
486             else
487             {
488                outbuf[oldoutc] = '\0';
489             }
490             break;
491          case 'l':
492             /* this is a modifier that must be followed by u or d */
493             ch = *src++;
494             if (ch == 'd')
495             {
496                lval = va_arg( ap, long );
497                oldoutc = outc;
498                outc += sprintf(tempbuf, "%ld", lval);
499             }
500             else if (ch == 'u')
501             {
502                ulval = va_arg( ap, unsigned long );
503                oldoutc = outc;
504                outc += sprintf(tempbuf, "%lu", ulval);
505             }
506             else
507             {
508                /* Error */
509                sprintf(outbuf, "IJB(%ld) Error: log_error(): Bad format string:\n"
510                                "Format = \"%s\"\n"
511                                "Exiting.", this_thread, fmt);
512                /* FIXME RACE HAZARD: should start critical section error_log_use here */
513                if( !logfp )
514                {
515                   logfp = stderr;
516                }
517                fputs(outbuf, logfp);
518                /* FIXME RACE HAZARD: should end critical section error_log_use here */
519                fatal_error(outbuf);
520                /* Never get here */
521                break;
522             }
523             if (outc < BUFFER_SIZE-1) 
524             {
525                strcpy(outbuf + oldoutc, tempbuf);
526             }
527             else
528             {
529                outbuf[oldoutc] = '\0';
530             }
531             break;
532          case 'c':
533             /*
534              * Note that char paramaters are converted to int, so we need to
535              * pass "int" to va_arg.  (See K&R, 2nd ed, section A7.3.2, page 202)
536              */
537             outbuf[outc++] = (char) va_arg( ap, int );
538             break;
539          case 's':
540             sval = va_arg( ap, char * );
541             oldoutc = outc;
542             outc += strlen(sval);
543             if (outc < BUFFER_SIZE-1) 
544             {
545                strcpy(outbuf + oldoutc, sval);
546             }
547             else
548             {
549                outbuf[oldoutc] = '\0';
550             }
551             break;
552          case 'N':
553             /* Non-standard: Print a counted string.  Takes 2 parameters:
554              * int length, const char * string
555              */
556             ival = va_arg( ap, int );
557             sval = va_arg( ap, char * );
558             if (ival < 0)
559             {
560                ival = 0;
561             }
562             oldoutc = outc;
563             outc += ival;
564             if (outc < BUFFER_SIZE-1)
565             {
566                memcpy(outbuf + oldoutc, sval, ival);
567             }
568             else
569             {
570                outbuf[oldoutc] = '\0';
571             }
572             break;
573          case 'E':
574             /* Non-standard: Print error code from errno */
575 #ifdef _WIN32
576             ival = WSAGetLastError();
577             sval = w32_socket_strerr(ival, tempbuf);
578 #else /* ifndef _WIN32 */
579             ival = errno; 
580 #ifdef HAVE_STRERROR
581             sval = strerror(ival);
582 #else /* ifndef HAVE_STRERROR */
583             sval = NULL;
584 #endif /* ndef HAVE_STRERROR */
585             if (sval == NULL)
586             {
587                sprintf(tempbuf, "(errno = %d)", ival);
588                sval = tempbuf;
589             }
590 #endif /* ndef _WIN32 */
591             oldoutc = outc;
592             outc += strlen(sval);
593             if (outc < BUFFER_SIZE-1) 
594             {
595                strcpy(outbuf + oldoutc, sval);
596             }
597             else
598             {
599                outbuf[oldoutc] = '\0';
600             }
601             break;
602          case 'T':
603             /* Non-standard: Print a Common Log File timestamp */
604             {
605                /*
606                 * Write timestamp into tempbuf.
607                 *
608                 * Complex because not all OSs have tm_gmtoff or
609                 * the %z field in strftime()
610                 */
611                time_t now; 
612                struct tm *tm_now; 
613                struct tm gmt; 
614                int days, hrs, mins; 
615                time (&now); 
616                gmt = *gmtime (&now); 
617                tm_now = localtime (&now); 
618                days = tm_now->tm_yday - gmt.tm_yday; 
619                hrs = ((days < -1 ? 24 : 1 < days ? -24 : days * 24) + tm_now->tm_hour - gmt.tm_hour); 
620                mins = hrs * 60 + tm_now->tm_min - gmt.tm_min; 
621                strftime (tempbuf, BUFFER_SIZE-6, "%d/%b/%Y:%H:%M:%S ", tm_now); 
622                sprintf (tempbuf + strlen(tempbuf), "%+03d%02d", mins / 60, abs(mins) % 60); 
623             }
624             oldoutc = outc;
625             outc += strlen(tempbuf);
626             if (outc < BUFFER_SIZE-1) 
627             {
628                strcpy(outbuf + oldoutc, tempbuf);
629             }
630             else
631             {
632                outbuf[oldoutc] = '\0';
633             }
634             break;
635          default:
636             sprintf(outbuf, "IJB(%ld) Error: log_error(): Bad format string:\n"
637                             "Format = \"%s\"\n"
638                             "Exiting.", this_thread, fmt);
639             /* FIXME RACE HAZARD: should start critical section error_log_use here */
640             if( !logfp )
641             {
642                logfp = stderr;
643             }
644             fputs(outbuf_save, logfp);
645             /* FIXME RACE HAZARD: should end critical section error_log_use here */
646             fatal_error(outbuf_save);
647             /* Never get here */
648             break;
649
650       } /* switch( p ) */
651
652    } /* for( p ... ) */
653    
654    /* done with var. args */
655    va_end( ap );
656    
657    if (outc >= BUFFER_SIZE-2)
658    {
659       /* insufficient room for newline and trailing null. */
660
661       static const char warning[] = "... [too long, truncated]\n";
662
663       if (outc < BUFFER_SIZE)
664       {
665          /* Need to add terminating null in this case. */
666          outbuf[outc] = '\0';
667       }
668
669       /* Truncate output */
670       outbuf[BUFFER_SIZE - sizeof(warning)] = '\0';
671
672       /* Append warning */
673       strcat(outbuf, warning);
674    }
675    else
676    {
677       /* Add terminating newline and null */
678       outbuf[outc++] = '\n';
679       outbuf[outc] = '\0';
680    }
681
682    /* FIXME RACE HAZARD: should start critical section error_log_use here */
683
684    /* deal with glibc stupidity - it won't let you initialize logfp */
685    if( !logfp )
686    {
687       logfp = stderr;
688    }
689
690    fputs(outbuf_save, logfp);
691
692    if (loglevel == LOG_LEVEL_FATAL)
693    {
694       fatal_error(outbuf_save);
695       /* Never get here */
696    }
697
698    /* FIXME RACE HAZARD: should end critical section error_log_use here */
699
700 #if defined(_WIN32) && !defined(_WIN_CONSOLE)
701    /* Write to display */
702    LogPutString(outbuf_save);
703 #endif /* defined(_WIN32) && !defined(_WIN_CONSOLE) */
704
705 }
706
707
708 #ifdef _WIN32
709 /*********************************************************************
710  *
711  * Function    :  w32_socket_strerr
712  *
713  * Description :  Translate the return value from WSAGetLastError()
714  *                into a string.
715  *
716  * Parameters  :
717  *          1  :  errcode = The return value from WSAGetLastError().
718  *          2  :  tmp_buf = A temporary buffer that might be used to
719  *                          store the string.
720  *
721  * Returns     :  String representing the error code.  This may be
722  *                a global string constant or a string stored in
723  *                tmp_buf.
724  *
725  *********************************************************************/
726 static char *w32_socket_strerr(int errcode, char *tmp_buf)
727 {
728 #define TEXT_FOR_ERROR(code,text) \
729    if (errcode == code)           \
730    {                              \
731       return #code " - " text;    \
732    }
733
734    TEXT_FOR_ERROR(WSAEACCES, "Permission denied")
735    TEXT_FOR_ERROR(WSAEADDRINUSE, "Address already in use.")
736    TEXT_FOR_ERROR(WSAEADDRNOTAVAIL, "Cannot assign requested address.");
737    TEXT_FOR_ERROR(WSAEAFNOSUPPORT, "Address family not supported by protocol family.");
738    TEXT_FOR_ERROR(WSAEALREADY, "Operation already in progress.");
739    TEXT_FOR_ERROR(WSAECONNABORTED, "Software caused connection abort.");
740    TEXT_FOR_ERROR(WSAECONNREFUSED, "Connection refused.");
741    TEXT_FOR_ERROR(WSAECONNRESET, "Connection reset by peer.");
742    TEXT_FOR_ERROR(WSAEDESTADDRREQ, "Destination address required.");
743    TEXT_FOR_ERROR(WSAEFAULT, "Bad address.");
744    TEXT_FOR_ERROR(WSAEHOSTDOWN, "Host is down.");
745    TEXT_FOR_ERROR(WSAEHOSTUNREACH, "No route to host.");
746    TEXT_FOR_ERROR(WSAEINPROGRESS, "Operation now in progress.");
747    TEXT_FOR_ERROR(WSAEINTR, "Interrupted function call.");
748    TEXT_FOR_ERROR(WSAEINVAL, "Invalid argument.");
749    TEXT_FOR_ERROR(WSAEISCONN, "Socket is already connected.");
750    TEXT_FOR_ERROR(WSAEMFILE, "Too many open sockets.");
751    TEXT_FOR_ERROR(WSAEMSGSIZE, "Message too long.");
752    TEXT_FOR_ERROR(WSAENETDOWN, "Network is down.");
753    TEXT_FOR_ERROR(WSAENETRESET, "Network dropped connection on reset.");
754    TEXT_FOR_ERROR(WSAENETUNREACH, "Network is unreachable.");
755    TEXT_FOR_ERROR(WSAENOBUFS, "No buffer space available.");
756    TEXT_FOR_ERROR(WSAENOPROTOOPT, "Bad protocol option.");
757    TEXT_FOR_ERROR(WSAENOTCONN, "Socket is not connected.");
758    TEXT_FOR_ERROR(WSAENOTSOCK, "Socket operation on non-socket.");
759    TEXT_FOR_ERROR(WSAEOPNOTSUPP, "Operation not supported.");
760    TEXT_FOR_ERROR(WSAEPFNOSUPPORT, "Protocol family not supported.");
761    TEXT_FOR_ERROR(WSAEPROCLIM, "Too many processes.");
762    TEXT_FOR_ERROR(WSAEPROTONOSUPPORT, "Protocol not supported.");
763    TEXT_FOR_ERROR(WSAEPROTOTYPE, "Protocol wrong type for socket.");
764    TEXT_FOR_ERROR(WSAESHUTDOWN, "Cannot send after socket shutdown.");
765    TEXT_FOR_ERROR(WSAESOCKTNOSUPPORT, "Socket type not supported.");
766    TEXT_FOR_ERROR(WSAETIMEDOUT, "Connection timed out.");
767    TEXT_FOR_ERROR(WSAEWOULDBLOCK, "Resource temporarily unavailable.");
768    TEXT_FOR_ERROR(WSAHOST_NOT_FOUND, "Host not found.");
769    TEXT_FOR_ERROR(WSANOTINITIALISED, "Successful WSAStartup not yet performed.");
770    TEXT_FOR_ERROR(WSANO_DATA, "Valid name, no data record of requested type.");
771    TEXT_FOR_ERROR(WSANO_RECOVERY, "This is a non-recoverable error.");
772    TEXT_FOR_ERROR(WSASYSNOTREADY, "Network subsystem is unavailable.");
773    TEXT_FOR_ERROR(WSATRY_AGAIN, "Non-authoritative host not found.");
774    TEXT_FOR_ERROR(WSAVERNOTSUPPORTED, "WINSOCK.DLL version out of range.");
775    TEXT_FOR_ERROR(WSAEDISCON, "Graceful shutdown in progress.");
776    /*
777     * The following error codes are documented in the Microsoft WinSock
778     * reference guide, but don't actually exist.
779     *
780     * TEXT_FOR_ERROR(WSA_INVALID_HANDLE, "Specified event object handle is invalid.");
781     * TEXT_FOR_ERROR(WSA_INVALID_PARAMETER, "One or more parameters are invalid.");
782     * TEXT_FOR_ERROR(WSAINVALIDPROCTABLE, "Invalid procedure table from service provider.");
783     * TEXT_FOR_ERROR(WSAINVALIDPROVIDER, "Invalid service provider version number.");
784     * TEXT_FOR_ERROR(WSA_IO_PENDING, "Overlapped operations will complete later.");
785     * TEXT_FOR_ERROR(WSA_IO_INCOMPLETE, "Overlapped I/O event object not in signaled state.");
786     * TEXT_FOR_ERROR(WSA_NOT_ENOUGH_MEMORY, "Insufficient memory available.");
787     * TEXT_FOR_ERROR(WSAPROVIDERFAILEDINIT, "Unable to initialize a service provider.");
788     * TEXT_FOR_ERROR(WSASYSCALLFAILURE, "System call failure.");
789     * TEXT_FOR_ERROR(WSA_OPERATION_ABORTED, "Overlapped operation aborted.");
790     */
791
792    sprintf(tmp_buf, "(error number %d)", errcode);
793    return tmp_buf;
794 }
795 #endif /* def _WIN32 */
796
797
798 /*
799   Local Variables:
800   tab-width: 3
801   end:
802 */