Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

CONTRA / Test-Smoke-1.84 / lib / Test / Smoke / Mailer / SendEmail.pm 

            

              
1
2
3
4
5
6
7
—
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
—
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

              
package Test::Smoke::Mailer::SendEmail;
use warnings;
use strict;
our $VERSION = '0.016';
use base 'Test::Smoke::Mailer::Base';
=head1 Test::Smoke::Mailer::SendEmail
This handles sending the message with the B<sendEmail> program.
=head1 DESCRIPTION
=head2 Test::Smoke::Mailer::SendEmail->new( %args )
Keys for C<%args>:
  * ddir
  * mserver
  * msport
  * msuser
  * mspass
  * sendemailbin
  * to
  * from
  * cc
  * v
=cut
=head2 $mailer->mail( )
C<mail()> sets up the commandline and body and passes it to the
B<sendemail> program.
=cut
sub mail {
    my $self = shift;
    my $mailer = $self->{sendemailbin};
    my $subject = $self->fetch_report();
    my $cc = $self->_get_cc( $subject );
    my $cmdline = qq|$mailer -u "$subject"|;
    $self->{swcc}  ||= '-cc',  $cmdline   .= qq| $self->{swcc} "$cc"| if $cc;
    $self->{swbcc} ||= '-bcc', $cmdline   .= qq| $self->{swbcc} "$self->{bcc}"|
        if $self->{bcc};
    $cmdline   .= qq| -t "$self->{to}"|;
    $cmdline   .= qq| -f "$self->{from}"| if $self->{from};
    if ($self->{mserver}) {
        my $mserver = $self->{mserver};
        if ($self->{msport}) {
            $mserver .= ":$self->{msport}";
        }
        $cmdline .= qq| -s "$mserver"|;
    }
    $cmdline   .= qq| -xu "$self->{msuser}"| if $self->{msuser};
    $cmdline   .= qq| -xp "$self->{mspass}"| if defined $self->{mspass};
    $cmdline   .= qq| -o message-file="$self->{file}"|;
    $self->{v} > 1 and print "[$cmdline]\n";
    $self->{v} and print "Sending report to $self->{to}\n";
    system $cmdline;
    if ($?) {
        $self->{error} = "Error executing '$mailer': " . $?>>8;
    }
    $self->{v} and print $self->{error} ? "not OK\n" : "OK\n";
    return ! $self->{error};
}
1;
=head1 COPYRIGHT
(c) 2002-2013, All rights reserved.
  * Abe Timmerman <abeltje@cpan.org>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
See:
  * <http://www.perl.com/perl/misc/Artistic.html>,
  * <http://www.gnu.org/copyleft/gpl.html>
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
=cut