From 38acf0b8d534cdb2579c8f291cdebaa5293dd9b3 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 4 Apr 2011 23:04:35 +0000 Subject: move Youri::Submit::Action::Bugzilla in a deprecated directory --- lib/Youri/Submit/Action/Bugzilla.pm | 81 ------------------------------------- 1 file changed, 81 deletions(-) delete mode 100644 lib/Youri/Submit/Action/Bugzilla.pm (limited to 'lib') diff --git a/lib/Youri/Submit/Action/Bugzilla.pm b/lib/Youri/Submit/Action/Bugzilla.pm deleted file mode 100644 index 04eaa4c..0000000 --- a/lib/Youri/Submit/Action/Bugzilla.pm +++ /dev/null @@ -1,81 +0,0 @@ -# $Id: Bugzilla.pm 1700 2006-10-16 12:57:42Z warly $ -package Youri::Submit::Action::Bugzilla; - -=head1 NAME - -Youri::Submit::Action::Bugzilla - Bugzilla synchronisation - -=head1 DESCRIPTION - -This action plugin ensures synchronisation with Bugzilla. - -=cut - -use warnings; -use strict; -use Carp; -use Youri::Bugzilla; -use base qw/Youri::Submit::Action/; - -sub _init { - my $self = shift; - my %options = ( - host => '', - base => '', - user => '', - pass => '', - contact => '', - @_ - ); - - $self->{_bugzilla} = Youri::Bugzilla->new( - $options{host}, - $options{base}, - $options{user}, - $options{pass} - ); - $self->{_contact} = $options{contact}; -} - -sub run { - my ($self, $package, $repository, $target, $define) = @_; - croak "Not a class method" unless ref $self; - - return unless $package->is_source(); - - my $name = $package->get_name(); - my $version = $package->get_version(); - my $summary = $package->get_summary(); - my $packager = $package->get_packager(); - $packager =~ s/.*<(.*)>/$1/; - - if ($self->{_bugzilla}->has_package($name)) { - my %versions = - map { $_ => 1 } - $self->{_bugzilla}->get_versions($name); - unless ($versions{$version}) { - print "adding version $version to bugzilla\n" if $self->{_verbose}; - $self->{_bugzilla}->add_version($name, $version) - unless $self->{_test}; - } - } else { - print "adding package $name to bugzilla\n" if $self->{_verbose}; - $self->{_bugzilla}->add_package( - $name, - $summary, - $version, - $packager, - $self->{_contact} - ) unless $self->{_test}; - } -} - -=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; -- cgit v1.2.1