diff options
Diffstat (limited to 'dh_installexamples')
-rwxr-xr-x | dh_installexamples | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/dh_installexamples b/dh_installexamples deleted file mode 100755 index 8934e2fb..00000000 --- a/dh_installexamples +++ /dev/null @@ -1,110 +0,0 @@ -#!/usr/bin/perl -w - -=head1 NAME - -dh_installexamples - install example files into package build directories - -=cut - -use strict; -use Debian::Debhelper::Dh_Lib; - -=head1 SYNOPSIS - -B<dh_installexamples> [S<I<debhelper options>>] [B<-A>] [B<-X>I<item>] [S<I<file ...>>] - -=head1 DESCRIPTION - -dh_installexamples is a debhelper program that is responsible for -installing examples into usr/share/doc/package/examples in package -build directories. - -Any file names specified as parameters will be installed into the first -package dh_installexamples is told to act on. By default, this is the first -binary package in debian/control, but if you use -p, -i, or -a flags, it -will be the first package specified by those flags. - -Files named debian/package.examples can list other files to be installed. - -=head1 OPTIONS - -=over 4 - -=item B<-A>, B<--all> - -Install any files specified by command line parameters in ALL packages -acted on. - -=item I<file ...> - -Install these files as examples into the first package acted on. (Or into -all packages if -A is specified.) - -=item B<-Xitem>, B<--exclude=item> - -Exclude files that contain "item" anywhere in their filename from -being installed. - -=back - -=head1 NOTES - -Note that dh_installexamples will happily copy entire directory hierarchies -if you ask it to (similar to cp -a). If it is asked to install a -directory, it will install the complete contents of the directory. - -=cut - -init(); - -foreach my $package (@{$dh{DOPACKAGES}}) { - my $tmp=tmpdir($package); - my $file=pkgfile($package,"examples"); - - my @examples; - - if ($file) { - @examples=filearray($file, "."); - } - - if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) { - push @examples, @ARGV; - } - - if (@examples) { - if (! -d "$tmp/usr/share/doc/$package/examples") { - doit("install","-d","$tmp/usr/share/doc/$package/examples"); - } - - my $exclude = ''; - if ($dh{EXCLUDE_FIND}) { - $exclude = ' -and ! \( '.$dh{EXCLUDE_FIND}.' \)'; - } - - foreach my $example (@examples) { - next if excludefile($example); - if (-d $example && $exclude) { - my ($dir_basename) = basename($example); - # Pity there's no cp --exclude .. - my $pwd=`pwd`; - chomp $pwd; - complex_doit("cd $example/.. && find $dir_basename -type f$exclude -exec cp --parents -dp {} $pwd/$tmp/usr/share/doc/$package/examples \\;"); - } - else { - doit("cp", "-a", $example, "$tmp/usr/share/doc/$package/examples"); - } - } - } -} - -=head1 SEE ALSO - -L<debhelper(7)> - -This program is a part of debhelper. - -=head1 AUTHOR - -Joey Hess <joeyh@debian.org> - -=cut |