Home | History | Annotate | Download | only in bsd-sysv-commands
      1 /*
      2  * CDDL HEADER START
      3  *
      4  * The contents of this file are subject to the terms of the
      5  * Common Development and Distribution License (the "License").
      6  * You may not use this file except in compliance with the License.
      7  *
      8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
      9  * or http://www.opensolaris.org/os/licensing.
     10  * See the License for the specific language governing permissions
     11  * and limitations under the License.
     12  *
     13  * When distributing Covered Code, include this CDDL HEADER in each
     14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
     15  * If applicable, add the following below this CDDL HEADER, with the
     16  * fields enclosed by brackets "[]" replaced with your own identifying
     17  * information: Portions Copyright [yyyy] [name of copyright owner]
     18  *
     19  * CDDL HEADER END
     20  */
     21 
     22 /*
     23  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
     24  * Use is subject to license terms.
     25  *
     26  */
     27 
     28 /* $Id: lpr.c 146 2006-03-24 00:26:54Z njacobs $ */
     29 
     30 #pragma ident	"%Z%%M%	%I%	%E% SMI"
     31 
     32 #include <stdio.h>
     33 #include <stdlib.h>
     34 #include <unistd.h>
     35 #include <string.h>
     36 #include <locale.h>
     37 #include <libintl.h>
     38 #include <papi.h>
     39 #include "common.h"
     40 
     41 #ifdef HAVE_LIBMAGIC	/* for mimetype auto-detection */
     42 #include <magic.h>
     43 #endif /* HAVE_LIBMAGIC */
     44 
     45 static void
     46 usage(char *program)
     47 {
     48 	char *name;
     49 
     50 	if ((name = strrchr(program, '/')) == NULL)
     51 		name = program;
     52 	else
     53 		name++;
     54 
     55 	fprintf(stdout,
     56 		gettext("Usage: %s [-P printer] [-# copies] [-C class] "
     57 				"[-J job] [-T title] "
     58 				"[-p [-i indent] [-w width]] "
     59 				"[-1|-2|-3|-4 font] [-m] [-h] [-s] "
     60 				"[-filter_option] [file ..]\n"), name);
     61 	exit(1);
     62 }
     63 
     64 int
     65 main(int ac, char *av[])
     66 {
     67 	papi_status_t status;
     68 	papi_service_t svc = NULL;
     69 	papi_attribute_t **list = NULL;
     70 	papi_job_t job = NULL;
     71 	int exit_code = 0;
     72 	char *printer = NULL;
     73 	char prefetch[3];
     74 	int prefetch_len = sizeof (prefetch);
     75 	papi_encryption_t encryption = PAPI_ENCRYPT_NEVER;
     76 	int dump = 0;
     77 	int validate = 0;
     78 	int remove = 0;
     79 	int copy = 1;	/* default is to copy the data */
     80 	char *document_format = "text/plain";
     81 	int c;
     82 
     83 	(void) setlocale(LC_ALL, "");
     84 	(void) textdomain("SUNW_OST_OSCMD");
     85 
     86 	while ((c = getopt(ac, av,
     87 			"EP:#:C:DVJ:T:w:i:hplrstdgvcfmn1:2:3:4:")) != EOF)
     88 		switch (c) {
     89 		case 'E':
     90 			encryption = PAPI_ENCRYPT_REQUIRED;
     91 			break;
     92 		case 'P':
     93 			printer = optarg;
     94 			break;
     95 		case '#':
     96 			papiAttributeListAddInteger(&list, PAPI_ATTR_EXCL,
     97 					"copies", atoi(optarg));
     98 			break;
     99 		case 'C':
    100 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    101 					"rfc-1179-class", optarg);
    102 			break;
    103 		case 'D':
    104 			dump = 1;
    105 			break;
    106 		case 'J':
    107 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    108 					"job-name", optarg);
    109 			break;
    110 		case 'T':
    111 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    112 					"pr-title", optarg);
    113 			break;
    114 		case 'p':
    115 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    116 				"document-format", "application/x-pr");
    117 			papiAttributeListAddBoolean(&list, PAPI_ATTR_EXCL,
    118 					"pr-filter", 1);
    119 			break;
    120 		case 'i':
    121 			papiAttributeListAddInteger(&list, PAPI_ATTR_EXCL,
    122 					"pr-indent", atoi(optarg));
    123 			break;
    124 		case 'w':
    125 			papiAttributeListAddInteger(&list, PAPI_ATTR_EXCL,
    126 					"pr-width", atoi(optarg));
    127 			break;
    128 		case 'h':
    129 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    130 					"job-sheets", "none");
    131 			break;
    132 		case 'l':
    133 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    134 				"document-format", "application/octet-stream");
    135 			break;
    136 		case 'o':
    137 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    138 				"document-format", "application/postscript");
    139 			break;
    140 		case 'c':
    141 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    142 				"document-format", "application/x-cif");
    143 			break;
    144 		case 'd':
    145 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    146 				"document-format", "application/x-dvi");
    147 			break;
    148 		case 'f':
    149 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    150 				"document-format", "application/x-fortran");
    151 			break;
    152 		case 'g':
    153 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    154 				"document-format", "application/x-plot");
    155 			break;
    156 		case 'n':
    157 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    158 				"document-format", "application/x-ditroff");
    159 			break;
    160 		case 't':
    161 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    162 				"document-format", "application/x-troff");
    163 			break;
    164 		case 'v':
    165 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    166 				"document-format", "application/x-raster");
    167 			break;
    168 		case 'm':
    169 			papiAttributeListAddBoolean(&list, PAPI_ATTR_EXCL,
    170 				"rfc-1179-mail", 1);
    171 			break;
    172 		case 'r':
    173 			remove = 1;
    174 			break;
    175 		case 's':
    176 			copy = 0;
    177 			break;
    178 		case 'V':	/* validate */
    179 			validate = 1;
    180 			break;
    181 		case '1':
    182 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    183 				"rfc-1179-font-r", optarg);
    184 			break;
    185 		case '2':
    186 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    187 				"rfc-1179-font-i", optarg);
    188 			break;
    189 		case '3':
    190 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    191 				"rfc-1179-font-b", optarg);
    192 			break;
    193 		case '4':
    194 			papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    195 				"rfc-1179-font-s", optarg);
    196 			break;
    197 		default:
    198 			usage(av[0]);
    199 		}
    200 
    201 	if ((printer == NULL) &&
    202 	    ((printer = getenv("PRINTER")) == NULL) &&
    203 	    ((printer = getenv("LPDEST")) == NULL))
    204 		printer = DEFAULT_DEST;
    205 
    206 	if (((optind + 1) == ac) && (strcmp(av[optind], "-") == 0))
    207 		optind = ac;
    208 
    209 	if (optind != ac) {
    210 		/* get the mime type of the file data */
    211 #ifdef MAGIC_MIME
    212 		magic_t ms;
    213 
    214 		if ((ms = magic_open(MAGIC_MIME)) != NULL) {
    215 			document_format = magic_file(ms, av[optind]);
    216 			magic_close(ms);
    217 		}
    218 #else
    219 		if (is_postscript(av[optind]) == 1)
    220 			document_format = "application/postscript";
    221 #endif
    222 	} else {
    223 		if (is_postscript_stream(0, prefetch, &prefetch_len) == 1)
    224 			document_format = "application/postscript";
    225 	}
    226 
    227 	papiAttributeListAddInteger(&list, PAPI_ATTR_EXCL, "copies", 1);
    228 	papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    229 				"document-format", document_format);
    230 	papiAttributeListAddString(&list, PAPI_ATTR_EXCL,
    231 				"job-sheets", "standard");
    232 
    233 	status = papiServiceCreate(&svc, printer, NULL, NULL, cli_auth_callback,
    234 					encryption, NULL);
    235 	if (status != PAPI_OK) {
    236 		fprintf(stderr, gettext(
    237 			"Failed to contact service for %s: %s\n"), printer,
    238 			verbose_papi_message(svc, status));
    239 		exit(1);
    240 	}
    241 
    242 	if (validate == 1)	/* validate the request can be processed */
    243 		status = papiJobValidate(svc, printer, list,
    244 					NULL, &av[optind], &job);
    245 	else if (optind == ac)	/* no file list, use stdin */
    246 		status = jobSubmitSTDIN(svc, printer, prefetch, prefetch_len,
    247 					list, &job);
    248 	else if (copy == 0)	/* reference the files in the job, default */
    249 		status = papiJobSubmitByReference(svc, printer, list,
    250 					NULL, &av[optind], &job);
    251 	else			/* copy the files before return, -c */
    252 		status = papiJobSubmit(svc, printer, list,
    253 					NULL, &av[optind], &job);
    254 
    255 	papiAttributeListFree(list);
    256 
    257 	if (status != PAPI_OK) {
    258 		fprintf(stderr, gettext("%s: %s\n"), printer,
    259 			verbose_papi_message(svc, status));
    260 		papiJobFree(job);
    261 		papiServiceDestroy(svc);
    262 		exit(1);
    263 	}
    264 
    265 	if (dump != 0) {
    266 		list = papiJobGetAttributeList(job);
    267 		printf("job attributes:\n");
    268 		papiAttributeListPrint(stdout, list, "\t");
    269 		printf("\n");
    270 	}
    271 
    272 	papiJobFree(job);
    273 	papiServiceDestroy(svc);
    274 
    275 	return (exit_code);
    276 }
    277