[Mimedefang] Error message on Quarantine with 2.18

[David F. Skoll]

On Fri, 23 Aug 2002, Troy Carpenter wrote:

> Aug 23 13:36:28 sol mimedefang-multiplexor: Slave 0 stderr: Use of
> uninitialized value in string ne at /usr/bin/mimedefang.pl line 1089.
> Aug 23 13:36:28 sol last message repeated 3 times

:-(  The warning is harmless, but appended is a patch to make it go away.

> This is hit presumably because the quarantine routine is mailing the
> administrator about the event.  I just checked and my admin account did
> NOT receive the message.

It's probably stuck in the clientmq.  Do a "mailq -Ac" as root and see
what you can see.

>From the MIMEDefang README:

You *MUST* run a client-queue runner, because MIMEDefang now uses deferred
mode to deliver internally-generate messages.  We recommend running this
command as part of the Sendmail startup:

	sendmail -Ac -qp1m

Regards,

David.

--- mimedefang.pl.in.ORIG       Fri Aug 23 14:12:10 2002
+++ mimedefang.pl.in    Fri Aug 23 14:12:42 2002
@@ -1086,6 +1086,7 @@
 sub send_mail ($$$$;$) {
     my($fromAddr, $fromFull, $recipient, $body, $deliverymode) = @_;

+    $deliverymode = "-odd" unless defined($deliverymode);
     if ($deliverymode ne "-odb" &&
        $deliverymode ne "-odq" &&
        $deliverymode ne "-odd" &&
@@ -1145,6 +1146,7 @@
 sub resend_message_one_recipient ($;$) {
     my($recip, $deliverymode) = @_;

+    $deliverymode = "-odd" unless defined($deliverymode);
     if ($deliverymode ne "-odb" &&
        $deliverymode ne "-odq" &&
        $deliverymode ne "-odd" &&
@@ -1223,6 +1225,7 @@
     my($deliverymode, $recips) = @_;
     my($pid);

+    $deliverymode = "-odd" unless defined($deliverymode);
     if ($deliverymode ne "-odb" &&
        $deliverymode ne "-odq" &&
        $deliverymode ne "-odd" &&