WebSVN – camp_sysinfo_client_3 – Diff – //trunk/modules/linux_rpm_software

 # 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 {
-   push @INC, shift;
+   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;' );
+}
-use library;
+# 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' ) {
-my $rpm = &validCommandOnSystem( 'rpm' );
+   exit 2 unless &validCommandOnSystem( $command );
+}
-exit 1 unless $rpm;
 my $CATEGORY = 'software';
-my @packageList = split( "\n", qx( $rpm -qa --qf "%{NAME}\\t%{VERSION}\\t%{DISTRIBUTION}\\n" ) );
+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";

Subversion Repositories camp_sysinfo_client_3