dh_suidregister

   1 #!/usr/bin/perl -w
   2 #
   3 # Obsolete.
   4
   5 use Debian::Debhelper::Dh_Lib;
   6 init();
   7
   8 my $notused=1;
   9
  10 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
  11         $TMP=tmpdir($PACKAGE);
  12         $suid=pkgfile($PACKAGE,"suid");
  13
  14         # All this code is here just to see if we would have done something
  15         # before..
  16
  17         @files=();
  18         if ($suid) {
  19                 @files=filearray($suid, $TMP);
  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
  32         if (@files) {
  33                 # So we would have registered some files before.
  34                 error("This program should no longer be used, but you need to add a conflicts with \"suidmanager (<< 0.50)\". Please read the dh_suidregister(1) man page.");
  35         }
  36 }
  37
  38 # Although they called it, it's not going to do anything.
  39 if ($notused) {
  40         warning("This program is obsolete and may be safely removed from your rules file.");
  41 }