37 lines
1.2 KiB
Text
37 lines
1.2 KiB
Text
- Set $sysinfo{"KERNEL"} and $sysinfo{"CPU"} (minus cache) values
|
|
|
|
Index: pgcluu
|
|
--- pgcluu.orig
|
|
+++ pgcluu
|
|
@@ -10985,13 +10985,13 @@ sub read_sysinfo_file
|
|
next;
|
|
}
|
|
if ($section eq 'CPU') {
|
|
- my ($key, $val) = split(/\s+:\s+/, $l);
|
|
- if ($key eq 'processor') {
|
|
- $sysinfo{$section}{$key} = $val + 1;
|
|
- } elsif ($key eq 'model name') {
|
|
- $val =~ s/\s+\@\s+(.*)$//;
|
|
- $sysinfo{$section}{'cpu MHz'} = $1;
|
|
- $sysinfo{$section}{$key} = $val;
|
|
+ my ($key, $val) = split(/=/, $l);
|
|
+ if ($key eq 'hw.ncpuonline') {
|
|
+ $sysinfo{$section}{'processor'} = $val;
|
|
+ } elsif ($key eq 'hw.model') {
|
|
+ $sysinfo{$section}{'model name'} = $val;
|
|
+ } elsif ($key eq 'hw.cpuspeed') {
|
|
+ $sysinfo{$section}{'cpu MHz'} = $val;
|
|
} else {
|
|
$sysinfo{$section}{$key} = $val;
|
|
}
|
|
@@ -10999,8 +10999,8 @@ sub read_sysinfo_file
|
|
elsif ($section eq 'KERNEL') {
|
|
my @kinf = split(/\s+/, $l);
|
|
$sysinfo{$section}{'hostname'} = $kinf[1];
|
|
- $sysinfo{$section}{'kernel'} = "$kinf[0] $kinf[2] $kinf[3] $kinf[4]";
|
|
- $sysinfo{$section}{'arch'} = "$kinf[-2] $kinf[-1]";
|
|
+ $sysinfo{$section}{'kernel'} = "$kinf[2] $kinf[3]";
|
|
+ $sysinfo{$section}{'arch'} = "$kinf[-1]";
|
|
}
|
|
elsif ($section eq 'UPTIME') {
|
|
$sysinfo{$section}{'all'} = $l;
|