Hi Jamie,
My post of a couple of days ago has a similar problem - but no one has
responded to my message.
I am using Net::SMTP to send out my email and I get the same thing but only
for Bcc recipients.
I have read so many qmail posts and they only talk about double bounces,
configuration problems, etc... but none discuss sending out emails through
Perl. In fact, there seemed to be a similar problem with the Perl Porters
mailing list using qmail last year but I could not find any resolution.
You might want to try to use the Net::SMTP code that I posted and see if it
doesnt take care of your problem since only Bcc fields give the double
messages.
HTH,
SIncerely,
Christopher Taranto
At 04:07 PM 9/11/00 +0900, you wrote:
>Hi all,
>
>I apologize if this was covered before.
>I am having probles after my fresh qmail install, and being
>new to all of this I am a little confused with what is going
>on.
>
>BTW, qmail is working great and I think its awesome.
>
>Situation:
>In my lan I am testing qmail on my two LINUX boxes.
>Sending mail out from binmail is no problem, but when I use
>my ugly perl script (pasted below) to do some performance
>tests (just for ball park figures) I get duplicate messages.
>
>Using sendmail was OK but qmail seems to duplicate all
>the messages.
>
>Did anybody get this and over come this before?
>If so, I would appreciate it if someone could shed some
>light on the situation (hints, pointers, url anything).
>
>MY SETUP:
>qmail 1.03
> + DNS and local-time patch
> + vsm and procmail
> # slowly attempting the migration to Maildir/...
>daemontools 0.70
>ucspi-tcp 0.88
># mosly following lwq.html - great doc/info!
>
>Thanks in advance,
>
>jamie
>
>--script--
>#!/usr/local/bin/perl
>
># sendmail below is symlinked to
># /var/qmail/bin/sendmail
>$sendmail = '/usr/sbin/sendmail -t';
>$mailto = '[EMAIL PROTECTED]';
>$mailfrom = '[EMAIL PROTECTED]';
>$subject = 'This is a test';
>
># for more mail at once uncomment below and
># and the line above exit 0 way below.
>
>#for $i (1 .. 100) {
> open (MAIL, "| $sendmail $mailto");
> print MAIL << "__EOF";
>To: $mailto
>From: $mailfrom
>Subject: $subject
>Content-Transfer-Encoding: 7bit
>Content-Type: text/plain
>
>Hello, this is a test.
>12345678901234567890 12345678901234567890
># and approx 1 kb worth of garbage text proceeds...
>__EOF
>
> close(MAIL);
>#}
>exit 0;
>
>--/script--
>
>#---------#---------#---------#---------#---------#---------#---------#
>-- If somebody can help create a search engine for my room,
> I will call them a Saint...
> GUI == Graphical User Interference
