D7net Mini Sh3LL v1
OFF | cURL : OFF | WGET : ON | Perl : ON | Python : OFF Directory (0755) : /var/../bin/ |
|
Current File : /var/../bin/dh_bugfiles |
#!/usr/bin/perl
=head1 NAME
dh_bugfiles - install bug reporting customization files into package build directories
=cut
use strict;
use warnings;
use Debian::Debhelper::Dh_Lib;
our $VERSION = DH_BUILTIN_VERSION;
=head1 SYNOPSIS
B<dh_bugfiles> [B<-A>] [S<I<debhelper options>>]
=head1 DESCRIPTION
B<dh_bugfiles> is a debhelper program that is responsible for installing
bug reporting customization files (bug scripts and/or bug control files
and/or presubj files) into package build directories.
=head1 FILES
=over 4
=item debian/I<package>.bug-script
This is the script to be run by the bug reporting program for generating a bug
report template. This file is installed as F<usr/share/bug/package> in the
package build directory if no other types of bug reporting customization
files are going to be installed for the package in question. Otherwise,
this file is installed as F<usr/share/bug/package/script>. Finally, the
installed script is given execute permissions.
=item debian/I<package>.bug-control
It is the bug control file containing some directions for the bug reporting
tool. This file is installed as F<usr/share/bug/package/control> in the
package build directory.
=item debian/I<package>.bug-presubj
The contents of this file are displayed to the user by the bug reporting
tool before allowing the user to write a bug report on the package to the
Debian Bug Tracking System. This file is installed as
F<usr/share/bug/package/presubj> in the package build directory.
=back
=head1 OPTIONS
=over 4
=item B<-A>, B<--all>
Install F<debian/bug-*> files to ALL packages acted on when respective
F<debian/package.bug-*> files do not exist. Normally, F<debian/bug-*> will
be installed to the first package only.
=back
=cut
init();
# Types of bug files this debhelper program handles.
# Hash value is the name of the pkgfile of the respective
# type.
my %bugfile_types = (
"script" => "bug-script",
"control" => "bug-control",
"presubj" => "bug-presubj",
);
# PROMISE: DH NOOP WITHOUT bug-script bug-control bug-presubj cli-options()
foreach my $package (@{$dh{DOPACKAGES}}) {
next if is_udeb($package);
my $tmp=tmpdir($package);
my $p_dir="${tmp}/usr/share/bug";
my $dir="${p_dir}/$package";
# Gather information which bug files are available for the
# package in question
my %bugfiles=();
while (my ($type, $pkgfilename) = each(%bugfile_types)) {
my $file=pkgfile($package,$pkgfilename);
if ($file) {
$bugfiles{$type}=$file;
}
elsif (-f "debian/$pkgfilename" && $dh{PARAMS_ALL}) {
$bugfiles{$type}="debian/$pkgfilename";
}
}
# If there is only a bug script to install, install it as
# usr/share/bug/$package (unless this path is a directory)
if (! -d $dir && scalar(keys(%bugfiles)) == 1 && exists $bugfiles{script}) {
install_dir($p_dir);
install_prog($bugfiles{script}, $dir);
}
elsif (scalar(keys(%bugfiles)) > 0) {
if (-f $dir) {
# Move usr/share/bug/$package to usr/share/bug/$package/script
rename_path($dir, "${dir}.tmp");
install_dir($dir);
rename_path("${dir}.tmp", "$dir/script");
}
else {
install_dir($dir);
}
while (my ($type, $srcfile) = each(%bugfiles)) {
if ($type eq 'script') {
install_prog($srcfile, "$dir/$type");
} else {
install_file($srcfile, "$dir/$type");
}
}
}
# Ensure that the bug script is executable
if (-f $dir) {
reset_perm_and_owner(0755, $dir);
}
elsif (-f "$dir/script") {
reset_perm_and_owner(0755, "$dir/script");
}
}
=head1 SEE ALSO
F</usr/share/doc/reportbug/README.developers.gz>
L<debhelper(1)>
This program is a part of debhelper.
=head1 AUTHOR
Modestas Vainius <modestas@vainius.eu>
=cut
AnonSec - 2021 | Recode By D7net