Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 251 Rev 254
Line 14... Line 14...
14 
BEGIN {
 14 
BEGIN {
15 
   use FindBin;
 15 
   use FindBin;
16 
   use File::Spec;
 16 
   use File::Spec;
17 
   use lib File::Spec->catdir($FindBin::Bin);
 17 
   use lib File::Spec->catdir($FindBin::Bin);
18 
   eval( 'use library;' );
 18 
   eval( 'use library;' );
19 
   die "Could not find library.pm in the code directory\n" if $@;
 19 
   die "Could not find library.pm in the module directory\n" if $@;
20 
   eval( 'use Data::Dumper;' );
 20 
   eval( 'use Data::Dumper;' );
21 
}
 21 
}
22 
 
 22 
 
23 
# check for valid OS.
23 
# check for valid OS. Remove any OS' this module is not valid for
24 
exit 1 unless &checkOS( { 'linux' => undef, 'freebsd' => undef, 'mswin32' => undef } );
 24 
exit 1 unless &checkOS( { 'linux' => undef, 'freebsd' => undef, 'mswin32' => undef } );
25 
 
 25 
 
26 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
 26 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
27 
# script returns a 2
 27 
# script exits and returns an exit code of 2
28 
foreach my $command ( 'sysctl', 'df' ) {
 28 
foreach my $command ( 'sysctl', 'df' ) {
29 
   exit 2 unless &validCommandOnSystem( $command );
 29 
   exit 2 unless &validCommandOnSystem( $command );
30 
}
 30 
}
31 
 
 31 
 
32 
# category we will use for all values found
 32 
# category we will use for all values found