Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 153 Rev 251
Line 12... Line 12...
12 
 
 12 
 
13 
# gets additional systems information on BSD machine using some standard
 13 
# gets additional systems information on BSD 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 
 
21 
use library;
 26 
# check for valid OS.
- 
 
 27 
exit 1 unless &checkOS( { 'freebsd' => undef } );
22 
 
 28 
 
23 
exit 1 unless &getOperatingSystem() =~ m/bsd/i;
 - 
 
24 
 
 - 
 
25 
# the commands this script will use
 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
26 
my %commands = (
30 
# script returns a 2
27 
                  'grep' => '',
 - 
 
28 
                  'dmesg' => '',
 - 
 
29 
                  'uname' => '',
 - 
 
30 
                  'sysctl' => ''
 - 
 
31 
 
 - 
 
32 
               );
 - 
 
33 
 
 - 
 
34 
# check the commands for validity
 - 
 
35 
foreach my $command ( keys %commands ) {
 31 
foreach my $command ( 'grep', 'dmesg', 'uname', 'sysctl' ) {
36 
   $commands{$command} = &validCommandOnSystem( $command );
 32 
   exit 2 unless &validCommandOnSystem( $command );
37 
}
 33 
}
38 
 
 34 
 
39 
 
 - 
 
40 
 
 - 
 
41 
 
 - 
 
42 
# category we will use for all values found
 35 
# category we will use for all values found
43 
# see sysinfo for a list of valid categories
 36 
# see sysinfo for a list of valid categories
44 
my $CATEGORY = 'system';
 37 
my $CATEGORY = 'system';
45 
 
 38 
 
46 
my $temp;
 39 
my $temp;
Line 61... Line 54...
61 
 
 54 
 
62 
#$temp = getSysctlParameter( $commands{ 'sysctl' }, 'hw.realmem' );
 55 
#$temp = getSysctlParameter( $commands{ 'sysctl' }, 'hw.realmem' );
63 
#$temp /= 1024;
 56 
#$temp /= 1024;
64 
#print "$CATEGORY\tmemory\t$temp\n";
 57 
#print "$CATEGORY\tmemory\t$temp\n";
65 
 
 58 
 
66 
$temp = getSysctlParameter( $commands{ 'sysctl' }, 'kern.boottime' );
 59 
$temp = getSysctlParameter( 'sysctl', 'kern.boottime' );
67 
$temp =~ m/sec = (\d+),/;
 60 
$temp =~ m/sec = (\d+),/;
68 
$temp = $1;
 61 
$temp = $1;
69 
print "$CATEGORY\tlast_boot\t$temp\n";
 62 
print "$CATEGORY\tlast_boot\t$temp\n";
70 
 
 63 
 
71 
$temp = time - $temp;
 64 
$temp = time - $temp;