my @ignored_interfaces = ( "lo" );
sub interface_read {
- my ($veid, $name) = @_
+ my ($veid, $name) = @_;
my @rx_fields = qw(if_octets if_packets if_errors drop fifo frame compressed multicast);
my @tx_fields = qw(if_octets if_packets if_errors drop fifo frame compressed);
- my $v = _build_report_hash($name);
-
- $v->{'plugin'} = 'interface';
- delete $v->{'plugin_instance'};
+ my %v = _build_report_hash($name);
my @lines = `$vzctl exec $veid cat /proc/net/dev`;
# Skip this interface if it is in the ignored list
next if grep { $iface eq $_ } @ignored_interfaces;
- $v->{'plugin_instance'} = $iface;
for my $instance (qw(if_octets if_packets if_errors)) {
- $v->{'type'} = $instance;
- $v->{'values'} = [ $rx{$instance}, $tx{$instance} ];
- plugin_dispatch_values($v);
+ plugin_dispatch_values({
+ 'plugin' => 'interface',
+ 'plugin_instance' => $iface,
+ 'type' => $instance,
+ 'values' => [ $rx{$instance}, $tx{$instance} ],
+ %v,
+ });
}
}
}
$v{'type_instance'} = $cpu_instances[$key];
$v{'values'} = [ $counters[$key] ];
plugin_dispatch_values(\%v);
+ }
}
}
-}
sub df_read {
my $veid = shift;
$v{'type_instance'} = $val;
$v{'values'} = [ $parts[5] * ($parts[6] - $parts[7]), $parts[5] * $parts[7] ];
plugin_dispatch_values(\%v);
-}
+ }
}
sub load_read {
$v{'type_instance'} = $key;
$v{'values'} = [ $ps_states->{$key} ];
plugin_dispatch_values(\%v);
-}
+ }
}
sub users_read {