dh_installexamples

   1 #!/usr/bin/perl -w
   2 #
   3 # Reads debian/examples, installs all files listed there into
   4 # /usr/share/doc/$PACKAGE/examples
   5
   6 use Debian::Debhelper::Dh_Lib;
   7 init();
   8
   9 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
  10         $TMP=tmpdir($PACKAGE);
  11         $file=pkgfile($PACKAGE,"examples");
  12
  13         undef @examples;
  14
  15         if ($file) {
  16                 @examples=filearray($file);
  17         }
  18
  19         if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
  20                 push @examples, @ARGV;
  21         }
  22
  23         if (@examples) {
  24                 if (! -d "$TMP/usr/share/doc/$PACKAGE/examples") {
  25                         doit("install","-d","$TMP/usr/share/doc/$PACKAGE/examples");
  26                 }
  27
  28                 doit("cp","-a",@examples,"$TMP/usr/share/doc/$PACKAGE/examples");
  29         }
  30 }