[Summary view] [Print] [Text view]

   1  #!/usr/local/bin/perl
   2  
   3  #
   4  #  Print Yahrzeit Envelopes
   5  #  
   6   
   7  $OUTDIR="/archive/misc/yi/tmp";
   8  chdir $OUTDIR;
   9  
  10  while(<yi_env_*.ps>) {
  11      system ("/usr/local/bin/lp $_");
  12      #system ("/usr/local/bin/lp $_ > /dev/null 2>&1");
  13      unlink $_;
  14  }
  15  
  16  print "<BR>Yahrzeit Envelopes Printed<P>";