print/bsd-sysv-commands/lpstat.c

	lpstat.c revision 05eb9f24802bcc05bbb6e1ccdd8059b0b00f736b
/*
 * 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 2008 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 *
 */

/* $Id: lpstat.c 173 2006-05-25 04:52:06Z njacobs $ */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <locale.h>
#include <libintl.h>
#include <ctype.h>
#include <pwd.h>
#include <papi.h>
#include <uri.h>
#include "common.h"

static void
usage(char *program)
{
    char *name;

    if ((name = strrchr(program, '/')) == NULL)
        name = program;
    else
        name++;

    fprintf(stdout, gettext("Usage: %s [-d] [-r] [-s] [-t] [-a [list]] "
        "[-c [list]] [-o [list] [-l]] [-R [list] [-l]] "
        "[-p [list] [-D] [-l]] [-v [list]] [-S [list] [-l]] "
        "[-f [list] [-l]] [-u list]\n"),
        name);
    exit(1);
}

static char *
nctime(time_t *t)
{
    static char buf[64];
    struct tm *tm = localtime(t);

    (void) strftime(buf, sizeof (buf), "%c", tm);

    return (buf);
}

static char *
printer_name(papi_printer_t printer)
{
    papi_attribute_t **attributes = papiPrinterGetAttributeList(printer);
    char *result = NULL;

    if (attributes != NULL)
        papiAttributeListGetString(attributes, NULL,
                "printer-name", &result);

    return (result);
}

static int
lpstat_default_printer(papi_encryption_t encryption)
{
    papi_status_t status;
    papi_service_t svc = NULL;
    papi_printer_t p = NULL;
    char *name = NULL;

    status = papiServiceCreate(&svc, NULL, NULL, NULL, cli_auth_callback,
                    encryption, NULL);
    if (status == PAPI_OK) {
        char *req[] = { "printer-name", NULL };

        status = papiPrinterQuery(svc, DEFAULT_DEST, req, NULL, &p);
        if (p != NULL)
            name = printer_name(p);
    }
    if (name != NULL)
        printf(gettext("system default printer: %s\n"), name);
    else
        printf(gettext("no system default destination\n"));
    papiPrinterFree(p);
    papiServiceDestroy(svc);

    return (0);
}

static int
lpstat_service_status(papi_encryption_t encryption)
{
    int result = 0;
    papi_status_t status;
    papi_service_t svc = NULL;
    char *name = NULL;

    if (((name = getenv("PAPI_SERVICE_URI")) == NULL) &&
        ((name = getenv("IPP_SERVER")) == NULL) &&
        ((name = getenv("CUPS_SERVER")) == NULL))
        name = DEFAULT_SERVICE_URI;

    status = papiServiceCreate(&svc, name, NULL, NULL, cli_auth_callback,
                    encryption, NULL);
    if (status != PAPI_OK) {
        printf(gettext("scheduler is not running\n"));
        result = -1;
    } else
        printf(gettext("scheduler is running\n"));
    papiServiceDestroy(svc);

    return (result);
}

static char *
get_device_uri(papi_service_t svc, char *name)
{
    papi_status_t status;
    papi_printer_t p = NULL;
    char *keys[] = { "device-uri", NULL };
    char *result = NULL;

    status = papiPrinterQuery(svc, name, keys, NULL, &p);
    if ((status == PAPI_OK) && (p != NULL)) {
        papi_attribute_t **attrs = papiPrinterGetAttributeList(p);

        (void) papiAttributeListGetString(attrs, NULL,
                    "device-uri", &result);
        if (result != NULL)
            result = strdup(result);

        papiPrinterFree(p);
    }

    return (result);
}

static char *report_device_keys[] = { "printer-name", "printer-uri-supported",
                    NULL };
/* ARGSUSED2 */
static int
report_device(papi_service_t svc, char *name, papi_printer_t printer,
        int verbose, int description)
{
    papi_status_t status;
    papi_attribute_t **attrs = papiPrinterGetAttributeList(printer);
    char *uri = NULL;
    char *device = NULL;
    uri_t *u = NULL;

    if (name == NULL) {
        status = papiAttributeListGetString(attrs, NULL,
                    "printer-name", &name);
        if (status != PAPI_OK)
            status = papiAttributeListGetString(attrs, NULL,
                    "printer-uri-supported", &name);
    }

    if (name == NULL)
        return (-1);

    (void) papiAttributeListGetString(attrs, NULL,
                    "printer-uri-supported", &uri);

    if ((uri != NULL) && (uri_from_string(uri, &u) == 0)) {
        char *nodename = localhostname();

        if ((u->host == NULL) ||
            (strcasecmp(u->host, "localhost") == 0) ||
            (strcasecmp(u->host, nodename) == 0))
            device = get_device_uri(svc, name);

        if (device != NULL) {
            printf(gettext("device for %s: %s\n"), name, device);
            return (0);
        } else if (uri != NULL) {
            printf(gettext("system for %s: %s (as %s)\n"), name,
                u->host, uri);
            return (0);
        }

        uri_free(u);
    }

    return (0);
}

static char *report_accepting_keys[] = { "printer-name",
            "printer-uri-supported", "printer-is-accepting-jobs",
            "printer-up-time", "printer-state-time",
            "lpsched-reject-date", "lpsched-reject-reason", NULL };
/* ARGSUSED2 */
static int
report_accepting(papi_service_t svc, char *name, papi_printer_t printer,
        int verbose, int description)
{
    papi_status_t status;
    papi_attribute_t **attrs = papiPrinterGetAttributeList(printer);
    time_t curr;
    char boolean = PAPI_FALSE;

    if (name == NULL) {
        status = papiAttributeListGetString(attrs, NULL,
                    "printer-name", &name);
        if (status != PAPI_OK)
            status = papiAttributeListGetString(attrs, NULL,
                    "printer-uri-supported", &name);
    }
    if (name == NULL)
        return (-1);

    (void) papiAttributeListGetBoolean(attrs, NULL,
                "printer-is-accepting-jobs", &boolean);
    (void) time(&curr);
    (void) papiAttributeListGetDatetime(attrs, NULL,
                    "printer-up-time", &curr);
    (void) papiAttributeListGetDatetime(attrs, NULL,
                    "printer-state-time", &curr);
    (void) papiAttributeListGetDatetime(attrs, NULL,
                    "lpsched-reject-date", &curr);

    if (boolean == PAPI_TRUE) {
        printf(gettext("%s accepting requests since %s\n"),
            name, nctime(&curr));
    } else {
        char *reason = "unknown reason";

        (void) papiAttributeListGetString(attrs, NULL,
                    "lpsched-reject-reason", &reason);

        printf(gettext("%s not accepting requests since %s\n\t%s\n"),
            name, nctime(&curr), reason);
    }

    return (0);
}

static char *report_class_keys[] = { "printer-name", "printer-uri-supported",
                    "member-names", NULL };
/* ARGSUSED2 */
static int
report_class(papi_service_t svc, char *name, papi_printer_t printer,
        int verbose, int description)
{
    papi_status_t status;
    papi_attribute_t **attrs = papiPrinterGetAttributeList(printer);
    char *member = NULL;
    void *iter = NULL;

    status = papiAttributeListGetString(attrs, &iter,
                "member-names", &member);
    if (status == PAPI_NOT_FOUND)   /* it's not a class */
        return (0);

    if (name == NULL) {
        status = papiAttributeListGetString(attrs, NULL,
                    "printer-name", &name);
        if (status != PAPI_OK)
            status = papiAttributeListGetString(attrs, NULL,
                    "printer-uri-supported", &name);
    }
    if (name == NULL)
        return (-1);

    printf(gettext("members of class %s:\n\t%s\n"), name, member);
    while (papiAttributeListGetString(attrs, &iter, NULL, &member)
            == PAPI_OK)
        printf("\t%s\n", member);

    return (0);
}

static char *report_printer_keys[] = { "printer-name",
            "printer-uri-supported", "printer-state",
            "printer-up-time", "printer-state-time",
            "lpsched-disable-date", "printer-state-reasons",
            "lpsched-disable-reason", NULL };
/* ARGSUSED2 */
static int
report_printer(papi_service_t svc, char *name, papi_printer_t printer,
        int verbose, int description)
{
    papi_status_t status;
    papi_attribute_t **attrs = papiPrinterGetAttributeList(printer);
    time_t curr;
    int32_t pstat = 0;
    char *member = NULL;

    status = papiAttributeListGetString(attrs, NULL,
                "member-names", &member);
    if (status == PAPI_OK)  /* it's a class */
        return (0);

    if (name == NULL) {
        status = papiAttributeListGetString(attrs, NULL,
                    "printer-name", &name);
        if (status != PAPI_OK)
            status = papiAttributeListGetString(attrs, NULL,
                    "printer-uri-supported", &name);
    }
    if (name == NULL)
        return (-1);

    printf(gettext("printer %s "), name);

    status = papiAttributeListGetInteger(attrs, NULL,
                    "printer-state", &pstat);

    switch (pstat) {
    case 0x03:  /* idle */
        printf(gettext("idle. enabled"));
        break;
    case 0x04: {    /* processing */
        char *requested[] = { "job-id", NULL };
        papi_job_t *j = NULL;
        int32_t jobid = 0;

        (void) papiPrinterListJobs(svc, name, requested, 0, 1, &j);
        if ((j != NULL) && (j[0] != NULL))
            jobid = papiJobGetId(j[0]);
        papiJobListFree(j);

        printf(gettext("now printing %s-%d. enabled"), name, jobid);
        }
        break;
    case 0x05:  /* stopped */
        printf(gettext("disabled"));
        break;
    default:
        printf(gettext("unknown state(0x%x)."), pstat);
        break;
    }

    (void) time(&curr);
    (void) papiAttributeListGetDatetime(attrs, NULL,
                    "printer-up-time", &curr);
    (void) papiAttributeListGetDatetime(attrs, NULL,
                    "printer-state-time", &curr);
    (void) papiAttributeListGetDatetime(attrs, NULL,
                    "lpsched-disable-date", &curr);
    printf(gettext(" since %s. available.\n"), nctime(&curr));

    if (pstat == 0x05) {
        char *reason = "unknown reason";

        (void) papiAttributeListGetString(attrs, NULL,
                    "printer-state-reasons", &reason);
        (void) papiAttributeListGetString(attrs, NULL,
                    "lpsched-disable-reason", &reason);
        printf(gettext("\t%s\n"), reason);
    }

    if (verbose == 1) {
        void *iter;
        char *str;

        str = "";
        (void) papiAttributeListGetString(attrs, NULL,
                    "form-ready", &str);
        printf(gettext("\tForm mounted: %s\n"), str);

        str = "";
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
                    "document-format-supported", &str);
        printf(gettext("\tContent types: %s"), str);
        while (papiAttributeListGetString(attrs, &iter, NULL, &str)
                == PAPI_OK)
            printf(", %s", str);
        printf("\n");

        str = "";
        (void) papiAttributeListGetString(attrs, NULL,
                    "printer-info", &str);
        printf(gettext("\tDescription: %s\n"), str);

        str = "";
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
            "lpsched-printer-type", &str);
        printf(gettext("\tPrinter types: %s"), str);
        while (papiAttributeListGetString(attrs, &iter, NULL, &str)
            == PAPI_OK)
            printf(", %s", str);
        printf("\n");

        str = "";
        (void) papiAttributeListGetString(attrs, NULL,
                    "lpsched-dial-info", &str);
        printf(gettext("\tConnection: %s\n"),
            ((str[0] != '\0') ? gettext("direct") : str));

        str = "";
        (void) papiAttributeListGetString(attrs, NULL,
                    "lpsched-interface-script", &str);
        printf(gettext("\tInterface: %s\n"), str);

        str = NULL;
        (void) papiAttributeListGetString(attrs, NULL,
                    "ppd-file-uri", &str);
        (void) papiAttributeListGetString(attrs, NULL,
                    "lpsched-ppd-source-path", &str);
        if (str != NULL)
            printf(gettext("\tPPD: %s\n"), str);

        str = NULL;
        (void) papiAttributeListGetString(attrs, NULL,
                    "lpsched-fault-alert-command", &str);
        if (str != NULL)
            printf(gettext("\tOn fault: %s\n"), str);

        str = "";
        (void) papiAttributeListGetString(attrs, NULL,
                    "lpsched-fault-recovery", &str);
        printf(gettext("\tAfter fault: %s\n"),
            ((str[0] == '\0') ? gettext("continue") : str));

        str = "(all)";
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
                    "requesting-user-name-allowed", &str);
        printf(gettext("\tUsers allowed:\n\t\t%s\n"),
            ((str[0] == '\0') ? gettext("(none)") : str));
        if ((str != NULL) && (str[0] != '\0'))
            while (papiAttributeListGetString(attrs, &iter, NULL,
                    &str) == PAPI_OK)
                printf("\t\t%s\n", str);

        str = NULL;
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
                    "requesting-user-name-denied", &str);
        if (str != NULL) {
            printf(gettext("\tUsers denied:\n\t\t%s\n"),
                ((str[0] == '\0') ? gettext("(none)") : str));
            if ((str != NULL) && (str[0] != '\0'))
                while (papiAttributeListGetString(attrs, &iter,
                        NULL, &str) == PAPI_OK)
                    printf("\t\t%s\n", str);
        }

        str = "(none)";
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
                    "form-supported", &str);
        printf(gettext("\tForms allowed:\n\t\t%s\n"),
            ((str[0] == '\0') ? gettext("(none)") : str));
        if ((str != NULL) && (str[0] != '\0'))
            while (papiAttributeListGetString(attrs, &iter, NULL,
                    &str) == PAPI_OK)
                printf("\t\t%s\n", str);

        str = "";
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
                    "media-supported", &str);
        printf(gettext("\tMedia supported:\n\t\t%s\n"),
            ((str[0] == '\0') ? gettext("(none)") : str));
        if ((str != NULL) && (str[0] != '\0'))
            while (papiAttributeListGetString(attrs, &iter, NULL,
                    &str) == PAPI_OK)
                printf("\t\t%s\n", str);

        str = "";
        (void) papiAttributeListGetString(attrs, NULL,
                    "job-sheets-supported", &str);
        if ((strcasecmp(str, "none")) == 0)
            str = gettext("page never printed");
        else if (strcasecmp(str, "optional") == 0)
            str = gettext("not required");
        else
            str = gettext("required");

        printf(gettext("\tBanner %s\n"), str);


        str = "";
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
                    "lpsched-print-wheels", &str);
        printf(gettext("\tCharacter sets:\n\t\t%s\n"),
            ((str[0] == '\0') ? gettext("(none)") : str));
        if ((str != NULL) && (str[0] != '\0'))
            while (papiAttributeListGetString(attrs, &iter, NULL,
                    &str) == PAPI_OK)
                printf("\t\t%s\n", str);

        printf(gettext("\tDefault pitch:\n"));
        printf(gettext("\tDefault page size:\n"));
        printf(gettext("\tDefault port setting:\n"));

        str = "";
        iter = NULL;
        (void) papiAttributeListGetString(attrs, &iter,
                    "lpsched-options", &str);
        if (str != NULL) {
            printf(gettext("\tOptions: %s"), str);
            while (papiAttributeListGetString(attrs, &iter, NULL,
                        &str) == PAPI_OK)
                printf(", %s", str);
            printf("\n");
        }

    } else if (description == 1) {
        char *str = "";
        (void) papiAttributeListGetString(attrs, NULL,
                    "printer-description", &str);
        printf(gettext("\tDescription: %s\n"), str);
    } else if (verbose > 1)
        papiAttributeListPrint(stdout, attrs, "\t");

    if (verbose > 0)
        printf("\n");

    return (0);
}

static int
printer_query(char *name, int (*report)(papi_service_t, char *, papi_printer_t,
                    int, int), papi_encryption_t encryption,
        int verbose, int description)
{
    int result = 0;
    papi_status_t status;
    papi_service_t svc = NULL;

    status = papiServiceCreate(&svc, name, NULL, NULL, cli_auth_callback,
                    encryption, NULL);
    if (status != PAPI_OK) {
        if (status == PAPI_NOT_FOUND)
            fprintf(stderr, gettext("%s: unknown printer\n"),
                name ? name : "(NULL)");
        else
            fprintf(stderr, gettext(
                "Failed to contact service for %s: %s\n"),
                name ? name : "(NULL)",
                verbose_papi_message(svc, status));
        papiServiceDestroy(svc);
        return (-1);
    }

    if (name == NULL) { /* all */
        char **interest = interest_list(svc);

        if (interest != NULL) {
            int i;

            for (i = 0; interest[i] != NULL; i++)
                result += printer_query(interest[i], report,
                            encryption, verbose,
                            description);
        }
    } else {
        papi_printer_t printer = NULL;
        char **keys = NULL;

        /*
         * Limit the query to only required data to reduce the need
         * to go remote for information.
         */
        if (report == report_device)
            keys = report_device_keys;
        else if (report == report_class)
            keys = report_class_keys;
        else if (report == report_accepting)
            keys = report_accepting_keys;
        else if ((report == report_printer) && (verbose == 0))
            keys = report_printer_keys;

        status = papiPrinterQuery(svc, name, keys, NULL, &printer);
        if (status != PAPI_OK) {
            fprintf(stderr, gettext(
                "Failed to get printer info for %s: %s\n"),
                name, verbose_papi_message(svc, status));
            papiServiceDestroy(svc);
            return (-1);
        }

        if (printer != NULL)
            result = report(svc, name, printer, verbose,
                    description);

        papiPrinterFree(printer);
    }

    papiServiceDestroy(svc);

    return (result);
}

static int
match_user(char *user, char **list)
{
    int i;

    for (i = 0; list[i] != NULL; i++) {
        if (strcmp(user, list[i]) == 0)
            return (0);
    }

    return (-1);
}

static char **users = NULL;

static int
report_job(papi_job_t job, int show_rank, int verbose)
{
    papi_attribute_t **attrs = papiJobGetAttributeList(job);
    time_t clock = 0;
    char date[24];
    char request[26];
    char *user = "unknown";
    int32_t size = 0;
    int32_t jstate = 0;

    char *destination = "unknown";
    int32_t id = -1;

    (void) papiAttributeListGetString(attrs, NULL,
                "job-originating-user-name", &user);

    if ((users != NULL) && (match_user(user, users) < 0))
        return (0);

    (void) papiAttributeListGetInteger(attrs, NULL, "job-k-octets", &size);
    size *= 1024;   /* for the approximate byte size */
    (void) papiAttributeListGetInteger(attrs, NULL, "job-octets", &size);

    (void) time(&clock);
    (void) papiAttributeListGetInteger(attrs, NULL,
                "time-at-creation", (int32_t *)&clock);
    (void) strftime(date, sizeof (date), "%b %d %R", localtime(&clock));

    (void) papiAttributeListGetString(attrs, NULL,
                "job-printer-uri", &destination);
    (void) papiAttributeListGetString(attrs, NULL,
                "printer-name", &destination);
    (void) papiAttributeListGetInteger(attrs, NULL,
                "job-id", &id);
    snprintf(request, sizeof (request), "%s-%d", destination, id);

    if (show_rank != 0) {
        int32_t rank = -1;

        (void) papiAttributeListGetInteger(attrs, NULL,
                "number-of-intervening-jobs", &rank);
        rank++;

        printf("%3d %-21s %-14s %7ld %s",
            rank, request, user, size, date);
    } else
        printf("%-23s %-14s %7ld   %s", request, user, size, date);

    (void) papiAttributeListGetInteger(attrs, NULL,
                "job-state", &jstate);
    if (jstate == 0x04)
        printf(gettext(", being held"));
    else if (jstate == 0x07)
        printf(gettext(", cancelled"));
    else if (jstate == 0x09)
        printf(gettext(", complete"));

    if (verbose == 1) {
        char *form = NULL;

        (void) papiAttributeListGetString(attrs, NULL,
                "output-device-assigned", &destination);
        printf("\n\t assigned %s", destination);

        (void) papiAttributeListGetString(attrs, NULL, "form", &form);
        if (form != NULL)
            printf(", form %s", form);
    } else if (verbose > 1) {
        printf("\n");
        papiAttributeListPrint(stdout, attrs, "\t");
    }

    printf("\n");

    return (0);
}

static int
job_query(char *request, int (*report)(papi_job_t, int, int),
        papi_encryption_t encryption, int show_rank, int verbose)
{
    int result = 0;
    papi_status_t status;
    papi_service_t svc = NULL;
    char *printer = NULL;
    int32_t id = -1;

    get_printer_id(request, &printer, &id);

    status = papiServiceCreate(&svc, printer, NULL, NULL, cli_auth_callback,
                    encryption, NULL);
    if (status != PAPI_OK) {
        fprintf(stderr, gettext(
            "Failed to contact service for %s: %s\n"),
            (printer ? printer : "all"),
            verbose_papi_message(svc, status));
        return (-1);
    }

    if (printer == NULL) { /* all */
        char **interest = interest_list(svc);

        if (interest != NULL) {
            int i;

            for (i = 0; interest[i] != NULL; i++)
                result += job_query(interest[i], report,
                        encryption, show_rank, verbose);
        }
    } else if (id == -1) { /* a printer */
        papi_job_t *jobs = NULL;

        status = papiPrinterListJobs(svc, printer, NULL, 0, 0, &jobs);
        if (status != PAPI_OK) {
            fprintf(stderr, gettext(
                "Failed to get job list: %s\n"),
                verbose_papi_message(svc, status));
            papiServiceDestroy(svc);
            return (-1);
        }

        if (jobs != NULL) {
            int i;

            for (i = 0; jobs[i] != NULL; i++)
                result += report(jobs[i], show_rank, verbose);
        }

        papiJobListFree(jobs);
    } else {    /* a job */
        papi_job_t job = NULL;

        status = papiJobQuery(svc, printer, id, NULL, &job);
        if (status != PAPI_OK) {
            fprintf(stderr, gettext(
                "Failed to get job info for %s: %s\n"),
                request, verbose_papi_message(svc, status));
            papiServiceDestroy(svc);
            return (-1);
        }

        if (job != NULL)
            result = report(job, show_rank, verbose);

        papiJobFree(job);
    }

    papiServiceDestroy(svc);

    return (result);
}

static int
report_form(char *name, papi_attribute_t **attrs, int verbose)
{
    papi_status_t status;
    char *form = NULL;
    void *iter = NULL;

    for (status = papiAttributeListGetString(attrs, &iter,
                    "form-supported", &form);
        status == PAPI_OK;
        status = papiAttributeListGetString(attrs, &iter,
                            NULL, &form)) {
        if ((name == NULL) || (strcmp(name, form) == 0)) {
            printf(gettext("form %s is available to you\n"), form);
            if (verbose != 0) {
                char *detail = NULL;
                status = papiAttributeListGetString(attrs, NULL,
                        "form-supported-detail",
                        &detail);
                if (status == PAPI_OK)
                    printf("%s\n", detail);
            }
        }
    }

    return (0);
}

static int
report_print_wheels(char *name, papi_attribute_t **attrs, int verbose)
{
    papi_status_t status;
    char *pw = NULL;
    void *iter = NULL;

    for (status = papiAttributeListGetString(attrs, &iter,
                    "pw-supported", &pw);
        status == PAPI_OK;
        status = papiAttributeListGetString(attrs, &iter, NULL, &pw)) {
        if ((name == NULL) || (strcmp(name, pw) == 0)) {
            printf(gettext("charset %s is available\n"), pw);
            if (verbose != 0) {
                char *info = NULL;
                status = papiAttributeListGetString(attrs, NULL,
                        "pw-supported-extra", &info);
                if (status == PAPI_OK)
                    printf("%s\n", info);
            }
        }
    }

    return (0);
}

static int
service_query(char *name, int (*report)(char *, papi_attribute_t **, int),
        papi_encryption_t encryption, int verbose)
{
    int result = 0;
    papi_status_t status;
    papi_service_t svc = NULL;
    papi_attribute_t **attrs = NULL;

    status = papiServiceCreate(&svc, name, NULL, NULL, cli_auth_callback,
                    encryption, NULL);
    if (status != PAPI_OK) {
        papiServiceDestroy(svc);
        return (-1);
    }

    attrs = papiServiceGetAttributeList(svc);
    if (attrs != NULL) {
        result = report(name, attrs, verbose);

        if (verbose > 1) {
            printf("\n");
            papiAttributeListPrint(stdout, attrs, "\t");
            printf("\n");
        }
    }

    papiServiceDestroy(svc);

    return (result);
}

int
main(int ac, char *av[])
{
    int exit_code = 0;
    papi_encryption_t encryption = PAPI_ENCRYPT_NEVER;
    int rank = 0;
    int verbose = 0;
    int description = 0;
    int c;
    char **argv;

    (void) setlocale(LC_ALL, "");
    (void) textdomain("SUNW_OST_OSCMD");

    argv = (char **)calloc((ac + 1), sizeof (char *));
    for (c = 0; c < ac; c++) {
        if ((av[c][0] == '-') && (av[c][1] == 'l') &&
            (isalpha(av[c][2]) != 0)) {
            /* preserve old "-l[po...]" behavior */
            argv[c] = &av[c][1];
            argv[c][0] = '-';
            verbose = 1;

        } else
            argv[c] = av[c];
    }

    argv[c++] = "--";
    ac = c;

    /* preprocess argument list looking for '-l' or '-R' so it can trail */
    while ((c = getopt(ac, argv, "LEDf:S:stc:p:a:drs:v:l:o:R:u:")) != EOF)
        switch (c) {
        case 'l':
            if ((optarg == NULL) || (optarg[0] == '-'))
                optarg = "1";
            verbose = atoi(optarg);
            break;
        case 'D':
            description = 1;
            break;
        case 'R':
            rank = 1;
            break;
        case 'E':
            encryption = PAPI_ENCRYPT_REQUIRED;
            break;
        default:
            break;
        }
    optind = 1;

    /* process command line arguments */
    while ((c = getopt(ac, argv, "LEDf:S:stc:p:a:drs:v:l:o:R:u:")) != EOF) {
        switch (c) {    /* these may or may not have an option */
        case 'a':
        case 'c':
        case 'p':
        case 'o':
        case 'R':
        case 'u':
        case 'v':
        case 'l':
        case 'f':
        case 'S':
            if (optarg[0] == '-') {
                /* this check stop a possible infinite loop */
                if ((optind > 1) && (argv[optind-1][1] != c))
                    optind--;
                optarg = NULL;
            } else if (strcmp(optarg, "all") == 0)
                optarg = NULL;
        }

        switch (c) {
        case 'a':
            exit_code += printer_query(optarg, report_accepting,
                        encryption, verbose, 0);
            break;
        case 'c':
            exit_code += printer_query(optarg, report_class,
                        encryption, verbose, 0);
            break;
        case 'p':
            exit_code += printer_query(optarg, report_printer,
                        encryption, verbose,
                        description);
            break;
        case 'd':
            exit_code += lpstat_default_printer(encryption);
            break;
        case 'r':
            exit_code += lpstat_service_status(encryption);
            break;
        case 'u':
            if (optarg != NULL)
                users = strsplit(optarg, ", \n");
            exit_code += job_query(NULL, report_job,
                        encryption, rank, verbose);
            if (users != NULL) {
                free(users);
                users = NULL;
            }
            break;
        case 'v':
            exit_code += printer_query(optarg, report_device,
                        encryption, verbose, 0);
            break;
        case 'o':
            exit_code += job_query(optarg, report_job,
                        encryption, rank, verbose);
            break;
        case 'f':
            exit_code += service_query(optarg, report_form,
                        encryption, verbose);
            break;
        case 'S':
            exit_code += service_query(optarg, report_print_wheels,
                        encryption, verbose);
            break;
        case 's':
            exit_code += lpstat_service_status(encryption);
            exit_code += lpstat_default_printer(encryption);
            exit_code += printer_query(NULL, report_class,
                        encryption, verbose, 0);
            exit_code += printer_query(NULL, report_device,
                        encryption, verbose, 0);
            exit_code += service_query(optarg, report_form,
                        encryption, verbose);
            exit_code += service_query(optarg, report_print_wheels,
                        encryption, verbose);
            break;
        case 't':
            exit_code += lpstat_service_status(encryption);
            exit_code += lpstat_default_printer(encryption);
            exit_code += printer_query(NULL, report_class,
                        encryption, verbose, 0);
            exit_code += printer_query(NULL, report_device,
                        encryption, verbose, 0);
            exit_code += printer_query(NULL, report_accepting,
                        encryption, verbose, 0);
            exit_code += printer_query(NULL, report_printer,
                        encryption, verbose, 0);
            exit_code += service_query(optarg, report_form,
                        encryption, verbose);
            exit_code += service_query(optarg, report_print_wheels,
                        encryption, verbose);
            exit_code += job_query(NULL, report_job,
                        encryption, rank, verbose);
            break;
        case 'L':   /* local-only, ignored */
        case 'l':   /* increased verbose level in first pass */
        case 'D':   /* set "description" flag in first pass */
        case 'R':   /* set "rank" flag in first pass */
        case 'E':   /* set encryption in the first pass */
            break;
        default:
            usage(av[0]);
        }
    }
    ac--;

    if (ac == 1) {  /* report on my jobs */
        struct passwd *pw = getpwuid(getuid());

        if (pw != NULL)
            users = strsplit(pw->pw_name, "");
        exit_code += job_query(NULL, report_job, encryption,
                    rank, verbose);
        if (users != NULL) {
            free(users);
            users = NULL;
        }
    } else {
        for (c = optind; c < ac; c++)
            exit_code += job_query(argv[c], report_job, encryption,
                    rank, verbose);
    }


    if (exit_code != 0)
        exit_code = 1;

    return (exit_code);
}