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
|
# $Id$
package Youri::Check::Input::Build;
=head1 NAME
Youri::Check::Input::Build - Check build outputs
=head1 DESCRIPTION
This plugin checks build outputs of packages, and report failures. Additional
source plugins handle specific sources.
=cut
use warnings;
use strict;
use Carp;
use Youri::Utils;
use base 'Youri::Check::Input';
sub columns {
return qw/
arch
bot
status
/;
}
sub links {
return qw/
status url
/;
}
=head2 new(%args)
Creates and returns a new Youri::Check::Input::Build object.
Specific parameters:
=over
=item sources $sources
Hash of source plugins definitions
=back
=cut
sub _init {
my $self = shift;
my %options = (
sources => undef,
@_
);
croak "No source defined" unless $options{sources};
croak "sources should be an hashref" unless ref $options{sources} eq 'HASH';
foreach my $id (keys %{$options{sources}}) {
print "Creating source $id\n" if $options{verbose};
eval {
push(
@{$self->{_sources}},
create_instance(
'Youri::Check::Input::Build::Source',
id => $id,
test => $options{test},
verbose => $options{verbose},
%{$options{sources}->{$id}}
)
);
# register monitored archs
$self->{_archs}->{$_}->{$id} = 1
foreach @{$options{sources}->{$id}->{archs}};
};
print STDERR "Failed to create source $id: $@\n" if $@;
}
croak "no sources created" unless @{$self->{_sources}};
}
sub run {
my ($self, $media, $resultset) = @_;
croak "Not a class method" unless ref $self;
# this is a source media check only
return unless $media->get_type() eq 'source';
my $callback = sub {
my ($package) = @_;
my $name = $package->get_name();
my $version = $package->get_version();
my $release = $package->get_release();
foreach my $source (@{$self->{_sources}}) {
my $id = $source->get_id();
foreach my $arch (keys %{$self->{_archs}}) {
next unless $self->{_archs}->{$arch}->{$id};
$resultset->add_result($self->{_id}, $media, $package, {
arch => $arch,
bot => $id,
status => $source->status($name, $version, $release, $arch),
url => $source->url($name, $version, $release, $arch),
}) if $source->fails(
$name,
$version,
$release,
$arch,
);
}
}
};
$media->traverse_headers($callback);
}
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2002-2006, YOURI project
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
=cut
1;
|
