#!/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();
In reply to Re^4: Sending email in perl
by Eagle_f91
in thread Sending email in perl
by Eagle_f91
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |