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

Run on registration and alert on new user have been converted to a single workflow.

Browse source
This commit is contained in:
JT Smith 2006-03-10 03:48:23 +00:00
parent 5956fce2f1
commit 3e60294bb6
33 changed files with 315 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Mail/Send.pm
View file

@ -190,7 +190,7 @@ sub new {
=head2 send ( )
Sends the message via SMTP.
Sends the message via SMTP. Returns 1 if successful.
=cut
@ -202,6 +202,7 @@ sub send {
close(MAIL) or $self->session->errorHandler->error("Couldn't close connection to mail server: ".$self->session->setting->get("smtpServer"));
} else {
$self->session->errorHandler->error("Couldn't connect to mail server: ".$self->session->setting->get("smtpServer"));
return 0;
}
} else {
my $smtp = Net::SMTP->new($self->session->setting->get("smtpServer")); # connect to an SMTP server
@ -216,8 +217,10 @@ sub send {
$smtp->quit; # Close the SMTP connection
} else {
$self->session->errorHandler->error("Couldn't connect to mail server: ".$self->session->setting->get("smtpServer"));
return 0;
}
}
return 1;
}
#-------------------------------------------------------------------