print nagios compatible status message and performance data

1 files changed, 17 insertions, 3 deletions

diff --git a/net_if b/net_if
index 2d4af93..e7825ec 100755
--- a/net_if
+++ b/net_if
@@ -79,6 +79,22 @@ sub get_if_stats {
     return $stats;
 }
 
+sub print_stats {
+    my ($stats, $count, $perfdata, $if);
+    $stats = shift @_;
+
+    $count = keys %$stats;
+    $perfdata = "";
+    for (keys %$stats) {
+        $if = $_;
+	for (qw( in4 out4 in6 out6 )) {
+            $perfdata = "$perfdata $if-$_=$stats->{$if}->{$_}";
+        }
+    }
+
+    ok("$count interfaces | $perfdata");
+}
+
 my ($up, $down, $error) = get_if_status(@ARGV);
 
 if (@$error) {
@@ -97,6 +113,4 @@ while (@$up) {
     $stats->{$if} = get_if_stats($if);
 }
 
-use Data::Dumper;
-print Dumper $stats;
-print "\n";
+print_stats($stats)