my $cpu = ( ( $gtime - $last_gtime ) * 100 ) / ( $clock_ticks * $vcpu );
$stat->{$instance}->{cpu} = $cpu;
+ $stat->{$instance}->{ticks} = $gtime - $last_gtime;
}
$last->{$instance}->{gtime} = $gtime;
#XXX $stat;
#XXX $last;
-open(my $fh, '>', '/dev/shm/gnt-monitor.influx');
-
sub dump4influx {
my $hash = shift;
my @v;
return $i;
}
+open(my $fh, '>', '/dev/shm/gnt-monitor.influx');
+
foreach my $instance ( keys %$stat ) {
next if $skip->{$instance};
- print $fh qq{cpu,node=$node,instance=$instance$location cpu=}, $stat->{$instance}->{cpu}, "\n";
+ print $fh qq{cpu,node=$node,instance=$instance$location cpu=$stat->{$instance}->{cpu},ticks=$stat->{$instance}->{ticks}\n};
foreach my $disk ( @{ $stat->{$instance}->{disk} } ) {
print $fh qq{disk,node=$node,instance=$instance$location },dump4influx( $disk ), "\n";