sys-utils/tunelp.c

   1 /*
   2  * Copyright (C) 1992-1997 Michael K. Johnson, johnsonm@redhat.com
   3  *
   4  * This file is licensed under the terms of the GNU General Public
   5  * License, version 2, or any later version.  See file COPYING for
   6  * information on distribution conditions.
   7  */
   8
   9 /*
  10  * This command is deprecated.  The utility is in maintenance mode,
  11  * meaning we keep them in source tree for backward compatibility
  12  * only.  Do not waste time making this command better, unless the
  13  * fix is about security or other very critical issue.
  14  *
  15  * See Documentation/deprecated.txt for more information.
  16  */
  17
  18 /*
  19  * $Log: tunelp.c,v $
  20  * Revision 1.9  1998/06/08 19:37:11  janl
  21  * Thus compiles tunelp with 2.1.103 kernels
  22  *
  23  * Revision 1.8  1997/07/06 00:14:06  aebr
  24  * Fixes to silence -Wall.
  25  *
  26  * Revision 1.7  1997/06/20 16:10:38  janl
  27  * tunelp refreshed from authors archive.
  28  *
  29  * Revision 1.9  1997/06/20 12:56:43  johnsonm
  30  * Finished fixing license terms.
  31  *
  32  * Revision 1.8  1997/06/20 12:34:59  johnsonm
  33  * Fixed copyright and license.
  34  *
  35  * Revision 1.7  1995/03/29 11:16:23  johnsonm
  36  * TYPO fixed...
  37  *
  38  * Revision 1.6  1995/03/29  11:12:15  johnsonm
  39  * Added third argument to ioctl needed with new kernels
  40  *
  41  * Revision 1.5  1995/01/13  10:33:43  johnsonm
  42  * Chris's changes for new ioctl numbers and backwards compatibility
  43  * and the reset ioctl.
  44  *
  45  * Revision 1.4  1995/01/03  17:42:14  johnsonm
  46  * -s isn't supposed to take an argument; removed : after s in getopt...
  47  *
  48  * Revision 1.3  1995/01/03  07:36:49  johnsonm
  49  * Fixed typo
  50  *
  51  * Revision 1.2  1995/01/03  07:33:44  johnsonm
  52  * revisions for lp driver updates in Linux 1.1.76
  53  *
  54  * 1999-02-22 Arkadiusz Miśkiewicz <misiek@pld.ORG.PL>
  55  * - added Native Language Support
  56  *
  57  * 1999-05-07 Merged LPTRUSTIRQ patch by Andrea Arcangeli (1998/11/29), aeb
  58  *
  59  */
  60
  61 #include <errno.h>
  62 #include <fcntl.h>
  63 #include <getopt.h>
  64 #include <stdio.h>
  65 #include <stdlib.h>
  66 #include <string.h>
  67 #include <sys/ioctl.h>
  68 #include <sys/stat.h>
  69 #include <sys/types.h>
  70 #include <unistd.h>
  71
  72 #include <linux/lp.h>
  73
  74 #include "nls.h"
  75 #include "closestream.h"
  76 #include "strutils.h"
  77
  78 #define EXIT_LP_MALLOC          2
  79 #define EXIT_LP_BADVAL          3
  80 #define EXIT_LP_IO_ERR          4
  81
  82 #define XALLOC_EXIT_CODE EXIT_LP_MALLOC
  83 #include "xalloc.h"
  84
  85 struct command {
  86         long op;
  87         long val;
  88         struct command *next;
  89 };
  90
  91 static void __attribute__((__noreturn__)) usage(void)
  92 {
  93         FILE *out = stdout;
  94         fputs(USAGE_HEADER, out);
  95         fprintf(out, _(" %s [options] <device>\n"), program_invocation_short_name);
  96
  97         fputs(USAGE_SEPARATOR, out);
  98         fputs(_("Set various parameters for the line printer.\n"), out);
  99
 100         fputs(USAGE_OPTIONS, out);
 101         fputs(_(" -i, --irq <num>              specify parallel port irq\n"), out);
 102         fputs(_(" -t, --time <ms>              driver wait time in milliseconds\n"), out);
 103         fputs(_(" -c, --chars <num>            number of output characters before sleep\n"), out);
 104         fputs(_(" -w, --wait <us>              strobe wait in micro seconds\n"), out);
 105         /* TRANSLATORS: do not translate <on|off> arguments. The
 106            argument reader does not recognize locale, unless `on' is
 107            exactly that very same string. */
 108         fputs(_(" -a, --abort <on|off>         abort on error\n"), out);
 109         fputs(_(" -o, --check-status <on|off>  check printer status before printing\n"), out);
 110         fputs(_(" -C, --careful <on|off>       extra checking to status check\n"), out);
 111         fputs(_(" -s, --status                 query printer status\n"), out);
 112         fputs(_(" -r, --reset                  reset the port\n"), out);
 113         fputs(_(" -q, --print-irq <on|off>     display current irq setting\n"), out);
 114         fputs(USAGE_SEPARATOR, out);
 115         printf(USAGE_HELP_OPTIONS(30));
 116         printf(USAGE_MAN_TAIL("tunelp(8)"));
 117
 118         exit(EXIT_SUCCESS);
 119 }
 120
 121 int main(int argc, char **argv)
 122 {
 123         int c, fd, irq, status, show_irq, offset = 0, retval;
 124         char *filename;
 125         struct stat statbuf;
 126         struct command *cmds, *cmdst;
 127         static const struct option longopts[] = {
 128                 {"irq", required_argument, NULL, 'i'},
 129                 {"time", required_argument, NULL, 't'},
 130                 {"chars", required_argument, NULL, 'c'},
 131                 {"wait", required_argument, NULL, 'w'},
 132                 {"abort", required_argument, NULL, 'a'},
 133                 {"check-status", required_argument, NULL, 'o'},
 134                 {"careful", required_argument, NULL, 'C'},
 135                 {"status", no_argument, NULL, 's'},
 136                 {"trust-irq", required_argument, NULL, 'T'},
 137                 {"reset", no_argument, NULL, 'r'},
 138                 {"print-irq", required_argument, NULL, 'q'},
 139                 {"version", no_argument, NULL, 'V'},
 140                 {"help", no_argument, NULL, 'h'},
 141                 {NULL, 0, NULL, 0}
 142         };
 143
 144         setlocale(LC_ALL, "");
 145         bindtextdomain(PACKAGE, LOCALEDIR);
 146         textdomain(PACKAGE);
 147         close_stdout_atexit();
 148
 149         strutils_set_exitcode(EXIT_LP_BADVAL);
 150
 151         if (argc < 2) {
 152                 warnx(_("not enough arguments"));
 153                 errtryhelp(EXIT_FAILURE);
 154         }
 155
 156         cmdst = cmds = xmalloc(sizeof(struct command));
 157         cmds->next = NULL;
 158
 159         show_irq = 1;
 160         while ((c = getopt_long(argc, argv, "t:c:w:a:i:ho:C:sq:rT:vV", longopts, NULL)) != -1) {
 161                 switch (c) {
 162                 case 'i':
 163                         cmds->op = LPSETIRQ;
 164                         cmds->val = strtol_or_err(optarg, _("argument error"));
 165                         cmds->next = xmalloc(sizeof(struct command));
 166                         cmds = cmds->next;
 167                         cmds->next = NULL;
 168                         break;
 169                 case 't':
 170                         cmds->op = LPTIME;
 171                         cmds->val = strtol_or_err(optarg, _("argument error"));
 172                         cmds->next = xmalloc(sizeof(struct command));
 173                         cmds = cmds->next;
 174                         cmds->next = NULL;
 175                         break;
 176                 case 'c':
 177                         cmds->op = LPCHAR;
 178                         cmds->val = strtol_or_err(optarg, _("argument error"));
 179                         cmds->next = xmalloc(sizeof(struct command));
 180                         cmds = cmds->next;
 181                         cmds->next = NULL;
 182                         break;
 183                 case 'w':
 184                         cmds->op = LPWAIT;
 185                         cmds->val = strtol_or_err(optarg, _("argument error"));
 186                         cmds->next = xmalloc(sizeof(struct command));
 187                         cmds = cmds->next;
 188                         cmds->next = NULL;
 189                         break;
 190                 case 'a':
 191                         cmds->op = LPABORT;
 192                         cmds->val = parse_switch(optarg, _("argument error"), "on", "off", NULL);
 193                         cmds->next = xmalloc(sizeof(struct command));
 194                         cmds = cmds->next;
 195                         cmds->next = NULL;
 196                         break;
 197                 case 'q':
 198                         show_irq = parse_switch(optarg, _("argument error"), "on", "off", NULL);
 199                         break;
 200                 case 'o':
 201                         cmds->op = LPABORTOPEN;
 202                         cmds->val = parse_switch(optarg, _("argument error"), "on", "off", NULL);
 203                         cmds->next = xmalloc(sizeof(struct command));
 204                         cmds = cmds->next;
 205                         cmds->next = NULL;
 206                         break;
 207                 case 'C':
 208                         cmds->op = LPCAREFUL;
 209                         cmds->val = parse_switch(optarg, _("argument error"), "on", "off", NULL);
 210                         cmds->next = xmalloc(sizeof(struct command));
 211                         cmds = cmds->next;
 212                         cmds->next = NULL;
 213                         break;
 214                 case 's':
 215                         show_irq = 0;
 216                         cmds->op = LPGETSTATUS;
 217                         cmds->val = 0;
 218                         cmds->next = xmalloc(sizeof(struct command));
 219                         cmds = cmds->next;
 220                         cmds->next = NULL;
 221                         break;
 222                 case 'r':
 223                         cmds->op = LPRESET;
 224                         cmds->val = 0;
 225                         cmds->next = xmalloc(sizeof(struct command));
 226                         cmds = cmds->next;
 227                         cmds->next = NULL;
 228                         break;
 229
 230                 case 'h':
 231                         usage();
 232                 case 'v':
 233                 case 'V':
 234                         print_version(EXIT_SUCCESS);
 235                 default:
 236                         errtryhelp(EXIT_FAILURE);
 237                 }
 238         }
 239
 240         if (optind != argc - 1) {
 241                 warnx(_("no device specified"));
 242                 errtryhelp(EXIT_FAILURE);
 243         }
 244
 245         filename = xstrdup(argv[optind]);
 246         fd = open(filename, O_WRONLY | O_NONBLOCK, 0);
 247         /* Need to open O_NONBLOCK in case ABORTOPEN is already set
 248          * and printer is off or off-line or in an error condition.
 249          * Otherwise we would abort...
 250          */
 251         if (fd < 0)
 252                 err(EXIT_FAILURE, "%s", filename);
 253
 254         if (fstat(fd, &statbuf))
 255                 err(EXIT_FAILURE, "%s: stat() failed", filename);
 256
 257         if (!S_ISCHR(statbuf.st_mode)) {
 258                 warnx(_("%s not an lp device"), filename);
 259                 errtryhelp(EXIT_FAILURE);
 260         }
 261         /* Allow for binaries compiled under a new kernel to work on
 262          * the old ones The irq argument to ioctl isn't touched by
 263          * the old kernels, but we don't want to cause the kernel to
 264          * complain if we are using a new kernel
 265          */
 266         if (LPGETIRQ >= 0x0600 && ioctl(fd, LPGETIRQ, &irq) < 0
 267             && errno == EINVAL)
 268                 /* We don't understand the new ioctls */
 269                 offset = 0x0600;
 270
 271         cmds = cmdst;
 272         while (cmds->next) {
 273                 if (cmds->op == LPGETSTATUS) {
 274                         status = 0xdeadbeef;
 275                         retval = ioctl(fd, LPGETSTATUS - offset, &status);
 276                         if (retval < 0)
 277                                 warnx(_("LPGETSTATUS error"));
 278                         else {
 279                                 if (status == (int)0xdeadbeef)
 280                                         /* a few 1.1.7x kernels will do this */
 281                                         status = retval;
 282                                 printf(_("%s status is %d"), filename, status);
 283                                 if (!(status & LP_PBUSY))
 284                                         printf(_(", busy"));
 285                                 if (!(status & LP_PACK))
 286                                         printf(_(", ready"));
 287                                 if ((status & LP_POUTPA))
 288                                         printf(_(", out of paper"));
 289                                 if ((status & LP_PSELECD))
 290                                         printf(_(", on-line"));
 291                                 if (!(status & LP_PERRORP))
 292                                         printf(_(", error"));
 293                                 printf("\n");
 294                         }
 295                 } else
 296                 if (ioctl(fd, cmds->op - offset, cmds->val) < 0)
 297                         warn(_("ioctl failed"));
 298                 cmdst = cmds;
 299                 cmds = cmds->next;
 300                 free(cmdst);
 301         }
 302
 303         if (show_irq) {
 304                 irq = 0xdeadbeef;
 305                 retval = ioctl(fd, LPGETIRQ - offset, &irq);
 306                 if (retval == -1)
 307                         err(EXIT_LP_IO_ERR, _("LPGETIRQ error"));
 308                 if (irq == (int)0xdeadbeef)
 309                         /* up to 1.1.77 will do this */
 310                         irq = retval;
 311                 if (irq)
 312                         printf(_("%s using IRQ %d\n"), filename, irq);
 313                 else
 314                         printf(_("%s using polling\n"), filename);
 315         }
 316         free(filename);
 317         close(fd);
 318
 319         return EXIT_SUCCESS;
 320 }