Subversion Repositories VORC

Rev

Rev 64 | 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 
#  );
65 bgadell 38 
  IO::Socket::SSL::set_client_defaults(
39 
    SSL_verifycn_name => 'smtp.gmail.com',
40 
  );
61 bgadell 41 
 
46 - 42 
  my $smtp = Net::SMTPS->new(
43 
    $server,
64 bgadell 44 
    Hello => 'gmail.com',
45 
#    Hello => 'newer-media.com',
46 - 46 
    Port => $port,
47 
    doSSL => 'starttls',
48 
    Timeout => 15,
61 bgadell 49 
    Debug => 0
46 - 50 
  );
61 bgadell 51 
  die "Could not connect to SMTP server!" unless $smtp;
14 - 52 
 
2 - 53 
	my $msg = Email::Simple->create(
14 - 54 
	  header => [
47 - 55 
	    To             => $email,
64 bgadell 56 
#	    Bcc            => $user,
47 - 57 
	    From           => $user,
61 bgadell 58 
	    Subject        => $dev.$subject,
64 bgadell 59 
#	    'Message-Id'   => Email::MessageID->new->in_brackets,
47 - 60 
	    'Content-type' => 'text/html',
14 - 61 
    ],
62 
	  body => $body,
63 
	);
2 - 64 
 
14 - 65 
  $smtp->auth ($user, $password);
66 
  $smtp->mail ($user);
67 
  $smtp->to ($email);
64 bgadell 68 
#  $smtp->bcc ($user);
14 - 69 
  $smtp->data ();
70 
  $smtp->datasend ($msg->as_string);
71 
  $smtp->quit;
72 
 
2 - 73 
}
74 
 
75 
 
14 - 76 
#------------------------------------------------------------------------
77 
#
78 
#use Email::Sender::Simple qw(sendmail);
79 
#use Email::Sender::Transport::SMTPS;
80 
#use Email::Simple ();
81 
#use Email::Simple::Creator ();
82 
#
61 bgadell 83 
##my $smtpserver = 'smtp.gmail.com';
84 
##my $smtpport = 587;
85 
##my $smtpuser   = 'officials.rollercon.schedule@gmail.com';
86 
##my $smtppassword = '0rc_T00l';
14 - 87 
#
88 
#my $transport = Email::Sender::Transport::SMTPS->new({
61 bgadell 89 
#                                   host => $server,
14 - 90 
#                                   ssl  => 'starttls',
61 bgadell 91 
#                                   port => $port,
92 
#                          sasl_username => $user,
93 
#                          sasl_password => $password,
94 
#                                 debug => 1,
14 - 95 
#                                        });
96 
#
97 
#	my $email = shift;
98 
#	my $subject = shift;
99 
#	my $body = shift;
100 
#
101 
#	my $msg = Email::Simple->create(
102 
#	               header => [
103 
#	                  To      => $email,
61 bgadell 104 
#	                  From    => $user,
14 - 105 
#	                  Subject => $subject,
106 
#                             ],
107 
#	                 body => $body,
108 
#	                      );
109 
#
110 
#	sendmail($msg, { transport => $transport });
111 
 
112 
 
2 - 113 
1;