BSD 4 development

Work on file usr/src/cmd/lpr/lprm.c

Synthesized-from: CSRG//cd1/4.0

diff --git a/usr/src/cmd/lpr/lprm.c b/usr/src/cmd/lpr/lprm.c
new file mode 100755 (executable)
index 0000000..96b9092
--- /dev/null
+++ b/usr/src/cmd/lpr/lprm.c
@@ -0,0 +1,123 @@
+#include <sys/types.h>
+#include <dir.h>
+#include <stat.h>
+#include <stdio.h>
+
+char   line[128];
+int    linel;
+int    all;
+char   lpddir[] = "/usr/spool/lpd";
+FILE   *df;
+FILE   *dfb;
+
+main(argc, argv)
+       int argc;
+       char *argv[];
+{
+       register int i;
+       register char *ap, *cp;
+       int cnt;
+
+       if (chdir(lpddir) < 0)
+               perror(lpddir), exit(1);
+       df = fopen(".", "r");
+       if (df == NULL)
+               perror(lpddir), exit(1);
+       argc--, argv++;
+       if (argc == 0) {
+               printf("usage: lprm [ id ... ] [ filename ... ] [ user ... ]\n");
+               exit(1);
+       }
+       do {
+               if (strcmp(*argv, "-a") == 0)
+                       all++;
+               clobber(*argv++);
+       } while (--argc);
+}
+
+clobber(cp)
+       char *cp;
+{
+       struct dir dirent;
+       int did = 0;
+
+       rewind(df);
+       while (fread(&dirent, sizeof dirent, 1, df) == 1) {
+               if (dirent.d_ino == 0)
+                       continue;
+               if (dirent.d_name[0] != 'd' || dirent.d_name[1] != 'f')
+                       continue;
+               if (dirent.d_name[7] == 0 || dirent.d_name[8] != 0)
+                       continue;
+               if (chkclob(cp, dirent.d_name)) {
+                       did++;
+                       printf("removing %s\n", dirent.d_name+3);
+                       unlink(dirent.d_name);
+                       dirent.d_name[0] = 'c'; unlink(dirent.d_name);
+                       dirent.d_name[0] = 'l'; unlink(dirent.d_name);
+                       dirent.d_name[0] = 't'; unlink(dirent.d_name);
+                       dirent.d_name[0] = 'd';
+               }
+       }
+       if (did == 0)
+               fprintf(stderr, "%s: nothing to remove\n", cp);
+}
+
+chkclob(pattern, file)
+       char *pattern, *file;
+{
+       register char *id = pattern;
+
+       /*
+        * Quick check for matching id
+        */
+       if (any(id[0], "cd") && id[1] == 'f' && id[2] == 'a')
+               id += 3;
+       if (strcmp(file+3, id) == 0)
+               return (1);
+       /*
+        * Now check for matching filename 'B', 'F' or id 'L'
+        */
+       dfb = fopen(file, "r");
+       if (dfb == NULL)
+               return (0);
+       while (getline()) switch (line[0]) {
+
+       case 'L':
+       case 'B':
+       case 'F':
+               if (strcmp(line+1, pattern) == 0) {
+                       fclose(dfb);
+                       return (1);
+               }
+               continue;
+       }
+       fclose(dfb);
+       return (0);
+}
+
+any(c, cp)
+       char c;
+       register char *cp;
+{
+
+       while (*cp)
+               if (c == *cp++)
+                       return (1);
+       return (0);
+}
+
+getline()
+{
+       register int i, c;
+
+       i = 0;
+       while ((c = getc(dfb)) != '\n') {
+               if (c <= 0)
+                       return(0);
+               if (i < 100)
+                       line[i++] = c;
+       }
+       line[i++] = 0;
+       return (1);
+}