[Summary view] [Print] [Text view]

   1  #!/usr/local/bin/perl
   2  
   3  #
   4  #  Print Yahrzeit Letters
   5  #  
   6   
   7  $OUTDIR="/archive/misc/yi/tmp";
   8  
   9  chdir $OUTDIR;
  10  
  11  while(<yi_yl_*.ps>) {
  12  #    system ("cat $_ | /usr/local/bin/lp > /dev/null 2>&1");
  13      system ("/usr/local/bin/lp $_ ");
  14  #    unlink $_;
  15  }
  16  system ("/usr/local/bin/a2ps -np -w summary > summary.ps");
  17  system ("/usr/local/bin/lp summary.ps > /dev/null 2>&1");
  18  
  19  unlink "summary"; 
  20  
  21  print "<br>Yahrzeit Letters Printed<P>";