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