From b070b97f2fa474a3f2a9bdefa5896461b2e4772a Mon Sep 17 00:00:00 2001 From: Vladimir Sokolovsky Date: Wed, 15 Sep 2010 13:23:55 +0200 Subject: [PATCH] ofed_info will print the list of the installed packages Signed-off-by: Vladimir Sokolovsky --- build.pl | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/build.pl b/build.pl index d3cf07f..2641658 100755 --- a/build.pl +++ b/build.pl @@ -297,13 +297,25 @@ sub get_from_git open (IN, "$destdir/BUILD_ID") or die "Can't open $destdir/BUILD_ID file: $!\n"; seek IN,0,0; my @file = ; + my $list_of_packages = 'kernel-ib'; open (OUT, "> ofed_info") or die "Can't open ofed_info file: $!\n"; print OUT "#!/bin/bash\n"; print OUT "cat << EOF\n"; foreach my $line (@file) { print OUT $line; + if ($line =~ /\:$/ and $line !~ /$distribution/) { + $line =~ s/://g; + chomp $line; + $list_of_packages .= " $line"; + } } print OUT "EOF\n"; + print OUT "\necho\n"; + print OUT "echo Installed Packages:\n"; + print OUT "echo -------------------\n"; + $list_of_packages =~ s/\ /|/g; + chomp $list_of_packages; + print OUT "rpm -qa | grep -E \"$list_of_packages\""; close OUT; close IN; chmod 0755, 'ofed_info'; @@ -583,6 +595,7 @@ for my $conf (<$CWD/$packages_dir/*.conf>) { } # Cleanup + chdir $tmpdir; for my $file (<$tmpdir/$package*>) { rmtree $file; } -- 2.46.0