/*
 * 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 2010 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 *
 */

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


#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"
#include "lp.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)
{
        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"));
        } else
                printf(gettext("scheduler is running\n"));
        papiServiceDestroy(svc);

        return (0);
}

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 void
print_description(papi_attribute_t **list, char *printer_name)
{
        char *str = "";

        (void) papiAttributeListGetString(list, NULL,
            "printer-info", &str);

        /*
         * If no printer-info is read then
         * by default the printer-info is <printer-name>@<server>
         */
        if (str[0] == '\0') {
                char *uri = NULL;
                uri_t *u = NULL;

                (void) papiAttributeListGetString(list, 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))
                                printf(gettext("\tDescription:\n"));
                        else
                                printf(gettext("\tDescription: %s@%s\n"),
                                    printer_name, u->host);

                        uri_free(u);
                } else
                        printf(gettext("\tDescription:\n"));
        } else
                printf(gettext("\tDescription: %s\n"), str);
}

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?u->host:"localhost", 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 int
get_remote_hostname(papi_attribute_t **attrs, char **host)
{
        char *uri = NULL;
        uri_t *u;
        char *nodename;

        *host = NULL;
        (void) papiAttributeListGetString(attrs, NULL,
            "job-originating-host-name", host);
        (void) papiAttributeListGetString(attrs, NULL,
            "printer-uri-supported", &uri);
        if (*host == NULL) {
                if (uri != NULL) {
                        if (uri_from_string(uri, &u) == 0) {
                                if (u->host == NULL) {
                                        uri_free(u);
                                        return (0);
                                }
                                *host = strdup(u->host);
                                uri_free(u);
                        } else {
                                return (0);
                        }
                } else {
                        return (0);
                }
        }
        nodename = localhostname();
        if ((strcasecmp(*host, "localhost") == 0) ||
            (strcasecmp(*host, nodename) == 0)) {
                return (0);
        }
        return (1);
}

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;
        papi_job_t *j = 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("is idle. enabled"));
                break;
        case 0x04: /* processing */
        case 0x06: /* faulted printing */
                status = papiPrinterListJobs(svc, name, NULL,
                    0, 0, &j);

                if (status == PAPI_OK) {
                        if (j != NULL) {
                                int i = 0;
                                int32_t jobid = 0;
                                int32_t jstate = 0;

                                for (i = 0; j[i] != NULL; ++i) {
                                        papi_attribute_t **attr =
                                            papiJobGetAttributeList(j[i]);

                                        papiAttributeListGetInteger(attr,
                                            NULL, "job-state", &jstate);
                                        papiAttributeListGetInteger(attr,
                                            NULL, "job-id", &jobid);
                                        /*
                                         * For lpd protocol "job-id-requested"
                                         * should be read.
                                         */
                                        papiAttributeListGetInteger(attr,
                                            NULL, "job-id-requested", &jobid);

                                        /*
                                         * When lpd protocol is used job-state
                                         * cannot be retrieved, therefore
                                         * job-state will be 0.
                                         * When ipp protocol is used, the
                                         * active/printing job-state will be
                                         * RS_PRINTING (0x0008) post s10u5.
                                         * For pre-s10u5 job-state will be
                                         * RS_ACTIVE (0x05). So print only when
                                         * the job-state is RS_PRINTING (0x0008)
                                         * or RS_ACTIVE (0x05) or 0
                                         */
                                        if ((jstate == 0x0008) ||
                                            (jstate == 0x05) ||
                                            (jstate == 0)) {
                                                if (pstat == 0x04)
                                                        printf(gettext
                                                            ("now printing"\
                                                            " %s-%d. enabled"),
                                                            name, jobid);
                                                if (pstat == 0x06)
                                                        printf(gettext
                                                            ("faulted printing"\
                                                            " %s-%d. enabled"),
                                                            name, jobid);
                                                break;
                                        }
                                }
                                papiJobListFree(j);
                        }
                }
                break;
        case 0x05:      /* stopped */
                printf(gettext("disabled"));
                break;
        case 0x07:      /* faulted printer */
                printf(gettext("faulted. enabled"));
                break;
        case 0x08:      /* waiting for auto retry */
                printf(gettext("waiting for auto-retry."));
                break;
        default:
                printf(gettext("unknown state(0x%x)."), pstat);
                break;
        }

        if (pstat == 0x08)
                printf(gettext(" available.\n"));
        else {
                (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) ||
            (pstat == 0x06) ||
            (pstat == 0x07) ||
            (pstat == 0x08)) {
                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;
                char *host = NULL;

                if ((get_remote_hostname(attrs, &host)) != 0) {
                        (void) printf(
                            gettext("\tRemote Name: %s\n\tRemote Server: "
                            "%s\n"), name, host);
                        free(host);
                        return (0);
                }
                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");

                /* Display the printer description */
                print_description(attrs, name);

                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)
                /* Display printer description */
                print_description(attrs, name);
        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, i = 0;
        papi_status_t status;
        papi_service_t svc = NULL;
        char **list = getlist(name, LP_WS, LP_SEP);

        if (list == NULL) {
                list = (char **)malloc(sizeof (char *));
                list[0] = name;
        }

        /*
         * The for loop executes once for every printer
         * entry in list. If list is NULL that implies
         * name is also NULL, the loop runs only one time.
         */

        for (i = 0; name == NULL || list[i] != NULL; i++) {
                name = list[i];

                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);
                        result--;
                        continue;
                }

                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);
                                result--;
                                continue;
                        }

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

                        papiPrinterFree(printer);
                }

                papiServiceDestroy(svc);

                if (name == NULL)
                        break;
        }

        freelist(list);

        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(char *printer, 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";
        char *host = NULL;
        int32_t size = 0;
        int32_t jstate = 0;
        char User[50];

        char *destination = "unknown";
        int32_t id = -1;
        static int check = 0;
        static char *uri = NULL;
        static char *puri = NULL;       /* printer-uri */
        static char *pname = NULL;      /* printer-name */

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

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

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

        /*
         * When lpstat is called for multiple printers
         * internally the function 'report_job' gets
         * called multiple times with different printer-names.
         * The following block of code handles the case when lpstat is
         * executed for multiple printers. In other words when 'report_job'
         * is called multiple times for different printers for
         * one lpstat command
         * For e.g: lpstat printer1 printer2 printer3
         */
        if (pname == NULL) {
                /*
                 * When lpstat is queried for the first time
                 * pname is NULL so this part of the code gets executed.
                 * Read the attribute "job-printer-uri"
                 * first time
                 */
                (void) papiAttributeListGetString(attrs, NULL,
                    "job-printer-uri", &uri);

                if (printer != NULL) {
                        /*
                         * Set pname to the printer that is being
                         * queried so that this can be used later
                         * if 'report_job' is called multiple times for
                         * different printers for one lpstat command
                         */
                        pname = printer;
                }

                if (uri != NULL) {
                        /*
                         * Set puri so that "job-printer-uri" corresponding
                         * to a particular printer can be used later when
                         * lpstat is queried for the same printer as
                         * "job-printer-uri" for a printer is read just once.
                         */
                        puri = strdup(uri);
                }
        } else {
                /*
                 * This part of the code will get executed when
                 * 'report_job' is called more than once for the same
                 * lpstat command
                 */
                if (printer != NULL) {
                        if (strcasecmp(pname, printer) != 0) {
                                /*
                                 * Read the job-printer-uri as
                                 * it will be different for
                                 * different printers
                                 */
                                uri = NULL;
                                (void) papiAttributeListGetString(attrs,
                                    NULL, "job-printer-uri", &uri);
                                pname = printer;
                                if (uri != NULL)
                                        puri = strdup(uri);
                                else
                                        puri = NULL;
                        } else {
                                /*
                                 * Same printer queried twice
                                 * uri should be the same as
                                 * already read in the previous call
                                 * to 'report_job'.
                                 * For the same printer 'job-printer-uri'
                                 * is read just once because only in the
                                 * first call it contains the host information
                                 */
                                uri = puri;
                        }
                }
        }

        if (host) {
                /* Check if it is local printer or remote printer */
                uri_t *u = NULL;

                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)) {

                                if (strcasecmp(host, nodename) == 0) {
                                        /*
                                         * Request submitted locally
                                         * for the local queue.
                                         * Hostname will not be displayed
                                         */
                                        snprintf(User, sizeof (User), "%s",
                                            user);
                                }
                                else
                                        snprintf(User, sizeof (User), "%s@%s",
                                            user, host);
                        } else if (uri != NULL) {
                                /*
                                 * It's a remote printer.
                                 * In case of remote printers hostname is
                                 * always displayed.
                                 */
                                snprintf(User, sizeof (User), "%s@%s",
                                    user, host);
                        }
                        uri_free(u);
                } else {
                        /*
                         * If attribute "job-printer-uri"
                         * cannot be read
                         * by default append the hostname
                         */
                        snprintf(User, sizeof (User), "%s@%s", user, host);
                }
        } else {
                /*
                 * When print server is s10u4 and ipp service is used
                 * "job-originating-hostname" attribute is not set
                 * So get the host information from the uri
                 */
                uri_t *u = NULL;
                if ((uri != NULL) && (uri_from_string(uri, &u) == 0)) {
                        if ((u != NULL) && (u->host != NULL))
                                snprintf(User, sizeof (User), "%s@%s",
                                    user, u->host);
                        else
                                snprintf(User, sizeof (User), "%s", user);

                        uri_free(u);
                } else
                        snprintf(User, sizeof (User), "%s", user);
        }
        (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);
        (void) papiAttributeListGetInteger(attrs, NULL,
            "job-id-requested", &id);


        snprintf(request, sizeof (request), "%s-%d", printer, 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 == 0x0001)
                printf(gettext(" being held"));
        else if (jstate == 0x0800)
                printf(gettext(" notifying user"));
        else if (jstate == 0x0040)
                printf(gettext(" cancelled"));
        else if (jstate == 0x0010)
                printf(gettext(" finished printing"));
        else if (jstate == 0x0008)
                printf(gettext(" on %s"), destination);
        else if (jstate == 0x2000)
                printf(gettext(" held by admin"));
        else if (jstate == 0x0002)
                printf(gettext(" being filtered"));
        else if (jstate == 0x0004)
                printf(gettext(" filtered"));
        else if (jstate == 0x0020)
                printf(gettext(" held for change"));

        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)(char *, 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 = request;
        int32_t id = -1;
        int flag1 = 0;
        int flag = 1;
        int print_flag = 0;

        do {
                status = papiServiceCreate(&svc, printer, NULL, NULL,
                    cli_auth_callback, encryption, NULL);

                if ((status == PAPI_OK) && (printer != NULL))
                        print_flag = 1;

                /* <name>-# printer name does not exist */
                if (status != PAPI_OK) {
                        /*
                         * Check if <name>-# is a request-id
                         * Once this check is done flag1 is set
                         */
                        if (flag1 == 1)
                                break;

                        get_printer_id(printer, &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(printer,
                                            jobs[i], show_rank,
                                            verbose);
                        }

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

                        /* Once a job has been found stop processing */
                        flag = 0;

                        /*
                         * Job-id could be the job-id requested
                         * Check if it is job-id or job-id-requested
                         */
                        id = job_to_be_queried(svc, printer, id);

                        if (id >= 0)
                                status = papiJobQuery(svc, printer, id,
                                    NULL, &job);
                        else
                                /* id not found */
                                status = PAPI_NOT_FOUND;

                        if (status != PAPI_OK) {
                                if (!print_flag)
                                        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(printer, job,
                                    show_rank, verbose);

                        papiJobFree(job);
                }

                if (flag) {
                        id = -1;
                        get_printer_id(printer, &printer, &id);
                        if (id == -1)
                                flag = 0;
                        else
                                flag1 = 1;
                }
        } while (flag);

        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) {    /* 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 '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 'R':       /* set "rank" flag in first pass */
                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 '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);
}