foreach my $nic ( @{ $stat->{$instance}->{nic} } ) {
my $vlan = delete $nic->{vlan};
+ $vlan = 0 unless defined $vlan;
print $fh qq{ganeti_nic,node=$node,instance=$instance,vlan=${vlan}$location },dump4influx( $nic ), " $t\n";
}
close($fh);
-if ( system( 'curl', '-XPOST', $INFLUX, '--data-binary', '@/dev/shm/gnt-monitor.influx' ) == 0 ) {
+if ( system( 'curl', '-s', '-XPOST', $INFLUX, '--data-binary', '@/dev/shm/gnt-monitor.influx' ) == 0 ) {
} else {
rename '/dev/shm/gnt-monitor.influx', '/dev/shm/gnt-monitor.influx.bug.' . scalar glob '/dev/shm/gnt-monitor.influx.bug.*';
warn "curl failed: $? $!";
}
my $dt = time() - $begin_t;
-sleep $INTERVAL - $dt if $dt > 0 && $dt > $INTERVAL;
+sleep $INTERVAL - $dt if $dt > 0 && $dt < $INTERVAL;
} #/while