Subversion Repositories VORC

package RCMailer;

use strict;

use Exporter 'import';

use Net::SMTPS;

use Email::Simple;

our @EXPORT = qw( EmailUser );

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,

	    'Content-type' => 'text/html',

    ],

	  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;