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 |