|
|
|
@ -28,7 +28,13 @@ sub process;
|
|
|
|
|
|
|
|
|
|
sub usage
|
|
|
|
|
{
|
|
|
|
|
die "t [--ignoredir dir] [--dir dir spec] [--file file spec] root\n";
|
|
|
|
|
die "usage: genfilelist [-p] [--ignoredir dir] [--dir dir spec] [--file file spec] root\n"
|
|
|
|
|
." -p : add python compiled binaries at brp bytecompile\n"
|
|
|
|
|
." --ignoredir dir : ignore dir as already owned by another rpm\n"
|
|
|
|
|
." --dir dir spec : add dir with spec, e.g. /var/log/yum 'attr(2750,root,root)'\n"
|
|
|
|
|
." --file file spec: add file with spec, e.g. '/sbin/e-smith/yum' 'attr(0755,root,root)'\n"
|
|
|
|
|
." root : is usually \$RPM_BUILD_ROOT\n"
|
|
|
|
|
." known paths will have usual attributes applied (e.g. /etc/e-smith/events/actions/*)\n";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
my @ignoredirs = ('', qw(
|
|
|
|
@ -151,6 +157,7 @@ my @ignoredirs = ('', qw(
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
my $startdirectory = undef;
|
|
|
|
|
my $brppython = 0;
|
|
|
|
|
while (my $arg = shift)
|
|
|
|
|
{
|
|
|
|
|
if ($arg eq "--ignoredir")
|
|
|
|
@ -177,6 +184,10 @@ while (my $arg = shift)
|
|
|
|
|
if exists $::fileperms{$file};
|
|
|
|
|
$::fileperms{$file} = '%' . $spec;
|
|
|
|
|
}
|
|
|
|
|
elsif ($arg eq "-p")
|
|
|
|
|
{
|
|
|
|
|
$brppython = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
$startdirectory = $arg;
|
|
|
|
@ -184,7 +195,7 @@ while (my $arg = shift)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
defined $startdirectory
|
|
|
|
|
or die "Must give directory arg";
|
|
|
|
|
or die usage();
|
|
|
|
|
|
|
|
|
|
# Change to the build root directory
|
|
|
|
|
chdir $startdirectory
|
|
|
|
@ -231,10 +242,13 @@ sub process
|
|
|
|
|
return if $path =~ m{\.orig$};
|
|
|
|
|
|
|
|
|
|
my (@paths) = ($path);
|
|
|
|
|
|
|
|
|
|
# Add compiled python files
|
|
|
|
|
push @paths, "${path}c" if $path =~ m{\.py$};
|
|
|
|
|
push @paths, "${path}o" if $path =~ m{\.py$};
|
|
|
|
|
# add compiled python path (ie by brp bytecompile), if desired, and if outside of /etc/e-smith/templates
|
|
|
|
|
if ( ($brppython) and ( not $path =~ m{^/etc/e-smith/templates} ))
|
|
|
|
|
{
|
|
|
|
|
# Add compiled python files
|
|
|
|
|
push @paths, "${path}c" if $path =~ m{\.py$};
|
|
|
|
|
push @paths, "${path}o" if $path =~ m{\.py$};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
foreach $path (@paths) {
|
|
|
|
|
# Some files get special permissions and ownership
|
|
|
|
|