[ Patrick writes: ]
>
> Message delivered to mailing list <majordomo@dreamstate.com>
> Undefined subroutine &shlock::warn called at /usr/majordomo/shlock.pl line 170.
> 554 "|/usr/majordomo/wrapper majordomo"... unknown mailer error 13
>
> When attempting to subscribe I recieve these errors....when using any other
> command I get mailer error 2 instead of 13.Does anyone know what is the
> cause of this problem?
[This is a canned message.]
The request-answer program in Mj 1.93 needs some patches to work at all.
If you don't have the patch program installed (why not?), you'll have to
edit request-answer by hand to make these changes.
If you're not familiar with context diffs, this is how to interpret the
patch. Lines beginning with '***' or '---' are location information and
delimiters and are not part of the patch itself, so ignore them other
than to help locate the changes in the source file. The first 2 columns
of patch and context lines are inserted by 'diff -c' so they'll need to
be removed. A space in the first column means the line doesn't change,
it's there to establish context. A '!' in the first column indicates
that the line is modified: the first set shows the original lines and
the second shows the modified lines. A '-' in the first column means
the line is to be deleted. A '+' in the first column means the line is
inserted.
*** request-answer 1995/03/01 14:43:23 1.1
--- request-answer 1995/05/19 20:12:28
***************
*** 29,34 ****
--- 29,35 ----
chdir($homedir) || die("Can't chdir(\"$homedir\"): $!");
unshift(@INC, $homedir);
+ require "shlock.pl";
require "majordomo.pl";
&ParseMailHeader(STDIN, *hdrs);
***************
*** 37,58 ****
$in_reply_to = $hdrs{"message-id"} . ", from " . $hdrs{"from"};
$list = $ARGV[0];
! sub do_exec_sendmail {
! exec("/usr/lib/sendmail", "-f$list-request", "-t") ||
! die("Failed to exec sendmail");
}
- open(MAIL, "|-") || &do_exec_sendmail();
-
print MAIL <<"EOM";
To: $reply_to
From: $list-request
! Subject: Your mail to $list-request@$whereami
In-Reply-To: $in_reply_to
! Reply-To: $list-approval@$whereami
This pre-recorded message is being sent in response to your recent
! email to $list-request@$whereami.
All routine administrative requests (including subscriptions and
unsubscriptions) concerning this mailing list are handled by an
--- 38,59 ----
$in_reply_to = $hdrs{"message-id"} . ", from " . $hdrs{"from"};
$list = $ARGV[0];
! if (defined($isParent = open(MAIL, "|-"))) {
! &do_exec_sendmail($SENDMAIL, "-f$list-approval", "-t")
! unless $isParent;
! } else {
! &abort("Failed to fork prior to mailer exec");
}
print MAIL <<"EOM";
To: $reply_to
From: $list-request
! Subject: Your mail to $list-request\@$whereami
In-Reply-To: $in_reply_to
! Reply-To: $list-approval\@$whereami
This pre-recorded message is being sent in response to your recent
! email to $list-request\@$whereami.
All routine administrative requests (including subscriptions and
unsubscriptions) concerning this mailing list are handled by an
--
Dave Wolfe *Not a spokesman for Motorola*
Motorola MMTG 6501 Wm. Cannon Dr. W. OE112 Austin TX 78735-8598
|
|
