blob: 0cf13fcf42595147fa9d246f8975c1ed05e6ef60 (
plain)
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
|
# $Id: Bugzilla.pm 1179 2006-08-05 08:30:57Z warly $
package Youri::Check::Maintainer::Resolver::Bugzilla;
=head1 NAME
Youri::Check::Maintainer::Resolver::Bugzilla - Bugzilla-based maintainer resolver
=head1 DESCRIPTION
This is a Bugzilla-based L<Youri::Check::Maintainer::Resolver> implementation.
It uses Bugzilla SQL database for resolving maintainers.
=cut
use warnings;
use strict;
use Carp;
use Youri::Bugzilla;
use base 'Youri::Check::Maintainer::Resolver';
=head1 CLASS METHODS
=head2 new(%args)
Creates and returns a new Youri::Check::Maintainer::Resolver::Bugzilla object.
Specific parameters:
=over
=item host $host
Bugzilla database host.
=item base $base
Bugzilla database name.
=item user $user
Bugzilla database user.
=item pass $pass
Bugzilla database password.
=back
=cut
sub _init {
my $self = shift;
my %options = (
host => '', # host of the bug database
base => '', # name of the bug database
user => '', # user of the bug database
pass => '', # pass of the bug database
@_
);
croak "No host given" unless $options{host};
croak "No base given" unless $options{base};
croak "No user given" unless $options{user};
croak "No pass given" unless $options{pass};
my $bugzilla = Youri::Bugzilla->new(
$options{host},
$options{base},
$options{user},
$options{pass}
);
$self->{_bugzilla} = $bugzilla;
}
sub get_maintainer {
my ($self, $package) = @_;
croak "Not a class method" unless ref $self;
my $name = ref $package && $package->isa('Youri::Package') ?
$package->get_canonical_name() :
$package;
$self->{_maintainers}->{$name} =
$self->{_bugzilla}->get_maintainer($name)
unless exists $self->{_maintainers}->{$name};
return $self->{_maintainers}->{$name};
}
=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;
|