added script to to genesis-builder to determine the rpms we included from mcp

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15006 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
bp-sawyers 2013-01-28 22:02:44 +00:00
parent 3c92465b9d
commit 281319225b

View File

@ -0,0 +1,26 @@
#!/usr/bin/perl
# Figure out which rpms are used in the mcp-based version of genesis by looking at the files
# we pull in and working backward to the rpms.
use strict;
my $genesisrpm = shift @ARGV;
my %rpms;
my @files = `rpm -qlp $genesisrpm`;
my $total = scalar(@files);
my $i = 0;
foreach my $f (@files) {
$i++;
print "$i/$total\r";
chomp($f);
if ($f !~ m|/opt/xcat/share/xcat/netboot/genesis/x86_64/fs|) { next; }
$f =~ s|^/opt/xcat/share/xcat/netboot/genesis/x86_64/fs||;
if (!$f || !(-e $f)) { next; } # there are files dracut creates that are not part of an rpm
my $rpm = `rpm -q --whatprovides $f`;
if ($?) { next; } # there are files dracut creates that are not part of an rpm
#print '.'; # show progress
chomp($rpm);
$rpms{$rpm} = 1;
}
print "\n";
foreach my $r (sort keys %rpms) { print "$r\n"; }
exit;