Hi, hope this patch fixes the bug in the which statement. Please review, as i can't test it here localy.
Greetings Martin
--- mdom.orig 2006-05-25 23:36:06.450470976 +0200
+++ mdom 2006-05-25 23:52:55.811024848 +0200
@@ -1,5 +1,10 @@
#! /usr/bin/perl
+# changes to mdom by Martin Zobel-Helas <[EMAIL PROTECTED]> (2006) to fix
+# which command (#299180).
+#
+# This changes are published under the terms of the GNU Public License
+
# Transforms Majordomo control mails to SmartList controls
# Caution, this program needs to read the passwd file, thus needs to
@@ -395,7 +400,22 @@
close (MAIL);
return 1;
} else {
- return 0;
+ if (open (MAIL, "|-", "$cmd")) {
+ printf MAIL "To: %s\n", $addr;
+ printf MAIL "From: %s\n", $opt_from;
+ printf MAIL "Sender: %s\n", $opt_sender;
+ printf MAIL "Subject: Reply to your WHICH %s request\n", $address;
+ print MAIL calc_reference ();
+ print MAIL "Precedence: junk\n";
+ print MAIL "\n";
+ print MAIL "You are not subscribed to any list.\n";
+
+ close (MAIL);
+ return 1;
+
+ } else {
+ die "Can't write mail, something wired happened!!!1!";
+ }
}
}
signature.asc
Description: Digital signature
