#!/usr/local/bin/perl

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

while(<yi_env_*.ps>) {
	system ("/usr/local/bin/lp $_");
	#system ("/usr/local/bin/lp $_ > /dev/null 2>&1");
	unlink $_;
}

print "<BR>Yahrzeit Envelopes Printed<P>";