Subversion Repositories camp_sysinfo_client_3

Rev

Rev 153 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 153 Rev 251
Line 2... Line 2...
2 
use warnings;
 2 
use warnings;
3 
use strict;
3 
use strict;
4 
 
 4 
 
5 
# Description: Gets information on Unix based systems
 5 
# Description: Gets information on Unix based systems
6 
 
 6 
 
7 
our $VERSION = '1.1';
 7 
our $VERSION = '1.1.1';
8 
 
 8 
 
9 
# Basic Unix module for sysinfo client
 9 
# Basic Unix module for sysinfo client
10 
# Author: R. W. Rodolico
 10 
# Author: R. W. Rodolico
11 
# Date:   2016-04-08
 11 
# Date:   2016-04-08
12 
 
 12 
 
13 
# gets additional systems information on Linux machine using some standard
 13 
# gets additional systems information on Linux machine using some standard
14 
# utilities
 14 
# utilities
15 
 
 15 
 
16 
 
 16 
 
- 
 
 17 
# find our location and use it for searching for libraries
17 
BEGIN {
 18 
BEGIN {
18 
   push @INC, shift;
 19 
   use FindBin;
- 
 
 20 
   use File::Spec;
- 
 
 21 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 22 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 23 
   eval( 'use Data::Dumper;' );
19 
}
 24 
}
20 
 
 25 
 
- 
 
 26 
# check for valid OS.
- 
 
 27 
exit 1 unless &checkOS( { 'linux' => undef } );
- 
 
 28 
 
- 
 
 29 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
21 
use library;
 30 
# script returns a 2
- 
 
 31 
foreach my $command ( 'free', 'awk', 'grep', 'tail', 'uname' ) {
- 
 
 32 
   exit 2 unless &validCommandOnSystem( $command );
- 
 
 33 
}
22 
 
 34 
 
23 
# the commands this script will use
 - 
 
24 
my %commands = (
- 
 
25 
                  'free' => '',
- 
 
26 
                  'awk' => '',
- 
 
27 
                  'grep' => '',
 - 
 
28 
                  'tail' => '',
 - 
 
29 
                  'uname' => ''
 - 
 
30 
               );
 - 
 
31
- 
 
32 
# The files/directories the script will use
 35 
# The files/directories the script will use
33 
my %directory = (
 36 
my %directory = (
34 
#                  '/proc/cpuinfo' => 0,
 37 
#                  '/proc/cpuinfo' => 0,
35 
                  '/proc/uptime' => 0,
 38 
                  '/proc/uptime' => 0,
36 
#                  '/tmp/rodolico' => 0
 39 
#                  '/tmp/rodolico' => 0
37 
                );
 40 
                );
38 
 
 41 
 
39 
# check the commands for validity
 - 
 
40 
foreach my $command ( keys %commands ) {
 - 
 
41 
   $commands{$command} = &validCommandOnSystem( $command );
 - 
 
42 
}
 - 
 
43 
 
 - 
 
44 
# check the file/directory exists
 42 
# check the file/directory exists
45 
foreach my $dir ( keys %directory ) {
 43 
foreach my $dir ( keys %directory ) {
46 
   $directory{$dir} =  1 if (-e $dir);
 44 
   $directory{$dir} =  1 if (-e $dir);
47 
}
 45 
}
48 
 
 46