Subversion Repositories ORC

use Email::Sender::Simple qw(sendmail);

use Email::Sender::Transport::SMTPS;

use Email::Simple ();

use Email::Simple::Creator ();

my $smtpserver = 'smtp.gmail.com';

my $smtpport = 587;

my $smtpuser   = 'officials.rollercon.schedule@gmail.com';

my $smtppassword = '0rc_T00l';

my $transport = Email::Sender::Transport::SMTPS->new({

                                   host => $smtpserver,

                                   ssl  => 'starttls',

                                   port => $smtpport,

                          sasl_username => $smtpuser,

                          sasl_password => $smtppassword,

                                  debug => 1,

                                        });

sub EmailUser {

	my $email = shift;

	my $subject = shift;

	my $body = shift;

	my $msg = Email::Simple->create(

	               header => [

	                  To      => $email,

	                  From    => $smtpuser,

	                  Subject => $subject,

                             ],

	                 body => $body,

	                      );

	sendmail($msg, { transport => $transport });

}

1;