Subversion Repositories PEEPS

package PEEPSMailer;

use strict;

use Exporter 'import';

use Net::SMTPS;

use Email::Simple;

#use Email::MessageID;

our @EXPORT = qw( EmailUser );

my $server   = "smtp.gmail.com";

my $port     = 587;

my $user     = 'peeps@wftda.com';

my $password = 'pmrpegrigryhavpe';

#warn "loaded PEEPSMailer...";

sub EmailUser {

	my $email = shift;

	my $subject = shift;

	my $body = shift;

	my $dev = $ENV{SERVER_NAME} eq "peeps.wftda.com" ? "" : '[DEV] ';

  if ($body !~ /^<p>/i) {

    use HTML::Tiny;

    my $h = HTML::Tiny->new( mode => 'html' );

    $body = $h->p (split "\n", $body);

  }

#warn "DEBUG: Emailing $email...";

## the rollercon mail server's cert doesn't match it's name. (the first block ignores any mismatching name)

#  IO::Socket::SSL::set_defaults (

#    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,

#  );

#  IO::Socket::SSL::set_client_defaults(

#    SSL_verifycn_name => 'p3plmcpnl496538.prod.phx3.secureserver.net',

#  );

  IO::Socket::SSL::set_client_defaults(

    SSL_verifycn_name => 'smtp.gmail.com',

  );

  my $smtp = Net::SMTPS->new(

    $server,

    Hello => 'gmail.com',

    Port => $port,

    doSSL => 'starttls',

    Timeout => 15,

    Debug => 0

  );

  die "Could not connect to SMTP server!" unless $smtp;

	my $msg = Email::Simple->create(

	  header => [

	    To             => $email,

#	    Bcc            => $user,

	    From           => $user,

	    Subject        => $dev.$subject,

#	    'Message-Id'   => Email::MessageID->new->in_brackets,

	    'Content-type' => 'text/html',

    ],

	  body => $body,

	);

  $smtp->auth ($user, $password);

  $smtp->mail ($user);

  $smtp->to ($email);

#  $smtp->bcc ($user);

  $smtp->data ();

  $smtp->datasend ($msg->as_string);

  $smtp->quit;

}

1;