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:
parent
3c92465b9d
commit
281319225b
26
xCAT-genesis-builder/findmcprpms
Executable file
26
xCAT-genesis-builder/findmcprpms
Executable 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;
|
Loading…
Reference in New Issue
Block a user