#!/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\" <ffxils\ 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 is waiting for approval. Please click on the below link to get a list of all waiting members');
$smtp -> dataend();
$smtp -> quit();