ÿØÿà JFIF ÿÛ „ ( %"1"%)+...383,7(-.-
![]() Server : LiteSpeed System : Linux v2202501248978307069 5.4.0-204-generic #224-Ubuntu SMP Thu Dec 5 13:38:28 UTC 2024 x86_64 User : voirf6718 ( 1002) PHP Version : 7.3.33-1+focal Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, Directory : /usr/bin/X11/ |
#!/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