dh_installppp

   1 #!/usr/bin/perl -w
   2
   3 =head1 NAME
   4
   5 dh_installppp - install ppp ip-up and ip-down files
   6
   7 =cut
   8
   9 use strict;
  10 use Debian::Debhelper::Dh_Lib;
  11
  12 =head1 SYNOPSIS
  13
  14 B<dh_installppp> [S<I<debhelper options>>] [B<--name=>I<name>]
  15
  16 =head1 DESCRIPTION
  17
  18 B<dh_installppp> is a debhelper program that is responsible for installing
  19 ppp ip-up and ip-down scripts into package build directories.
  20
  21 =head1 FILES
  22
  23 =over 4
  24
  25 =item debian/I<package>.ppp.ip-up
  26
  27 Installed into etc/ppp/ip-up.d/I<package> in the package build directory.
  28
  29 =item debian/I<package>.ppp.ip-down
  30
  31 Installed into etc/ppp/ip-down.d/I<package> in the package build directory.
  32
  33 =back
  34
  35 =head1 OPTIONS
  36
  37 =over 4
  38
  39 =item B<--name=>I<name>
  40
  41 Look for files named F<debian/package.name.ppp.ip-*> and install them as
  42 F<etc/ppp/ip-*/name>, instead of using the usual files and installing them
  43 as the package name.
  44
  45 =back
  46
  47 =cut
  48
  49 init();
  50
  51 foreach my $package (@{$dh{DOPACKAGES}}) {
  52         my $tmp=tmpdir($package);
  53
  54         foreach my $script (qw(up down)) {
  55                 my $file=pkgfile($package, "ppp.ip-$script");
  56                 if ($file ne '') {
  57                         if (! -d "$tmp/etc/ppp/ip-$script.d") {
  58                                 doit("install","-d","$tmp/etc/ppp/ip-$script.d");
  59                         }
  60                         doit("install","-p","-m755",$file,"$tmp/etc/ppp/ip-$script.d/".pkgfilename($package));
  61                 }
  62         }
  63 }
  64
  65 =head1 SEE ALSO
  66
  67 L<debhelper(7)>
  68
  69 This program is a part of debhelper.
  70
  71 =head1 AUTHOR
  72
  73 Joey Hess <joeyh@debian.org>
  74
  75 =cut