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 Linux machine using some standard

# utilities

BEGIN {

   push @INC, shift;

}

use library;

exit 1 unless &getOperatingSystem() =~ m/bsd/i;

# the commands this script will use

my %commands = ( 

                  'grep' => '',

                  'dmesg' => '',

                  'uname' => ''

               );

# check the commands for validity

foreach my $command ( keys %commands ) {

   $commands{$command} = &validCommandOnSystem( $command );

}

# category we will use for all values found

# see sysinfo for a list of valid categories

my $CATEGORY = 'system';

my $temp;

my @cpu = qx(dmesg | grep CPU);

chomp @cpu;

my $numProcessor = 0;

for ( my $i = 0; $i < @cpu; $i++ ) {

   if ( $cpu[$i] =~ m/^CPU:(.*)/ ) {

      print "$CATEGORY\tcpu\t$1\n";

      if ( $cpu[$i] =~ m/([0-9.]+)\s*([gm]hz])/ ) {

         $temp = $1;

         $temp *= 1000 if ( lc($2) eq 'ghz' );

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

      }

   } elsif ( $cpu[$i] =~ m/^cpu\d/ ) {

      $numProcessor++;

   }

}

print "$CATEGORY\tnum_cpu\t$numProcessor\n";

my $mem = qx( dmesg | grep 'real memory' );

# real memory  = 4286578688 (4088 MB)

$mem =~ m/=\s+(\d+)/;

$mem = $1 / 1024;

print "$CATEGORY\tmemory\t$mem\n";

# all this needs is uname

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

my $uptime = qx( uptime );

chomp $uptime;

$uptime =~ m/.*up +(?:(\d+) days?,? +)?(\d+):(\d+),.*/;

$uptime =  $1*86400+ $2 * 3600 + $3 * 60;

print "$CATEGORY\tlast_boot\t" . (time - $uptime) . "\n";

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

exit 0;