perl sendmail -t adds hostname to To: field!

Hello,
Linux RH9
Exim 4.34 #1

Does anybody know why this is happening?

!#/usr/bin/perl
open (MAIL, "|sendmail -t") or die $!;
print MAIL "To: <joe@blow.com>\n";
print MAIL "blah blah, etc.....

It shows up in the mail queue as

To: joe@blow.com@subdomain.myhostname.com

Thanks in advance.

On Sat, 14 Aug 2004 08:16:42 +0000, Chris Fortune wrote:

> Hello,
> Linux RH9
> Exim 4.34 #1
>
> Does anybody know why this is happening?
>
> !#/usr/bin/perl
> open (MAIL, "|sendmail -t") or die $!;
> print MAIL "To: <joe@blow.com>\n";
> print MAIL "blah blah, etc.....
>
> It shows up in the mail queue as
>
> To: joe@blow.com@subdomain.myhostname.com
>
> Thanks in advance.

Theres a option line in exim about adding a domain name to unqualified
addresses, you haven't got this turned on have you?

> Theres a option line in exim about adding a domain name to unqualified
> addresses, you haven't got this turned on have you?
>

No it is blank and commented out.
# qualify_domain =


What's the preferred way to use perl to send mail with Exim?

Chris Fortune wrote:
> What's the preferred way to use perl to send mail with Exim?

I use...

open(EXIM, "|exim -bm -i -t -odq") || die "Cannot invoke exim: ".$!;
print EXIM "To: Foo <bar@example.com>\n";
print EXIM "\n";
print EXIM "duh\n";
close(EXIM);

....with

-bm "read message from command line",
-i "ignore single dot, wait for EOF on socket"
-t "get To, CC, BCC from stream"
-odq "queue only, wait for pickup"

Works just perfect. Might be exim doesn't like the missing header/body
seperator char '\n' in your example.

Greets,
Wolf