OpenSolaris_b135/cmd/print/bsd-sysv-commands/lpstat.c
/*
* 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 <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 */
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)) {
printf(gettext
("now printing"\
" %s-%d. enabled"),
name, jobid);
break;
}
}
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;
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);
}