diff options
Diffstat (limited to 'clients/portnames.pl')
-rwxr-xr-x | clients/portnames.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/clients/portnames.pl b/clients/portnames.pl new file mode 100755 index 0000000..2b29189 --- /dev/null +++ b/clients/portnames.pl @@ -0,0 +1,18 @@ +#! /usr/bin/perl + +my ($host,$switchtype,$community) = @ARGV; + +open SNMP, "snmpwalk -Os -c $community -v 2c $host ifDescr |" + or die "snmpwalk: $!"; + +print "begin;\n"; +print "delete from portnames where switchtype='$switchtype';\n"; + +while (<SNMP>) { + chomp; + /^ifDescr\.(\d+) = STRING: (.*)$/ or next; + + print "insert into portnames (switchtype,port,description) values ('$switchtype',$1,'$2 (port $1)');\n"; +} + +print "end;\n"; |