Subversion Repositories ORC

use Net::SMTPS;
use Email::Simple;
use strict;

my $server   = "smtp.gmail.com";
my $port     = 587;
my $user     = 'officials.rollercon.schedule@gmail.com';
my $password = 'qdxnqqygcwnixrlq';

warn "loaded RCMailer...";

sub EmailUser {
        my $email = shift;
        my $subject = shift;
        my $body = shift;
warn "DEBUG: Emailing $email...";
  my $smtp = Net::SMTPS->new(
    $server,
    Hello => 'gmail.com',
    Port => $port,
    doSSL => 'starttls',
    Timeout => 15,
  #  Debug => 1
  );
  die "Could not connect to GMAIL SMTP server!" unless $smtp;
  
        my $msg = Email::Simple->create(
          header => [
            To      => $email,
            From    => $user,
            Subject => $subject,
    ],
          body => $body,
        );

  $smtp->auth ($user, $password);
  $smtp->mail ($user);
  $smtp->to ($email);
  $smtp->data ();
  $smtp->datasend ($msg->as_string);
  $smtp->quit;
        
}


#------------------------------------------------------------------------
#
#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;