git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bc3ce90
)
Fixed passthru: -q|-Q are also valid non-delivering options
author
short
<>
Sun, 6 Oct 2002 20:34:10 +0000
(20:34 +0000)
committer
short
<>
Sun, 6 Oct 2002 20:34:10 +0000
(20:34 +0000)
perlmail-sendmail
patch
|
blob
|
history
diff --git
a/perlmail-sendmail
b/perlmail-sendmail
index
59ea8b1
..
e2ff291
100755
(executable)
--- a/
perlmail-sendmail
+++ b/
perlmail-sendmail
@@
-141,6
+141,8
@@
Getopt::Long::Configure(
);
my $opt_b;
);
my $opt_b;
+my $opt_Q;
+my $opt_q;
my $opt_t;
our $opt_f;
#my $opt_F; # declared before &FromAddress already
my $opt_t;
our $opt_f;
#my $opt_F; # declared before &FromAddress already
@@
-148,6
+150,8
@@
my $opt_lacemail_dry_run;
my @ARGV_save=@ARGV; # for non-bm mode
die if !Getopt::Long::GetOptions(
"b=s" ,\$opt_b,
my @ARGV_save=@ARGV; # for non-bm mode
die if !Getopt::Long::GetOptions(
"b=s" ,\$opt_b,
+ "Q:s" ,\$opt_Q,
+ "q:s" ,\$opt_q,
"t" ,\$opt_t,
"f=s" ,\$opt_f,
"F=s" ,\$opt_F,
"t" ,\$opt_t,
"f=s" ,\$opt_f,
"F=s" ,\$opt_F,
@@
-158,6
+162,8
@@
if (0
|| grep({ File::Basename::basename($0) eq $_; } "newaliases","mailq","smtpd","hoststat","purgestat")
# -bm: Deliver mail in the usual way (default).
|| (defined($opt_b) && $opt_b ne "m")
|| grep({ File::Basename::basename($0) eq $_; } "newaliases","mailq","smtpd","hoststat","purgestat")
# -bm: Deliver mail in the usual way (default).
|| (defined($opt_b) && $opt_b ne "m")
+ || defined $opt_q # MD_QUEUERUN
+ || defined $opt_Q # MD_QUEUERUN
) {
@ARGV=@ARGV_save;
sendmail_orig_exec();
) {
@ARGV=@ARGV_save;
sendmail_orig_exec();