Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 69 Rev 251
Line 10... Line 10...
10 
# Author: R. W. Rodolico
 10 
# Author: R. W. Rodolico
11 
# Date:   2016-04-08
 11 
# Date:   2016-04-08
12 
 
 12 
 
13 
# gets information on linux systems with lsb on them
 13 
# gets information on linux systems with lsb on them
14 
 
 14 
 
- 
 
 15 
# find our location and use it for searching for libraries
15 
BEGIN {
 16 
BEGIN {
16 
   push @INC, shift;
 17 
   use FindBin;
- 
 
 18 
   use File::Spec;
- 
 
 19 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 20 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 21 
   eval( 'use Data::Dumper;' );
17 
}
 22 
}
18 
 
 23 
 
19 
use library;
 24 
# check for valid OS.
- 
 
 25 
exit 1 unless &checkOS( { 'linux' => undef } );
20 
 
 26 
 
- 
 
 27 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
- 
 
 28 
# script returns a 2
- 
 
 29 
foreach my $command ( 'lsb_release', 'uname' ) {
- 
 
 30 
   exit 2 unless &validCommandOnSystem( $command );
- 
 
 31 
}
21 
my $CATEGORY = 'operatingsystem';
 32 
my $CATEGORY = 'operatingsystem';
22 
 
 33 
 
23 
my $command = 'lsb_release';
 34 
my $command = 'lsb_release';
24 
 
 - 
 
25 
if ( $command = &validCommandOnSystem('lsb_release') ) {
 - 
 
26 
   print "$CATEGORY\tdistribution\t" . &cleanUp(':', qx($command -i)) . "\n";
 35 
print "$CATEGORY\tdistribution\t" . &cleanUp(':', qx($command -i)) . "\n";
27 
   print "$CATEGORY\tdescription\t" . &cleanUp(':', qx($command -d)) . "\n";
 36 
print "$CATEGORY\tdescription\t" . &cleanUp(':', qx($command -d)) . "\n";
28 
   print "$CATEGORY\trelease\t" . &cleanUp(':', qx($command -r)) . "\n";
 37 
print "$CATEGORY\trelease\t" . &cleanUp(':', qx($command -r)) . "\n";
29 
   print "$CATEGORY\tcodename\t" . &cleanUp(':', qx($command -c)) . "\n";
 38 
print "$CATEGORY\tcodename\t" . &cleanUp(':', qx($command -c)) . "\n";
30 
}
 - 
 
31 
 
 39 
 
32 
if ( $command = &validCommandOnSystem('uname') ) {
 40 
$command = 'uname';
33 
   print "$CATEGORY\tos_name\t" . &cleanUp('', qx($command -s)) . "\n";
 41 
print "$CATEGORY\tos_name\t" . &cleanUp('', qx($command -s)) . "\n";
34 
   print "$CATEGORY\tkernel\t" . &cleanUp('', qx($command -r)) . "\n";
 42 
print "$CATEGORY\tkernel\t" . &cleanUp('', qx($command -r)) . "\n";
35 
}
 - 
 
36 
 
 43 
 
37 
print "$CATEGORY\tos_version\t" . &cleanUp('', qx(cat /proc/version)) . "\n" if -e '/proc/version';
 44 
print "$CATEGORY\tos_version\t" . &cleanUp('', qx(cat /proc/version)) . "\n" if -e '/proc/version';