Subversion Repositories camp_sysinfo_client_3

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

# Description: Get Kernel, distro, etc... on Unix systems

our $VERSION = '1.1';

# Linux module for sysinfo client
# Author: R. W. Rodolico
# Date:   2016-04-08

# gets information on linux systems with lsb on them

# 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 ( 'lsb_release', 'uname' ) {
   exit 2 unless &validCommandOnSystem( $command );
}
my $CATEGORY = 'operatingsystem';

my $command = 'lsb_release';
print "$CATEGORY\tdistribution\t" . &cleanUp(':', qx($command -i)) . "\n";
print "$CATEGORY\tdescription\t" . &cleanUp(':', qx($command -d)) . "\n";
print "$CATEGORY\trelease\t" . &cleanUp(':', qx($command -r)) . "\n";
print "$CATEGORY\tcodename\t" . &cleanUp(':', qx($command -c)) . "\n";

$command = 'uname';
print "$CATEGORY\tos_name\t" . &cleanUp('', qx($command -s)) . "\n";
print "$CATEGORY\tkernel\t" . &cleanUp('', qx($command -r)) . "\n";

print "$CATEGORY\tos_version\t" . &cleanUp('', qx(cat /proc/version)) . "\n" if -e '/proc/version';