Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

use strict;  

# Description: Basic template for modules. Do NOT enable

our $VERSION = '1.2';

exit 1; # remove this before using

# Put some comments here on who wrote it and what it does

# 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 module directory\n" if $@;

   eval( 'use Data::Dumper;' );

}

# check for valid OS. Remove any OS' this module is not valid for

exit 1 unless &checkOS( { 'linux' => undef, 'freebsd' => undef, 'mswin32' => 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 exits and returns an exit code of 2

foreach my $command ( 'sysctl', 'df' ) {

   exit 2 unless &validCommandOnSystem( $command );

}

# category we will use for all values found

# see sysinfo for a list of valid categories

my $CATEGORY = 'system';

# run the commands necessary to do whatever you want to do

# The library entered above has some helper routines

# validCommandOnSystem -- passed a name, returns the fully qualified path or '' if it does not exist

# cleanUp - passed a delimiter and a string, does the following (delimiter can be '')

#           chomps the string (removes trailing newlines)

#           removes all text BEFORE the delimiter, the delimiter, and any whitespace

#           thus, the string 'xxI Am x  a weird string' with a newline will become

#           'a weird string' with no newline

# now, return the tab delimited output (to STDOUT). $CATEGORY is the first

# item, name as recognized by sysinfo is the second and the value is

# the last one. For multiple entries, place on separate lines (ie, newline separated)

# Example of getting last_boot and uptime on a Unix system

# exit status of 3 or greater means we could not get data for some reason

if ( -d '/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;

} else {

   exit 3;

}

# if you have not done an exit state above (1 indicating wrong operating system, 2 meaning the commands do not exist), do one

# here (exit 0 indicates success)

exit 0;