Subversion Repositories PEEPS

package PEEPSMailer;

use strict;
use Exporter 'import';
use Net::SMTPS;
use Email::Simple;
use WebDB;
use HTML::Tiny;

#use Email::MessageID;

our @EXPORT = qw( EmailUser EmailMultipleUsers emailAffiliationRequest emailAffiliationAdded emailAffiliationRemoved emailNewLeagueRole );

my $server   = "smtp.gmail.com";
my $port     = 587;
my $user     = 'peeps@wftda.com';
my $password = 'pmrpegrigryhavpe';

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

#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) {
    $body = $h->p (split "\n", $body);
  }
  
#warn "DEBUG: Emailing $email...";
  
  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;
        
}


sub EmailMultipleUsers {
  my $parameters = shift;
        my $email = join ",", @{$parameters->{to}};
        my $cc    = join ",", @{$parameters->{cc}};
        my $subject = $parameters->{subject};
        my $body = $parameters->{body};
        
        my $dev = $ENV{SERVER_NAME} eq "peeps.wftda.com" ? "" : '[DEV] ';
  
  if ($body !~ /^<p>/i) {
    $body = $h->p (split "\n", $body);
  }
  
#warn "DEBUG: Emailing $email...";
  
  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,
            Cc             => $cc,
#           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->cc ($cc);
#  $smtp->bcc ($user);
  $smtp->data ();
  $smtp->datasend ($msg->as_string);
  $smtp->quit;
        
}



sub emailAffiliationRequest {
  my $newpersonid = shift // return;
  my $leagueid = shift // return;
  
  my $newb = PEEPS::getUser ($newpersonid);
  my $dbh = PEEPS::getRCDBH ();
  my @leagueAdmins = map { @{$_} } @{ $dbh->selectall_arrayref ("select email from role join person on role.person_id = person.id where role.member_org_id = ? and role.role = ?", undef, $leagueid, "League Admin") };
  
  my $leagueName = PEEPS::getLeagueName ($leagueid);
  
  my $subject = $leagueName." - New Affiliation Request";
  my $body = $h->p (
                      $h->img ({ alt => "", src => "https://peeps.gadell.org/images/wftdapeeps-powerby-wftdainsurance-2.svg", style => "width: 400px; height: 75px;"}),
                      "Greetings,",
                      "You have a new League Affiliation Request for $leagueName:".$h->br,
                      "Derby Name: ".$newb->{derby_name}.$h->br.
                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br.$h->br,
                      "Log into ".$h->a ({href=>CGI::url ()}, "WFTDA PEEPS")." to accept or reject the affiliation request.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"
                   );
                   
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });
}

sub emailAffiliationAdded {
  my $newpersonid = shift // return;
  my $leagueid = shift // return;
  
  my $newb = PEEPS::getUser ($newpersonid);
  my $dbh = PEEPS::getRCDBH ();
  my @leagueAdmins = map { @{$_} } @{ $dbh->selectall_arrayref ("select email from role join person on role.person_id = person.id where role.member_org_id = ? and role.role = ?", undef, $leagueid, "League Admin") };
  my ($role) = $dbh->selectrow_array ("select role from role where person_id = ? and member_org_id = ?", undef, $newpersonid, $leagueid);
  
  my $leagueName = PEEPS::getLeagueName ($leagueid);
  
  my $subject = $leagueName." - Affiliation Confirmed";
  my $body = $h->p (
                      $h->img ({ alt => "", src => "https://peeps.gadell.org/images/wftdapeeps-powerby-wftdainsurance-2.svg", style => "width: 400px; height: 75px;"}),
                      "Greetings,",
                      "League Affiliation for $leagueName has been confirmed:".$h->br,
                      "Derby Name: ".$newb->{derby_name}.$h->br.
                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br,
                      "Role: ".$role.$h->br.$h->br,
                      "No further action is necessary.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"
                   );
                   
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });
}

sub emailNewLeagueRole {
  my $newpersonid = shift // return;
  my $leagueid = shift // return;
  my $newrole = shift // return;
  
  my $newb = PEEPS::getUser ($newpersonid);
  my $dbh = PEEPS::getRCDBH ();
  my @leagueAdmins = map { @{$_} } @{ $dbh->selectall_arrayref ("select email from role join person on role.person_id = person.id where role.member_org_id = ? and role.role = ?", undef, $leagueid, "League Admin") };
  
  my $leagueName = PEEPS::getLeagueName ($leagueid);
  
  my $subject = $leagueName." - New ".$newrole;
  my $body = $h->p (
                      $h->img ({ alt => "", src => "https://peeps.gadell.org/images/wftdapeeps-powerby-wftdainsurance-2.svg", style => "width: 400px; height: 75px;"}),
                      "Greetings,",
                      "A new role has been added for $leagueName:".$h->br,
                      "Derby Name: ".$newb->{derby_name}.$h->br.
                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br,
                      "Role: ".$newrole.$h->br.$h->br,
                      "No further action is necessary.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"
                   );
                   
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });
}

sub emailAffiliationRemoved {
  my $personid = shift // return;
  my $leagueid = shift // return;
  
  my $newb = PEEPS::getUser ($personid);
  my $dbh = PEEPS::getRCDBH ();
  my @leagueAdmins = map { @{$_} } @{ $dbh->selectall_arrayref ("select email from role join person on role.person_id = person.id where role.member_org_id = ? and role.role = ?", undef, $leagueid, "League Admin") };
  
  my $leagueName = PEEPS::getLeagueName ($leagueid);
  
  my $subject = $leagueName." - Affiliation Removed";
  my $body = $h->p (
                      $h->img ({ alt => "", src => "https://peeps.gadell.org/images/wftdapeeps-powerby-wftdainsurance-2.svg", style => "width: 400px; height: 75px;"}),
                      "Greetings,",
                      "League Affiliation has been removed from $leagueName:".$h->br,
                      "Derby Name: ".$newb->{derby_name}.$h->br.
                      "Civil Name: ".join " ", $newb->{name_first}, $newb->{name_last}.$h->br.
                      "PEEPS ID: ".$newb->{id}.$h->br.$h->br,
                      "No further action is necessary.".$h->br.$h->br,
                      "-WFTDA PEEPS",
                      "NOTE: THIS IS A DEVELOPMENT SYSTEM, PLEASE IGNORE!"
                   );
  
  PEEPSMailer::EmailMultipleUsers ({ to => \@leagueAdmins, cc => [$newb->{email}], subject=>$subject, body=>$body });
}


1;