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 19... Line 19...
19 
# device is long. So, we will replace all newlines with spaces, then
19 
# device is long. So, we will replace all newlines with spaces, then
20 
# remove space duplications, then split on spaces and process each item in
 20 
# remove space duplications, then split on spaces and process each item in
21 
# turn.
 21 
# turn.
22 
# NOTE: this will totally break if you have spaces in your mount point
 22 
# NOTE: this will totally break if you have spaces in your mount point
23 
 
 23 
 
- 
 
 24 
# find our location and use it for searching for libraries
24 
BEGIN {
 25 
BEGIN {
25 
   push @INC, shift;
 26 
   use FindBin;
- 
 
 27 
   use File::Spec;
- 
 
 28 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 29 
   eval( 'use library;' );
- 
 
 30 
   die "Could not find library.pm in the code directory\n" if $@; # eval returned and error
- 
 
 31 
   eval( 'use Data::Dumper;' );
26 
}
 32 
}
27 
 
 33 
 
28 
use library;
 34 
# check for valid OS.
- 
 
 35 
exit 1 unless &checkOS( { 'linux' => undef, 'freebsd' => undef } );
29 
 
 36 
 
- 
 
 37 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
- 
 
 38 
# script returns a 2
- 
 
 39 
foreach my $command (  'df' ) {
30 
my $command = &validCommandOnSystem('df');
 40 
   exit 2 unless &validCommandOnSystem( $command );
31 
 
 41 
}
32 
exit 1 unless $command;
 - 
 
33 
 
 42 
 
34 
my $CATEGORY = 'diskinfo';
 43 
my $CATEGORY = 'diskinfo';
35 
 
 44 
 
36 
# process physical partitions
 45 
# process physical partitions
37 
my $temp = qx/df -kT/; # execute the system command df, returned values in kilobytes, showing file system types
 46 
my $temp = qx/df -kT/; # execute the system command df, returned values in kilobytes, showing file system types