mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

* Fix a longstanding bug I was only recently told about: When converting

Browse Source 
from rpm, ignore the icky file owners and perms from the cpio archive,
     and query rpm for the real set that it overrides in the control data
     structure. Closes: #151546
This commit is contained in:
joey
2002-07-09 00:54:38 +00:00
parent 92a03172da
commit eb41790008
3 changed files with 34 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Alien/Package/Rpm.pm
View File

@@ -176,6 +176,30 @@ sub unpack {
or die "error moving unpacked files into the default prefix directory: $!";
}
if ($> == 0) {
# rpm files have two sets of permissions; the set in the cpio
# archive, and the set in the control data; which override them.
# The set in the control data are more correct, so let's use those.
open (GETPERMS, 'rpm --queryformat \'[%{FILEMODES} %{FILEUSERNAME} %{FILEGROUPNAME} %{FILENAMES}\n]\' -qp '.$this->filename.' |');
while (<GETPERMS>) {
chomp;
my ($mode, $owner, $group, $file) = split(/ /, $_, 4);
$mode = $mode & 07777; # remove filetype
my $uid = getpwnam($owner);
if (! defined $uid) {
print STDERR "WARNING: $file is owned by a user ($owner) not on this system; using root instead";
$uid=0;
}
my $gid = getgrnam($group);
if (! defined $gid) {
print STDERR "WARNING: $file is owned by a group ($group) not on this system; using group root instead";
$gid=0;
}
chown($uid, $gid, $file) || die "failed chowning $file to $uid\:$gid\: $!";
chmod($mode, $file) || die "failed changing mode of $file to $mode\: $!";
}
}
# When cpio extracts the file, any child directories that are
# present, but whose parent directories are not, end up mode 700.
# This next block corrects that to 755, which is more reasonable.