Initial revision

diff --git a/gen/letter.sh b/gen/letter.sh
new file mode 100644 (file)
index 0000000..c6ff6a0
--- /dev/null
+++ b/gen/letter.sh
@@ -0,0 +1,31 @@
+#!/bin/sh
+# $Header$
+# This script prints the letters confirming registration for the extra
+# kerberos principal.
+
+# The algorithm consists of first checking to see that the previous 
+# day's job printed.  If so, the cached copy is deleted.  Otherwise,
+# today's is appended to yesterday's and we continue working with that.
+
+PATH=/bin:/bin/athena:/usr/ucb:/usr/bin/athena:/usr/athena; export PATH
+printer=nil
+newfile=/tmp/letter.out
+savefile=/u1/letter.save
+
+# These are not normally local, so may need to point somewhere else
+lpquota=lpquota
+lpr=lpr
+colrm=colrm
+
+last=`$lpquota -l | tail -2`
+if [ "`echo $last | $colrm 1 4 | $colrm 7`" = \
+     "`ls -l $savefile | $colrm 1 32 | $colrm 7`" ]; then
+       mv $newfile $savefile
+else
+       cat $newfile >> $savefile
+       echo "Reg_extra letter printing error" | /bin/mail dbadmin
+fi
+
+$lpr -P$printer -h $savefile
+
+exit 0

diff --git a/gen/letter.template b/gen/letter.template
new file mode 100644 (file)
index 0000000..7dd9ed8
--- /dev/null
+++ b/gen/letter.template
@@ -0,0 +1,272 @@
+%!PS-Adobe-1.0
+%%Creator: Toto:mar (Mark A. Rosenstein,,E40-338M,31530,7822001)
+%%Title: stdin (ditroff)
+%%CreationDate: Tue Jun 16 22:15:23 1992
+%%EndComments
+% Start of psdit.pro -- prolog for ditroff translator
+% Copyright (c) 1985,1987 Adobe Systems Incorporated. All Rights Reserved. 
+% GOVERNMENT END USERS: See Notice file in TranScript library directory
+% -- probably /usr/lib/ps/Notice
+% RCS: $Header$
+/$DITroff 140 dict def $DITroff begin
+/fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def
+/xi {0 72 11 mul translate 72 resolution div dup neg scale 0 0 moveto
+  /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def F
+  /pagesave save def}def
+/PB{save /psv exch def currentpoint translate
+  resolution 72 div dup neg scale 0 0 moveto}def
+/PE{psv restore}def
+/m1 matrix def /m2 matrix def /m3 matrix def /oldmat matrix def
+/tan{dup sin exch cos div}bind def
+/point{resolution 72 div mul}bind def
+/dround        {transform round exch round exch itransform}bind def
+/xT{/devname exch def}def
+/xr{/mh exch def /my exch def /resolution exch def}def
+/xp{}def
+/xs{docsave restore end}def
+/xt{}def
+/xf{/fontname exch def /slotno exch def fontnames slotno get fontname eq not
+ {fonts slotno fontname findfont put fontnames slotno fontname put}if}def
+/xH{/fontheight exch def F}bind def
+/xS{/fontslant exch def F}bind def
+/s{/fontsize exch def /fontheight fontsize def F}bind def
+/f{/fontnum exch def F}bind def
+/F{fontheight 0 le {/fontheight fontsize def}if
+   fonts fontnum get fontsize point 0 0 fontheight point neg 0 0 m1 astore
+   fontslant 0 ne{1 0 fontslant tan 1 0 0 m2 astore m3 concatmatrix}if
+   makefont setfont .04 fontsize point mul 0 dround pop setlinewidth}bind def
+/X{exch currentpoint exch pop moveto show}bind def
+/N{3 1 roll moveto show}bind def
+/Y{exch currentpoint pop exch moveto show}bind def
+/S /show load def
+/ditpush{}def/ditpop{}def
+/AX{3 -1 roll currentpoint exch pop moveto 0 exch ashow}bind def
+/AN{4 2 roll moveto 0 exch ashow}bind def
+/AY{3 -1 roll currentpoint pop exch moveto 0 exch ashow}bind def
+/AS{0 exch ashow}bind def
+/MX{currentpoint exch pop moveto}bind def
+/MY{currentpoint pop exch moveto}bind def
+/MXY /moveto load def
+/cb{pop}def    % action on unknown char -- nothing for now
+/n{}def/w{}def
+/p{pop showpage pagesave restore /pagesave save def}def
+/abspoint{currentpoint exch pop add exch currentpoint pop add exch}def
+/dstroke{currentpoint stroke moveto}bind def
+/Dl{2 copy gsave rlineto stroke grestore rmoveto}bind def
+/arcellipse{oldmat currentmatrix pop
+ currentpoint translate 1 diamv diamh div scale /rad diamh 2 div def
+ rad 0 rad -180 180 arc oldmat setmatrix}def
+/Dc{gsave dup /diamv exch def /diamh exch def arcellipse dstroke 
+    grestore diamh 0 rmoveto}def
+/De{gsave /diamv exch def /diamh exch def arcellipse dstroke
+    grestore diamh 0 rmoveto}def
+/Da{currentpoint /by exch def /bx exch def /fy exch def /fx exch def
+   /cy exch def /cx exch def /rad cx cx mul cy cy mul add sqrt def
+   /ang1 cy neg cx neg atan def /ang2 fy fx atan def cx bx add cy by add
+   2 copy rad ang1 ang2 arcn stroke exch fx add exch fy add moveto}def
+/Barray 200 array def % 200 values in a wiggle
+/D~{mark}def
+/D~~{counttomark Barray exch 0 exch getinterval astore /Bcontrol exch def pop
+ /Blen Bcontrol length def Blen 4 ge Blen 2 mod 0 eq and
+ {Bcontrol 0 get Bcontrol 1 get abspoint /Ycont exch def /Xcont exch def
+  Bcontrol 0 2 copy get 2 mul put Bcontrol 1 2 copy get 2 mul put
+  Bcontrol Blen 2 sub 2 copy get 2 mul put
+  Bcontrol Blen 1 sub 2 copy get 2 mul put
+  /Ybi /Xbi currentpoint 3 1 roll def def 0 2 Blen 4 sub
+  {/i exch def
+   Bcontrol i get 3 div Bcontrol i 1 add get 3 div
+   Bcontrol i get 3 mul Bcontrol i 2 add get add 6 div
+   Bcontrol i 1 add get 3 mul Bcontrol i 3 add get add 6 div
+   /Xbi Xcont Bcontrol i 2 add get 2 div add def
+   /Ybi Ycont Bcontrol i 3 add get 2 div add def
+   /Xcont Xcont Bcontrol i 2 add get add def
+   /Ycont Ycont Bcontrol i 3 add get add def
+   Xbi currentpoint pop sub Ybi currentpoint exch pop sub rcurveto
+  }for dstroke}if}def
+end
+/ditstart{$DITroff begin
+ /nfonts 60 def                        % NFONTS makedev/ditroff dependent!
+ /fonts[nfonts{0}repeat]def
+ /fontnames[nfonts{()}repeat]def
+/docsave save def
+}def
+
+ditstart
+(psc)xT
+576 1 1 xr
+1(Times-Roman)xf 1 f
+2(Times-Italic)xf 2 f
+3(Times-Bold)xf 3 f
+4(Times-BoldItalic)xf 4 f
+5(Helvetica)xf 5 f
+6(Helvetica-Bold)xf 6 f
+7(Courier)xf 7 f
+8(Courier-Bold)xf 8 f
+9(Symbol)xf 9 f
+10 s
+1 f
+% switch to color papertray
+1 statusdict /setpapertray get exec
+xi
+%%EndProlog
+
+%%Page: 1 1
+10 s 0 xH 0 xS 1 f
+720 672(Athena)N
+972(User)X
+1144(Accounts)X
+720 768(MIT)N
+907(Room)X
+1122(11-124H)X
+720 864(77)N
+820(Massachusetts)X
+1303(Ave)X
+720 960(Cambridge,)N
+1116(MA)X
+1305(02139)X
+12 s
+1248 1464(%n)N
+1248 1576(%a1)N
+1248 1688(%a2)N
+
+showpage pagesave restore
+% switch back to white paper
+3 statusdict /setpapertray get exec
+xi
+%%Page: 2 2
+
+12 s 0 xH 0 xS 1 f
+720 912(From:)N
+979(Information)X
+1463(Systems)X
+864 1024(Athena)N
+1166(User)X
+1371(Accounts)X
+720 1248(To:)N
+926(%n)X
+2992(%d)X
+1008 1696(This)N
+1203(letter)X
+1426(is)X
+1514(to)X
+1613(con\256rm)X
+1936(that)X
+2105(`%l' registered for a second Athena password)X
+%2562(registered)X
+%2966(for)X
+%3102(a)X
+%3169(second)X
+%3460(Athena)X
+%3762(password)X
+720 1808(using the reg_extra program.)N
+1008 2032(If)N
+1096(you)X
+1264(did)X
+1411(not)X
+1558(do)X
+1678(this,)X
+1865(then)X
+2055(there)X
+2272(is)X
+2360(reason)X
+2635(to)X
+2734(believe)X
+3037(your)X
+3237(account)X
+3561(has)X
+3713(been)X
+720 2144(compromised,)N
+1292(so)X
+1401(contact)X
+1704(Athena)X
+2006(User)X
+2211(Accounts)X
+2598(immediately)X
+3105(by)X
+3225(calling)X
+3512(x3-1325,)X
+720 2256(sending)N
+1043(mail)X
+1239(to)X
+1338(<accounts@mit.edu>,)X
+2211(or)X
+2315(stopping)X
+2670(by)X
+2790(11-124H)X
+3155(between)X
+3500(the)X
+3642(hours)X
+3879(of)X
+3983(2)X
+4055(to)X
+720 2368(5.)N
+1008 2592(The)N
+1182(password)X
+1568(will)X
+1742(not)X
+1889(take)X
+2074(effect)X
+2318(for)X
+2454(two)X
+2622(weeks)X
+2886(from)X
+3097(the)X
+3239(date)X
+3424(above.)X
+3702(Remember,)X
+720 2704(the)N
+862(second)X
+1153(Athena)X
+1455(password)X
+1841(\("extra")X
+2168(instance\))X
+2540(will)X
+2714(allow)X
+2952(access)X
+3222(to)X
+3321(your)X
+3521(grades)X
+3796(and,)X
+720 2816(potentially,)N
+1181(other)X
+1403(sensitive)X
+1764(information.)X
+2267(It)X
+2350(is)X
+2438(important)X
+2837(that)X
+3006(you)X
+3174(keep)X
+3380(all)X
+3501(passwords)X
+720 2928(private,)N
+1036(since)X
+1258(they)X
+1448(will)X
+1622(be)X
+1737(used)X
+1937(to)X
+2036(give)X
+2226(you access to more and more critical functions.)X
+%2640(to)X
+%2739(more)X
+%2961(and)X
+%3124(more)X
+%3346(critical)X
+%3639(functions.)X
+1008 3152(If)N
+1096(you)X
+1264(have)X
+1470(any)X
+1633(question)X
+1983(please)X
+2248(contact)X
+2551(Athena)X
+2853(User)X
+3058(Accounts.)X
+
+2 p
+%%Trailer
+xt
+
+xs