workbench/network/stacks/AROSTCP/dhcp/omapip/errwarn.c

   1 /* errwarn.c
   2
   3    Errors and warnings... */
   4
   5 /*
   6  * Copyright (c) 1995 RadioMail Corporation.
   7  * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
   8  * Copyright (c) 1996-2003 by Internet Software Consortium
   9  *
  10  * Permission to use, copy, modify, and distribute this software for any
  11  * purpose with or without fee is hereby granted, provided that the above
  12  * copyright notice and this permission notice appear in all copies.
  13  *
  14  * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
  15  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  16  * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR
  17  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  18  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  19  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  20  * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  21  *
  22  *   Internet Systems Consortium, Inc.
  23  *   950 Charter Street
  24  *   Redwood City, CA 94063
  25  *   <info@isc.org>
  26  *   http://www.isc.org/
  27  *
  28  * This software was written for RadioMail Corporation by Ted Lemon
  29  * under a contract with Vixie Enterprises.   Further modifications have
  30  * been made for Internet Systems Consortium under a contract
  31  * with Vixie Laboratories.
  32  */
  33
  34 #if 0
  35 static char copyright[] =
  36 "$Id$ Copyright (c) 2004 Internet Systems Consortium.  All rights reserved.\n";
  37 #endif
  38
  39 #include <omapip/omapip_p.h>
  40 #include <errno.h>
  41
  42 #ifdef DEBUG
  43 int log_perror = -1;
  44 #else
  45 int log_perror = 1;
  46 #endif
  47 int log_priority;
  48 void (*log_cleanup) (void);
  49
  50 #define CVT_BUF_MAX 1023
  51 static char mbuf [CVT_BUF_MAX + 1];
  52 static char fbuf [CVT_BUF_MAX + 1];
  53
  54 /* Log an error message, then exit... */
  55
  56 void log_fatal (const char * fmt, ... )
  57 {
  58   va_list list;
  59
  60   do_percentm (fbuf, fmt);
  61
  62   /* %Audit% This is log output. %2004.06.17,Safe%
  63    * If we truncate we hope the user can get a hint from the log.
  64    */
  65   va_start (list, fmt);
  66   vsnprintf (mbuf, sizeof mbuf, fbuf, list);
  67   va_end (list);
  68
  69 #ifndef DEBUG
  70   syslog (log_priority | LOG_ERR, "%s", mbuf);
  71 #endif
  72
  73   /* Also log it to stderr? */
  74   if (log_perror) {
  75           write (STDERR_FILENO, mbuf, strlen (mbuf));
  76           write (STDERR_FILENO, "\n", 1);
  77   }
  78
  79 #if !defined (NOMINUM)
  80   log_error ("%s", "");
  81   log_error ("If you did not get this software from ftp.isc.org, please");
  82   log_error ("get the latest from ftp.isc.org and install that before");
  83   log_error ("requesting help.");
  84   log_error ("%s", "");
  85   log_error ("If you did get this software from ftp.isc.org and have not");
  86   log_error ("yet read the README, please read it before requesting help.");
  87   log_error ("If you intend to request help from the dhcp-server@isc.org");
  88   log_error ("mailing list, please read the section on the README about");
  89   log_error ("submitting bug reports and requests for help.");
  90   log_error ("%s", "");
  91   log_error ("Please do not under any circumstances send requests for");
  92   log_error ("help directly to the authors of this software - please");
  93   log_error ("send them to the appropriate mailing list as described in");
  94   log_error ("the README file.");
  95   log_error ("%s", "");
  96   log_error ("exiting.");
  97 #endif
  98   if (log_cleanup)
  99           (*log_cleanup) ();
 100   exit (1);
 101 }
 102
 103 /* Log an error message... */
 104
 105 int log_error (const char * fmt, ...)
 106 {
 107   va_list list;
 108
 109   do_percentm (fbuf, fmt);
 110
 111   /* %Audit% This is log output. %2004.06.17,Safe%
 112    * If we truncate we hope the user can get a hint from the log.
 113    */
 114   va_start (list, fmt);
 115   vsnprintf (mbuf, sizeof mbuf, fbuf, list);
 116   va_end (list);
 117
 118 #ifndef DEBUG
 119   syslog (log_priority | LOG_ERR, "%s", mbuf);
 120 #endif
 121
 122   if (log_perror) {
 123           write (STDERR_FILENO, mbuf, strlen (mbuf));
 124           write (STDERR_FILENO, "\n", 1);
 125   }
 126
 127   return 0;
 128 }
 129
 130 /* Log a note... */
 131
 132 int log_info (const char *fmt, ...)
 133 {
 134   va_list list;
 135
 136   do_percentm (fbuf, fmt);
 137
 138   /* %Audit% This is log output. %2004.06.17,Safe%
 139    * If we truncate we hope the user can get a hint from the log.
 140    */
 141   va_start (list, fmt);
 142   vsnprintf (mbuf, sizeof mbuf, fbuf, list);
 143   va_end (list);
 144
 145 #ifndef DEBUG
 146   syslog (log_priority | LOG_INFO, "%s", mbuf);
 147 #endif
 148
 149   if (log_perror) {
 150           write (STDERR_FILENO, mbuf, strlen (mbuf));
 151           write (STDERR_FILENO, "\n", 1);
 152   }
 153
 154   return 0;
 155 }
 156
 157 /* Log a debug message... */
 158
 159 int log_debug (const char *fmt, ...)
 160 {
 161   va_list list;
 162
 163   do_percentm (fbuf, fmt);
 164
 165   /* %Audit% This is log output. %2004.06.17,Safe%
 166    * If we truncate we hope the user can get a hint from the log.
 167    */
 168   va_start (list, fmt);
 169   vsnprintf (mbuf, sizeof mbuf, fbuf, list);
 170   va_end (list);
 171
 172 #ifndef DEBUG
 173   syslog (log_priority | LOG_DEBUG, "%s", mbuf);
 174 #endif
 175
 176   if (log_perror) {
 177           write (STDERR_FILENO, mbuf, strlen (mbuf));
 178           write (STDERR_FILENO, "\n", 1);
 179   }
 180
 181   return 0;
 182 }
 183
 184 /* Find %m in the input string and substitute an error message string. */
 185
 186 void do_percentm (obuf, ibuf)
 187      char *obuf;
 188      const char *ibuf;
 189 {
 190         const char *s = ibuf;
 191         char *p = obuf;
 192         int infmt = 0;
 193         const char *m;
 194         int len = 0;
 195
 196         while (*s) {
 197                 if (infmt) {
 198                         if (*s == 'm') {
 199 #ifndef __CYGWIN32__
 200                                 m = strerror (errno);
 201 #else
 202                                 m = pWSAError ();
 203 #endif
 204                                 if (!m)
 205                                         m = "<unknown error>";
 206                                 len += strlen (m);
 207                                 if (len > CVT_BUF_MAX)
 208                                         goto out;
 209                                 strcpy (p - 1, m);
 210                                 p += strlen (p);
 211                                 ++s;
 212                         } else {
 213                                 if (++len > CVT_BUF_MAX)
 214                                         goto out;
 215                                 *p++ = *s++;
 216                         }
 217                         infmt = 0;
 218                 } else {
 219                         if (*s == '%')
 220                                 infmt = 1;
 221                         if (++len > CVT_BUF_MAX)
 222                                 goto out;
 223                         *p++ = *s++;
 224                 }
 225         }
 226       out:
 227         *p = 0;
 228 }
 229
 230 #ifdef NO_STRERROR
 231 char *strerror (err)
 232         int err;
 233 {
 234         extern char *sys_errlist [];
 235         extern int sys_nerr;
 236         static char errbuf [128];
 237
 238         if (err < 0 || err >= sys_nerr) {
 239                 sprintf (errbuf, "Error %d", err);
 240                 return errbuf;
 241         }
 242         return sys_errlist [err];
 243 }
 244 #endif /* NO_STRERROR */
 245
 246 #ifdef _WIN32
 247 char *pWSAError ()
 248 {
 249   int err = WSAGetLastError ();
 250
 251   switch (err)
 252     {
 253     case WSAEACCES:
 254       return "Permission denied";
 255     case WSAEADDRINUSE:
 256       return "Address already in use";
 257     case WSAEADDRNOTAVAIL:
 258       return "Cannot assign requested address";
 259     case WSAEAFNOSUPPORT:
 260       return "Address family not supported by protocol family";
 261     case WSAEALREADY:
 262       return "Operation already in progress";
 263     case WSAECONNABORTED:
 264       return "Software caused connection abort";
 265     case WSAECONNREFUSED:
 266       return "Connection refused";
 267     case WSAECONNRESET:
 268       return "Connection reset by peer";
 269     case WSAEDESTADDRREQ:
 270       return "Destination address required";
 271     case WSAEFAULT:
 272       return "Bad address";
 273     case WSAEHOSTDOWN:
 274       return "Host is down";
 275     case WSAEHOSTUNREACH:
 276       return "No route to host";
 277     case WSAEINPROGRESS:
 278       return "Operation now in progress";
 279     case WSAEINTR:
 280       return "Interrupted function call";
 281     case WSAEINVAL:
 282       return "Invalid argument";
 283     case WSAEISCONN:
 284       return "Socket is already connected";
 285     case WSAEMFILE:
 286       return "Too many open files";
 287     case WSAEMSGSIZE:
 288       return "Message too long";
 289     case WSAENETDOWN:
 290       return "Network is down";
 291     case WSAENETRESET:
 292       return "Network dropped connection on reset";
 293     case WSAENETUNREACH:
 294       return "Network is unreachable";
 295     case WSAENOBUFS:
 296       return "No buffer space available";
 297     case WSAENOPROTOOPT:
 298       return "Bad protocol option";
 299     case WSAENOTCONN:
 300       return "Socket is not connected";
 301     case WSAENOTSOCK:
 302       return "Socket operation on non-socket";
 303     case WSAEOPNOTSUPP:
 304       return "Operation not supported";
 305     case WSAEPFNOSUPPORT:
 306       return "Protocol family not supported";
 307     case WSAEPROCLIM:
 308       return "Too many processes";
 309     case WSAEPROTONOSUPPORT:
 310       return "Protocol not supported";
 311     case WSAEPROTOTYPE:
 312       return "Protocol wrong type for socket";
 313     case WSAESHUTDOWN:
 314       return "Cannot send after socket shutdown";
 315     case WSAESOCKTNOSUPPORT:
 316       return "Socket type not supported";
 317     case WSAETIMEDOUT:
 318       return "Connection timed out";
 319     case WSAEWOULDBLOCK:
 320       return "Resource temporarily unavailable";
 321     case WSAHOST_NOT_FOUND:
 322       return "Host not found";
 323 #if 0
 324     case WSA_INVALID_HANDLE:
 325       return "Specified event object handle is invalid";
 326     case WSA_INVALID_PARAMETER:
 327       return "One or more parameters are invalid";
 328     case WSAINVALIDPROCTABLE:
 329       return "Invalid procedure table from service provider";
 330     case WSAINVALIDPROVIDER:
 331       return "Invalid service provider version number";
 332     case WSA_IO_PENDING:
 333       return "Overlapped operations will complete later";
 334     case WSA_IO_INCOMPLETE:
 335       return "Overlapped I/O event object not in signaled state";
 336     case WSA_NOT_ENOUGH_MEMORY:
 337       return "Insufficient memory available";
 338 #endif
 339     case WSANOTINITIALISED:
 340       return "Successful WSAStartup not yet performer";
 341     case WSANO_DATA:
 342       return "Valid name, no data record of requested type";
 343     case WSANO_RECOVERY:
 344       return "This is a non-recoverable error";
 345 #if 0
 346     case WSAPROVIDERFAILEDINIT:
 347       return "Unable to initialize a service provider";
 348     case WSASYSCALLFAILURE:
 349       return "System call failure";
 350 #endif
 351     case WSASYSNOTREADY:
 352       return "Network subsystem is unavailable";
 353     case WSATRY_AGAIN:
 354       return "Non-authoritative host not found";
 355     case WSAVERNOTSUPPORTED:
 356       return "WINSOCK.DLL version out of range";
 357     case WSAEDISCON:
 358       return "Graceful shutdown in progress";
 359 #if 0
 360     case WSA_OPERATION_ABORTED:
 361       return "Overlapped operation aborted";
 362 #endif
 363     }
 364   return "Unknown WinSock error";
 365 }
 366 #endif /* _WIN32 */