source: trunk/athena/bin/lpr/lprm.c @ 6370

/*
 * Copyright (c) 1983 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1983 Regents of the University of California.\n\
 All rights reserved.\n";
#endif not lint

#ifndef lint
static char sccsid[] = "@(#)lprm.c      5.2 (Berkeley) 11/17/85";
#endif not lint

#ifdef OPERATOR
#define GETUID geteuid
#else 
#define GETUID getuid
#endif

/*
 * lprm - remove the current user's spool entry
 *
 * lprm [-] [[job #] [user] ...]
 *
 * Using information in the lock file, lprm will kill the
 * currently active daemon (if necessary), remove the associated files,
 * and startup a new daemon.  Priviledged users may remove anyone's spool
 * entries, otherwise one can only remove their own.
 * A special version of lprm can be compiled with OPERATOR #defined that will
 * allow anyone to access it as the superuser.  It also logs all such actions.
 * o_lprm should be installed suid root, group execute operator only.
 */

#include "lp.h"

#if defined(KERBEROS)
int use_kerberos;
int kerberos_override = -1;
#endif /* KERBEROS */

/*
 * Stuff for handling job specifications
 */
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     luser[16];      /* buffer for person */

struct passwd *getpwuid();

main(argc, argv)
        char *argv[];
{
        register char *arg;
        struct passwd *p;
        struct hostent *hp;

#ifdef OPERATOR
#ifdef LOG_AUTH
        openlog("lprm", 0, LOG_AUTH);
#else
        openlog("lprm", 0);
#endif
#endif

        name = argv[0];
        gethostname(host, sizeof(host));
        hp = gethostbyname(host);
        if (hp) strcpy(host, hp -> h_name);

#ifndef OPERATOR
#ifdef LOG_LPR
        openlog("lprm", 0, LOG_LPR);
#else
        openlog("lprm", 0);
#endif
#endif

        if ((p = getpwuid(GETUID())) == NULL)
                fatal("Who are you?");
        if (strlen(p->pw_name) >= sizeof(luser))
                fatal("Your name is too long");
        strcpy(luser, p->pw_name);
        person = luser;
        while (--argc) {
                if ((arg = *++argv)[0] == '-')
                        switch (arg[1]) {
                        case 'P':
                                if (arg[2])
                                        printer = &arg[2];
                                else if (argc > 1) {
                                        argc--;
                                        printer = *++argv;
                                }
                                break;
#if defined(KERBEROS)
                        case 'u':
                                kerberos_override = 0;
                                break;
                        case 'k':
                                kerberos_override = 1;
                                break;
#endif /* KERBEROS */
                        case '\0':
                                if (!users) {
                                        users = -1;
                                        break;
                                }
                        default:
                                usage();
                        }
                else {
                        if (users < 0)
                                usage();
                        if (isdigit(arg[0])) {
                                if (requests >= MAXREQUESTS)
                                        fatal("Too many requests");
                                requ[requests++] = atoi(arg);
                        } else {
                                if (users >= MAXUSERS)
                                        fatal("Too many users");
                                user[users++] = arg;
                        }
                }
        }
        if (printer == NULL && (printer = getenv("PRINTER")) == NULL)
                printer = DEFLP;
#ifdef OPERATOR
        log(requ, requests, user, users, printer);
#endif
        rmjob();
}

static
usage()
{
        printf("usage: lprm [-] [-Pprinter] [[job #] [user] ...]\n");
        exit(2);
}
#ifdef OPERATOR
log(jobs, jobnums, users, usernums, printer)
int jobs[], jobnums;
char *users[];
int usernums;
char *printer;
{
        struct passwd   *pwentry;
        char            *name;
        char            logbuf[512];
        char            scratch[512];
        register int    i;
                                        /* note getuid() returns real uid */
        pwentry = getpwuid(getuid()); /* get password entry for invoker */
        name = pwentry->pw_name; /* get his name */

        sprintf(logbuf,"%s LPRM'd ",name);
        if (jobnums > 0) {
                strcat(logbuf,"jobs ");
                for (i=0; i<jobnums; i++) {
                        sprintf(scratch, "%d ",jobs[i]);
                        strcat(logbuf, scratch);
                }
        }
        if (usernums > 0) {
                if (jobnums > 0) { 
                        strcat(logbuf,"and ");
                }
                strcat(logbuf, "users ");
                for (i=0; i<usernums; i++) {
                        sprintf(scratch, "%s ",users[i]);
                        strcat(logbuf, scratch);
                }
        }
        sprintf(scratch, "on printer %s.",printer);
        strcat(logbuf, scratch);

        syslog(LOG_INFO, logbuf);
        return(0);
}
#endif