Subversion Repositories VORC

Rev

Rev 57 | Rev 64 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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