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

ABELTJE / Test-Smoke-1.70 / lib / Test / Smoke / App / SendReport.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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
—
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

              
package Test::Smoke::App::SendReport;
use warnings;
use strict;
use base 'Test::Smoke::App::Base';
use File::Spec::Functions;
use Test::Smoke::Mailer;
use Test::Smoke::Poster;
use Test::Smoke::Reporter;
=head1 NAME
Test::Smoke::App::SendReport - Implementation for tssendrpt.pl
=head1 DESCRIPTIN
=head2 $sendrpt->run()
=over
=item * Send e-mail if C<< $self->option('mail') >>
=item * Post to CoreSmokeDB if C<< $self->option('smokedb_url') >>
=back
=cut
sub run {
    my $self = shift;
    $self->check_for_report_and_json;
    if ($self->option('mail')) {
        $self->{_mailer} = Test::Smoke::Mailer->new(
            $self->option('mail_type'),
            $self->options,
            v => $self->option('verbose'),
        );
        $self->log_info("==> Starting mailer");
        $self->mailer->mail();
    }
    else {
        $self->log_warn("==> Skipping mailer");
    }
    if ($self->option('smokedb_url')) {
        $self->{_poster} = Test::Smoke::Poster->new(
            $self->option('poster'),
            $self->options,
            v => $self->option('verbose'),
        );
        $self->log_info("==> Starting poster");
        my $id = $self->poster->post();
        $self->log_warn("%s/%s", $self->option('smokedb_url'), $id);
        return $id;
    }
    else {
        $self->log_warn("==> Skipping poster");
    }
}
=head2 $sendrpt->check_for_report_and_json()
Check for the '.rpt' and the '.jsn' file, return true if both exist.
=cut
sub check_for_report_and_json {
    my $self = shift;
    my $rptfile = catfile($self->option('ddir'), $self->option('rptfile'));
    my $jsnfile = catfile($self->option('ddir'), $self->option('jsnfile'));
    my $missing = 0;
    if (!-f $rptfile) {
        $self->log_warn("RPTfile ($rptfile) not found");
        $missing = 1;
    }
    else {
        $self->log_debug("RPTfile (%s) found.", $rptfile);
    }
    if (!-f $jsnfile) {
        $self->log_warn("JSNfile ($jsnfile) not found");
        $missing = 1;
    }
    else {
        $self->log_debug("JSNfile (%s) found.", $jsnfile);
    }
    if ($missing || $self->option('report')) {
        $self->log_info("Regenerate report and json.");
        $self->regen_report_and_json();
    }
    return 1;
}
=head2 $sendrpt->regen_report_and_json()
Create a reporter object and generate the '.rpt' and '.jsn' files.
=cut
sub regen_report_and_json {
    my $self = shift;
    my $outfile = catfile($self->option('ddir'), $self->option('outfile'));
    if (!-f $outfile) {
        die "No smoke results found ($outfile)\n";
    }
    my $reporter = Test::Smoke::Reporter->new(
        $self->options,
        v => $self->option('verbose'),
    );
    $self->log_debug("[Reporter] write_to_file()");
    $reporter->write_to_file();
    $self->log_debug("[Reporter] smokedb_data()");
    $reporter->smokedb_data();
    return 1;
}
1;
=head1 COPYRIGHT
(c) 2002-2013, Abe Timmerman <abeltje@cpan.org> All rights reserved.
With contributions from Jarkko Hietaniemi, Merijn Brand, Campo
Weijerman, Alan Burlison, Allen Smith, Alain Barbet, Dominic Dunlop,
Rich Rauenzahn, David Cantrell.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
See:
=over 4
=item * L<http://www.perl.com/perl/misc/Artistic.html>
=item * L<http://www.gnu.org/copyleft/gpl.html>
=back
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