How is it not working for you? Does it return an error and not send any
email, or does it send an email but just not formatted the way you want?
I run several systems (although not with cpanel) that has users that use
exim as if it were sendmail - none have had any issues with getting it to
work, except with the default exim.conf file it will insert Sender: headers
(so I disabled that).
Do you have shell access at all - if so, what happens when you run the
command via the command line? Also, what system user does the Perl script
run as on the server (do they use suexec or not)? It might be that the
script isn't running as your system account, thus has no access to use the
-f flag?
Eli.
-----Original Message-----
From: exim-users-admin@??? [
mailto:exim-users-admin@exim.org] On Behalf
Of Matthew Lewis
Sent: Friday, January 09, 2004 3:39 PM
To: exim-users@???
Subject: [Exim] Problems with -f flag
This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Hello everyone,
I'm on a cpanel server, shared hosting, using Exim for the MTA. I have a
PERL script that needs to use the -f[email] flag, but for some reason
that flag isn't working properly with the script. The same script is
functioning on other servers using Sendmail and QMail, but so far I
can't get it to work on our server which as I said is running Exim.
I checked with my host to make sure the script was running as a "Trusted
User" and thus had access to the -f flag. Tech support at my host
verified that we should have access to it, but it's still not working.
Our host is very reluctant to make changes to their Exim configuration,
but they might if I can bring solid details about what needs to be done.
Does anyone have any suggestions on how to allow a PERL script to access
the -f[email] flag? In case it's important, I've included the portion of
the script that's trying to use the flag (look toward the middle of the
code snippet).
Thanks in advance for any ideas,
Matthew
####################
sub send {
my $self = shift;
my $command = $self->{_Sendmail};
if ($self->{_Sendmail} =~ /sendmail/) {
$self->{_From} =~ /([\w-]+\@[\w.-]+)/;
my $email = $1;
if ($self->{_UseCache}) {
$command .= " -odq";
}
if ($email) {
$command .= " -f $email";
}
}
# print "Content-Type: Text/Html\n\n";
# print "COMMAND: $command<P>\n";
open (MAIL, "| $command") || return undef;
print MAIL $self->_generate;
close (MAIL);
return 1;
}
####################
--
--
## List details at
http://www.exim.org/mailman/listinfo/exim-users Exim
details at
http://www.exim.org/ ##
---
[This E-mail scanned for viruses]
---
[This E-mail scanned for viruses]
