-/* lpd.c 4.17 83/03/09 */
-/*
- * lpd -- remote spooling line-printer daemon
- *
- * Recorded into c from assembly. Part of the code is stolen
- * from the dat-phone daemon.
- * Runs set user-id root in order to connect to remote machines
- * without passwords.
- * NOTE: the lock file is used to pass information to lpq and lprm.
- * it does not need to be removed because file locks are dynamic.
- */
-
-#include <signal.h>
-#include <stdio.h>
-#include <sys/types.h>
-#include <sys/file.h>
-#include <sys/stat.h>
-#include <sgtty.h>
-#ifdef BSD41C
-#include <netdb.h>
-#else
-#include <net/in.h>
+#ifndef lint
+static char sccsid[] = "@(#)lpd.c 4.10 (Berkeley) 8/24/83";
#endif
-#include <errno.h>
-#include <wait.h>
-#include "lp.local.h"
-#include "getq.h"
/*
- * Some utilities used by lpd
+ * lpd -- line printer daemon.
+ *
+ * Listen for a connection and perform the requested operation.
+ * Operations are:
+ * \1printer\n
+ * check the queue for jobs and print any found.
+ * \2printer\n
+ * receive a job from another machine and queue it.
+ * \3printer [users ...] [jobs ...]\n
+ * return the current state of the queue (short form).
+ * \4printer [users ...] [jobs ...]\n
+ * return the current state of the queue (long form).
+ * \5printer person [users ...] [jobs ...]\n
+ * remove jobs from the queue.
+ * \6printer\n
+ * enable queuing on the specified printer queue.
+ * \7printer\n
+ * disable queuing on the specified printer queue.
+ * \8printer\n
+ * return the queue status (queuing enabled or disabled).
+ *
+ * Strategy to maintain protected spooling area:
+ * 1. Spooling area is writable only by daemon and spooling group
+ * 2. lpr runs setuid root and setgrp spooling group; it uses
+ * root to access any file it wants (verifying things before
+ * with an access call) and group id to know how it should
+ * set up ownership of files in the spooling area.
+ * 3. Files in spooling area are owned by root, group spooling
+ * group, with mode 660.
+ * 4. lpd, lpq and lprm run setuid daemon and setgrp spooling group to
+ * access files and printer. Users can't get to anything
+ * w/o help of lpq and lprm programs.
*/
-#define PR "/bin/pr"
-#define MAIL "/usr/lib/sendmail"
-
-#define DORETURN 0 /* absorb fork error */
-#define DOABORT 1 /* abort lpd if dofork fails */
-#define DOUNLOCK 2 /* remove lock file before aborting */
-
-char line[132]; /* line from control file */
-char title[80]; /* ``pr'' title */
-FILE *cfp; /* control file */
-int pfd; /* printer file descriptor */
-int ofd; /* output filter file descriptor */
-int lfd; /* lock file descriptor */
-int pid; /* id of lpd process */
-int prchild; /* id of pr process */
-int child; /* id of any filters */
-int ofilter; /* id of output filter, if any */
-int tof = 1; /* top of form; init true if open does ff */
-int remote; /* non zero if sending files to remote */
-
-int DU; /* daeomon user-id */
-char *DN; /* daemon path name */
-char *LP; /* line printer device name */
-char *RM; /* remote machine name */
-char *RP; /* remote printer name */
-char *RL; /* path name of rlpr on remote machine */
-char *LO; /* lock file name */
-char *ST; /* status file name */
-char *SD; /* spool directory */
-char *AF; /* accounting file */
-char *LF; /* log file for error messages */
-char *OF; /* name of ouput filter (one only) */
-char *IF; /* name of input filter (per job) */
-char *TF; /* name of troff filter */
-char *VF; /* name of vplot filter */
-char *CF; /* name of cifplot filter */
-char *PF; /* name of vrast filter */
-char *FF; /* form feed string */
-char *TR; /* trailer string to be output when Q empties */
-short SF; /* suppress FF on each print job */
-short SH; /* suppress header page */
-short SB; /* short banner instead of normal header */
-short PW; /* page width */
-short PL; /* page length */
-short BR; /* baud rate if lp is a tty */
-short FC; /* flags to clear if lp is a tty */
-short FS; /* flags to set if lp is a tty */
-extern banner(); /* big character printer */
-char logname[32]; /* user's login name */
-char hostname[32]; /* user's host machine */
-char jobname[32]; /* job or file name */
-char class[32]; /* classification field */
-char width[10] = "-w"; /* page width for `pr' */
-char length[10] = "-l"; /* page length for `pr' */
+#include "lp.h"
-char *name; /* name of program */
-char *printer; /* name of printer */
-extern errno;
+static int lflag; /* log requests flag */
+static char *logfile = DEFLOGF;
-char *rindex();
-char *pgetstr();
+int reapchild();
+int cleanup();
-/*ARGSUSED*/
main(argc, argv)
- char *argv[];
+ int argc;
+ char **argv;
{
- struct stat stb;
- register struct queue *q, **qp;
- struct queue **queue;
- register int i, nitems;
- long pidoff;
- int cleanup();
-
- /*
- * set-up controlled environment; trap bad signals
- */
- signal(SIGHUP, SIG_IGN);
- signal(SIGINT, SIG_IGN);
- signal(SIGQUIT, SIG_IGN);
- signal(SIGTERM, cleanup); /* for use with lprm */
+ int f, funix, finet, options, defreadfds, fromlen;
+ struct sockaddr_un sun, fromunix;
+ struct sockaddr_in sin, frominet;
+ int omask, lfd;
+ gethostname(host, sizeof(host));
name = argv[0];
- printer = argv[1];
- init(); /* set up capabilities */
- for (i = 0; i < NOFILE; i++)
- (void) close(i);
- (void) open("/dev/null", 0); /* standard input */
- (void) open(LF, 1); /* standard output */
- (void) dup2(1, 2); /* standard error */
- (void) lseek(1, 0L, 2); /* append if into a file */
+ while (--argc > 0) {
+ argv++;
+ if (argv[0][0] == '-')
+ switch (argv[0][1]) {
+ case 'd':
+ options |= SO_DEBUG;
+ break;
+ case 'l':
+ lflag++;
+ break;
+ case 'L':
+ argc--;
+ logfile = *++argv;
+ break;
+ }
+ }
+
+#ifndef DEBUG
/*
- * uses short form file names
+ * Set up standard environment by detaching from the parent.
*/
- if (chdir(SD) < 0) {
- log("cannot chdir to %s", SD);
+ if (fork())
+ exit(0);
+ for (f = 0; f < 3; f++)
+ (void) close(f);
+ (void) open("/dev/null", O_RDONLY);
+ (void) open("/dev/null", O_WRONLY);
+ (void) open(logfile, O_WRONLY|O_APPEND);
+ f = open("/dev/tty", O_RDWR);
+ if (f > 0) {
+ ioctl(f, TIOCNOTTY, 0);
+ (void) close(f);
+ }
+#endif
+
+ (void) umask(0);
+ lfd = open(MASTERLOCK, O_WRONLY|O_CREAT, 0644);
+ if (lfd < 0) {
+ log("cannot create %s", MASTERLOCK);
exit(1);
}
-#ifdef BSD41C
- umask(0);
- if ((lfd = open(LO, FWRONLY|FCREATE|FTRUNCATE|FEXLOCK|FNBLOCK, FILMOD)) < 0) {
+ if (flock(lfd, LOCK_EX|LOCK_NB) < 0) {
if (errno == EWOULDBLOCK) /* active deamon present */
exit(0);
- log("cannot create %s", LO);
+ log("cannot lock %s", MASTERLOCK);
exit(1);
}
-#else
- if (stat(LO, &stb) >= 0 || (lfd = creat(LO, 0444)) < 0)
- exit(0);
-#endif
- /*
- * kill the parent so the user's shell can function
- */
-#ifdef BSD41C
- if (dofork(DOABORT))
-#else
- if (dofork(DOUNLOCK))
-#endif
- exit(0);
+ ftruncate(lfd, 0);
/*
* write process id for others to know
*/
- pid = getpid();
- sprintf(line, "%u\n", pid);
- pidoff = i = strlen(line);
- if (write(lfd, line, i) != i)
+ sprintf(line, "%u\n", getpid());
+ f = strlen(line);
+ if (write(lfd, line, f) != f) {
log("cannot write daemon pid");
- /*
- * acquire line printer or remote connection
- */
- if (*LP) {
- for (i = 1; ; i = i < 256 ? i << 1 : i) {
- pfd = open(LP, 1);
- if (pfd >= 0)
- break;
- if (errno == ENOENT) {
- log("cannot open %s", LP);
-#ifndef BSD41C
- unlink(LO);
-#endif
- exit(1);
- }
- if (i == 1)
- status("waiting for %s to become ready (offline ?)", printer);
- sleep(i);
- }
- if (isatty(pfd))
- setty();
- }
- else if (RM != NULL) {
-#ifdef BSD41C
- struct servent *sp;
-
- sp = getservbyname("shell", "tcp");
- if (sp == NULL) {
- log("shell/tcp: unknown service");
- exit(1);
- }
-#endif
- strcpy(line, RL);
- if (RP != NULL)
- (void) sprintf(line+strlen(line), " -P%s", RP);
- for (i = 1; ; i = i < 512 ? i << 1 : i) {
-#ifdef BSD41C
- pfd = rcmd(&RM, sp->s_port, "root", "root", line, 0);
-#else
- pfd = rcmd(&RM, IPPORT_CMDSERVER, "root", "root", line, 0);
-#endif
- if (pfd >= 0)
- break;
- if (i == 1)
- status("waiting for %s to come up", RM);
- sleep(i);
- }
- response();
- remote = 1;
- }
- else {
- log("no line printer device or remote machine name");
-#ifndef BSD41C
- (void) unlink(LO);
-#endif
exit(1);
}
+ signal(SIGCHLD, reapchild);
/*
- * Start running as daemon instead of root
- */
- setuid(DU);
- /*
- * Start up an output filter, if needed.
- */
- if (OF) {
- int p[2];
- char *cp;
-
- pipe(p);
-#ifdef BSD41C
- if ((ofilter = dofork(DOABORT)) == 0) { /* child */
-#else
- if ((ofilter = dofork(DOUNLOCK)) == 0) { /* child */
-#endif
- dup2(p[0], 0); /* pipe is std in */
- dup2(pfd, 1); /* printer is std out */
- for (i = 3; i < NOFILE; i++)
- (void) close(i);
- if ((cp = rindex(OF, '/')) == NULL)
- cp = OF;
- else
- cp++;
- execl(OF, cp, 0);
- log("can't execl output filter %s", OF);
- exit(1);
- }
- (void) close(p[0]); /* close input side */
- ofd = p[1]; /* use pipe for output */
- } else {
- ofd = pfd;
- ofilter = 0;
- }
-
- /*
- * search the spool directory for work and sort by queue order.
+ * Restart all the printers.
*/
-again:
- if ((nitems = getq(&queue)) < 0) {
- log("can't scan spool directory %s", SD);
-#ifndef BSD41C
- (void) unlink(LO);
-#endif
+ startup();
+ (void) unlink(SOCKETNAME);
+ funix = socket(AF_UNIX, SOCK_STREAM, 0);
+ if (funix < 0) {
+ logerr("socket");
exit(1);
}
- if (nitems == 0) { /* EOF => no work to do */
- if (!SF && !tof)
- (void) write(ofd, FF, strlen(FF));
- if (TR != NULL) /* output trailer */
- (void) write(ofd, TR, strlen(TR));
-#ifndef BSD41C
- (void) unlink(LO);
-#endif
- exit(0);
+#define mask(s) (1 << ((s) - 1))
+ omask = sigblock(mask(SIGHUP)|mask(SIGINT)|mask(SIGQUIT)|mask(SIGTERM));
+ signal(SIGHUP, cleanup);
+ signal(SIGINT, cleanup);
+ signal(SIGQUIT, cleanup);
+ signal(SIGTERM, cleanup);
+ sun.sun_family = AF_UNIX;
+ strcpy(sun.sun_path, SOCKETNAME);
+ if (bind(funix, &sun, strlen(sun.sun_path) + 2) < 0) {
+ logerr("unix domain bind");
+ exit(1);
}
+ sigsetmask(omask);
+ defreadfds = 1 << funix;
+ listen(funix, 5);
+ finet = socket(AF_INET, SOCK_STREAM, 0);
+ if (finet >= 0) {
+ struct servent *sp;
- /*
- * we found something to do now do it --
- * write the name of the current control file into the lock file
- * so the spool queue program can tell what we're working on
- */
- if (!remote)
- status("%s is ready and printing", printer);
- else
- status("sending to %s", RM);
- for (qp = queue; nitems--; ) {
- q = *qp++;
- if (stat(q->q_name, &stb) < 0)
- continue;
- lseek(lfd, pidoff, 0);
- sprintf(line, "%s\n", q->q_name);
- i = strlen(line);
- if (write(lfd, line, i) != i)
- log("can't write (%d) control file name", errno);
- if (!remote)
- i = doit(q->q_name);
- else
- i = sendit(q->q_name);
- if (i > 0) { /* restart daemon to reprint job */
-#ifndef BSD41C
- unlink(LO);
-#endif
- execl(DN, DN, printer);
- log("cannot execl %d", DN);
- exit(1);
+ if (options & SO_DEBUG)
+ if (setsockopt(finet, SOL_SOCKET, SO_DEBUG, 0, 0) < 0) {
+ logerr("setsockopt (SO_DEBUG)");
+ cleanup();
+ }
+ sp = getservbyname("printer", "tcp");
+ if (sp == NULL) {
+ log("printer/tcp: unknown service");
+ cleanup();
}
- free(q);
- }
- free((char *)queue);
- goto again;
-}
-
-char fonts[4][50]; /* fonts for troff */
-
-static char ifonts[4][50] = {
- "/usr/lib/vfont/R",
- "/usr/lib/vfont/I",
- "/usr/lib/vfont/B",
- "/usr/lib/vfont/S"
-};
-
-/*
- * The remaining part is the reading of the control file (cf)
- * and performing the various actions.
- * Returns 0 if everthing was OK and 1 if we should try to reprint the job.
- */
-doit(file)
- char *file;
-{
- register int i;
- int bombed = 0;
-
- /*
- * open control file
- */
- if ((cfp = fopen(file, "r")) == NULL) {
- log("control file (%s) open failure <errno = %d>", file, errno);
- return(0);
+ sin.sin_family = AF_INET;
+ sin.sin_port = sp->s_port;
+ if (bind(finet, &sin, sizeof(sin), 0) < 0) {
+ logerr("internet domain bind");
+ cleanup();
+ }
+ defreadfds |= 1 << finet;
+ listen(finet, 5);
}
/*
- * Reset troff fonts.
- */
- for (i = 0; i < 4; i++)
- strcpy(fonts[i], ifonts[i]);
-
- /*
- * read the control file for work to do
- *
- * file format -- first character in the line is a command
- * rest of the line is the argument.
- * valid commands are:
- *
- * J -- "job name" on banner page
- * C -- "class name" on banner page
- * L -- "literal" user's name to print on banner
- * T -- "title" for pr
- * H -- "host name" of machine where lpr was done
- * P -- "person" user's login name
- * I -- "indent" changes default indents driver
- * must have stty/gtty avaialble
- * f -- "file name" name of file to print
- * 1 -- "R font file" for troff
- * 2 -- "I font file" for troff
- * 3 -- "B font file" for troff
- * 4 -- "S font file" for troff
- * N -- "name" of file (used by lpq)
- * U -- "unlink" name of file to remove
- * (after we print it. (Pass 2 only)).
- * M -- "mail" to user when done printing
- *
- * getline reads a line and expands tabs to blanks
+ * Main loop: accept, do a request, continue.
*/
-
- /* pass 1 */
-
- while (getline())
- switch (line[0]) {
- case 'H':
- strcpy(hostname, line+1);
- if (class[0] == '\0')
- strcpy(class, line+1);
- continue;
-
- case 'P':
- strcpy(logname, line+1);
- continue;
-
- case 'J':
- if (line[1] != '\0' )
- strcpy(jobname, line+1);
- else
- strcpy(jobname, " ");
- continue;
-
- case 'C':
- if (line[1] != '\0' )
- strcpy(class, line+1);
- else if (class[0] == '\0')
- gethostname(class, sizeof (class));
- continue;
-
- case 'T': /* header title for pr */
- strcpy(title, line+1);
- continue;
-
- case 'L': /* identification line */
- if (!SH)
- banner(line+1, jobname);
- continue;
-
- case '1': /* troff fonts */
- case '2':
- case '3':
- case '4':
- strcpy(fonts[line[0]-'1'], line+1);
- continue;
-
- case 'W': /* page width */
- strcpy(width+2, line+1);
- continue;
-
- default:
- if ((i = dump(line[0], line+1)) > 0)
- return(1);
- else if (i < 0)
- bombed = 1;
- title[0] = '\0';
- continue;
-
- case 'I':
- case 'N':
- case 'U':
- case 'M':
+ for (;;) {
+ int domain, nfds, s, readfds = defreadfds;
+
+ nfds = select(20, &readfds, 0, 0, 0);
+ if (nfds <= 0) {
+ if (nfds < 0 && errno != EINTR) {
+ logerr("select");
+ cleanup();
+ /*NOTREACHED*/
+ }
continue;
}
-
- /* pass 2 */
-
- fseek(cfp, 0L, 0);
- while (getline())
- switch (line[0]) {
- case 'M':
- sendmail(bombed);
- continue;
-
- case 'U':
- (void) unlink(line+1);
+ if (readfds & (1 << funix)) {
+ domain = AF_UNIX, fromlen = sizeof(fromunix);
+ s = accept(funix, &fromunix, &fromlen);
+ } else if (readfds & (1 << finet)) {
+ domain = AF_INET, fromlen = sizeof(frominet);
+ s = accept(finet, &frominet, &fromlen);
}
- /*
- * clean-up incase another control file exists
- */
- (void) fclose(cfp);
- (void) unlink(file);
- return(0);
+ if (s < 0) {
+ if (errno == EINTR)
+ continue;
+ logerr("accept");
+ cleanup();
+ }
+ if (fork() == 0) {
+ signal(SIGCHLD, SIG_IGN);
+ signal(SIGHUP, SIG_IGN);
+ signal(SIGINT, SIG_IGN);
+ signal(SIGQUIT, SIG_IGN);
+ signal(SIGTERM, SIG_IGN);
+ (void) close(funix);
+ (void) close(finet);
+ dup2(s, 1);
+ (void) close(s);
+ if (domain == AF_INET)
+ chkhost(&frominet);
+ doit();
+ exit(0);
+ }
+ (void) close(s);
+ }
}
-/*
- * Print a file.
- * Set up the chain [ PR [ | IF ] ] or [ {IF | TF | CF | VF} ].
- * Return -1 if a non-recoverable error occured, 1 if a recoverable error and
- * 0 if all is well.
- */
-dump(format, file)
- int format;
- char *file;
+static
+reapchild()
{
- register int n, fi, fo;
- register char *prog;
- char *av[15], buf[BUFSIZ];
- int pid, p[2];
union wait status;
- if ((fi = open(file, 0)) < 0) {
- log("%s: open failure <errno = %d>", file, errno);
- return(-1);
- }
- if (!SF && !tof) /* start on a fresh page */
- (void) write(ofd, FF, strlen(FF));
- if (IF == NULL && (format == 'f' || format == 'l')) {
- while ((n = read(fi, buf, BUFSIZ)) > 0)
- if (write(ofd, buf, n) != n) {
- (void) close(fi);
- return(1);
- }
- tof = 0;
- (void) close(fi);
- return(0);
- }
- switch (format) {
- case 'p': /* print file using 'pr' */
- if (IF == NULL) { /* use output filter */
- prog = PR;
- av[0] = "pr";
- av[1] = width;
- av[2] = length;
- av[3] = "-h";
- av[4] = *title ? title : " ";
- av[5] = 0;
- goto start;
- }
- pipe(p);
- if ((prchild = dofork(DORETURN)) == 0) { /* child */
- dup2(fi, 0); /* file is stdin */
- dup2(p[1], 1); /* pipe is stdout */
- for (n = 3; n < NOFILE; n++)
- (void) close(n);
- execl(PR, "pr", width, length, "-h", *title ? title : " ", 0);
- log("cannot execl %s", PR);
- exit(2);
- }
- (void) close(p[1]); /* close output side */
- (void) close(fi);
- fi = p[0]; /* use pipe for input */
- case 'f': /* print plain text file */
- prog = IF;
- av[1] = width;
- av[2] = length;
- n = 3;
- fo = pfd;
- break;
- case 'l': /* like 'f' but pass control characters */
- prog = IF;
- av[1] = "-l";
- av[2] = width;
- av[3] = length;
- n = 4;
- fo = pfd;
- break;
- case 't': /* print troff output */
- (void) unlink(".railmag");
- fo = creat(".railmag", 0666);
- for (n = 0; n < 4; n++) {
- if (fonts[n][0] != '/')
- (void) write(fo, "/usr/lib/vfont/", 15);
- (void) write(fo, fonts[n], strlen (fonts[n]));
- (void) write(fo, "\n", 1);
- }
- (void) close(fo);
- prog = TF;
- n = 1;
- fo = pfd;
- break;
- case 'c': /* print cifplot output */
- prog = CF;
- n = 1;
- fo = pfd;
- break;
- case 'v': /* print vplot output (plain raster file) */
- prog = VF;
- n = 1;
- fo = pfd;
- break;
- default:
- log("illegal format character '%c'", format);
- return(-1);
- }
- if ((av[0] = rindex(prog, '/')) != NULL)
- av[0]++;
- else
- av[0] = prog;
- av[n++] = "-n";
- av[n++] = logname;
- av[n++] = "-h";
- av[n++] = hostname;
- av[n++] = AF;
- av[n++] = 0;
-start:
- if (ofilter > 0) { /* stop output filter */
- write(ofd, "\031\1", 2);
- while ((pid = wait3(&status, WUNTRACED, 0)) > 0 && pid != ofilter)
- ;
- if (status.w_stopval != WSTOPPED) {
- log("output filter died (%d)", status.w_retcode);
- return(1);
- }
- }
- if ((child = dofork(DORETURN)) == 0) { /* child */
- dup2(fi, 0);
- dup2(fo, 1);
- for (n = 3; n < NOFILE; n++)
- (void) close(n);
- execv(prog, av);
- log("cannot execl %s", prog);
- exit(2); /* execl failed or not one of above cases. */
- }
- (void) close(fi);
- if (child < 0) {
- child = 0;
- return(-1);
- }
- while ((pid = wait(&status)) > 0 && pid != child)
+ while (wait3(&status, WNOHANG, 0) > 0)
;
- tof = 1;
- child = 0;
- prchild = 0;
- if (ofilter > 0) { /* restart output filter */
- if (kill(ofilter, SIGCONT) < 0) {
- log("cannot continue output filter");
-#ifndef BSD41C
- unlink(LO);
-#endif
- exit(1);
- }
- }
- if (!WIFEXITED(status) || status.w_retcode > 1) {
- log("Daemon Filter Malfunction");
- return(-1);
- } else if (status.w_retcode == 1)
- return(1);
- return(0);
}
-/*
- * Getline reads a line from the control file, removes tabs, converts
- * new-line to null and leaves it in line.
- * returns 0 at EOF or the number of characters read.
- */
-getline()
+static
+cleanup()
{
- register int linel = 0;
- register char *lp = line;
- register c;
-
- while ((c = getc(cfp)) != '\n') {
- if (c == EOF)
- return(0);
- if (c == '\t') {
- do {
- *lp++ = ' ';
- linel++;
- } while ((linel & 07) != 0);
- continue;
- }
- *lp++ = c;
- linel++;
- }
- *lp++ = '\0';
- return(linel);
+ if (lflag)
+ log("cleanup()");
+ unlink(SOCKETNAME);
+ exit(0);
}
/*
- * Send the daemon control file (cf) and any data files.
+ * Stuff for handling job specifications
*/
-sendit(file)
- char *file;
-{
- register int linelen, i;
- char last[132];
-
- /*
- * open control file
- */
- if ((cfp = fopen(file, "r")) == NULL) {
- log("control file (%s) open failure <errno = %d>", file, errno);
- return(0);
- }
- /*
- * read the control file for work to do
- *
- * file format -- first character in the line is a command
- * rest of the line is the argument.
- * commands of interest are:
- *
- * f -- "file name" name of file to print
- * U -- "unlink" name of file to remove
- * (after we print it. (Pass 2 only)).
- */
+char *user[MAXUSERS]; /* users to process */
+int users; /* # of users in user array */
+int requ[MAXREQUESTS]; /* job number of spool entries */
+int requests; /* # of spool requests */
+char *person; /* name of person doing lprm */
+
+static char fromb[32]; /* buffer for client's machine name */
+static char cbuf[BUFSIZ]; /* command line buffer */
+static char *cmdnames[] = {
+ "null",
+ "printjob",
+ "recvjob",
+ "displayq short",
+ "displayq long",
+ "rmjob"
+};
- /*
- * pass 1
- */
- while (getline()) {
- again:
- if (line[0] >= 'a' && line[0] <= 'z') {
- strcpy(last, line);
- while (linelen = getline())
- if (strcmp(last, line))
+static
+doit()
+{
+ register char *cp;
+ register int n;
+
+ for (;;) {
+ cp = cbuf;
+ do {
+ if (cp >= &cbuf[sizeof(cbuf) - 1])
+ fatal("Command line too long");
+ if ((n = read(1, cp, 1)) != 1) {
+ if (n < 0)
+ fatal("Lost connection");
+ return;
+ }
+ } while (*cp++ != '\n');
+ *--cp = '\0';
+ cp = cbuf;
+ if (lflag && *cp >= '\1' && *cp <= '\5') {
+ printer = NULL;
+ log("%s requests %s %s", from, cmdnames[*cp], cp+1);
+ }
+ switch (*cp++) {
+ case '\1': /* check the queue and print any jobs there */
+ printer = cp;
+ printjob();
+ break;
+ case '\2': /* receive files to be queued */
+ printer = cp;
+ recvjob();
+ break;
+ case '\3': /* display the queue (short form) */
+ case '\4': /* display the queue (long form) */
+ printer = cp;
+ while (*cp) {
+ if (*cp != ' ') {
+ cp++;
+ continue;
+ }
+ *cp++ = '\0';
+ while (isspace(*cp))
+ cp++;
+ if (*cp == '\0')
+ break;
+ if (isdigit(*cp)) {
+ if (requests >= MAXREQUESTS)
+ fatal("Too many requests");
+ requ[requests++] = atoi(cp);
+ } else {
+ if (users >= MAXUSERS)
+ fatal("Too many users");
+ user[users++] = cp;
+ }
+ }
+ displayq(cbuf[0] - '\3');
+ exit(0);
+ case '\5': /* remove a job from the queue */
+ printer = cp;
+ while (*cp && *cp != ' ')
+ cp++;
+ if (!*cp)
+ break;
+ *cp++ = '\0';
+ person = cp;
+ while (*cp) {
+ if (*cp != ' ') {
+ cp++;
+ continue;
+ }
+ *cp++ = '\0';
+ while (isspace(*cp))
+ cp++;
+ if (*cp == '\0')
break;
- if (send('\3', last+1) > 0)
- return(1);
- if (linelen)
- goto again;
+ if (isdigit(*cp)) {
+ if (requests >= MAXREQUESTS)
+ fatal("Too many requests");
+ requ[requests++] = atoi(cp);
+ } else {
+ if (users >= MAXUSERS)
+ fatal("Too many users");
+ user[users++] = cp;
+ }
+ }
+ rmjob();
break;
}
+ fatal("Illegal service request");
}
- if (send('\2', file) > 0)
- return(1);
- /*
- * pass 2
- */
- fseek(cfp, 0L, 0);
- while (getline())
- if (line[0] == 'U')
- (void) unlink(line+1);
- /*
- * clean-up incase another control file exists
- */
- (void) fclose(cfp);
- (void) unlink(file);
- return(0);
}
/*
- * Send a data file to the remote machine and spool it.
- * Return positive if we should try resending.
+ * Make a pass through the printcap database and start printing any
+ * files left from the last time the machine went down.
*/
-send(type, file)
- char type, *file;
+static
+startup()
{
- register int f, i, amt;
- struct stat stb;
char buf[BUFSIZ];
- int sizerr;
-
- if ((f = open(file, 0)) < 0 || fstat(f, &stb) < 0) {
- log("file (%s) open failure <errno = %d>", file, errno);
- return(-1);
- }
- (void) sprintf(buf, "%c%d %s\n", type, stb.st_size, file);
- if (write(pfd, buf, strlen(buf)) < 0)
- return(1);
- if (response())
- return(1);
- sizerr = 0;
- for (i = 0; i < stb.st_size; i += BUFSIZ) {
- amt = BUFSIZ;
- if (i + amt > stb.st_size)
- amt = stb.st_size - i;
- if (sizerr == 0 && read(f, buf, amt) != amt)
- sizerr = 1;
- if (write(pfd, buf, amt) < 0)
- return(1);
- }
- (void) close(f);
- if (sizerr) {
- log("%s: changed size", file);
- if(write(pfd, "\1", 1) < 0) /* signal an error occured */
- return(1);
- } else {
- if (write(pfd, "", 1) < 0)
- return(1);
- if (response())
- return(1);
- }
- return(0);
-}
-
-/*
- * Check to make sure there have been no errors and that both programs
- * are in sync with eachother.
- * Return non-zero if the connection was lost.
- */
-response()
-{
- char resp;
-
- if (read(pfd, &resp, 1) != 1)
- return(1);
- if (resp) {
- log("fatal error in rlpr");
-#ifndef BSD41C
- (void) unlink(LO);
-#endif
- exit(1);
- }
- return(0);
-}
-
-/*
- * Banner printing stuff
- */
-banner(name1, name2)
- char *name1, *name2;
-{
- time_t tvec;
- extern char *ctime();
-
- time(&tvec);
- if (!SF && !tof)
- (void) write(ofd, FF, strlen(FF));
- if (SB) { /* short banner only */
- if (class[0]) {
- (void) write(ofd, class, strlen(class));
- (void) write(ofd, ":", 1);
- }
- (void) write(ofd, name1, strlen(name1));
- (void) write(ofd, " Job: ", 7);
- (void) write(ofd, name2, strlen(name2));
- (void) write(ofd, " Date: ", 8);
- (void) write(ofd, ctime(&tvec), 24);
- (void) write(ofd, "\n", 1);
- } else { /* normal banner */
- (void) write(ofd, "\n\n\n", 3);
- scan_out(ofd, name1, '\0');
- (void) write(ofd, "\n\n", 2);
- scan_out(ofd, name2, '\0');
- if (class[0]) {
- (void) write(ofd,"\n\n\n",3);
- scan_out(ofd, class, '\0');
- }
- (void) write(ofd, "\n\n\n\n\t\t\t\t\tJob: ", 15);
- (void) write(ofd, name2, strlen(name2));
- (void) write(ofd, "\n\t\t\t\t\tDate: ", 12);
- (void) write(ofd, ctime(&tvec), 24);
- (void) write(ofd, "\n", 1);
- }
- if (!SF)
- (void) write(ofd, FF, strlen(FF));
- tof = 1;
-}
-
-char *
-scnline(key, p, c)
- register char key, *p;
- char c;
-{
- register scnwidth;
-
- for (scnwidth = WIDTH; --scnwidth;) {
- key <<= 1;
- *p++ = key & 0200 ? c : BACKGND;
- }
- return (p);
-}
-
-#define TRC(q) (((q)-' ')&0177)
+ register char *cp;
+ int pid;
-scan_out(scfd, scsp, dlm)
- int scfd;
- char *scsp, dlm;
-{
- register char *strp;
- register nchrs, j;
- char outbuf[LINELEN+1], *sp, c, cc;
- int d, scnhgt;
- extern char scnkey[][HEIGHT]; /* in lpdchar.c */
+ printer = buf;
- for (scnhgt = 0; scnhgt++ < HEIGHT+DROP;) {
- strp = &outbuf[0];
- sp = scsp;
- for (nchrs = 0;;) {
- d = dropit(c = TRC(cc = *sp++));
- if ((!d && scnhgt>HEIGHT ) || (scnhgt<=DROP && d))
- for (j=WIDTH; --j;)
- *strp++ = BACKGND;
- else
- strp = scnline(scnkey[c][scnhgt-1-d], strp, cc);
- if (*sp==dlm || *sp=='\0' || nchrs++>=LINELEN/(WIDTH+1)-1)
+ /*
+ * Restart the daemons.
+ */
+ while (getprent(buf) > 0) {
+ for (cp = buf; *cp; cp++)
+ if (*cp == '|' || *cp == ':') {
+ *cp = '\0';
break;
- *strp++ = BACKGND;
- *strp++ = BACKGND;
+ }
+ if ((pid = fork()) < 0) {
+ log("startup: cannot fork");
+ cleanup();
+ }
+ if (!pid) {
+ endprent();
+ printjob();
}
- while (*--strp== BACKGND && strp >= outbuf)
- ;
- strp++;
- *strp++ = '\n';
- (void) write(scfd, outbuf, strp-outbuf);
- }
-}
-
-dropit(c)
- char c;
-{
- switch(c) {
-
- case TRC('_'):
- case TRC(';'):
- case TRC(','):
- case TRC('g'):
- case TRC('j'):
- case TRC('p'):
- case TRC('q'):
- case TRC('y'):
- return (DROP);
-
- default:
- return (0);
}
}
/*
- * sendmail ---
- * tell people about job completion
+ * Check to see if the from host has access to the line printer.
*/
-sendmail(bombed)
- int bombed;
+static
+chkhost(f)
+ struct sockaddr_in *f;
{
- static int p[2];
- register int i;
- int stat;
+ register struct hostent *hp;
+ register FILE *hostf;
register char *cp;
- char buf[100];
-
- pipe(p);
- if ((stat = dofork(DORETURN)) == 0) {
- (void) close(0);
- dup(p[0]);
- for (i = 3; i <= NOFILE; i++)
- (void) close(i);
- if ((cp = rindex(MAIL, '/')) != NULL)
- cp++;
- else
- cp = MAIL;
- sprintf(buf, "%s.%s", hostname, line+1);
- execl(MAIL, cp, buf, 0);
- exit(0);
- } else if (stat > 0) {
- (void) close(1);
- dup(p[1]);
- printf("To: %s\n", line+1);
- printf("Subject: printer job\n\n");
- printf("Your printer job ");
- if (*jobname)
- printf("(%s) ", jobname);
- if (bombed)
- printf("bombed\n");
- else
- printf("is done\n");
- fflush(stdout);
- (void) close(1);
- }
- (void) close(p[0]);
- (void) close(p[1]);
- open(LF, 1);
- wait(&stat);
-}
-
-/*
- * dofork - fork with retries on failure
- */
-dofork(action)
- int action;
-{
- register int i, pid;
-
- for (i = 0; i < 20; i++) {
- if ((pid = fork()) < 0)
- sleep((unsigned)(i*i));
- else
- return (pid);
- }
- log("can't fork");
-
- switch(action) {
- case DORETURN:
- return (-1);
- default:
- log("bad action (%d) to dofork", action);
- /*FALL THRU*/
-#ifndef BSD41C
- case DOUNLOCK:
- (void) unlink(LO);
- /*FALL THRU*/
-#endif
- case DOABORT:
- exit(1);
+ char ahost[50];
+ extern char *inet_ntoa();
+
+ f->sin_port = ntohs(f->sin_port);
+ if (f->sin_family != AF_INET || f->sin_port >= IPPORT_RESERVED)
+ fatal("Malformed from address");
+ hp = gethostbyaddr(&f->sin_addr, sizeof(struct in_addr), f->sin_family);
+ if (hp == 0)
+ fatal("Host name for your address (%s) unknown",
+ inet_ntoa(f->sin_addr));
+
+ strcpy(fromb, hp->h_name);
+ from = fromb;
+ if (!strcmp(from, host))
+ return;
+
+ hostf = fopen("/etc/hosts.equiv", "r");
+ while (fgets(ahost, sizeof(ahost), hostf)) {
+ if (cp = index(ahost, '\n'))
+ *cp = '\0';
+ cp = index(ahost, ' ');
+ if (!strcmp(from, ahost) && cp == NULL) {
+ (void) fclose(hostf);
+ return;
+ }
}
- /*NOTREACHED*/
-}
-
-cleanup()
-{
- signal(SIGTERM, SIG_IGN);
- if (prchild > 0)
- kill(child, SIGKILL); /* get rid of pr's */
- if (child > 0)
- kill(child, SIGKILL); /* get rid of filters */
- if (ofilter > 0)
- kill(ofilter, SIGKILL); /* get rid of output filter */
- while (wait(0) > 0)
- ;
- exit(0); /* lprm removes the lock file */
+ fatal("Your host does not have line printer access");
}
/*VARARGS1*/
-log(message, a1, a2, a3)
- char *message;
+log(msg, a1, a2, a3)
+ char *msg;
{
short console = isatty(fileno(stderr));
fprintf(stderr, console ? "\r\n%s: " : "%s: ", name);
- fprintf(stderr, message, a1, a2, a3);
+ if (printer)
+ fprintf(stderr, "%s: ", printer);
+ fprintf(stderr, msg, a1, a2, a3);
if (console)
putc('\r', stderr);
putc('\n', stderr);
fflush(stderr);
}
-/*VARARGS1*/
-status(message, a1, a2, a3)
- char *message;
-{
- register int fd;
- char buf[BUFSIZ];
-
- if ((fd = creat(ST, FILMOD)) < 0) {
- log("cannot create %s", ST);
-#ifndef BSD41C
- unlink(LO);
-#endif
- exit(1);
- }
- sprintf(buf, message, a1, a2, a3);
- strcat(buf, "\n");
- (void) write(fd, buf, strlen(buf));
- (void) close(fd);
-}
-
-init()
-{
- char b[BUFSIZ];
- static char buf[BUFSIZ/2];
- static char *bp = buf;
- int status;
-
- if ((status = pgetent(b, printer)) < 0) {
- printf("%s: can't open printer description file\n", name);
- exit(3);
- } else if (status == 0) {
- printf("%s: unknown printer\n", printer);
- exit(4);
- }
- if ((DN = pgetstr("dn", &bp)) == NULL)
- DN = DEFDAEMON;
- if ((LP = pgetstr("lp", &bp)) == NULL)
- LP = DEFDEVLP;
- if ((LO = pgetstr("lo", &bp)) == NULL)
- LO = DEFLOCK;
- if ((ST = pgetstr("st", &bp)) == NULL)
- ST = DEFSTAT;
- if ((LF = pgetstr("lf", &bp)) == NULL)
- LF = DEFLOGF;
- if ((SD = pgetstr("sd", &bp)) == NULL)
- SD = DEFSPOOL;
- if ((FF = pgetstr("ff", &bp)) == NULL)
- FF = DEFFF;
- if ((RL = pgetstr("rl", &bp)) == NULL)
- RL = DEFRLPR;
- if ((DU = pgetnum("du")) < 0)
- DU = DEFUID;
- if ((PW = pgetnum("pw")) < 0)
- PW = DEFWIDTH;
- sprintf(&width[2], "%d", PW);
- if ((PL = pgetnum("pl")) < 0)
- PL = DEFLENGTH;
- sprintf(&length[2], "%d", PL);
- RM = pgetstr("rm", &bp);
- RP = pgetstr("rp", &bp);
- AF = pgetstr("af", &bp);
- OF = pgetstr("of", &bp);
- IF = pgetstr("if", &bp);
- TF = pgetstr("tf", &bp);
- VF = pgetstr("vf", &bp);
- CF = pgetstr("cf", &bp);
- PF = pgetstr("pf", &bp);
- TR = pgetstr("tr", &bp);
- SF = pgetflag("sf");
- SH = pgetflag("sh");
- SB = pgetflag("sb");
- BR = pgetnum("br");
- if ((FC = pgetnum("fc")) < 0)
- FC = 0;
- if ((FS = pgetnum("fs")) < 0)
- FS = 0;
-}
-
-struct bauds {
- int baud;
- int speed;
-} bauds[] = {
- 50, B50,
- 75, B75,
- 110, B110,
- 134, B134,
- 150, B150,
- 200, B200,
- 300, B300,
- 600, B600,
- 1200, B1200,
- 1800, B1800,
- 2400, B2400,
- 4800, B4800,
- 9600, B9600,
- 19200, EXTA,
- 38400, EXTB,
- 0, 0
-};
-
-/*
- * setup tty lines.
- */
-setty()
+static
+logerr(msg)
+ char *msg;
{
- struct sgttyb ttybuf;
- register struct bauds *bp;
-
- if (ioctl(pfd, TIOCGETP, (char *)&ttybuf) < 0) {
- log("cannot get tty parameters");
-#ifndef BSD41C
- (void) unlink(LO);
-#endif
- exit(1);
- }
-
- if (BR > 0) {
- for (bp = bauds; bp->baud; bp++)
- if (BR == bp->baud)
- break;
- if (!bp->baud) {
- log("illegal baud rate %d", BR);
-#ifndef BSD41C
- (void) unlink(LO);
-#endif
- exit(1);
- }
- ttybuf.sg_ispeed = ttybuf.sg_ospeed = bp->speed;
- }
- if (FC)
- ttybuf.sg_flags &= ~FC;
- if (FS)
- ttybuf.sg_flags |= FS;
+ register int err = errno;
+ short console = isatty(fileno(stderr));
+ extern int sys_nerr;
+ extern char *sys_errlist[];
- if (ioctl(pfd, TIOCSETN, (char *)&ttybuf) < 0) {
- log("cannot set tty parameters");
-#ifndef BSD41C
- (void) unlink(LO);
-#endif
- exit(1);
- }
+ fprintf(stderr, console ? "\r\n%s: " : "%s: ", name);
+ if (msg)
+ fprintf(stderr, "%s: ", msg);
+ fputs(err < sys_nerr ? sys_errlist[err] : "Unknown error" , stderr);
+ if (console)
+ putc('\r', stderr);
+ putc('\n', stderr);
+ fflush(stderr);
}