#!/usr/local/bin/perl

#
#  Print Yahrzeit Letters
#  
 
$OUTDIR="/archive/misc/yi/tmp";

chdir $OUTDIR;

while(<yi_yl_*.ps>) {
#	system ("cat $_ | /usr/local/bin/lp > /dev/null 2>&1");
	system ("/usr/local/bin/lp $_ ");
#	unlink $_;
}
system ("/usr/local/bin/a2ps -np -w summary > summary.ps");
system ("/usr/local/bin/lp summary.ps > /dev/null 2>&1");

unlink "summary"; 

print "<br>Yahrzeit Letters Printed<P>";