libc/inet/rpc/clnt_perror.c

   1 /* @(#)clnt_perror.c    2.1 88/07/29 4.0 RPCSRC */
   2 /*
   3  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
   4  * unrestricted use provided that this legend is included on all tape
   5  * media and as a part of the software program in whole or part.  Users
   6  * may copy or modify Sun RPC without charge, but are not authorized
   7  * to license or distribute it to anyone else except as part of a product or
   8  * program developed by the user.
   9  *
  10  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  11  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  12  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  13  *
  14  * Sun RPC is provided with no support and without any obligation on the
  15  * part of Sun Microsystems, Inc. to assist in its use, correction,
  16  * modification or enhancement.
  17  *
  18  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  19  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  20  * OR ANY PART THEREOF.
  21  *
  22  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  23  * or profits or other special, indirect and consequential damages, even if
  24  * Sun has been advised of the possibility of such damages.
  25  *
  26  * Sun Microsystems, Inc.
  27  * 2550 Garcia Avenue
  28  * Mountain View, California  94043
  29  */
  30 #if 0
  31 static char sccsid[] = "@(#)clnt_perror.c 1.15 87/10/07 Copyr 1984 Sun Micro";
  32 #endif
  33
  34 /*
  35  * clnt_perror.c
  36  *
  37  * Copyright (C) 1984, Sun Microsystems, Inc.
  38  *
  39  */
  40
  41 #define __FORCE_GLIBC
  42 #include <features.h>
  43
  44 #include <stdio.h>
  45 #include <string.h>
  46 #include "rpc_private.h"
  47
  48 #ifdef USE_IN_LIBIO
  49 # include <wchar.h>
  50 # include <libio/iolibio.h>
  51 # define fputs(s, f) _IO_fputs (s, f)
  52 #endif
  53
  54 libc_hidden_proto(strcpy)
  55 libc_hidden_proto(strlen)
  56 libc_hidden_proto(sprintf)
  57 libc_hidden_proto(__glibc_strerror_r)
  58 libc_hidden_proto(fputs)
  59 #ifdef USE_IN_LIBIO
  60 libc_hidden_proto(fwprintf)
  61 #endif
  62
  63 static char *auth_errmsg (enum auth_stat stat) internal_function;
  64
  65 #ifdef __UCLIBC_HAS_THREADS__
  66 /*
  67  * Making buf a preprocessor macro requires renaming the local
  68  * buf variable in a few functions.  Overriding a global variable
  69  * with a local variable of the same name is a bad idea, anyway.
  70  */
  71 #define buf (*(char **)&RPC_THREAD_VARIABLE(clnt_perr_buf_s))
  72 #else
  73 static char *buf;
  74 #endif
  75
  76 static char *
  77 _buf (void)
  78 {
  79   if (buf == NULL)
  80     buf = (char *) malloc (256);
  81   return buf;
  82 }
  83
  84 struct rpc_errtab
  85 {
  86   enum clnt_stat status;
  87   unsigned int message_off;
  88 };
  89
  90 static const char rpc_errstr[] =
  91 {
  92 #define RPC_SUCCESS_IDX         0
  93   _("RPC: Success")
  94   "\0"
  95 #define RPC_CANTENCODEARGS_IDX  (RPC_SUCCESS_IDX + sizeof "RPC: Success")
  96   _("RPC: Can't encode arguments")
  97   "\0"
  98 #define RPC_CANTDECODERES_IDX   (RPC_CANTENCODEARGS_IDX \
  99                                  + sizeof "RPC: Can't encode arguments")
 100   _("RPC: Can't decode result")
 101   "\0"
 102 #define RPC_CANTSEND_IDX        (RPC_CANTDECODERES_IDX \
 103                                  + sizeof "RPC: Can't decode result")
 104   _("RPC: Unable to send")
 105   "\0"
 106 #define RPC_CANTRECV_IDX        (RPC_CANTSEND_IDX \
 107                                  + sizeof "RPC: Unable to send")
 108   _("RPC: Unable to receive")
 109   "\0"
 110 #define RPC_TIMEDOUT_IDX        (RPC_CANTRECV_IDX \
 111                                  + sizeof "RPC: Unable to receive")
 112   _("RPC: Timed out")
 113   "\0"
 114 #define RPC_VERSMISMATCH_IDX    (RPC_TIMEDOUT_IDX \
 115                                  + sizeof "RPC: Timed out")
 116   _("RPC: Incompatible versions of RPC")
 117   "\0"
 118 #define RPC_AUTHERROR_IDX       (RPC_VERSMISMATCH_IDX \
 119                                  + sizeof "RPC: Incompatible versions of RPC")
 120   _("RPC: Authentication error")
 121   "\0"
 122 #define RPC_PROGUNAVAIL_IDX             (RPC_AUTHERROR_IDX \
 123                                  + sizeof "RPC: Authentication error")
 124   _("RPC: Program unavailable")
 125   "\0"
 126 #define RPC_PROGVERSMISMATCH_IDX (RPC_PROGUNAVAIL_IDX \
 127                                   + sizeof "RPC: Program unavailable")
 128   _("RPC: Program/version mismatch")
 129   "\0"
 130 #define RPC_PROCUNAVAIL_IDX     (RPC_PROGVERSMISMATCH_IDX \
 131                                  + sizeof "RPC: Program/version mismatch")
 132   _("RPC: Procedure unavailable")
 133   "\0"
 134 #define RPC_CANTDECODEARGS_IDX  (RPC_PROCUNAVAIL_IDX \
 135                                  + sizeof "RPC: Procedure unavailable")
 136   _("RPC: Server can't decode arguments")
 137   "\0"
 138 #define RPC_SYSTEMERROR_IDX     (RPC_CANTDECODEARGS_IDX \
 139                                  + sizeof "RPC: Server can't decode arguments")
 140   _("RPC: Remote system error")
 141   "\0"
 142 #define RPC_UNKNOWNHOST_IDX     (RPC_SYSTEMERROR_IDX \
 143                                  + sizeof "RPC: Remote system error")
 144   _("RPC: Unknown host")
 145   "\0"
 146 #define RPC_UNKNOWNPROTO_IDX    (RPC_UNKNOWNHOST_IDX \
 147                                  + sizeof "RPC: Unknown host")
 148   _("RPC: Unknown protocol")
 149   "\0"
 150 #define RPC_PMAPFAILURE_IDX     (RPC_UNKNOWNPROTO_IDX \
 151                                  + sizeof "RPC: Unknown protocol")
 152   _("RPC: Port mapper failure")
 153   "\0"
 154 #define RPC_PROGNOTREGISTERED_IDX (RPC_PMAPFAILURE_IDX \
 155                                    + sizeof "RPC: Port mapper failure")
 156   _("RPC: Program not registered")
 157   "\0"
 158 #define RPC_FAILED_IDX          (RPC_PROGNOTREGISTERED_IDX \
 159                                  + sizeof "RPC: Program not registered")
 160   _("RPC: Failed (unspecified error)")
 161 };
 162
 163 static const struct rpc_errtab rpc_errlist[] =
 164 {
 165   { RPC_SUCCESS, RPC_SUCCESS_IDX },
 166   { RPC_CANTENCODEARGS, RPC_CANTENCODEARGS_IDX },
 167   { RPC_CANTDECODERES, RPC_CANTDECODERES_IDX },
 168   { RPC_CANTSEND, RPC_CANTSEND_IDX },
 169   { RPC_CANTRECV, RPC_CANTRECV_IDX },
 170   { RPC_TIMEDOUT, RPC_TIMEDOUT_IDX },
 171   { RPC_VERSMISMATCH, RPC_VERSMISMATCH_IDX },
 172   { RPC_AUTHERROR, RPC_AUTHERROR_IDX },
 173   { RPC_PROGUNAVAIL, RPC_PROGUNAVAIL_IDX },
 174   { RPC_PROGVERSMISMATCH, RPC_PROGVERSMISMATCH_IDX },
 175   { RPC_PROCUNAVAIL, RPC_PROCUNAVAIL_IDX },
 176   { RPC_CANTDECODEARGS, RPC_CANTDECODEARGS_IDX },
 177   { RPC_SYSTEMERROR, RPC_SYSTEMERROR_IDX },
 178   { RPC_UNKNOWNHOST, RPC_UNKNOWNHOST_IDX },
 179   { RPC_UNKNOWNPROTO, RPC_UNKNOWNPROTO_IDX },
 180   { RPC_PMAPFAILURE, RPC_PMAPFAILURE_IDX },
 181   { RPC_PROGNOTREGISTERED, RPC_PROGNOTREGISTERED_IDX },
 182   { RPC_FAILED, RPC_FAILED_IDX }
 183 };
 184
 185
 186 /*
 187  * This interface for use by clntrpc
 188  */
 189 char *
 190 clnt_sperrno (enum clnt_stat stat)
 191 {
 192   size_t i;
 193
 194   for (i = 0; i < sizeof (rpc_errlist) / sizeof (struct rpc_errtab); i++)
 195     {
 196       if (rpc_errlist[i].status == stat)
 197         {
 198           return (char*)_(rpc_errstr + rpc_errlist[i].message_off);
 199         }
 200     }
 201   return _("RPC: (unknown error code)");
 202 }
 203 libc_hidden_proto(clnt_sperrno)
 204 libc_hidden_def(clnt_sperrno)
 205
 206 void
 207 clnt_perrno (enum clnt_stat num)
 208 {
 209 #ifdef USE_IN_LIBIO
 210   if (_IO_fwide (stderr, 0) > 0)
 211     (void) fwprintf (stderr, L"%s", clnt_sperrno (num));
 212   else
 213 #endif
 214     (void) fputs (clnt_sperrno (num), stderr);
 215 }
 216
 217 /*
 218  * Print reply error info
 219  */
 220 char *
 221 clnt_sperror (CLIENT * rpch, const char *msg)
 222 {
 223   char chrbuf[1024];
 224   struct rpc_err e;
 225   char *err;
 226   char *str = _buf ();
 227   char *strstart = str;
 228   int len;
 229
 230   if (str == NULL)
 231     return NULL;
 232   CLNT_GETERR (rpch, &e);
 233
 234   len = sprintf (str, "%s: ", msg);
 235   str += len;
 236
 237   (void) strcpy(str, clnt_sperrno(e.re_status));
 238   str += strlen(str);
 239
 240   switch (e.re_status)
 241     {
 242     case RPC_SUCCESS:
 243     case RPC_CANTENCODEARGS:
 244     case RPC_CANTDECODERES:
 245     case RPC_TIMEDOUT:
 246     case RPC_PROGUNAVAIL:
 247     case RPC_PROCUNAVAIL:
 248     case RPC_CANTDECODEARGS:
 249     case RPC_SYSTEMERROR:
 250     case RPC_UNKNOWNHOST:
 251     case RPC_UNKNOWNPROTO:
 252     case RPC_PMAPFAILURE:
 253     case RPC_PROGNOTREGISTERED:
 254     case RPC_FAILED:
 255       break;
 256
 257     case RPC_CANTSEND:
 258     case RPC_CANTRECV:
 259       __glibc_strerror_r (e.re_errno, chrbuf, sizeof chrbuf);
 260       len = sprintf (str, "; errno = %s", chrbuf);
 261       str += len;
 262       break;
 263
 264     case RPC_VERSMISMATCH:
 265       len= sprintf (str, _("; low version = %lu, high version = %lu"),
 266                     e.re_vers.low, e.re_vers.high);
 267       str += len;
 268       break;
 269
 270     case RPC_AUTHERROR:
 271       err = auth_errmsg (e.re_why);
 272       (void) strcpy(str, _("; why = "));
 273       str += strlen(str);
 274
 275       if (err != NULL)
 276         {
 277           (void) strcpy(str, err);
 278           str += strlen(str);
 279         }
 280       else
 281         {
 282           len = sprintf (str, _("(unknown authentication error - %d)"),
 283                          (int) e.re_why);
 284           str += len;
 285         }
 286       break;
 287
 288     case RPC_PROGVERSMISMATCH:
 289       len = sprintf (str, _("; low version = %lu, high version = %lu"),
 290                      e.re_vers.low, e.re_vers.high);
 291       str += len;
 292       break;
 293
 294     default:                    /* unknown */
 295       len = sprintf (str, "; s1 = %lu, s2 = %lu", e.re_lb.s1, e.re_lb.s2);
 296       str += len;
 297       break;
 298     }
 299   *str = '\n';
 300   *++str = '\0';
 301   return (strstart);
 302 }
 303 libc_hidden_proto(clnt_sperror)
 304 libc_hidden_def(clnt_sperror)
 305
 306 void
 307 clnt_perror (CLIENT * rpch, const char *msg)
 308 {
 309 #ifdef USE_IN_LIBIO
 310   if (_IO_fwide (stderr, 0) > 0)
 311     (void) fwprintf (stderr, L"%s", clnt_sperror (rpch, msg));
 312   else
 313 #endif
 314     (void) fputs (clnt_sperror (rpch, msg), stderr);
 315 }
 316 libc_hidden_proto(clnt_perror)
 317 libc_hidden_def(clnt_perror)
 318
 319 char *
 320 clnt_spcreateerror (const char *msg)
 321 {
 322   char chrbuf[1024];
 323   char *str = _buf ();
 324   char *cp;
 325   int len;
 326   struct rpc_createerr *ce;
 327
 328   if (str == NULL)
 329     return NULL;
 330   ce = &get_rpc_createerr ();
 331   len = sprintf (str, "%s: ", msg);
 332   cp = str + len;
 333   (void) strcpy(cp, clnt_sperrno (ce->cf_stat));
 334   cp += strlen(cp);
 335
 336   switch (ce->cf_stat)
 337     {
 338     case RPC_PMAPFAILURE:
 339       (void) strcpy(cp, " - ");
 340       cp += strlen(cp);
 341
 342       (void) strcpy(cp, clnt_sperrno (ce->cf_error.re_status));
 343       cp += strlen(cp);
 344
 345       break;
 346
 347     case RPC_SYSTEMERROR:
 348       (void) strcpy(cp, " - ");
 349       cp += strlen(cp);
 350
 351       __glibc_strerror_r (ce->cf_error.re_errno, chrbuf, sizeof chrbuf);
 352       (void) strcpy(cp, chrbuf);
 353       cp += strlen(cp);
 354       break;
 355     default:
 356       break;
 357     }
 358   *cp = '\n';
 359   *++cp = '\0';
 360   return str;
 361 }
 362 libc_hidden_proto(clnt_spcreateerror)
 363 libc_hidden_def(clnt_spcreateerror)
 364
 365 void
 366 clnt_pcreateerror (const char *msg)
 367 {
 368 #ifdef USE_IN_LIBIO
 369   if (_IO_fwide (stderr, 0) > 0)
 370     (void) fwprintf (stderr, L"%s", clnt_spcreateerror (msg));
 371   else
 372 #endif
 373     (void) fputs (clnt_spcreateerror (msg), stderr);
 374 }
 375
 376 struct auth_errtab
 377 {
 378   enum auth_stat status;
 379   unsigned int message_off;
 380 };
 381
 382 static const char auth_errstr[] =
 383 {
 384 #define AUTH_OK_IDX             0
 385    _("Authentication OK")
 386    "\0"
 387 #define AUTH_BADCRED_IDX        (AUTH_OK_IDX + sizeof "Authentication OK")
 388    _("Invalid client credential")
 389    "\0"
 390 #define AUTH_REJECTEDCRED_IDX   (AUTH_BADCRED_IDX \
 391                                  + sizeof "Invalid client credential")
 392    _("Server rejected credential")
 393    "\0"
 394 #define AUTH_BADVERF_IDX        (AUTH_REJECTEDCRED_IDX \
 395                                  + sizeof "Server rejected credential")
 396    _("Invalid client verifier")
 397    "\0"
 398 #define AUTH_REJECTEDVERF_IDX   (AUTH_BADVERF_IDX \
 399                                  + sizeof "Invalid client verifier")
 400    _("Server rejected verifier")
 401    "\0"
 402 #define AUTH_TOOWEAK_IDX        (AUTH_REJECTEDVERF_IDX \
 403                                  + sizeof "Server rejected verifier")
 404    _("Client credential too weak")
 405    "\0"
 406 #define AUTH_INVALIDRESP_IDX    (AUTH_TOOWEAK_IDX \
 407                                  + sizeof "Client credential too weak")
 408    _("Invalid server verifier")
 409    "\0"
 410 #define AUTH_FAILED_IDX         (AUTH_INVALIDRESP_IDX \
 411                                  + sizeof "Invalid server verifier")
 412    _("Failed (unspecified error)")
 413 };
 414
 415 static const struct auth_errtab auth_errlist[] =
 416 {
 417   { AUTH_OK, AUTH_OK_IDX },
 418   { AUTH_BADCRED, AUTH_BADCRED_IDX },
 419   { AUTH_REJECTEDCRED, AUTH_REJECTEDCRED_IDX },
 420   { AUTH_BADVERF, AUTH_BADVERF_IDX },
 421   { AUTH_REJECTEDVERF, AUTH_REJECTEDVERF_IDX },
 422   { AUTH_TOOWEAK, AUTH_TOOWEAK_IDX },
 423   { AUTH_INVALIDRESP, AUTH_INVALIDRESP_IDX },
 424   { AUTH_FAILED, AUTH_FAILED_IDX }
 425 };
 426
 427 static char *
 428 internal_function
 429 auth_errmsg (enum auth_stat stat)
 430 {
 431   size_t i;
 432
 433   for (i = 0; i < sizeof (auth_errlist) / sizeof (struct auth_errtab); i++)
 434     {
 435       if (auth_errlist[i].status == stat)
 436         {
 437           return (char*)_(auth_errstr + auth_errlist[i].message_off);
 438         }
 439     }
 440   return NULL;
 441 }
 442
 443
 444 static void __attribute_used__
 445 free_mem (void)
 446 {
 447   free (buf);
 448 }