Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

use strict;  

use utf8;                                # Source code encoded using UTF-8

# Description: Get software installed by dpkg or apt(itutde) (Debian)

our $VERSION = '1.2';

# Debian software module for sysinfo client

# 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 {

   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 ( 'dpkg', 'grep' ) {

   exit 2 unless &validCommandOnSystem( $command );

}

my $CATEGORY = 'software';

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];

   print "$CATEGORY\t$package\tversion\t$version\n";

   print "$CATEGORY\t$package\tdescription\t" . join(" ", @description) . "\n";

}