]>
Commit | Line | Data |
---|---|---|
1 | #!/bin/sh | |
2 | # $Header$ | |
3 | # This script prints the letters confirming registration for the extra | |
4 | # kerberos principal. | |
5 | ||
6 | # The algorithm consists of first checking to see that the previous | |
7 | # day's job printed. If so, the cached copy is deleted. Otherwise, | |
8 | # today's is appended to yesterday's and we continue working with that. | |
9 | ||
10 | PATH=/bin:/bin/athena:/usr/ucb:/usr/bin/athena:/usr/athena; export PATH | |
11 | printer=linus | |
12 | newfile=/tmp/letter.out | |
13 | savefile=/u1/letter.save | |
14 | holdfile=/u1/letter.hold | |
15 | ||
16 | # These are not normally local, so may need to point somewhere else | |
17 | lpquota=lpquota | |
18 | lpr=lpr | |
19 | colrm=colrm | |
20 | ||
21 | last=`$lpquota -l | tail -2` | |
22 | if [ "`echo $last | $colrm 1 4 | $colrm 7`" = \ | |
23 | "`ls -l $savefile | $colrm 1 32 | $colrm 7`" ]; then | |
24 | mv $newfile $savefile | |
25 | else | |
26 | if [ -s $savefile ]; then | |
27 | if [ ! -f $holdfile ]; then | |
28 | (echo "Reg_extra letters failed to print yesterday"; \ | |
29 | ls -l $savefile; \ | |
30 | echo $last) | /bin/mail dbadmin thorne | |
31 | fi | |
32 | cat $newfile >> $savefile | |
33 | else | |
34 | mv $newfile $savefile | |
35 | fi | |
36 | fi | |
37 | rm -f $holdfile | |
38 | ||
39 | if [ "`$lpr -P$printer -h $savefile`"x = "Printer queue is disabled."x ]; then | |
40 | touch $holdfile | |
41 | fi | |
42 | ||
43 | exit 0 |