Asking again because, well, I'm still stumped.
>Date: Sat, 19 May 2001 20:20:19 -0400
>To: [EMAIL PROTECTED]
>From: Todd Finney <[EMAIL PROTECTED]>
>Subject: injecting qmail-queue
>
>Before I go into detail about the problem I'm having, I'll describe
>what I'm trying to do, to make sure that I'm even on the right track.
>
>We host a number of lists running under ezmlm-idx. I want to send an
>announcement out to all of the lists every month. I first tried to
>do this with a list of lists, but ezmlm doesn't care for that
>approach, because the list name doesn't wind up in the To: or Cc:
>headers.
>
>I'd rather not have things depend on the announcement process user
>being a subscriber or in DIR/allow, which I think precludes the use of
>qmail-inject. So, I'm attempting to do it with qmail-queue.
>
>I created my message file, message.txt, and my envelope file
>envelope.txt. AFAIK, they're in the correct format.
>
>Looking back through the list, I saw Peter Green's example from a few
>months ago, and came up with this:
>
>#!/usr/bin/perl -w
>use strict;
>$|++;
>
>my $mailprog = '/var/qmail/bin/qmail-queue';
>my $message = './list_monthly_announcement.txt';
>my $envelope = './list_monthly_announcement_recipients.txt';
>
>open MSG,"$message" or die "Failed to open message file $!";
>open ENV,"$envelope" or die "Failed to open envelope $!";
>
>open \*STDIN, "<&MSG";
>open \*STDOUT, "<&ENV";
>
>my $rc = exec( $mailprog );
>
>if ($rc) {
> die "$rc something happened";
>}
>
>This does nothing useful (nothing in the log, no message sent),
>although I'm at a loss to explain why. I saw references to calling a
>pipe() to do this properly, but I can't find an example. Does one
>exist?
>
>thanks,
>Todd
>
>
>
