Subversion Repositories camp_sysinfo_client_3

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

# Description: Gets information on Unix based systems

our $VERSION = '1.1.1';

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

# gets additional systems information on Linux machine using some standard
# utilities


# 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 ( 'free', 'awk', 'grep', 'tail', 'uname' ) {
   exit 2 unless &validCommandOnSystem( $command );
}

# The files/directories the script will use
my %directory = (
#                  '/proc/cpuinfo' => 0,
                  '/proc/uptime' => 0,
#                  '/tmp/rodolico' => 0
                );

# check the file/directory exists
foreach my $dir ( keys %directory ) {
   $directory{$dir} =  1 if (-e $dir);
}

# category we will use for all values found
# see sysinfo for a list of valid categories
my $CATEGORY = 'system';


# this is now done via dmidecode module
# make sure the commands will work before we run them.
#if ( $commands{'awk'} && $commands{'grep'} ) { # we need grep and awk for all these
#   print "$CATEGORY\tmemory\t" . &cleanUp('', qx(free | grep Mem | awk '{print \$2}')) . "\n" if $commands{'free'};
#   if ( $directory{'/proc/cpuinfo'} ) { # and we need /proc/cpuinfo file for these
#      print "$CATEGORY\tnum_cpu\t" . &cleanUp('', qx(cat /proc/cpuinfo | grep processor | wc -l | awk '{print \$1}')) . "\n";
#      print "$CATEGORY\tcpu_speed\t" . &cleanUp('', qx(cat /proc/cpuinfo | grep MHz | tail -n1 | awk '{print \$4}')) . "\n";
#      print "$CATEGORY\tcpu_type\t" . &cleanUp('', qx(cat /proc/cpuinfo | grep vendor_id | tail -n 1 | awk '{print \$3}')) . "\n";
#   }
#}
# all this needs is uname
#print "$CATEGORY\tcpu_sub\t" . &cleanUp('', qx(uname -m)) . "\n" if $commands{'uname'};

# need /proc/uptime to get the uptime
if ( $directory{'/proc/uptime'} ) {
   my $uptime = qx(cat /proc/uptime);
   $uptime =~ m/(\d+)/;
   $uptime = int($1); # uptime now has the up time in seconds
   print "$CATEGORY\tlast_boot\t" . (time - $uptime) . "\n";
   print "$CATEGORY\tuptime\t" . $uptime . "\n";
}

exit 0;