WebSVN – camp_sysinfo_client_3 – Diff – //trunk/modules/bsd_pkg_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( { 'freebsd' => 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
-exit 1 unless &getOperatingSystem() =~ m/bsd/i;
+foreach my $command ( 'pkg' ) {
-my $pkg = &validCommandOnSystem( 'pkg' );
+   exit 2 unless &validCommandOnSystem( $command );
+}
-exit 1 unless $pkg;
 my $CATEGORY = 'software';
-my @packageList  = split( "\n", qx($pkg info));
+my @packageList  = split( "\n", qx( pkg info ));
 chomp @packageList;
 for ( my $i = 0; $i < @packageList; $i++ ) {
    $packageList[$i] =~ m/^(.+)-([^ ]+)\s+(.*)/;
    print "$CATEGORY\t$1\tversion\t$2\n";
    print "$CATEGORY\t$1\tdescription\t$3\n";

Subversion Repositories camp_sysinfo_client_3