gen/letter.sh

   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