brp python

additional/genfilelist

@@ -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