| Next | Welcome to my ~/bin | 126 | 
        #!/usr/bin/perl
        $MAIL = '/var/qmail/bin/qmail-inject';
        use Getopt::Std;
        getopts('f:m:s:b:B') or usage();
        $opt_f or usage();
        my $m_file = $opt_m;
        my $message;
        my $subj = $opt_s;
        @ARGV or usage();
        my $to = join ', ', @ARGV;
        my $bcc = $opt_b || $ENV{FORGE_BCC} || $ENV{USER};
        my $BCC = $opt_B ? "" : "Bcc: $bcc\n";
The heart of the thing is a call to qmail-inject
Note that $BCC is set to an entire Bcc: line, or the empty string
Typically:
        Bcc: mjd@plover.com
| Next | Menu |  | Copyright © 2005 M. J. Dominus |