Print & Email the same document

[Kent West <westk@acu.edu>]

> I've been trying to do this off-and-on for two years, and although I've had lots of
> help, nothing has ever worked. Can I assume that it's impossible to print and email
> a document from one command?

> 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!
>
> --
> Unsubscribe?  mail -s unsubscribe debian-user-request@lists.debian.org < /dev/null