oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Switched MailForm wobject to use the built in mail system.

Browse source
This commit is contained in:
JT Smith 2002-07-31 03:54:13 +00:00
parent 5bab2990b6
commit 888a4b3536
2 changed files with 14 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Mail.pm
View file

@ -17,7 +17,7 @@ use WebGUI::Session;
#-------------------------------------------------------------------
#eg: send("jt@jt.com","hi, how are you","this is my message","bob@bob.com","you@ther.com");
#eg: send(to,subject,message,cc,from);
#eg: send(to,subject,message,cc,from,bcc);
sub send {
my ($smtp, $message, $from);
$from = $_[4] || ($session{setting}{companyName}.' <'.$session{setting}{companyEmail}.'>');
@ -25,6 +25,7 @@ sub send {
$message = "To: $_[0]\n";
$message .= "From: $from\n";
$message .= "CC: $_[3]\n" if ($_[3]);
$message .= "BCC: $_[5]\n" if ($_[5]);
$message .= "Subject: ".$_[1]."\n";
$message .= "\n";
#body
@ -40,6 +41,8 @@ sub send {
if (defined $smtp) {
$smtp->mail($from); # use the sender's address here
$smtp->to($_[0]); # recipient's address
$smtp->cc($_[3]) if ($_[3]);
$smtp->bcc($_[5]) if ($_[5]);
$smtp->data(); # Start the mail
$smtp->datasend($message);
$smtp->dataend(); # Finish sending the mail