RE: digests not going out - A fix

[Pete Norton <pete . norton @ orenco . com>]

 RE: digests not going out - A fix                     1/4/00       4:44
PM
My apologies if I sent this out before.

>Here is a transcript of a mkdigest command (list name changed
>to protect the innocent):
>
>>>>> mkdigest foo-digest ******
>producing foo-digest V1 #10
>        processing /var/lib/majordomo/digest/foo-digest/001
>sh: foo-digest-outgoing: command not found

-------------

I was having the same problem.

In the "digest" script, there is the section where the script sends the
mail command to the system to mail out the digest:


     $sender= $V{'ERRORS-TO'};
     $mailcmd= eval qq/"$mailer"/;
     system("$mailcmd $V{'REALLY-TO'} < $DIGEST");

For some reason, the 'eval' command is adding a newline character to the
end of the $mailcmd.  The result is when the script sends the mail command
to the system, the recipients are on a second line, and you get the error
message.

Why this is happening I have no idea.  Perhaps a bug, or change in Perl? 
The Perl experts will have to answer that one.  A fix is to add the
following line to remove the newline character:

     $mailcmd= substr($mailcmd,0,-1);

It goes in the following place:

     $sender= $V{'ERRORS-TO'};
     $mailcmd= eval qq/"$mailer"/;
     $mailcmd= substr($mailcmd,0,-1);
     system("$mailcmd $V{'REALLY-TO'} < $DIGEST");

This fixed the problem on my system.

Pete Norton
pete.norton@orenco.com
Orenco Systems, Inc.