Archive old/unused things

1 files changed, 0 insertions, 18 deletions

diff --git a/clients/portnames.pl b/clients/portnames.pl
deleted file mode 100755
index 52e433a..0000000
--- a/clients/portnames.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#! /usr/bin/perl
-
-my ($host,$switchtype,$community) = @ARGV;
-
-open SNMP, "snmpwalk -Os -c $community -v 2c $host -mALL 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";