1 --- bs-0.97/uxmon/Config/memory.orig Wed Nov 22 21:34:15 2000
2 +++ bs-0.97/uxmon/Config/memory Fri Jun 7 14:20:54 2002
5 $meminfo->sched_frequency($args{"frequency"});
10 - return(undef) unless( defined $vars->{"linux.meminfo.%SwapFree"} );
11 - $vars->{"linux.meminfo.%SwapFree"};
13 - "avail swap MB", sub {
15 - return(undef) unless( defined $vars->{"linux.meminfo.SwapFree"} );
16 - $vars->{"linux.meminfo.SwapFree"} /1024/1024;
20 + "%swap free", "linux.meminfo.%SwapFree", 1, 10,
21 + "avail swap MB", "linux.meminfo.SwapFree", 1024*1024, 10
27 my $text = shift( @check );
28 - my $val = shift( @check );
29 + my $valname = shift( @check );
30 + my $valdiv = shift( @check );
31 my $limit = shift( @check );
32 $args{"_evaluator"}->add_check( ($args{"check"}?$args{"check"}:"cpu"), sub {
35 - my $val = &$val($vars);
36 - return( 2, "(no data available)" ) unless( defined $val );
37 + return( 2, "(no data available)" ) unless( defined $vars->{$valname} );
38 + my $val = $vars->{$valname} / $valdiv;
42 return( 3, $text." = $val" );