Re: [cobalt-users] [raq4] using Sendmail and Perl

[Jeff Lovell <jlovell@xxxxxxx>]

untested...  you might want to try some perl lists or newsgroups.

sub send_email_confirmation() {

   return if ( ! /^[\w.-]+\@(?:[\w-]+\.)+\w+$/ );
 
   open (MAIL,"|/usr/lib/sendmail -t") 
	|| &error("Can't open sendmail...\n");
   print MAIL "To: $email\n";
   print MAIL "Bcc: zzzz\@zzz.com,rustyw007\@yahoo.com\n";
   print MAIL "From: zzz Corporation\n";
   print MAIL "Subject: Auto-Reply from zzz Corporation\n\n";
	
   print MAIL "This message is designed to let you know that the form\n";
   print MAIL "you completed at zzz.com has been successfully\n";
   print MAIL "submitted. If you requested information, it will be\n";
   print MAIL "delivered to you soon.\n\n";
}

-- 
Jeff Lovell
Sun Microsystems Inc.