]> git.donarmstrong.com Git - debhelper.git/blobdiff - dh_suidregister
r421: use strict
[debhelper.git] / dh_suidregister
index b82bc7d229c2113fd0285b424f75b1777230306e..9e30bf3991726bc415ba91540f36acb342b02901 100755 (executable)
@@ -1,82 +1,42 @@
 #!/usr/bin/perl -w
 #
-# If no parameters are given, and no debian/suid files exists, scan for 
-# suid/sgid files and suidregister them. 
-#
-# If there are parameters, or there is a debian/suid, register the files
-# listed there.
+# Obsolete.
 
-BEGIN { push @INC, "debian", "/usr/share/debhelper" }
-use Dh_Lib;
+use strict;
+use Debian::Debhelper::Dh_Lib;
 init();
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-       $TMP=tmpdir($PACKAGE);
-       $suid=pkgfile($PACKAGE,"suid");
+my $notused=1;
+
+foreach my $package (@{$dh{DOPACKAGES}}) {
+       my $tmp=tmpdir($package);
+       my $suid=pkgfile($package,"suid");
+
+       # All this code is here just to see if we would have done something
+       # before..
 
-       @files=();
+       my @files;
        if ($suid) {
-               @files=filearray($suid);
+               @files=filearray($suid, $tmp);
        }
 
-       if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+       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`);
-
-               # We will 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="/";
+               @files=split(/\n/,`find $tmp -type f -perm +6000`);
        }
 
-       # Register files with suidregister.
-       foreach $file (@files) {
-               # Strip leading $tostrip from $file.
-               $file=~s/^$tostrip//;
-
-               if (! -e "$TMP/$file") {
-                       error("\"$TMP/$file\" does not exist.");
-               }
-               
-               # 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.
-               (undef,undef,$mode,undef,$uid,$gid,undef) = stat("$TMP/$file");
-               # Now come up with the user and group names for the uid and gid.
-               $user=getpwuid($uid);
-               if (! defined $user) {
-                       warning("$file has odd uid $uid, not in /etc/passwd");
-                       $user=$uid;
-               }
-               $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.
-               $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");
+       if (@files) {
+               # So we would have registered some files before.
+               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.");
        }
+}
 
-       # 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 $file (@files) {
-               if ( -e "$TMP/$file") {
-                       doit("chmod","a-s","$TMP/$file");
-               }
-       }
+# Although they called it, it's not going to do anything.
+if ($notused) {
+       warning("This program is obsolete and may be safely removed from your rules file.");
 }