/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <strings.h>
#include <stdlib.h>
#include <netdir.h>
#include <errno.h>
#include <alloca.h>
#include <locale.h>
#include <uuid/uuid.h>

#include <sys/fm/protocol.h>
#include <fmd_adm_impl.h>
#include <fmd_rpc_adm.h>

static const uint_t _fmd_adm_bufsize = 128 * 1024;
static const char _url_fallback[] = "http://illumos.org/msg/";

fmd_adm_t *
fmd_adm_open(const char *host, uint32_t prog, int version)
{
        fmd_adm_t *ap;
        CLIENT *c;
        rpcvers_t v;

        if (version != FMD_ADM_VERSION) {
                errno = ENOTSUP;
                return (NULL);
        }

        if (host == NULL)
                host = HOST_SELF;

        if (prog == FMD_ADM_PROGRAM)
                prog = FMD_ADM;

        if ((ap = malloc(sizeof (fmd_adm_t))) == NULL)
                return (NULL);

        if (strcmp(host, HOST_SELF) == 0) {
                c = clnt_door_create(prog, FMD_ADM_VERSION_1, _fmd_adm_bufsize);
                ap->adm_maxretries = 1;
        } else {
                c = clnt_create_vers(host, prog, &v,
                    FMD_ADM_VERSION_1, FMD_ADM_VERSION_1, NULL);
                ap->adm_maxretries = 0;
        }

        if (c == NULL) {
                errno = EPROTO;
                free(ap);
                return (NULL);
        }

        ap->adm_prog = prog;
        ap->adm_clnt = c;
        ap->adm_version = version;
        ap->adm_svcerr = 0;
        ap->adm_errno = 0;

        return (ap);
}

void
fmd_adm_close(fmd_adm_t *ap)
{
        if (ap == NULL)
                return; /* permit NULL to simply caller code */

        clnt_destroy(ap->adm_clnt);
        free(ap);
}

static const char *
fmd_adm_svc_errmsg(enum fmd_adm_error err)
{
        switch (err) {
        case FMD_ADM_ERR_NOMEM:
                return ("unable to perform request due to allocation failure");
        case FMD_ADM_ERR_PERM:
                return ("operation requires additional privilege");
        case FMD_ADM_ERR_MODSRCH:
                return ("specified module is not loaded in fault manager");
        case FMD_ADM_ERR_MODBUSY:
                return ("module is in use and cannot be unloaded");
        case FMD_ADM_ERR_MODFAIL:
                return ("module failed and can no longer export statistics");
        case FMD_ADM_ERR_MODNOENT:
                return ("file missing or cannot be accessed by fault manager");
        case FMD_ADM_ERR_MODEXIST:
                return ("module using same name is already loaded");
        case FMD_ADM_ERR_MODINIT:
                return ("module failed to initialize (consult fmd(8) log)");
        case FMD_ADM_ERR_MODLOAD:
                return ("module failed to load (consult fmd(8) log)");
        case FMD_ADM_ERR_RSRCSRCH:
                return ("specified resource is not cached by fault manager");
        case FMD_ADM_ERR_RSRCNOTF:
                return ("specified resource is not known to be faulty");
        case FMD_ADM_ERR_SERDSRCH:
                return ("specified serd engine not present in module");
        case FMD_ADM_ERR_SERDFIRED:
                return ("specified serd engine has already fired");
        case FMD_ADM_ERR_ROTSRCH:
                return ("invalid log file name");
        case FMD_ADM_ERR_ROTFAIL:
                return ("failed to rotate log file (consult fmd(8) log)");
        case FMD_ADM_ERR_ROTBUSY:
                return ("log file is too busy to rotate (try again later)");
        case FMD_ADM_ERR_CASESRCH:
                return ("specified UUID is invalid or has been repaired");
        case FMD_ADM_ERR_CASEOPEN:
                return ("specified UUID is still being diagnosed");
        case FMD_ADM_ERR_XPRTSRCH:
                return ("specified transport ID is invalid or has been closed");
        case FMD_ADM_ERR_CASEXPRT:
                return ("specified UUID is owned by a different fault manager");
        case FMD_ADM_ERR_RSRCNOTR:
                return ("specified resource has not been replaced");
        default:
                return ("unknown fault manager error");
        }
}

const char *
fmd_adm_errmsg(fmd_adm_t *ap)
{
        if (ap == NULL) {
                switch (errno) {
                case ENOTSUP:
                        return ("client requires newer libfmd_adm version");
                case EPROTO:
                        return (clnt_spcreateerror("failed to connect to fmd"));
                }
        }

        switch (ap ? ap->adm_errno : errno) {
        case EPROTO:
                return (clnt_sperror(ap->adm_clnt, "rpc call failed"));
        case EREMOTE:
                return (fmd_adm_svc_errmsg(ap->adm_svcerr));
        default:
                return (strerror(ap->adm_errno));
        }
}

static int
fmd_adm_set_svcerr(fmd_adm_t *ap, enum fmd_adm_error err)
{
        if (err != 0) {
                ap->adm_svcerr = err;
                ap->adm_errno = EREMOTE;
                return (-1);
        } else {
                ap->adm_svcerr = err;
                ap->adm_errno = 0;
                return (0);
        }
}

static int
fmd_adm_set_errno(fmd_adm_t *ap, int err)
{
        ap->adm_errno = err;
        errno = err;
        return (-1);
}

static int
fmd_adm_stats_cmp(const void *lp, const void *rp)
{
        return (strcmp(((fmd_stat_t *)lp)->fmds_name,
            ((fmd_stat_t *)rp)->fmds_name));
}

/*
 * If the server (fmd) is restarted, this will cause all future door calls to
 * fail.  Unfortunately, once the server comes back up, we have no way of
 * reestablishing the connection.  To get around this, if the error indicates
 * that the RPC call failed, we reopen the client handle and try again.  For
 * simplicity we only deal with the door case, as it's unclear whether the
 * remote case suffers from the same pathology.
 */
boolean_t
fmd_adm_retry(fmd_adm_t *ap, enum clnt_stat cs, uint_t *retries)
{
        CLIENT *c;
        struct rpc_err err;

        if (cs == RPC_SUCCESS || *retries == ap->adm_maxretries)
                return (B_FALSE);

        clnt_geterr(ap->adm_clnt, &err);
        if (err.re_status != RPC_CANTSEND)
                return (B_FALSE);

        if ((c = clnt_door_create(ap->adm_prog, FMD_ADM_VERSION_1,
            _fmd_adm_bufsize)) == NULL)
                return (B_FALSE);

        (*retries)++;

        clnt_destroy(ap->adm_clnt);
        ap->adm_clnt = c;

        return (B_TRUE);
}

int
fmd_adm_stats_read(fmd_adm_t *ap, const char *name, fmd_adm_stats_t *sp)
{
        struct fmd_rpc_modstat rms;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (sp == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        bzero(&rms, sizeof (rms)); /* tell xdr to allocate memory for us */

        do {
                if (name != NULL)
                        cs = fmd_adm_modcstat_1((char *)name, &rms,
                            ap->adm_clnt);
                else
                        cs = fmd_adm_modgstat_1(&rms, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rms.rms_err != 0) {
                xdr_free(xdr_fmd_rpc_modstat, (char *)&rms);
                return (fmd_adm_set_svcerr(ap, rms.rms_err));
        }

        sp->ams_buf = rms.rms_buf.rms_buf_val;
        sp->ams_len = rms.rms_buf.rms_buf_len;

        if (sp->ams_len != 0) {
                qsort(sp->ams_buf, sp->ams_len,
                    sizeof (fmd_stat_t), fmd_adm_stats_cmp);
        }

        return (0);
}

int
fmd_adm_stats_free(fmd_adm_t *ap, fmd_adm_stats_t *sp)
{
        struct fmd_rpc_modstat rms;

        if (sp == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        rms.rms_buf.rms_buf_val = sp->ams_buf;
        rms.rms_buf.rms_buf_len = sp->ams_len;
        rms.rms_err = 0;

        xdr_free(xdr_fmd_rpc_modstat, (char *)&rms);
        bzero(sp, sizeof (fmd_adm_stats_t));

        return (0);
}

static int
fmd_adm_module_cmp(const void *lp, const void *rp)
{
        return (strcmp((*(struct fmd_rpc_modinfo **)lp)->rmi_name,
            (*(struct fmd_rpc_modinfo **)rp)->rmi_name));
}

int
fmd_adm_module_iter(fmd_adm_t *ap, fmd_adm_module_f *func, void *arg)
{
        struct fmd_rpc_modinfo *rmi, **rms, **rmp;
        struct fmd_rpc_modlist rml;
        fmd_adm_modinfo_t ami;
        enum clnt_stat cs;
        uint_t retries = 0;

        bzero(&rml, sizeof (rml)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_modinfo_1(&rml, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rml.rml_err != 0 || rml.rml_len == 0) {
                xdr_free(xdr_fmd_rpc_modlist, (char *)&rml);
                return (fmd_adm_set_svcerr(ap, rml.rml_err));
        }

        if ((rms = rmp = malloc(sizeof (void *) * rml.rml_len)) == NULL) {
                xdr_free(xdr_fmd_rpc_modlist, (char *)&rml);
                return (fmd_adm_set_errno(ap, EAGAIN));
        }

        for (rmi = rml.rml_list; rmi != NULL; rmi = rmi->rmi_next)
                *rmp++ = rmi; /* store copy of pointer in array for sorting */

        qsort(rms, rml.rml_len, sizeof (void *), fmd_adm_module_cmp);

        for (rmp = rms; rmp < rms + rml.rml_len; rmp++) {
                rmi = *rmp;

                ami.ami_name = rmi->rmi_name;
                ami.ami_desc = rmi->rmi_desc;
                ami.ami_vers = rmi->rmi_vers;
                ami.ami_flags = 0;

                if (rmi->rmi_faulty)
                        ami.ami_flags |= FMD_ADM_MOD_FAILED;

                if (func(&ami, arg) != 0)
                        break;
        }

        free(rms);
        xdr_free(xdr_fmd_rpc_modlist, (char *)&rml);
        return (0);
}

int
fmd_adm_module_load(fmd_adm_t *ap, const char *path)
{
        char *str = (char *)path;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (path == NULL || path[0] != '/')
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_modload_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_module_unload(fmd_adm_t *ap, const char *name)
{
        char *str = (char *)name;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (name == NULL || strchr(name, '/') != NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_modunload_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_module_reset(fmd_adm_t *ap, const char *name)
{
        char *str = (char *)name;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (name == NULL || strchr(name, '/') != NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_modreset_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_module_gc(fmd_adm_t *ap, const char *name)
{
        char *str = (char *)name;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (name == NULL || strchr(name, '/') != NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_modgc_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_module_stats(fmd_adm_t *ap, const char *name, fmd_adm_stats_t *sp)
{
        struct fmd_rpc_modstat rms;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (name == NULL || sp == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        bzero(&rms, sizeof (rms)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_moddstat_1((char *)name, &rms, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rms.rms_err != 0) {
                xdr_free(xdr_fmd_rpc_modstat, (char *)&rms);
                return (fmd_adm_set_svcerr(ap, rms.rms_err));
        }

        sp->ams_buf = rms.rms_buf.rms_buf_val;
        sp->ams_len = rms.rms_buf.rms_buf_len;

        return (0);
}

int
fmd_adm_rsrc_count(fmd_adm_t *ap, int all, uint32_t *rcp)
{
        struct fmd_rpc_rsrclist rrl;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (rcp == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        bzero(&rrl, sizeof (rrl)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_rsrclist_1(all, &rrl, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rrl.rrl_err != 0) {
                xdr_free(xdr_fmd_rpc_rsrclist, (char *)&rrl);
                return (fmd_adm_set_svcerr(ap, rrl.rrl_err));
        }

        *rcp = rrl.rrl_cnt;
        xdr_free(xdr_fmd_rpc_rsrclist, (char *)&rrl);
        return (0);
}

static int
fmd_adm_rsrc_cmp(const void *lp, const void *rp)
{
        return (strcmp(*(char **)lp, *(char **)rp));
}

int
fmd_adm_rsrc_iter(fmd_adm_t *ap, int all, fmd_adm_rsrc_f *func, void *arg)
{
        struct fmd_rpc_rsrclist rrl;
        struct fmd_rpc_rsrcinfo rri;
        fmd_adm_rsrcinfo_t ari;
        char **fmris, *p;
        int i, rv;
        enum clnt_stat cs;
        uint_t retries = 0;

        bzero(&rrl, sizeof (rrl)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_rsrclist_1(all, &rrl, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rrl.rrl_err != 0) {
                xdr_free(xdr_fmd_rpc_rsrclist, (char *)&rrl);
                return (fmd_adm_set_svcerr(ap, rrl.rrl_err));
        }

        if ((fmris = malloc(sizeof (char *) * rrl.rrl_cnt)) == NULL) {
                xdr_free(xdr_fmd_rpc_rsrclist, (char *)&rrl);
                return (fmd_adm_set_errno(ap, EAGAIN));
        }

        /*
         * The fmd_adm_rsrclist_1 request returns an opaque XDR buffer that is
         * a string table of FMRIs (e.g. "fmriA\0fmriB\0...") where rrl_cnt is
         * the number of strings in the table and rrl_buf_val is its address.
         * We construct an array of pointers into the string table and sort it.
         */
        p = rrl.rrl_buf.rrl_buf_val;

        for (i = 0; i < rrl.rrl_cnt; i++, p += strlen(p) + 1)
                fmris[i] = p; /* store fmri pointer in array for sorting */

        qsort(fmris, rrl.rrl_cnt, sizeof (char *), fmd_adm_rsrc_cmp);

        /*
         * For each FMRI in the resource cache snapshot, use fmd_adm_rsrcinfo_1
         * to get more information and the invoke the callback function.  If
         * FMD_ADM_ERR_RSRCSRCH is returned, the FMRI has been purged from the
         * cache since our snapshot: this error is therefore silently ignored.
         */
        for (i = 0; i < rrl.rrl_cnt; i++) {
                bzero(&rri, sizeof (rri));

                retries = 0;
                do {
                        cs = fmd_adm_rsrcinfo_1(fmris[i], &rri, ap->adm_clnt);
                } while (fmd_adm_retry(ap, cs, &retries));

                if (cs != RPC_SUCCESS) {
                        free(fmris);
                        xdr_free(xdr_fmd_rpc_rsrclist, (char *)&rrl);
                        return (fmd_adm_set_errno(ap, EPROTO));
                }

                if (rri.rri_err != 0 && rri.rri_err != FMD_ADM_ERR_RSRCSRCH) {
                        xdr_free(xdr_fmd_rpc_rsrcinfo, (char *)&rri);
                        free(fmris);
                        xdr_free(xdr_fmd_rpc_rsrclist, (char *)&rrl);
                        return (fmd_adm_set_svcerr(ap, rri.rri_err));
                }

                if (rri.rri_err == FMD_ADM_ERR_RSRCSRCH) {
                        xdr_free(xdr_fmd_rpc_rsrcinfo, (char *)&rri);
                        continue;
                }

                ari.ari_fmri = rri.rri_fmri;
                ari.ari_uuid = rri.rri_uuid;
                ari.ari_case = rri.rri_case;
                ari.ari_flags = 0;

                if (rri.rri_faulty)
                        ari.ari_flags |= FMD_ADM_RSRC_FAULTY;
                if (rri.rri_unusable)
                        ari.ari_flags |= FMD_ADM_RSRC_UNUSABLE;
                if (rri.rri_invisible)
                        ari.ari_flags |= FMD_ADM_RSRC_INVISIBLE;

                rv = func(&ari, arg);
                xdr_free(xdr_fmd_rpc_rsrcinfo, (char *)&rri);

                if (rv != 0)
                        break;
        }

        free(fmris);
        xdr_free(xdr_fmd_rpc_rsrclist, (char *)&rrl);
        return (0);
}

int
fmd_adm_rsrc_flush(fmd_adm_t *ap, const char *fmri)
{
        char *str = (char *)fmri;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (fmri == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_rsrcflush_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_rsrc_repaired(fmd_adm_t *ap, const char *fmri)
{
        char *str = (char *)fmri;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (fmri == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_rsrcrepaired_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_rsrc_replaced(fmd_adm_t *ap, const char *fmri)
{
        char *str = (char *)fmri;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (fmri == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_rsrcreplaced_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_rsrc_acquit(fmd_adm_t *ap, const char *fmri, const char *uuid)
{
        char *str = (char *)fmri;
        char *str2 = (char *)uuid;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (fmri == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_rsrcacquit_1(str, str2, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_case_repair(fmd_adm_t *ap, const char *uuid)
{
        char *str = (char *)uuid;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (uuid == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_caserepair_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_case_acquit(fmd_adm_t *ap, const char *uuid)
{
        char *str = (char *)uuid;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (uuid == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_caseacquit_1(str, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

static int
fmd_adm_case_cmp(const void *lp, const void *rp)
{
        return (strcmp(*(char **)lp, *(char **)rp));
}

static int
fmd_adm_case_one(fmd_adm_caseinfo_t *acp, const char *url_token,
    fmd_adm_case_f *func, void *arg)
{
        char *p, *urlcode, *dict, *olang;
        const char *url;
        size_t  len;

        if ((p = strchr(acp->aci_code, '-')) == NULL ||
            p == acp->aci_code) {
                acp->aci_url = NULL;
        } else {
                dict = alloca((size_t)(p - acp->aci_code) + 1);
                (void) strncpy(dict, acp->aci_code,
                    (size_t)(p - acp->aci_code));
                dict[(size_t)(p - acp->aci_code)] = '\0';

                /*
                 * If we're given a token to use in looking up the URL, try
                 * to use it.  Otherwise, or if we don't find it that way,
                 * use the fallback.
                 */
                if (url_token == NULL) {
                        url = _url_fallback;
                } else if ((url = dgettext(dict, url_token)) == url_token) {
                        /*
                         * We didn't find a translation in the
                         * dictionary for the current language.  Fall
                         * back to C and try again.
                         */
                        olang = setlocale(LC_MESSAGES, NULL);
                        (void) setlocale(LC_MESSAGES, "C");
                        if ((url = dgettext(dict, url_token)) == url_token)
                                url = _url_fallback;
                        (void) setlocale(LC_MESSAGES, olang);
                }
                len = strlen(url);
                if (url[len - 1] == '/') {
                        len += strlen(acp->aci_code) + 1;
                        urlcode = alloca(len);
                        (void) snprintf(urlcode, len, "%s%s", url,
                            acp->aci_code);
                } else {
                        urlcode = (char *)url;
                }
                acp->aci_url = urlcode;
        }

        return (func(acp, arg));
}

/*
 * Our approach to cases is the same as for resources: we first obtain a
 * list of UUIDs, sort them, then obtain the case information for each.
 */
int
fmd_adm_case_iter(fmd_adm_t *ap, const char *url_token, fmd_adm_case_f *func,
    void *arg)
{
        struct fmd_rpc_caselist rcl;
        struct fmd_rpc_caseinfo rci;
        fmd_adm_caseinfo_t aci;
        char **uuids, *p;
        int i, rv;
        enum clnt_stat cs;
        uint_t retries = 0;

        bzero(&rcl, sizeof (rcl)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_caselist_1(&rcl, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rcl.rcl_err != 0) {
                xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
                return (fmd_adm_set_svcerr(ap, rcl.rcl_err));
        }

        if ((uuids = malloc(sizeof (char *) * rcl.rcl_cnt)) == NULL) {
                xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
                return (fmd_adm_set_errno(ap, EAGAIN));
        }

        p = rcl.rcl_buf.rcl_buf_val;

        for (i = 0; i < rcl.rcl_cnt; i++, p += strlen(p) + 1)
                uuids[i] = p;

        qsort(uuids, rcl.rcl_cnt, sizeof (char *), fmd_adm_case_cmp);

        for (i = 0; i < rcl.rcl_cnt; i++) {
                bzero(&rci, sizeof (rci));

                retries = 0;
                do {
                        cs = fmd_adm_caseinfo_1(uuids[i], &rci, ap->adm_clnt);
                } while (fmd_adm_retry(ap, cs, &retries));

                if (cs != RPC_SUCCESS) {
                        free(uuids);
                        xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
                        return (fmd_adm_set_errno(ap, EPROTO));
                }

                if (rci.rci_err != 0 && rci.rci_err != FMD_ADM_ERR_CASESRCH) {
                        xdr_free(xdr_fmd_rpc_caseinfo, (char *)&rci);
                        free(uuids);
                        xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
                        return (fmd_adm_set_svcerr(ap, rci.rci_err));
                }

                if (rci.rci_err == FMD_ADM_ERR_CASESRCH) {
                        xdr_free(xdr_fmd_rpc_caseinfo, (char *)&rci);
                        continue;
                }

                bzero(&aci, sizeof (aci));

                if ((rv = nvlist_unpack(rci.rci_evbuf.rci_evbuf_val,
                    rci.rci_evbuf.rci_evbuf_len, &aci.aci_event, 0)) != 0) {
                        xdr_free(xdr_fmd_rpc_caseinfo, (char *)&rci);
                        free(uuids);
                        xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
                        return (fmd_adm_set_errno(ap, rv));
                }

                if ((rv = nvlist_lookup_string(aci.aci_event, FM_SUSPECT_UUID,
                    (char **)&aci.aci_uuid)) != 0) {
                        xdr_free(xdr_fmd_rpc_caseinfo, (char *)&rci);
                        free(uuids);
                        xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
                        nvlist_free(aci.aci_event);
                        return (fmd_adm_set_errno(ap, rv));
                }
                if ((rv = nvlist_lookup_string(aci.aci_event,
                    FM_SUSPECT_DIAG_CODE, (char **)&aci.aci_code)) != 0) {
                        xdr_free(xdr_fmd_rpc_caseinfo, (char *)&rci);
                        free(uuids);
                        xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
                        nvlist_free(aci.aci_event);
                        return (fmd_adm_set_errno(ap, rv));
                }

                rv = fmd_adm_case_one(&aci, url_token, func, arg);

                xdr_free(xdr_fmd_rpc_caseinfo, (char *)&rci);
                nvlist_free(aci.aci_event);

                if (rv != 0)
                        break;
        }

        free(uuids);
        xdr_free(xdr_fmd_rpc_caselist, (char *)&rcl);
        return (0);
}

static int
fmd_adm_serd_cmp(const void *lp, const void *rp)
{
        return (strcmp(*(char **)lp, *(char **)rp));
}

int
fmd_adm_serd_iter(fmd_adm_t *ap, const char *name,
    fmd_adm_serd_f *func, void *arg)
{
        struct fmd_rpc_serdlist rsl;
        struct fmd_rpc_serdinfo rsi;
        char **serds, *p;
        fmd_adm_serdinfo_t asi;
        enum clnt_stat cs;
        uint_t retries = 0;
        int i, rv;

        bzero(&rsl, sizeof (rsl)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_serdlist_1((char *)name, &rsl, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rsl.rsl_err != 0 || rsl.rsl_len == 0) {
                xdr_free(xdr_fmd_rpc_serdlist, (char *)&rsl);
                return (fmd_adm_set_svcerr(ap, rsl.rsl_err));
        }

        if ((serds = malloc(sizeof (char *) * rsl.rsl_cnt)) == NULL) {
                xdr_free(xdr_fmd_rpc_serdlist, (char *)&rsl);
                return (fmd_adm_set_errno(ap, EAGAIN));
        }

        p = rsl.rsl_buf.rsl_buf_val;

        for (i = 0; i < rsl.rsl_cnt; i++, p += strlen(p) + 1)
                serds[i] = p;

        qsort(serds, rsl.rsl_cnt, sizeof (char *), fmd_adm_serd_cmp);

        for (i = 0; i < rsl.rsl_cnt; i++) {
                bzero(&rsi, sizeof (rsi));

                retries = 0;
                do {
                        cs = fmd_adm_serdinfo_1((char *)name, serds[i], &rsi,
                            ap->adm_clnt);
                } while (fmd_adm_retry(ap, cs, &retries));

                if (cs != RPC_SUCCESS) {
                        free(serds);
                        xdr_free(xdr_fmd_rpc_serdlist, (char *)&rsl);
                        return (fmd_adm_set_errno(ap, EPROTO));
                }

                if (rsi.rsi_err != 0 && rsi.rsi_err != FMD_ADM_ERR_SERDSRCH) {
                        free(serds);
                        xdr_free(xdr_fmd_rpc_serdinfo, (char *)&rsi);
                        xdr_free(xdr_fmd_rpc_serdlist, (char *)&rsl);
                        return (fmd_adm_set_svcerr(ap, rsi.rsi_err));
                }

                if (rsi.rsi_err == FMD_ADM_ERR_SERDSRCH) {
                        xdr_free(xdr_fmd_rpc_serdinfo, (char *)&rsi);
                        continue;
                }

                bzero(&asi, sizeof (asi));

                asi.asi_name = rsi.rsi_name;
                asi.asi_delta = rsi.rsi_delta;
                asi.asi_n = rsi.rsi_n;
                asi.asi_t = rsi.rsi_t;
                asi.asi_count = rsi.rsi_count;
                asi.asi_flags = 0;

                if (rsi.rsi_fired)
                        asi.asi_flags |= FMD_ADM_SERD_FIRED;

                rv = func(&asi, arg);

                xdr_free(xdr_fmd_rpc_serdinfo, (char *)&rsi);

                if (rv != 0)
                        break;
        }

        free(serds);
        xdr_free(xdr_fmd_rpc_serdlist, (char *)&rsl);
        return (0);
}

int
fmd_adm_serd_reset(fmd_adm_t *ap, const char *mod, const char *name)
{
        char *s1 = (char *)mod, *s2 = (char *)name;
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (mod == NULL || name == NULL || strchr(mod, '/') != NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_serdreset_1(s1, s2, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

int
fmd_adm_xprt_iter(fmd_adm_t *ap, fmd_adm_xprt_f *func, void *arg)
{
        struct fmd_rpc_xprtlist rxl;
        uint_t i;
        enum clnt_stat cs;
        uint_t retries = 0;

        bzero(&rxl, sizeof (rxl)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_xprtlist_1(&rxl, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rxl.rxl_err != 0) {
                xdr_free(xdr_fmd_rpc_xprtlist, (char *)&rxl);
                return (fmd_adm_set_svcerr(ap, rxl.rxl_err));
        }

        for (i = 0; i < rxl.rxl_len; i++)
                func(rxl.rxl_buf.rxl_buf_val[i], arg);

        xdr_free(xdr_fmd_rpc_xprtlist, (char *)&rxl);
        return (0);
}

int
fmd_adm_xprt_stats(fmd_adm_t *ap, id_t id, fmd_adm_stats_t *sp)
{
        struct fmd_rpc_modstat rms;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (sp == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        bzero(&rms, sizeof (rms)); /* tell xdr to allocate memory for us */

        do {
                cs = fmd_adm_xprtstat_1(id, &rms, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        if (rms.rms_err != 0) {
                xdr_free(xdr_fmd_rpc_modstat, (char *)&rms);
                return (fmd_adm_set_svcerr(ap, rms.rms_err));
        }

        sp->ams_buf = rms.rms_buf.rms_buf_val;
        sp->ams_len = rms.rms_buf.rms_buf_len;

        return (0);
}

int
fmd_adm_log_rotate(fmd_adm_t *ap, const char *log)
{
        int err;
        enum clnt_stat cs;
        uint_t retries = 0;

        if (log == NULL)
                return (fmd_adm_set_errno(ap, EINVAL));

        do {
                cs = fmd_adm_logrotate_1((char *)log, &err, ap->adm_clnt);
        } while (fmd_adm_retry(ap, cs, &retries));

        if (cs != RPC_SUCCESS)
                return (fmd_adm_set_errno(ap, EPROTO));

        return (fmd_adm_set_svcerr(ap, err));
}

/*
 * Custom XDR routine for our API structure fmd_stat_t.  This function must
 * match the definition of fmd_stat_t in <fm/fmd_api.h> and must also match
 * the corresponding routine in usr/src/cmd/fm/fmd/common/fmd_rpc_adm.c.
 */
bool_t
xdr_fmd_stat(XDR *xp, fmd_stat_t *sp)
{
        bool_t rv = TRUE;

        rv &= xdr_opaque(xp, sp->fmds_name, sizeof (sp->fmds_name));
        rv &= xdr_u_int(xp, &sp->fmds_type);
        rv &= xdr_opaque(xp, sp->fmds_desc, sizeof (sp->fmds_desc));

        switch (sp->fmds_type) {
        case FMD_TYPE_BOOL:
                rv &= xdr_int(xp, &sp->fmds_value.bool);
                break;
        case FMD_TYPE_INT32:
                rv &= xdr_int32_t(xp, &sp->fmds_value.i32);
                break;
        case FMD_TYPE_UINT32:
                rv &= xdr_uint32_t(xp, &sp->fmds_value.ui32);
                break;
        case FMD_TYPE_INT64:
                rv &= xdr_int64_t(xp, &sp->fmds_value.i64);
                break;
        case FMD_TYPE_UINT64:
        case FMD_TYPE_TIME:
        case FMD_TYPE_SIZE:
                rv &= xdr_uint64_t(xp, &sp->fmds_value.ui64);
                break;
        case FMD_TYPE_STRING:
                rv &= xdr_string(xp, &sp->fmds_value.str, ~0);
                break;
        }

        return (rv);
}