| Server IP : 79.136.114.73 / Your IP : 216.73.216.107 Web Server : Apache/2.4.7 (Ubuntu) PHP/5.5.9-1ubuntu4.29 OpenSSL/1.0.1f System : Linux b8009 3.13.0-170-generic #220-Ubuntu SMP Thu May 9 12:40:49 UTC 2019 x86_64 User : www-data ( 33) PHP Version : 5.5.9-1ubuntu4.29 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/perl5/Dpkg/Vendor/ |
Upload File : |
# Copyright © 2008 Ian Jackson <ian@davenant.greenend.org.uk>
# Copyright © 2008 Canonical, Ltd.
# written by Colin Watson <cjwatson@ubuntu.com>
# Copyright © 2008 James Westby <jw+debian@jameswestby.net>
# Copyright © 2009 Raphaël Hertzog <hertzog@debian.org>
#
# 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, see <https://www.gnu.org/licenses/>.
package Dpkg::Vendor::Ubuntu;
use strict;
use warnings;
our $VERSION = '0.01';
use Dpkg::ErrorHandling;
use Dpkg::Gettext;
use Dpkg::Path qw(find_command);
use Dpkg::Control::Types;
use Dpkg::BuildOptions;
use Dpkg::Arch qw(debarch_eq get_host_arch);
use parent qw(Dpkg::Vendor::Debian);
=encoding utf8
=head1 NAME
Dpkg::Vendor::Ubuntu - Ubuntu 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'} =~ /ubuntu/) {
if ($fields->{'Maintainer'} !~ /ubuntu/i) {
if (defined ($ENV{DEBEMAIL}) and $ENV{DEBEMAIL} =~ /\@ubuntu\.com/) {
error(_g('Version number suggests Ubuntu changes, but Maintainer: does not have Ubuntu address'));
} else {
warning(_g('Version number suggests Ubuntu changes, but Maintainer: does not have Ubuntu address'));
}
}
unless ($fields->{'Original-Maintainer'}) {
warning(_g('Version number suggests Ubuntu changes, but there is no XSBC-Original-Maintainer field'));
}
}
} elsif ($hook eq 'keyrings') {
my @keyrings = $self->SUPER::run_hook($hook);
push(@keyrings, '/usr/share/keyrings/ubuntu-archive-keyring.gpg');
return @keyrings;
} elsif ($hook eq 'register-custom-fields') {
my @field_ops = $self->SUPER::run_hook($hook);
push @field_ops,
[ 'register', 'Launchpad-Bugs-Fixed',
CTRL_FILE_CHANGES | CTRL_CHANGELOG ],
[ 'insert_after', CTRL_FILE_CHANGES, 'Closes', 'Launchpad-Bugs-Fixed' ],
[ 'insert_after', CTRL_CHANGELOG, 'Closes', 'Launchpad-Bugs-Fixed' ];
return @field_ops;
} elsif ($hook eq 'post-process-changelog-entry') {
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 'update-buildflags') {
my $flags = shift @params;
my $build_opts = Dpkg::BuildOptions->new();
if (!$build_opts->has('noopt')) {
if (debarch_eq(get_host_arch(), 'ppc64el')) {
for my $flag (qw(CFLAGS CXXFLAGS GCJFLAGS FFLAGS)) {
$flags->set($flag, '-g -O3', 'vendor');
}
}
}
# Per https://wiki.ubuntu.com/DistCompilerFlags
$flags->set('LDFLAGS', '-Wl,-Bsymbolic-functions', 'vendor');
# Run the Debian hook to add hardening flags
$self->SUPER::run_hook($hook, $flags);
# Allow control of hardening-wrapper via dpkg-buildpackage DEB_BUILD_OPTIONS
my $hardening;
if ($build_opts->has('hardening')) {
$hardening = $build_opts->get('hardening') // 1;
}
if ($build_opts->has('nohardening')) {
$hardening = 0;
}
if (defined $hardening) {
my $flag = 'DEB_BUILD_HARDENING';
if ($hardening ne '0') {
if (!find_command('hardened-cc')) {
syserr(_g("'hardening' flag found but 'hardening-wrapper' not installed"));
}
if ($hardening ne '1') {
my @options = split(/,\s*/, $hardening);
$hardening = 1;
my @hardopts = qw(format fortify stackprotector pie relro);
foreach my $item (@hardopts) {
my $upitem = uc($item);
foreach my $option (@options) {
if ($option =~ /^(no)?$item$/) {
$flags->set($flag . '_' . $upitem,
not defined $1 or $1 eq '', 'env');
}
}
}
}
}
if (defined $ENV{$flag}) {
info(_g('overriding %s in environment: %s'), $flag, $hardening);
}
$flags->set($flag, $hardening, 'env');
}
} else {
return $self->SUPER::run_hook($hook, @params);
}
}
=head1 PUBLIC FUNCTIONS
=over
=item $bugs = Dpkg::Vendor::Ubuntu::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)) {
$closes{$_} = 1 foreach($& =~ /\#?\s?(\d+)/g);
}
my @closes = sort { $a <=> $b } keys %closes;
return \@closes;
}
=back
=cut
1;