Collect IO and CPU stats

diff --git a/system-status/system-status-lib.pl b/system-status/system-status-lib.pl
index 08a9f0f..1763c91 100755 (executable)
--- a/system-status/system-status-lib.pl
+++ b/system-status/system-status-lib.pl
@@ -60,6 +60,23 @@ $info->{'cputemps'} = \@cpu if (@cpu);
 my @drive = &get_current_drive_temps();
 $info->{'drivetemps'} = \@drive if (@drive);
 
+# IO input and output
+if ($gconfig{'os_type'} =~ /-linux$/) {
+       local $out = &backquote_command("vmstat 1 2");
+       if (!$?) {
+               local @lines = split(/\r?\n/, $out);
+               local @w = split(/\s+/, $lines[$#lines]);
+               shift(@w) if ($w[0] eq '');
+               if ($w[8] =~ /^\d+$/ && $w[9] =~ /^\d+$/) {
+                       # Blocks in and out
+                       $info->{'io'} = [ $w[8], $w[9] ];
+
+                       # CPU user, kernel, idle, io, vm
+                       $info->{'cpu'} = [ @w[12..16] ];
+                       }
+               }
+       }
+
 return $info;
 }
 
@@ -212,6 +229,20 @@ if ($temptotal) {
        push(@stats, [ "cputemp", $temptotal / $tempcount ]);
        }
 
+# Get IO blocks
+if ($info->{'io'}) {
+       push(@stats, [ "bin", $info->{'io'}->[0] ]);
+       push(@stats, [ "bout", $info->{'io'}->[1] ]);
+       }
+
+# Get CPU user and IO time
+if ($info->{'cpu'}) {
+       push(@stats, [ "cpuuser", $info->{'cpu'}->[0] ]);
+       push(@stats, [ "cpukernel", $info->{'cpu'}->[1] ]);
+       push(@stats, [ "cpuidle", $info->{'cpu'}->[2] ]);
+       push(@stats, [ "cpuio", $info->{'cpu'}->[3] ]);
+       }
+
 # Write to the file
 foreach my $stat (@stats) {
        open(HISTORY, ">>$historic_info_dir/$stat->[0]");