I tried exactly what you suggested and I modified my asp page too. It
is now like this:
*************************************************
<html>
<body>
Mail sending Trial
<%
use Net::SMTP;
use Net::Config;
%>
<%
%myMail = (
To => '[EMAIL PROTECTED]',
From => '[EMAIL PROTECTED]',
Subject => 'Subject of Email',
Body => 'Body of message. You might have a lot to say
here!',
Organization => 'Your Organization',
CC => '[EMAIL PROTECTED]',
BCC => '[EMAIL PROTECTED]',
Debug => 0 || 1,
);
$Server->Mail(\%myMail);
foreach $key (keys %myMail)
{
%>
<%=$myMail{$key}%>
<br>
<% }%>
Mail sent.
</body>
</html>
*************************************************
I put in the "PerlSetVar Debug -1" and checked the error_log file.
The error message is:
[Tue Jun 17 17:27:43 2003] [error] [asp] [309937] [error] Can't use
string ("localhost") as an ARRAY ref while "strict refs" in use at
C:/Perl/site/lib//Net/SMTP.pm line 33. <--> ,
C:/Perl/site/lib/Apache/ASP.pm line 1491
I checked line 33 of SMTP.pm:
sub new
{
my $self = shift;
my $type = ref($self) || $self;
my $host = shift if @_ % 2;
my %arg = @_;
my $hosts = defined $host ? [ $host ] : $NetConfig{smtp_hosts};
my $obj;
my $h;
foreach $h (@{$hosts}) <<<<<<<<<<<<<<<<<<<<<<<< Line 33
{
$obj = $type->SUPER::new(PeerAddr => ($host = $h),
PeerPort => $arg{Port} || 'smtp(25)',
LocalAddr => $arg{LocalAddr},
LocalPort => $arg{LocalPort},
Proto => 'tcp',
Timeout => defined $arg{Timeout}
? $arg{Timeout}
: 120
) and last;
}
I have no clue as to whats wrong.....certainly looks like I am
missing something to set in my ASP Page related to SMTP server.
Please assist with this.
Thanks,
Kunal Parekh.
--- In [EMAIL PROTECTED], Josh Chamas <[EMAIL PROTECTED]> wrote:
> pkunal wrote:
> > All,
> >
> > After lot of consideration and confusion I have decided to go for
> > mailing using the Apache::ASP object $Server->Mail
> >
>
> Try setting "PerlSetVar Debug -1", and see what is in your error_log
> when the email is attempted. Its likely that you do not have a SMTP
> server running on localhost, and you need to have MailHost config
> pointed to a working SMTP server.
>
> Regards,
>
> Josh
> ________________________________________________________________
> Josh Chamas, Founder phone:925-552-0128
> Chamas Enterprises Inc. http://www.chamas.com
> NodeWorks Link Checking http://www.nodeworks.com
>
>
> --------------------------------------------------------------------
-
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
