Subversion Repositories VORC

Rev

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

Rev 61 Rev 64
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;
 6 
use Email::Simple;
Line 7... Line 7...
7 
use Email::MessageID;
 7 
#use Email::MessageID;
Line 8... Line 8...
8 
 
 8 
 
9 
our @EXPORT = qw( EmailUser );
 - 
 
10 
 
 - 
 
11 
#my $server   = "smtp.gmail.com";
 - 
 
12 
#my $port     = 587;
 - 
 
13 
#my $user     = 'officials.rollercon.schedule@gmail.com';
 9 
our @EXPORT = qw( EmailUser );
- 
 
 10 
 
- 
 
 11 
my $server   = "smtp.gmail.com";
- 
 
 12 
my $port     = 587;
- 
 
 13 
my $user     = 'rollercon.vorc@gmail.com';
14 
#my $password = 'qdxnqqygcwnixrlq';
 14 
my $password = 'outzhzjacukfrggo';
15 
my $server   = "newer-media.com";
 15 
#my $server   = "newer-media.com";
Line 16... Line 16...
16 
my $port     = 587;
 16 
#my $port     = 587;
Line 17... Line 17...
17 
my $user     = 'vorc@rollercon.com';
 17 
#my $user     = 'vorc@rollercon.com';
18 
my $password = '2Rf94*5#Odgn';
 18 
#my $password = '2Rf94*5#Odgn';
Line 30... Line 30...
30 
 
 30 
 
31 
## the rollercon mail server's cert doesn't match it's name. (the first block ignores any mismatching name)
 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 (
 32 
#  IO::Socket::SSL::set_defaults (
33 
#    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
 33 
#    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
34 
#  );
 34 
#  );
35 
  IO::Socket::SSL::set_client_defaults(
 35 
#  IO::Socket::SSL::set_client_defaults(
36 
    SSL_verifycn_name => 'p3plmcpnl496538.prod.phx3.secureserver.net',
 36 
#    SSL_verifycn_name => 'p3plmcpnl496538.prod.phx3.secureserver.net',
Line 37... Line 37...
37 
  );
 37 
#  );
38
38
39 
  my $smtp = Net::SMTPS->new(
 39 
  my $smtp = Net::SMTPS->new(
40 
    $server,
 40 
    $server,
41 
#    Hello => 'gmail.com',
 41 
    Hello => 'gmail.com',
42 
    Hello => 'newer-media.com',
 42 
#    Hello => 'newer-media.com',
43 
    Port => $port,
 43 
    Port => $port,
44 
    doSSL => 'starttls',
 44 
    doSSL => 'starttls',
45 
    Timeout => 15,
 45 
    Timeout => 15,
46 
    Debug => 0
 46 
    Debug => 0
Line 47... Line 47...
47 
  );
 47 
  );
48 
  die "Could not connect to SMTP server!" unless $smtp;
 48 
  die "Could not connect to SMTP server!" unless $smtp;
49
49
- 
 
 50 
	my $msg = Email::Simple->create(
50 
	my $msg = Email::Simple->create(
 51 
	  header => [
51 
	  header => [
 52 
	    To             => $email,
52 
	    To             => $email,
 53 
#	    Bcc            => $user,
53 
	    From           => $user,
 54 
	    From           => $user,
54 
	    Subject        => $dev.$subject,
 55 
	    Subject        => $dev.$subject,
55 
	    'Message-Id'   => Email::MessageID->new->in_brackets,
 56 
#	    'Message-Id'   => Email::MessageID->new->in_brackets,
56 
	    'Content-type' => 'text/html',
 57 
	    'Content-type' => 'text/html',
Line 57... Line 58...
57 
    ],
 58 
    ],
58 
	  body => $body,
 59 
	  body => $body,
59 
	);
 60 
	);
- 
 
 61 
 
60 
 
 62 
  $smtp->auth ($user, $password);
61 
  $smtp->auth ($user, $password);
 63 
  $smtp->mail ($user);
62 
  $smtp->mail ($user);
 64 
  $smtp->to ($email);
Line 63... Line 65...
63 
  $smtp->to ($email);
 65 
#  $smtp->bcc ($user);