Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

use strict;  

# Description: Gets information on Unix based systems

our $VERSION = '1.0';

# Basic Unix module for sysinfo client

# Author: R. W. Rodolico

# Date:   2016-04-08

# gets additional systems information on BSD 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( { '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

foreach my $command ( 'grep', 'dmesg', 'uname', 'sysctl' ) {

   exit 2 unless &validCommandOnSystem( $command );

}

# category we will use for all values found

# see sysinfo for a list of valid categories

my $CATEGORY = 'system';

my $temp;

# following removed as they are now gotten through dmidecode module

#$temp = getSysctlParameter( $commands{ 'sysctl' }, 'hw.ncpu' );

#print "$CATEGORY\tnum_cpu\t$temp\n" if $temp;

#$temp = getSysctlParameter( $commands{ 'sysctl' }, 'hw.clockrate' );

#print "$CATEGORY\tcpu_speed\t$temp\n" if $temp;;

#$temp = getSysctlParameter( $commands{ 'sysctl' }, 'hw.model' );

#print "$CATEGORY\tcpu\t$temp\n" if $temp;

# all this needs is uname

#print "$CATEGORY\tcpu_sub\t" . &cleanUp('', qx(uname -m)) . "\n" if $commands{'uname'};

#print "$CATEGORY\tcpu_type\tUNK\n";

#$temp = getSysctlParameter( $commands{ 'sysctl' }, 'hw.realmem' );

#$temp /= 1024;

#print "$CATEGORY\tmemory\t$temp\n";

$temp = getSysctlParameter( 'sysctl', 'kern.boottime' );

$temp =~ m/sec = (\d+),/;

$temp = $1;

print "$CATEGORY\tlast_boot\t$temp\n";

$temp = time - $temp;

print "$CATEGORY\tuptime\t$temp\n";

exit 0;