Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 197 Rev 251
Line 23... Line 23...
23 
#
 23 
#
24 
# v1.3 20180424 RWR
 24 
# v1.3 20180424 RWR
25 
# Fixed bug when diskinfo generates an error. Will still send error
 25 
# Fixed bug when diskinfo generates an error. Will still send error
26 
# to STDERR, but will not break program.
 26 
# to STDERR, but will not break program.
27 
 
 27 
 
- 
 
 28 
# find our location and use it for searching for libraries
28 
BEGIN {
 29 
BEGIN {
29 
   push @INC, shift;
 30 
   use FindBin;
- 
 
 31 
   use File::Spec;
- 
 
 32 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 33 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 34 
   eval( 'use Data::Dumper;' );
30 
}
 35 
}
31 
 
 36 
 
32 
use library;
 37 
# check for valid OS.
- 
 
 38 
exit 1 unless &checkOS( { 'freebsd' => undef } );
33 
 
 39 
 
34 
exit 1 unless &getOperatingSystem() =~ m/bsd/i;
 - 
 
35 
 
 - 
 
36 
# the commands this script will use
 40 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
37 
my %commands = (
41 
# script returns a 2
38 
                  'sysctl' => ''
 - 
 
39 
               );
 - 
 
40 
 
 - 
 
41 
# check the commands for validity
 - 
 
42 
foreach my $command ( keys %commands ) {
 42 
foreach my $command ( 'sysctl' ) {
43 
   $commands{$command} = &validCommandOnSystem( $command );
 43 
   exit 2 unless &validCommandOnSystem( $command );
44 
}
 44 
}
45 
 
 45 
 
46 
exit 1 unless $commands{'sysctl'};
 - 
 
47
46 
 
48 
my $temp;
 47 
my $temp;
49 
my $device;
 48 
my $device;
50 
my @temp;
 49 
my @temp;
51 
my $CATEGORY = 'diskinfo';
 50 
my $CATEGORY = 'diskinfo';
52 
 
 51 
 
53 
 
 52 
 
54 
$temp = getSysctlParameter( $commands{ 'sysctl' }, 'kern.disks' );
 53 
$temp = getSysctlParameter( 'sysctl', 'kern.disks' );
55 
my @disks =  split( /\s+/, $temp );
 54 
my @disks =  split( /\s+/, $temp );
56 
foreach $device ( @disks ) {
 55 
foreach $device ( @disks ) {
57 
   next unless eval { $temp = qx( diskinfo $device ); };
 56 
   next unless eval { $temp = qx( diskinfo $device ); };
58 
   chomp $temp;
 57 
   chomp $temp;
59 
   my @info =  split( /\s+/, $temp );
 58 
   my @info =  split( /\s+/, $temp );