dh_suidregister

   1 #!/usr/bin/perl -w
   2 #
   3 # If no parameters are given, and no debian/suid files exists, scan for
   4 # suid/sgid files and suidregister them.
   5 #
   6 # If there are parameters, or there is a debian/suid, register the files
   7 # listed there.
   8
   9 BEGIN { push @INC, "debian", "/usr/share/debhelper" }
  10 use Dh_Lib;
  11 init();
  12
  13 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
  14         $TMP=tmpdir($PACKAGE);
  15         $suid=pkgfile($PACKAGE,"suid");
  16
  17         @files=();
  18         if ($suid) {
  19                 @files=filearray($suid);
  20         }
  21
  22         if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
  23                 push @files, @ARGV;
  24         }
  25
  26         if (! @files && ! $suid) {
  27                 # No files specified (and no empty debian/suid file), so
  28                 # guess what files to process.
  29                 @files=split(/\n/,`find $TMP -type f -perm +6000`);
  30
  31                 # We will strip the debian working directory off of the
  32                 # filenames.
  33                 $tostrip="$TMP/";
  34         }
  35         else {
  36                 # We will strip leading /'s, so the user can feed this
  37                 # program either absolute filenames, or relative filenames,
  38                 # and it will do the right thing either way.
  39                 $tostrip="/";
  40         }
  41
  42         foreach $file (@files) {
  43                 # Strip leading $tostrip from $file.
  44                 $file=~s/^$tostrip//;
  45
  46                 if (! -e "$TMP/$file") {
  47                         error("\"$TMP/$file\" does not exist.");
  48                 }
  49
  50                 # Create the sed string that will be used to
  51                 # fill in the blanks in the autoscript files.
  52                 # Fill with the owner, group, and perms of the file.
  53                 (undef,undef,$mode,undef,$uid,$gid,undef) = stat("$TMP/$file");
  54                 # Now come up with the user and group names for the uid and gid.
  55                 $user=getpwuid($uid);
  56                 if (! defined $user) {
  57                         warning("$file has odd uid $uid, not in /etc/passwd");
  58                         $user=$uid;
  59                 }
  60                 $group=getgrgid($gid);
  61                 if (! defined $group) {
  62                         warning("$file has odd gid $gid not in /etc/group");
  63                         $group=$gid;
  64                 }
  65                 # Note that I have to print mode in ocal, stripping file type.
  66                 $sedstr=sprintf("s:#FILE#:$file:;s/#PACKAGE#/$PACKAGE/;s/#OWNER#/$user/;s/#GROUP#/$group/;s/#PERMS#/%#o/",
  67                                 $mode & 07777);
  68
  69                 autoscript($PACKAGE,"postinst","postinst-suid",$sedstr);
  70                 autoscript($PACKAGE,"postrm","postrm-suid","$sedstr");
  71
  72                 if ( -e "$TMP/$file") {
  73                         doit("chmod","a-s","$TMP/$file");
  74                 }
  75         }
  76 }