diff options
Diffstat (limited to 'dh_installdeb')
-rwxr-xr-x | dh_installdeb | 150 |
1 files changed, 150 insertions, 0 deletions
diff --git a/dh_installdeb b/dh_installdeb new file mode 100755 index 00000000..e2331701 --- /dev/null +++ b/dh_installdeb @@ -0,0 +1,150 @@ +#!/usr/bin/perl -w + +=head1 NAME + +dh_installdeb - install files into the DEBIAN directory + +=cut + +use strict; +use Debian::Debhelper::Dh_Lib; + +=head1 SYNOPSIS + +B<dh_installdeb> [S<I<debhelper options>>] + +=head1 DESCRIPTION + +B<dh_installdeb> is a debhelper program that is responsible for installing +files into the F<DEBIAN> directories in package build directories with the +correct permissions. + +=head1 FILES + +=over 4 + +=item I<package>.postinst + +=item I<package>.preinst + +=item I<package>.postrm + +=item I<package>.prerm + +These maintainer scripts are installed into the F<DEBIAN> directory. + +Inside the scripts, the token B<#DEBHELPER#> is replaced with +shell script snippets generated by other debhelper commands. + +=item I<package>.triggers + +=item I<package>.shlibs + +These control files are installed into the F<DEBIAN> directory. + +=item I<package>.conffiles + +This control file will be installed into the F<DEBIAN> directory. + +In v3 compatibility mode and higher, all files in the F<etc/> directory in a +package will automatically be flagged as conffiles by this program, so +there is no need to list them manually here. + +=item I<package>.maintscript + +Lines in this file correspond to L<dpkg-maintscript-helper(1)> commands and +parameters. Any shell metacharacters will be escaped, so arbitrary shell +code cannot be inserted here. For example, a line such as C<mv_conffile +/etc/oldconffile /etc/newconffile> will insert maintainer script snippets +into all maintainer scripts sufficient to move that conffile. + +=back + +=cut + +init(); + +# dpkg-maintscript-helper commands with their associated dpkg pre-dependency +# versions. +my %maintscript_predeps = ( + "rm_conffile" => "", + "mv_conffile" => "", +); + +foreach my $package (@{$dh{DOPACKAGES}}) { + my $tmp=tmpdir($package); + + if (! -d "$tmp/DEBIAN") { + doit("install","-o",0,"-g",0,"-d","$tmp/DEBIAN"); + } + + if (is_udeb($package)) { + # For udebs, only do the postinst, and no #DEBHELPER#. + # Udebs also support menutest and isinstallable scripts. + foreach my $script (qw{postinst menutest isinstallable}) { + my $f=pkgfile($package,$script); + if ($f) { + doit("install", "-o", 0, "-g", 0, "-m", 755, + $f, "$tmp/DEBIAN/$script"); + } + } + + # stop here for udebs + next; + } + + my $maintscriptfile=pkgfile($package, "maintscript"); + if ($maintscriptfile) { + foreach my $line (filedoublearray($maintscriptfile)) { + my $cmd=$line->[0]; + error("unknown dpkg-maintscript-helper command: $cmd") + unless exists $maintscript_predeps{$cmd}; + addsubstvar($package, "misc:Pre-Depends", "dpkg", + ">= $maintscript_predeps{$cmd}") + if length $maintscript_predeps{$cmd}; + my $params=escape_shell(@$line); + foreach my $script (qw{postinst preinst prerm postrm}) { + autoscript($package, $script, "maintscript-helper", + "s!#PARAMS#!$params!g"); + } + } + } + + # Install debian scripts. + foreach my $script (qw{postinst preinst prerm postrm}) { + debhelper_script_subst($package, $script); + } + + # Install non-executable files + foreach my $file (qw{shlibs conffiles triggers}) { + my $f=pkgfile($package,$file); + if ($f) { + doit("install","-o",0,"-g",0,"-m",644,"-p",$f,"$tmp/DEBIAN/$file"); + } + } + + # Automatic conffiles registration: If it is in /etc, it is a + # conffile. + if (! compat(2) && -d "$tmp/etc") { + complex_doit("find $tmp/etc -type f -printf '/etc/%P\n' >> $tmp/DEBIAN/conffiles"); + # Anything found? + if (-z "$tmp/DEBIAN/conffiles") { + doit("rm", "-f", "$tmp/DEBIAN/conffiles"); + } + else { + doit("chmod", 644, "$tmp/DEBIAN/conffiles"); + } + } +} + +=head1 SEE ALSO + +L<debhelper(7)> + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess <joeyh@debian.org> + +=cut |