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 --- deprecated/lib/Youri/Submit/Action/Bugzilla.pm | 81 ++++++++++++++++++++++++++ lib/Youri/Submit/Action/Bugzilla.pm | 81 -------------------------- 2 files changed, 81 insertions(+), 81 deletions(-) create mode 100644 deprecated/lib/Youri/Submit/Action/Bugzilla.pm delete mode 100644 lib/Youri/Submit/Action/Bugzilla.pm diff --git a/deprecated/lib/Youri/Submit/Action/Bugzilla.pm b/deprecated/lib/Youri/Submit/Action/Bugzilla.pm new file mode 100644 index 0000000..04eaa4c --- /dev/null +++ b/deprecated/lib/Youri/Submit/Action/Bugzilla.pm @@ -0,0 +1,81 @@ +# $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; 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