summaryrefslogtreecommitdiff
path: root/dviware/quicspool/src/glpq
blob: 9d3c9638c000a9117577cc3acc031151e6e67b2d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#! /bin/csh
# $Header: glpq,v 1.1 88/01/15 13:04:09 simpson Rel $
# $Log:	glpq,v $
#Revision 1.1  88/01/15  13:04:09  simpson
#initial release
#
#Revision 0.1  87/12/11  18:30:57  simpson
#beta test
#
set printers=(sneezy dopey grumpy)
set lpqflags
while ($#argv > 0)
    switch ($1)
    # if the -P option or a job number is given, only use one printer
    case -P*:
	lpq $lpqflags $*
	exit
    case [0-9]*:
	lpq $lpqflags $*
	exit
    default:
	set lpqflags=($lpqflags $1)
	shift
	breaksw
    endsw
end
foreach i ($printers)
    echo ${i}:
    lpq -P$i $lpqflags
    echo ${i}l:
    lpq -P${i}l $lpqflags
end