blob: 85ee092751df8b5b36f0092ae16ae597427a5f93 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl -w
#
# Integration with debian pam system:
#
# If debian/pam file exists, save it to $tmp/etc/pam.d/$package
use strict;
use Debian::Debhelper::Dh_Lib;
init();
foreach my $package (@{$dh{DOPACKAGES}}) {
my $tmp=tmpdir($package);
my $pam=pkgfile($package,"pam");
if ($pam ne '') {
if (! -d "$tmp/etc/pam.d") {
doit("install","-d","$tmp/etc/pam.d");
}
doit("install","-p","-m644",$pam,"$tmp/etc/pam.d/$package");
}
}
|