On Sat Mar 08, 2008 at 10:02:12 -0600, Peter Eisch wrote: > I'm happy to take patches that keep the plugin universal and gather the > stats better.
How about something like this: sub getLoad { # # Use the module if we can. # my $test = "use Sys::CpuLoad;"; eval( $test ); if ( $@ ) { # # Fall back to running process. # my $res = `uptime`; if ($res =~ /aver\S+: (\d+\.\d+)/) { return( int( $1 ) ); } } else { my @loads = Sys::CpuLoad::load(); return( int($loads[0]) ); } # fail? return undef; } Steve --