/*
 * Line printer queue
 */

#include <sys/types.h>
#include <dir.h>
#include <stat.h>
#include <stdio.h>

#define	MAXJOBS 100

struct	dir dirent;
struct	stat stbuf;
char	lpddir[] =	"/usr/spool/lpd";
int	nextflag;
int	linecnt;
FILE	*df;
FILE	*jf;
char	line[100];
char	username[10];
int	cnt;
int	isdown;

main()
{

	if (access("/usr/bin/lpr", 1) && access("/bin/lpr", 1)
	    && access("/usr/ucb/lpr", 1))
		isdown++;
	if (chdir(lpddir) < 0) {
		perror(lpddir);
		exit(1);
	}
oloop:
	df = fopen(".", "r");
	if (df == NULL) {
		perror(lpddir);
		exit(1);
	}
loop:
	fseek(df, 0l, 0);
	linecnt = 0;
	cnt = 0;
	while (fread(&dirent, sizeof dirent, 1, df) == 1) {
		if (dirent.d_ino == 0)
			continue;
		if (dirent.d_name[0] != 'd')
			continue;
		if (dirent.d_name[1] != 'f')
			continue;
		if (stat(dirent.d_name, &stbuf) < 0)
			continue;
		if (cnt == 0)
			printf("Owner\t  Id      Chars  Filename\n");
		cnt++;
		process();
	}
	if (cnt == 0) {
		if (isdown)
			printf("Line printer is down.\n");
		else
			printf("Line printer queue is empty.\n");
	}
	exit(0);
}

process()
{

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

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

		case 'B':
		case 'F':
			if (stat(line+1, &stbuf) < 0)
				stbuf.st_size = 0;
			printf("%-10s%5s%8d  %s\n", username, dirent.d_name+3,
			    stbuf.st_size, line+1);
			break;
		}
	}
	close(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);
}