Anyone one know why this doens't work?

Cool_Hand_Luke · 03-16-2005, 05:23 PM

Ok, I get no errors.. but I get no email eithier

All I want is to send myself an email with the form results...

Anyhelp would be great!

Quote:

#!/usr/bin/perl -wT
use CGI ':standard';
use warnings;
use Mail::Sendmail;
use Net::SMTP;

# Declaring Variables

$test= $ENV{'HTTP_USER_AGENT'};
$version = $CGI::VERSION;
$vemail = param('vemail'); #gets from first.html
$from="lukeharris_79l\@msn.com";
$to="lukeharris_79\@msn.com";
$subject="I\'m sending myself a test e-mail!";
$retpath = "lukeharris_79\@msn.com";
$name = 'Luke Harris';
$mess ='testing';

#Start of trying to send mail

$smtp = Net::SMTP->new('smtp.cogeco.ca', Timeout => 60);
die "Failed to connect to server" unless $smtp;
$smtp->mail($ENV{USER}); #not sure what this dies
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: lukeharris_79\@msn.com");
$smtp->datasend("From: lukeharri_79\@msn.com\n");
$smtp->datasend("Subject: Yahoo it worked\n");
$smtp->datasend("\n");
#$smtp->datasend("Hello World\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit();

# Just test code to check form

print "Content-type: text/html\n\n";
print "<html><head></head><body>";
print "<H1>HELLO WORLD!</H1>\n";
print "your viewing this page with $test <br>" ;
print "your email is $vemail <br>";
print "your using CGI.pm version $version<br>";
#print "server admins email is $email<br>";
print "subject is $subject<br>";
print "to is $to<br>";
print "path is $sendmailpath<br>";
print "from is $from<br>";

print "</body></html>";

btmiller · 03-16-2005, 11:05 PM

Check your /var/log/maillog for errors sending mail out. It's possible the remote mail server is denying the connection. This seems somewhat likely as it looks like you're trying to route mail to/from a msn account through a cogeco.ca mail server, which may be misinterpreted as an attempt to do spam relaying. You could probably also add some error checking to the datasend calls ... it's possible that the connection is dying mid stream.

puffinman · 03-16-2005, 11:43 PM

Also,

Code:

use strict;

may help you find mysterious errors that produce no discernable output otherwise.

Cool_Hand_Luke · 03-17-2005, 08:52 PM

I got everything working...

Basically I had to use my local SMTP server for my ISP.. then it works fine.

Does anyone know how to write code using Net::SMTP with MSN?

Cheers,

Luke