Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl
use warnings;
use strict;  

# Description: Get packages installed via rpm (RedHat)

our $VERSION = '1.2';

# Redhat software module for sysinfo client
# Author: R. W. Rodolico
# Date:   2016-04-08
# gets information on software on systems with rpm on them (Redhat)

# find our location and use it for searching for libraries
BEGIN {
   use FindBin;
   use File::Spec;
   use lib File::Spec->catdir($FindBin::Bin);
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
   eval( 'use Data::Dumper;' );
}

# check for valid OS. 
exit 1 unless &checkOS( { 'linux' => undef } );

# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
# script returns a 2
foreach my $command ( 'rpm' ) {
   exit 2 unless &validCommandOnSystem( $command );
}


my $CATEGORY = 'software';

my @packageList = split( "\n", qx( rpm -qa --qf "%{NAME}\\t%{VERSION}\\t%{DISTRIBUTION}\\n" ) );
chomp @packageList;
for ( my $i = 0; $i < @packageList; $i++ ) {
   my ($package, $version, $distribution)  = split( "\t", $packageList[$i]);
   print "$CATEGORY\t$package\tversion\t$version\n";
#   print "$CATEGORY\t$package\tdescription\t" . join(" ", @description) . "\n";
}