WebSVN – camp_sysinfo_client_3 – Diff – /trunk/modules/linux_dpkg_software

 # Author: R. W. Rodolico
 # Date:   2016-04-08
 # gets information on software on systems with dpkg on them (Debian)
+# 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
-my $dpkg = &validCommandOnSystem( 'dpkg' );
+foreach my $command ( 'dpkg', 'grep' ) {
-my $grep = &validCommandOnSystem( 'grep' );
+   exit 2 unless &validCommandOnSystem( $command );
+}
-exit 1 unless $dpkg && $grep;
 my $CATEGORY = 'software';
-my @packageList  = split( "\n", qx($dpkg -l | $grep ^i));
+my @packageList  = split( "\n", qx(dpkg -l | grep ^i));
 chomp @packageList;
 for ( my $i = 0; $i < @packageList; $i++ ) {
    utf8::encode( $packageList[$i] );
    my ($status,$package, $version, @description) = split ' ', $packageList[$i];

Subversion Repositories camp_sysinfo_client_3