/*      $NetBSD: clnt_perror.c,v 1.30 2013/03/11 20:19:29 tron Exp $    */

/*
* Copyright (c) 2010, Oracle America, Inc.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are
* met:
*
*     * Redistributions of source code must retain the above copyright
*       notice, this list of conditions and the following disclaimer.
*     * Redistributions in binary form must reproduce the above
*       copyright notice, this list of conditions and the following
*       disclaimer in the documentation and/or other materials
*       provided with the distribution.
*     * Neither the name of the "Oracle America, Inc." nor the names of its
*       contributors may be used to endorse or promote products derived
*       from this software without specific prior written permission.
*
*   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
*   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*   FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
*   COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
*   INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
*   DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
*   GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
*   INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
*   WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
*   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
*   OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/

#include <sys/cdefs.h>
#if defined(LIBC_SCCS) && !defined(lint)
#if 0
static char *sccsid = "@(#)clnt_perror.c 1.15 87/10/07 Copyr 1984 Sun Micro";
static char *sccsid = "@(#)clnt_perror.c        2.1 88/07/29 4.0 RPCSRC";
#else
__RCSID("$NetBSD: clnt_perror.c,v 1.30 2013/03/11 20:19:29 tron Exp $");
#endif
#endif

/*
* clnt_perror.c
*
* Copyright (C) 1984, Sun Microsystems, Inc.
*
*/
#include "namespace.h"

#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <rpc/rpc.h>
#include <rpc/types.h>
#include <rpc/auth.h>
#include <rpc/clnt.h>

#ifdef __weak_alias
__weak_alias(clnt_pcreateerror,_clnt_pcreateerror)
__weak_alias(clnt_perrno,_clnt_perrno)
__weak_alias(clnt_perror,_clnt_perror)
__weak_alias(clnt_spcreateerror,_clnt_spcreateerror)
__weak_alias(clnt_sperrno,_clnt_sperrno)
__weak_alias(clnt_sperror,_clnt_sperror)
#endif

static char *buf;
static size_t buflen;

static char *_buf(void);
static char *auth_errmsg(enum auth_stat);

static char *
_buf(void)
{

       buflen = 256;
       if (buf == 0)
               buf = malloc(buflen);
       return (buf);
}

/*
* Print reply error info
*/
char *
clnt_sperror(CLIENT *rpch, const char *s)
{
       struct rpc_err e;
       char *err;
       char *str;
       char *strstart;
       size_t len, i;

       _DIAGASSERT(rpch != NULL);
       _DIAGASSERT(s != NULL);

       str = _buf(); /* side effect: sets "buflen" */
       if (str == 0)
               return (0);
       len = buflen;
       strstart = str;
       CLNT_GETERR(rpch, &e);

       i = snprintf(str, len, "%s: ", s);
       str += i;
       len -= i;

       (void)strncpy(str, clnt_sperrno(e.re_status), len - 1);
       i = strlen(str);
       str += i;
       len -= i;

       switch (e.re_status) {
       case RPC_SUCCESS:
       case RPC_CANTENCODEARGS:
       case RPC_CANTDECODERES:
       case RPC_TIMEDOUT:
       case RPC_PROGUNAVAIL:
       case RPC_PROCUNAVAIL:
       case RPC_CANTDECODEARGS:
       case RPC_SYSTEMERROR:
       case RPC_UNKNOWNHOST:
       case RPC_UNKNOWNPROTO:
       case RPC_PMAPFAILURE:
       case RPC_PROGNOTREGISTERED:
       case RPC_FAILED:
               break;

       case RPC_CANTSEND:
       case RPC_CANTRECV:
               i = snprintf(str, len, "; errno = %s", strerror(e.re_errno));
               str += i;
               len -= i;
               break;

       case RPC_VERSMISMATCH:
               i = snprintf(str, len, "; low version = %u, high version = %u",
                       e.re_vers.low, e.re_vers.high);
               str += i;
               len -= i;
               break;

       case RPC_AUTHERROR:
               err = auth_errmsg(e.re_why);
               i = snprintf(str, len, "; why = ");
               str += i;
               len -= i;
               if (err != NULL) {
                       i = snprintf(str, len, "%s",err);
               } else {
                       i = snprintf(str, len,
                               "(unknown authentication error - %d)",
                               (int) e.re_why);
               }
               str += i;
               len -= i;
               break;

       case RPC_PROGVERSMISMATCH:
               i = snprintf(str, len, "; low version = %u, high version = %u",
                       e.re_vers.low, e.re_vers.high);
               str += i;
               len -= i;
               break;

       default:        /* unknown */
               i = snprintf(str, len, "; s1 = %u, s2 = %u",
                       e.re_lb.s1, e.re_lb.s2);
               str += i;
               len -= i;
               break;
       }
       return(strstart) ;
}

void
clnt_perror(CLIENT *rpch, const char *s)
{

       _DIAGASSERT(rpch != NULL);
       _DIAGASSERT(s != NULL);

       (void) fprintf(stderr, "%s\n", clnt_sperror(rpch,s));
}

static const char *const rpc_errlist[] = {
       [RPC_SUCCESS] =                 "RPC: Success",
       [RPC_CANTENCODEARGS] =          "RPC: Can't encode arguments",
       [RPC_CANTDECODERES] =           "RPC: Can't decode result",
       [RPC_CANTSEND] =                "RPC: Unable to send",
       [RPC_CANTRECV] =                "RPC: Unable to receive",
       [RPC_TIMEDOUT] =                "RPC: Timed out",
       [RPC_VERSMISMATCH] =            "RPC: Incompatible versions of RPC",
       [RPC_AUTHERROR] =               "RPC: Authentication error",
       [RPC_PROGUNAVAIL] =             "RPC: Program unavailable",
       [RPC_PROGVERSMISMATCH] =        "RPC: Program/version mismatch",
       [RPC_PROCUNAVAIL] =             "RPC: Procedure unavailable",
       [RPC_CANTDECODEARGS] =          "RPC: Server can't decode arguments",
       [RPC_SYSTEMERROR] =             "RPC: Remote system error",
       [RPC_UNKNOWNHOST] =             "RPC: Unknown host",
       [RPC_PMAPFAILURE] =             "RPC: Port mapper failure",
       [RPC_PROGNOTREGISTERED] =       "RPC: Program not registered",
       [RPC_FAILED] =                  "RPC: Failed (unspecified error)",
       [RPC_UNKNOWNPROTO] =            "RPC: Unknown protocol",
       [RPC_UNKNOWNADDR] =             "RPC: Remote address unknown",
       [RPC_TLIERROR] =                "RPC: Misc error in the TLI library",
       [RPC_NOBROADCAST] =             "RPC: Broadcasting not supported",
       [RPC_N2AXLATEFAILURE] =         "RPC: Name -> addr translation failed",
       [RPC_INPROGRESS] =              "RPC: In progress",
       [RPC_STALERACHANDLE] =          "RPC: Stale handle",
};


/*
* This interface for use by clntrpc
*/
char *
clnt_sperrno(enum clnt_stat stat)
{
       unsigned int errnum = stat;
       const char *msg;

       msg = NULL;
       if (errnum < (sizeof(rpc_errlist)/sizeof(rpc_errlist[0]))) {
               msg = rpc_errlist[errnum];
       }
       if (msg == NULL) {
               msg = "RPC: (unknown error code)";
       }
       return __UNCONST(msg);
}

void
clnt_perrno(enum clnt_stat num)
{
       (void) fprintf(stderr, "%s\n", clnt_sperrno(num));
}


char *
clnt_spcreateerror(const char *s)
{
       char *str;
       size_t len, i;

       _DIAGASSERT(s != NULL);

       str = _buf(); /* side effect: sets "buflen" */
       if (str == 0)
               return(0);
       len = buflen;
       i = snprintf(str, len, "%s: ", s);
       len -= i;
       (void)strncat(str, clnt_sperrno(rpc_createerr.cf_stat), len - 1);
       switch (rpc_createerr.cf_stat) {
       case RPC_PMAPFAILURE:
               (void) strncat(str, " - ", len - 1);
               (void) strncat(str,
                   clnt_sperrno(rpc_createerr.cf_error.re_status), len - 4);
               break;

       case RPC_SYSTEMERROR:
               (void)strncat(str, " - ", len - 1);
               (void)strncat(str, strerror(rpc_createerr.cf_error.re_errno),
                   len - 4);
               break;

       case RPC_CANTSEND:
       case RPC_CANTDECODERES:
       case RPC_CANTENCODEARGS:
       case RPC_SUCCESS:
       case RPC_UNKNOWNPROTO:
       case RPC_PROGNOTREGISTERED:
       case RPC_FAILED:
       case RPC_UNKNOWNHOST:
       case RPC_CANTDECODEARGS:
       case RPC_PROCUNAVAIL:
       case RPC_PROGVERSMISMATCH:
       case RPC_PROGUNAVAIL:
       case RPC_AUTHERROR:
       case RPC_VERSMISMATCH:
       case RPC_TIMEDOUT:
       case RPC_CANTRECV:
       default:
               break;
       }
       return (str);
}

void
clnt_pcreateerror(const char *s)
{

       _DIAGASSERT(s != NULL);

       (void) fprintf(stderr, "%s\n", clnt_spcreateerror(s));
}

static const char *const auth_errlist[] = {
       "Authentication OK",                    /* 0 - AUTH_OK */
       "Invalid client credential",            /* 1 - AUTH_BADCRED */
       "Server rejected credential",           /* 2 - AUTH_REJECTEDCRED */
       "Invalid client verifier",              /* 3 - AUTH_BADVERF */
       "Server rejected verifier",             /* 4 - AUTH_REJECTEDVERF */
       "Client credential too weak",           /* 5 - AUTH_TOOWEAK */
       "Invalid server verifier",              /* 6 - AUTH_INVALIDRESP */
       "Failed (unspecified error)"            /* 7 - AUTH_FAILED */
};

static char *
auth_errmsg(enum auth_stat stat)
{
       unsigned int errnum = stat;

       if (errnum < __arraycount(auth_errlist))
               return __UNCONST(auth_errlist[errnum]);

       return(NULL);
}