1#@!#!123s

: / proc / self / root / usr / lib / raider / Raider / Notification /
Filename : Email.pm
back
use strict;
use warnings;

package Raider::Notification::Email;
use base qw( Raider::Notification );

=head1 NAME

Raider::Notification::Email - Send an email notification

=head1 DESCRIPTION

Send an email notification

=head1 USAGE

use Raider::Notification::Email;
my $emailObj = Raider::Notification::Email->new();

=head1 METHODS

=head2 send_notification(\%args)

Send an email notification to contact_email

=cut

sub send_notification {
  my $self = shift;
  my $opts = shift;

  my $mail_cmd = [ 'mail' ];
  my $mail_cmd_check = $self->in_path({ cmds => $mail_cmd, mode => 'nofatal' });
  if ( $mail_cmd_check ne 'present' ) {
    my $msg = "A notification event was made, but I am unable to create the notification. This means that the API host is down, and the system mail command is not in the \$PATH.";
    unless ( $opts->{no_log} ) {
      $self->logger({ cat => 'c', msg => $msg });
    }
    else {
      print STDERR "$msg\n";
      $self->do_exit();
    }
  }

  # FS#5808 Carriage return causes mailx to send binary attachment.
  $opts->{message} =~ s/\r//g;

  my $conf_file = $self->read_conf_file();
  # Yes, this would normally be done with a module of some sort so we don't have to call system
  # commands for a task like this. However, i'm doing it this way so we don't have to worry about
  # packaging extra modules. If someone can find a built in core perl module for handling mail we
  # can easily add it here (that is also in 5.8.8). --ssullivan 01/24/2012
  my $mail_cmd_stderr = `echo \"$opts->{message}\" | mail -s \"$opts->{subject}\"  \"$conf_file->{'contact_email'}\" 2>&1 1>/dev/null`;
  if ( $? != 0 ) {
    my $msg = "Error sending email notification, got STDERR: $mail_cmd_stderr";
    unless ( $opts->{no_log} ) {
      $self->logger({ cat => 'c', msg => $msg });
    }
    else {
      print STDERR "$msg\n";
      $self->do_exit();
    }
  }
  else {
    unless ( $opts->{no_log} ) {
      $self->logger({ cat => 'i', msg => "Successfully sent email notification." });
    }
    else {
      print "Successfully sent email notification.\n";
    }
  }
}


1;