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;