From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 2 Mar 2019 07:42:57 +0000 (+0100)
Subject: parse snmp-walk to display supplys
X-Git-Url: http://git.rot13.org/?p=safeq;a=commitdiff_plain;h=b3471e75fd33cf08c59f6d08858a2cbcb0624b23

parse snmp-walk to display supplys
---

diff --git a/snmp-supply.pl b/snmp-supply.pl
new file mode 100755
index 0000000..d044848
--- /dev/null
+++ b/snmp-supply.pl
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use autodie;
+use Data::Dump qw(dump);
+
+my $ip = shift @ARGV || '10.60.3.35';
+my $sep = $ENV{SEP} || "\t";
+
+my $stat = { _take => 1 };
+
+my $cache = "/dev/shm/$ip.snmp";
+my $snmp;
+if ( -e $cache ) {
+	open($snmp, '<', $cache);
+	warn "# cache $cache";
+} else {
+	my $cmd = "snmpwalk -v1 -cpublic $ip | tee /dev/shm/$ip.snmp";
+	warn "# $cmd";
+	open($snmp, '-|', $cmd);
+}
+
+while(<$snmp>) {
+	chomp;
+
+	if ( m/Supplies/ ) {
+		$stat->{_take} = 1;
+	} else {
+		$stat->{_take} = 0;
+	}
+
+	if ( $stat->{_take} && m/::([^\.]+)\.(.+) = (\w+): (.+)/ ) {
+		my ($name,$id,$type,$val) = ( $1,$2,$3,$4 );
+		$stat->{$id}->{$name} = $val;
+		$stat->{_ids}->{$id}++;
+
+		if ( $stat->{_order}->[-1] ne $name ) {
+			push @{ $stat->{_order} }, $name;
+		}
+	}
+
+}
+
+warn "# stat = ",dump($stat);
+
+my @order = @{ $stat->{_order} };
+warn "# order = ",dump( \@order );
+
+my @ids = keys %{ $stat->{_ids} };
+
+warn "# ids = ",dump( \@ids );
+
+print join($sep,'IP', 'ID', @order),"\n";
+foreach my $id ( @ids ) {
+	print join($sep, $ip, $id, map { $stat->{$id}->{$_} } @order),"\n";
+}
+