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

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;

sub EmailUser {

	my $email = shift;

	my $subject = shift;

	my $body = shift;

	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;