blob: 2b291897964a86d8d9986a7a7fa43a5367b62e75 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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";
|
