+open(my $fh, '>', '/dev/shm/ganeti-monitor.influx');
+
+sub dump4influx {
+ my $hash = shift;
+ my $d = Data::Dump::dump( $hash );
+ $d =~ s/[\s\r\n]+//g;
+ $d =~ s/[\Q[]{}>\E]//g;
+ $d =~ s/=(\d+),/=$1i,/g;
+ $d =~ s/,+$//;
+ return $d;
+}
+
+foreach my $instance ( keys %$stat ) {
+ print $fh qq{cpu,node="$node",instance="$instance" cpu=}, $stat->{$instance}->{cpu}, "\n";
+
+ foreach my $disk ( @{ $stat->{$instance}->{disk} } ) {
+ print $fh qq{disk,node="$node",instance="$instance" },dump4influx( $disk ), "\n";
+ }
+
+ foreach my $nic ( @{ $stat->{$instance}->{nic} } ) {
+ print $fh qq{nic,node="$node",instance="$instance" },dump4influx( $nic ), "\n";
+ }
+
+}
+
+close($fh);
+
+system q{curl -i -XPOST 'http://10.80.3.89:8086/write?db=ganeti' --data-binary '@/dev/shm/ganeti-monitor.influx'};
+
+
+sleep $INTERVAL;