/* * 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. * */ /* $Id: lpstat.c 173 2006-05-25 04:52:06Z njacobs $ */ #include #include #include #include #include #include #include #include #include #include #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) { 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 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 @ */ 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 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("idle. enabled")); break; case 0x04: /* processing */ 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; int flag = 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); /* * If the job-state is in * RS_PRINTING then only print. */ if (jstate == 0x0008) { if (flag == 0) printf(gettext ("now printing"\ " %s-%d. enabled"), name, jobid); flag = 1; } } papiJobListFree(j); } } 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"); /* 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; (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); if (check == 0) { /* * Read the attribute "job-printer-uri" * just once */ (void) papiAttributeListGetString(attrs, NULL, "job-printer-uri", &uri); check = 1; } 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; /* -# printer name does not exist */ if (status != PAPI_OK) { /* * Check if -# 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; int rid = id; /* 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 status = papiJobQuery(svc, printer, rid, NULL, &job); 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); }