/usr/bin/dh_suidregister is in debhelper 9.20150101+deb8u2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 | #!/usr/bin/perl -w
=head1 NAME
dh_suidregister - suid registration program (deprecated)
=head1 SYNOPSIS
Do not run!
=head1 DESCRIPTION
This program used to register suid and sgid files with L<suidregister(1)>,
but with the introduction of L<dpkg-statoverride(8)>, registration of files
in this way is unnecessary, and even harmful, so this program is deprecated
and should not be used.
=head1 CONVERTING TO STATOVERRIDE
Converting a package that uses this program to use the new statoverride
mechanism is easy. Just remove the call to B<dh_suidregister> from
F<debian/rules>, and add a versioned conflicts into your F<control> file, as
follows:
Conflicts: suidmanager (<< 0.50)
The conflicts is only necessary if your package used to register things
with suidmanager; if it did not, you can just remove the call to this
program from your rules file.
=cut
use strict;
use Debian::Debhelper::Dh_Lib;
init();
my $notused=1;
foreach my $package (@{$dh{DOPACKAGES}}) {
my $tmp=tmpdir($package);
my $suid=pkgfile($package,"suid");
my $tostrip='';
my @files;
if ($suid) {
@files=filearray($suid, $tmp);
}
if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
push @files, @ARGV;
}
if (! @files && ! $suid) {
# No files specified (and no empty debian/suid file), so
# guess what files to process.
@files=split(/\n/,`find $tmp -type f -perm /6000`);
# Strip the debian working directory off of the filenames.
$tostrip="$tmp/";
}
else {
# We will strip leading /'s, so the user can feed this
# program either absolute filenames, or relative filenames,
# and it will do the right thing either way.
$tostrip="/";
}
# Register files with suidregister.
foreach my $file (@files) {
# Strip leading $tostrip from $file.
$file=~s/^$tostrip//;
# Create the sed string that will be used to
# fill in the blanks in the autoscript files.
# Fill with the owner, group, and perms of the file.
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$tmp/$file");
# Now come up with the user and group names for the uid and
# gid.
my $user=getpwuid($uid);
if (! defined $user) {
warning("$file has odd uid $uid, not in /etc/passwd");
$user=$uid;
}
my $group=getgrgid($gid);
if (! defined $group) {
warning("$file has odd gid $gid not in /etc/group");
$group=$gid;
}
# Note that I have to print mode in ocal, stripping file
# type.
my $sedstr=sprintf("s:#FILE#:$file:;s/#PACKAGE#/$package/;s/#OWNER#/$user/;s/#GROUP#/$group/;s/#PERMS#/%#o/",
$mode & 07777);
autoscript($package,"postinst","postinst-suid",$sedstr);
autoscript($package,"postrm","postrm-suid","$sedstr");
}
# Remove suid bits from files. This is delayed to this point, because
# of a situation with hard linked files if it is done earlier.
# See changelog for 2.0.77.
foreach my $file (@files) {
if ( -e "$tmp/$file") {
doit("chmod","a-s","$tmp/$file");
}
}
if (@files) {
warning("This program should no longer be used. Please read the dh_suidregister(1) man page.");
$notused=0;
}
}
# Although they called it, it's not going to do anything.
if ($notused) {
warning("This program is obsolete, does nothing, and may be safely removed from your rules file.");
}
=head1 SEE ALSO
L<debhelper(7)>
This program is a part of debhelper.
=head1 AUTHOR
Joey Hess <joeyh@debian.org>
=cut
|