Help with Bounce Queue

[Kent West <westk@acu.edu>]

I'm having a hard time figuring out how a bounce
queue should work.

Here's my goal:

When I print something to a certain print queue, I
want the document to be printed and to be mailed.
Normal printing is filtered through the standard
HPLJ4 magicfilter, and from there gets sent to the
remote printer.

When I want hardcopy and email, I print to a
second queue, that runs a "mailit" filter (a perl
script) that should send the printed material to
an email, and that should then bounce the printed
material to the normal queue as mentioned above.

If I manually run the "mailit" filter, the prompt
sits there, where I can type something, like "This
is a test", and then hit Ctrl-D. The mailit filter
ends, returning me to a normal prompt, and then
I can check my mail and there's the message.
Perfect.

However, whenever I print to the second queue, I
get the printout, but it never generates the email
message. Can anyone help me figure out what I'm
doing wrong?

Here's my printcap:
#
# Copyright (c) 1983 Regents of the University of
California.
# All rights reserved.
#
# Redistribution and use in source and binary
forms are permitted
# provided that this notice is preserved and that
due credit is given
# to the University of California at Berkeley. The
name of the University
# may not be used to endorse or promote products
derived from this
# software without specific prior written
permission. This software
# is provided ``as is'' without express or implied
warranty.
#
# @(#)etc.printcap 5.2 (Berkeley) 5/5/88
#
# This file was generated by
/usr/sbin/magicfilterconfig.
#
lp|HP LaserJet III (local LPT1):\
 :lp=/dev/lp0:\
 :sd=/var/spool/lpd/lp:\
 :sh:pw#80:pl#66:px#1440:mx#0:\
 :if=/etc/magicfilter/ljet4-filter:\
# :of=/etc/magicfilter/mailit:\
 :af=/var/log/lp-acct:lf=/var/log/lp-errs:

bounce:\
 :lp=:\
 :bq=lp@localhost:\
 :if=/etc/magicfilter/mailit:\
 :sd=/var/spool/lpd/bounce:


And here's my "mailit" filter:
#! /usr/bin/perl
$recipient = "westk\@mail.acu.edu";
$subject = "Your Printout, Sir";
$mailprog = "mail";

open (MAIL, "|$mailprog -s \'$subject\'
$recipient");
print MAIL "----- Here's your printout, Sir\n\n";

while (<STDIN>) {
  print MAIL $_;
}

print MAIL "\n----- That's all, Folks!\n";

close MAIL;


Thanks for any help!