| 2 |
rodolico |
1 |
#! /usr/bin/perl -w
|
|
|
2 |
|
|
|
3 |
# gets information on software on systems with rpm on them (Redhat)
|
|
|
4 |
|
|
|
5 |
BEGIN {
|
|
|
6 |
push @INC, shift;
|
|
|
7 |
}
|
|
|
8 |
|
|
|
9 |
use library;
|
|
|
10 |
|
|
|
11 |
my $rpm = &validCommandOnSystem( 'rpm' );
|
|
|
12 |
|
|
|
13 |
exit 1 unless $rpm;
|
|
|
14 |
|
|
|
15 |
my $CATEGORY = 'software';
|
|
|
16 |
|
|
|
17 |
my @packageList = split( "\n", qx( $rpm -qa --qf "%{NAME}\\t%{VERSION}\\t%{DISTRIBUTION}\\n" ) );
|
|
|
18 |
chomp @packageList;
|
|
|
19 |
for ( $i = 0; $i < @packageList; $i++ ) {
|
|
|
20 |
my ($package, $version, $distribution) = split( "\t", $packageList[$i]);
|
|
|
21 |
print "$CATEGORY\t$package\tversion\t$version\n";
|
|
|
22 |
print "$CATEGORY\t$package\tdescription\t" . join(" ", @description) . "\n";
|
|
|
23 |
}
|