Subversion Repositories VORC

Rev

Rev 61 | Rev 65 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
50 bgadell 1 
package RCMailer;
2 
 
3 
use strict;
4 
use Exporter 'import';
14 - 5 
use Net::SMTPS;
6 
use Email::Simple;
64 bgadell 7 
#use Email::MessageID;
2 - 8 
 
50 bgadell 9 
our @EXPORT = qw( EmailUser );
10 
 
64 bgadell 11 
my $server   = "smtp.gmail.com";
12 
my $port     = 587;
13 
my $user     = 'rollercon.vorc@gmail.com';
14 
my $password = 'outzhzjacukfrggo';
15 
#my $server   = "newer-media.com";
61 bgadell 16 
#my $port     = 587;
64 bgadell 17 
#my $user     = 'vorc@rollercon.com';
18 
#my $password = '2Rf94*5#Odgn';
2 - 19 
 
50 bgadell 20 
#warn "loaded RCMailer...";
2 - 21 
 
22 
sub EmailUser {
23 
	my $email = shift;
24 
	my $subject = shift;
25 
	my $body = shift;
61 bgadell 26 
 
27 
	my $dev = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "" : '[DEV] ';
28 
 
57 bgadell 29 
#warn "DEBUG: Emailing $email...";
61 bgadell 30 
 
31 
## the rollercon mail server's cert doesn't match it's name. (the first block ignores any mismatching name)
32 
#  IO::Socket::SSL::set_defaults (
33 
#    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
34 
#  );
64 bgadell 35 
#  IO::Socket::SSL::set_client_defaults(
36 
#    SSL_verifycn_name => 'p3plmcpnl496538.prod.phx3.secureserver.net',
37 
#  );
61 bgadell 38 
 
46 - 39 
  my $smtp = Net::SMTPS->new(
40 
    $server,
64 bgadell 41 
    Hello => 'gmail.com',
42 
#    Hello => 'newer-media.com',
46 - 43 
    Port => $port,
44 
    doSSL => 'starttls',
45 
    Timeout => 15,
61 bgadell 46 
    Debug => 0
46 - 47 
  );
61 bgadell 48 
  die "Could not connect to SMTP server!" unless $smtp;
14 - 49 
 
2 - 50 
	my $msg = Email::Simple->create(
14 - 51 
	  header => [
47 - 52 
	    To             => $email,
64 bgadell 53 
#	    Bcc            => $user,
47 - 54 
	    From           => $user,
61 bgadell 55 
	    Subject        => $dev.$subject,
64 bgadell 56 
#	    'Message-Id'   => Email::MessageID->new->in_brackets,
47 - 57 
	    'Content-type' => 'text/html',
14 - 58 
    ],
59 
	  body => $body,
60 
	);
2 - 61 
 
14 - 62 
  $smtp->auth ($user, $password);
63 
  $smtp->mail ($user);
64 
  $smtp->to ($email);
64 bgadell 65 
#  $smtp->bcc ($user);
14 - 66 
  $smtp->data ();
67 
  $smtp->datasend ($msg->as_string);
68 
  $smtp->quit;
69 
 
2 - 70 
}
71 
 
72 
 
14 - 73 
#------------------------------------------------------------------------
74 
#
75 
#use Email::Sender::Simple qw(sendmail);
76 
#use Email::Sender::Transport::SMTPS;
77 
#use Email::Simple ();
78 
#use Email::Simple::Creator ();
79 
#
61 bgadell 80 
##my $smtpserver = 'smtp.gmail.com';
81 
##my $smtpport = 587;
82 
##my $smtpuser   = 'officials.rollercon.schedule@gmail.com';
83 
##my $smtppassword = '0rc_T00l';
14 - 84 
#
85 
#my $transport = Email::Sender::Transport::SMTPS->new({
61 bgadell 86 
#                                   host => $server,
14 - 87 
#                                   ssl  => 'starttls',
61 bgadell 88 
#                                   port => $port,
89 
#                          sasl_username => $user,
90 
#                          sasl_password => $password,
91 
#                                 debug => 1,
14 - 92 
#                                        });
93 
#
94 
#	my $email = shift;
95 
#	my $subject = shift;
96 
#	my $body = shift;
97 
#
98 
#	my $msg = Email::Simple->create(
99 
#	               header => [
100 
#	                  To      => $email,
61 bgadell 101 
#	                  From    => $user,
14 - 102 
#	                  Subject => $subject,
103 
#                             ],
104 
#	                 body => $body,
105 
#	                      );
106 
#
107 
#	sendmail($msg, { transport => $transport });
108 
 
109 
 
2 - 110 
1;