Subversion Repositories VORC

Rev

Rev 57 | 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;
61 bgadell 7 
use Email::MessageID;
2 - 8 
 
50 bgadell 9 
our @EXPORT = qw( EmailUser );
10 
 
61 bgadell 11 
#my $server   = "smtp.gmail.com";
12 
#my $port     = 587;
13 
#my $user     = 'officials.rollercon.schedule@gmail.com';
14 
#my $password = 'qdxnqqygcwnixrlq';
15 
my $server   = "newer-media.com";
14 - 16 
my $port     = 587;
61 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 
#  );
35 
  IO::Socket::SSL::set_client_defaults(
36 
    SSL_verifycn_name => 'p3plmcpnl496538.prod.phx3.secureserver.net',
37 
  );
38 
 
46 - 39 
  my $smtp = Net::SMTPS->new(
40 
    $server,
61 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,
53 
	    From           => $user,
61 bgadell 54 
	    Subject        => $dev.$subject,
55 
	    'Message-Id'   => Email::MessageID->new->in_brackets,
47 - 56 
	    'Content-type' => 'text/html',
14 - 57 
    ],
58 
	  body => $body,
59 
	);
2 - 60 
 
14 - 61 
  $smtp->auth ($user, $password);
62 
  $smtp->mail ($user);
63 
  $smtp->to ($email);
64 
  $smtp->data ();
65 
  $smtp->datasend ($msg->as_string);
66 
  $smtp->quit;
67 
 
2 - 68 
}
69 
 
70 
 
14 - 71 
#------------------------------------------------------------------------
72 
#
73 
#use Email::Sender::Simple qw(sendmail);
74 
#use Email::Sender::Transport::SMTPS;
75 
#use Email::Simple ();
76 
#use Email::Simple::Creator ();
77 
#
61 bgadell 78 
##my $smtpserver = 'smtp.gmail.com';
79 
##my $smtpport = 587;
80 
##my $smtpuser   = 'officials.rollercon.schedule@gmail.com';
81 
##my $smtppassword = '0rc_T00l';
14 - 82 
#
83 
#my $transport = Email::Sender::Transport::SMTPS->new({
61 bgadell 84 
#                                   host => $server,
14 - 85 
#                                   ssl  => 'starttls',
61 bgadell 86 
#                                   port => $port,
87 
#                          sasl_username => $user,
88 
#                          sasl_password => $password,
89 
#                                 debug => 1,
14 - 90 
#                                        });
91 
#
92 
#	my $email = shift;
93 
#	my $subject = shift;
94 
#	my $body = shift;
95 
#
96 
#	my $msg = Email::Simple->create(
97 
#	               header => [
98 
#	                  To      => $email,
61 bgadell 99 
#	                  From    => $user,
14 - 100 
#	                  Subject => $subject,
101 
#                             ],
102 
#	                 body => $body,
103 
#	                      );
104 
#
105 
#	sendmail($msg, { transport => $transport });
106 
 
107 
 
2 - 108 
1;