File Coverage

blib/lib/TeX/AutoTeX/Mail.pm

Criterion	Covered	Total	%
statement	6	36	16.6
branch	0	6	0.0
condition	0	7	0.0
subroutine	2	6	33.3
pod	4	4	100.0
total	12	59	20.3

package TeX::AutoTeX::Mail;

#
# $Id: Mail.pm,v 1.5.2.4 2011/01/27 18:42:28 thorstens Exp $
# $Revision: 1.5.2.4 $
# $Source: /cvsroot/arxivlib/arXivLib/lib/TeX/AutoTeX/Mail.pm,v $
#
# $Date: 2011/01/27 18:42:28 $
# $Author: thorstens $
#

use strict;
### use warnings;

our ($VERSION) = '$Revision: 1.5.2.4 $' =~ m{ \$Revision: \s+ (\S+) }x;

use TeX::AutoTeX::Config qw($TEX_ADMIN_ADDRESS $MAIL_FAILURES_ADDRESS $SENDMAIL);

sub new {
  my $that = shift;
  my $class = ref($that) || $that;
  my $self = {id => shift};
  bless $self, $class;
}

sub send_notification {
  my ($self, $to, $subject, $message, $reply_to) = @_;

  if (!defined $to) {
    return 'send_notification called but no message sent as destination address undefined.';
  }

  my $PIPEMAIL;
  if (!open $PIPEMAIL, q{|-}, $SENDMAIL) {
    return 'send_notification failed to open pipe to sendmail for writing.';
  }

  $message ||= '[NO MESSAGE SPECIFIED IN ' . __PACKAGE__ . "]\n";
  $message =~ s/\n\./\n \./g;

  my $id = $self->{id} || 'NO_IDENTIFIER';
  print {$PIPEMAIL} <<"EOM";
To: $to
Subject: AutoTeX[$id]: $subject
EOM
  if ($reply_to) {
    print {$PIPEMAIL} "Reply-To: $reply_to\n";
  }
  print {$PIPEMAIL} "\n\n",
    $message;
  close $PIPEMAIL;
  return;
}

sub send_failure {
  my $self = shift;
  my $subject = shift;
  $subject = "$subject (mail_failure)";
  return $self->send_notification($MAIL_FAILURES_ADDRESS, $subject, @_);
}

sub send_tex_admin {
  my $self = shift;
  my $subject = shift;
  $subject = "$subject (mail_tex_admin)";
  return $self->send_notification($TEX_ADMIN_ADDRESS, $subject, @_);
}

1;

__END__