#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
use Net::SMTP;
$smtp = Net::SMTP -> new('mail.ffinfo.com');
$smtp -> auth('UID', 'PASS');
$smtp -> mail('ffxils ffinfo.com');
$smtp -> to('ffxils ffinfo.com');
$smtp -> data();
$smtp -> datasend("To: \"Crystal Reverine Admins\" <ffxils\@ffinfo.com
+>\r\n");
$smtp -> datasend("From: \"Crystal Reverine Registration Script\" <ffx
+ils\ ffinfo.com>\r\n");
$smtp -> datasend("X-Mailer: Crystal Rebberine Registration Script Net
+::SMTP\r\n");
$smtp -> datasend("Subject: New Member Reqestrations\r\n");
$smtp -> datasend("\r\n");
$smtp -> datasend('A new member has registered at the LS website and i
+s waiting for approval. Please click on the below link to get a list 
+of all waiting members');
$smtp -> dataend();
$smtp -> quit();
[download]

$smtp = Net::SMTP -> new('mail.ffinfo.com') is failing so $smtp is not created. Have you got the address of the smtp server right?

As a general comment: you should use warnings; use strict;.

---

Perl is Huffman encoded by design.

The code work 100% before my host started requireing authentication. and I do have

#!user/bin/perl -w
use strict;
use Net:SMTP;
[download]

I just forgot to highlight that part.

Have you tried to wrap your code in an eval and evaluate the error message that comes back?

eval {
  # code here
};
if ($@) {
  confess "$@";
}
[download]


Don
WHITEPAGES.COM | INC
Everything I've learned in life can be summed up in a small perl script!