BSD 4_1c_2 release

[unix-history] / usr / src / usr.lib / vpr / vpq.c

/* vpq.c                8/6/82
* Varian and Versatec queue
*/

static char vpqSCCSid[] = "@(#)vpq.c    1.3\t8/6/82";

#include <sys/param.h>
#include <dir.h>
#include <stat.h>
#include <stdio.h>
#include <errno.h>
#define MAXJOBS 100

struct  stat stbuf;
int     nextflag;
int     linecnt;
FILE    *jf;
char    line[100];
char    username[10];
int     cnt;
extern  int errno;
extern  char _sobuf[];

main(argc, argv)
int argc;
char **argv;
{
       int varian = 1;
       int versatec = 1;

       setbuf(stdout, _sobuf);

       argc--, argv++;
       while (argc > 0 && argv[0][0] == '-') {
               switch (argv[0][1]) {

               case 'W':               /* Wide: the versatec. */
                       varian = 0;
                       versatec++;
                       break;

               case 'b':
                       varian++;
                       versatec++;
                       break;

               default:
                       fprintf(stderr, "usage: vpq [ -W ] [ -b ]\n");
                       exit(1);
               }
               argc--, argv++;
       }
       if (varian)
               queue("/dev/va0", "Varian", "/usr/spool/vad", "/usr/lib/vad");
       if (versatec)
               queue("/dev/vp0", "Versatec", "/usr/spool/vpd", "/usr/lib/vpd");
       exit(0);
}


queue(device, devname, spooldir, daemon)
char *device, *devname, *spooldir, *daemon;
{
       FILE *vc;
       DIR *df;
       register struct direct *dirp;

       printf("%s: ", devname);
       vc = fopen(device, "w");
       if (vc == NULL) {
               if (errno == EIO)
                       printf("offline\n");
               else if (errno == ENXIO)
                       printf("in use\n");
               else
                       printf("not available\n");
       } else {
               printf("ready and idle.\n");
               fclose(vc);
       }
       if (access(daemon, 1))
               printf("Daemon is disabled.\n");
       if (chdir(spooldir) < 0) {
               perror(spooldir);
               return;
       }
       df = opendir(".");
       if (df == NULL) {
               perror(spooldir);
               return;
       }
       linecnt = 0;
       cnt = 0;
       while ((dirp = readdir(df)) != NULL) {
               if (dirp->d_name[0] != 'd')
                       continue;
               if (dirp->d_name[1] != 'f')
                       continue;
               if (stat(dirp->d_name, &stbuf) < 0)
                       continue;
               if (cnt == 0)
                       printf("Owner\t  Id      Chars  Filename\n");
               cnt++;
               process(dirp);
       }
       closedir(df);
       if (cnt == 0)
               printf("Queue is empty.\n");
       printf("\n");
}

process(dirp)
       register struct direct *dirp;
{

       jf = fopen(dirp->d_name, "r");
       if (jf == NULL)
               return;
       while (getline()) {
               switch (line[0]) {

               case 'L':
                       strcpy(username, line+1);
                       break;

               case 'C':
               case 'V':
               case 'F':
               case 'G':
               case 'P':
               case 'T':
                       if (stat(line+1, &stbuf) < 0)
                               stbuf.st_size = 0;
                       printf("%-10s%5s%8d  %s\n", username,
                           &(dirp->d_name[3]), stbuf.st_size, line+1);
                       break;
               }
       }
       fclose(jf);
}

getline()
{
       register int i, c;

       i = 0;
       while ((c = getc(jf)) != '\n') {
               if (c <= 0)
                       return(0);
               if (i < 100)
                       line[i++] = c;
       }
       line[i++] = 0;
       return (1);
}