Subversion Repositories VORC

Rev

Rev 65 | 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] ';
67 bgadell 28 
 
29 
  if ($body !~ /^<p>/i) {
30 
    use HTML::Tiny;
31 
    my $h = HTML::Tiny->new( mode => 'html' );
61 bgadell 32 
 
67 bgadell 33 
    $body = $h->p (split "\n", $body);
34 
  }
35 
 
57 bgadell 36 
#warn "DEBUG: Emailing $email...";
61 bgadell 37 
 
38 
## the rollercon mail server's cert doesn't match it's name. (the first block ignores any mismatching name)
39 
#  IO::Socket::SSL::set_defaults (
40 
#    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
41 
#  );
64 bgadell 42 
#  IO::Socket::SSL::set_client_defaults(
43 
#    SSL_verifycn_name => 'p3plmcpnl496538.prod.phx3.secureserver.net',
44 
#  );
65 bgadell 45 
  IO::Socket::SSL::set_client_defaults(
46 
    SSL_verifycn_name => 'smtp.gmail.com',
47 
  );
61 bgadell 48 
 
46 - 49 
  my $smtp = Net::SMTPS->new(
50 
    $server,
64 bgadell 51 
    Hello => 'gmail.com',
52 
#    Hello => 'newer-media.com',
46 - 53 
    Port => $port,
54 
    doSSL => 'starttls',
55 
    Timeout => 15,
61 bgadell 56 
    Debug => 0
46 - 57 
  );
61 bgadell 58 
  die "Could not connect to SMTP server!" unless $smtp;
14 - 59 
 
2 - 60 
	my $msg = Email::Simple->create(
14 - 61 
	  header => [
47 - 62 
	    To             => $email,
64 bgadell 63 
#	    Bcc            => $user,
47 - 64 
	    From           => $user,
61 bgadell 65 
	    Subject        => $dev.$subject,
64 bgadell 66 
#	    'Message-Id'   => Email::MessageID->new->in_brackets,
47 - 67 
	    'Content-type' => 'text/html',
14 - 68 
    ],
69 
	  body => $body,
70 
	);
2 - 71 
 
14 - 72 
  $smtp->auth ($user, $password);
73 
  $smtp->mail ($user);
74 
  $smtp->to ($email);
64 bgadell 75 
#  $smtp->bcc ($user);
14 - 76 
  $smtp->data ();
77 
  $smtp->datasend ($msg->as_string);
78 
  $smtp->quit;
79 
 
2 - 80 
}
81 
 
82 
 
14 - 83 
#------------------------------------------------------------------------
84 
#
85 
#use Email::Sender::Simple qw(sendmail);
86 
#use Email::Sender::Transport::SMTPS;
87 
#use Email::Simple ();
88 
#use Email::Simple::Creator ();
89 
#
61 bgadell 90 
##my $smtpserver = 'smtp.gmail.com';
91 
##my $smtpport = 587;
92 
##my $smtpuser   = 'officials.rollercon.schedule@gmail.com';
93 
##my $smtppassword = '0rc_T00l';
14 - 94 
#
95 
#my $transport = Email::Sender::Transport::SMTPS->new({
61 bgadell 96 
#                                   host => $server,
14 - 97 
#                                   ssl  => 'starttls',
61 bgadell 98 
#                                   port => $port,
99 
#                          sasl_username => $user,
100 
#                          sasl_password => $password,
101 
#                                 debug => 1,
14 - 102 
#                                        });
103 
#
104 
#	my $email = shift;
105 
#	my $subject = shift;
106 
#	my $body = shift;
107 
#
108 
#	my $msg = Email::Simple->create(
109 
#	               header => [
110 
#	                  To      => $email,
61 bgadell 111 
#	                  From    => $user,
14 - 112 
#	                  Subject => $subject,
113 
#                             ],
114 
#	                 body => $body,
115 
#	                      );
116 
#
117 
#	sendmail($msg, { transport => $transport });
118 
 
119 
 
2 - 120 
1;