Commit 5ae6cad4 authored by Ruben Rodriguez's avatar Ruben Rodriguez
Browse files

11.0/trisquel-base-data: removed Dpkg/Vendor/Trisquel.pm, now provided by dpkg

parent 1d9bf038
# Copyright © 210 Ruben Rodriguez <ruben@trisquel.info>
# Copyright © 2009 Raphaël Hertzog <hertzog@debian.org>
# Copyright © 2008 Ian Jackson <ian@davenant.greenend.org.uk>, Colin Watson
# <cjwatson@ubuntu.com>, James Westby <jw+debian@jameswestby.net>
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# 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. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
package Dpkg::Vendor::Trisquel;
use strict;
use warnings;
use Dpkg::ErrorHandling;
use Dpkg::Gettext;
use base 'Dpkg::Vendor::Debian';
=head1 NAME
Dpkg::Vendor::Trisquel - Trisquel vendor object
=head1 DESCRIPTION
This vendor object customize the behaviour of dpkg-source
to check that Maintainers have been modified if necessary.
=cut
sub run_hook {
my ($self, $hook, @params) = @_;
if ($hook eq "before-source-build") {
my $src = shift @params;
my $fields = $src->{'fields'};
# check that Maintainer/XSBC-Original-Maintainer comply to
# https://wiki.ubuntu.com/DebianMaintainerField
if (defined($fields->{'Version'}) and defined($fields->{'Maintainer'}) and
$fields->{'Version'} =~ /trisquel/) {
if ($fields->{'Maintainer'} !~ /trisquel/i) {
if (defined ($ENV{'DEBEMAIL'}) and $ENV{'DEBEMAIL'} =~ /\@trisquel\.info/) {
error(_g('Version number suggests Trisquel changes, but Maintainer: does not have Trisquel address'));
} else {
warning(_g('Version number suggests Trisquel changes, but Maintainer: does not have Trisquel address'));
}
}
unless ($fields->{'Original-Maintainer'}) {
warning(_g('Version number suggests Trisquel changes, but there is no XSBC-Original-Maintainer field'));
}
}
} elsif ($hook eq "before-changes-creation") {
my $fields = shift @params;
# Add Launchpad-Bugs-Fixed field
my $bugs = find_launchpad_closes($fields->{"Changes"} || "");
if (scalar(@{$bugs})) {
$fields->{"Launchpad-Bugs-Fixed"} = join(" ", @{$bugs});
}
} elsif ($hook eq "keyrings") {
my @keyrings = $self->SUPER::run_hook($hook);
push(@keyrings, '/usr/share/keyrings/trisquel-archive-keyring.gpg');
return @keyrings;
}
}
=head1 PUBLIC FUNCTIONS
=over
=item $bugs = Dpkg::Vendor::Trisquel::find_launchpad_closes($changes)
Takes one string as argument and finds "LP: #123456, #654321" statements,
which are references to bugs on Launchpad. Returns all closed bug
numbers in an array reference.
=cut
sub find_launchpad_closes {
my ($changes) = @_;
my @closes = ();
while ($changes &&
($changes =~ /lp:\s+\#\d+(?:,\s*\#\d+)*/ig)) {
push(@closes, $& =~ /\#?\s?(\d+)/g);
}
@closes = sort { $a <=> $b } @closes;
return \@closes;
}
=back
=cut
1;
trisquel-base-data (11.0) nabia; urgency=medium
trisquel-base-data (11.1) aramo; urgency=medium
* removed Dpkg/Vendor/Trisquel.pm, now provided by dpkg
-- Trisquel GNU/Linux developers <trisquel-devel@listas.trisquel.info> Fri, 15 Jul 2022 19:03:10 -0400
trisquel-base-data (11.0) aramo; urgency=medium
* Initial release and standardize alias
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment