$HOME: "/home/lace" -> "/home/short"

[PerlMail.git] / perlmail-sendmail

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 59ea8b1..3b50a0d 100755 (executable)
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -14,7 +14,7 @@ require Mail::Address;
 require File::Basename;
 
 my $sendmail_orig=(-x ($_="/usr/sbin/sendmail-orig") ? $_ : "/usr/sbin/sendmail");
-my $HOME="/home/lace";
+my $HOME="/home/short";
 my $opt_F;
 sub FromAddress
 {
@@ -141,6 +141,8 @@ Getopt::Long::Configure(
                );
 
 my $opt_b;
+my $opt_Q;
+my $opt_q;
 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,
+               "Q:s"              ,\$opt_Q,
+               "q:s"              ,\$opt_q,
                "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")
+               || defined $opt_q       # MD_QUEUERUN
+               || defined $opt_Q       # MD_QUEUERUN
                ) {
        @ARGV=@ARGV_save;
        sendmail_orig_exec();