librenms/mibs/process.pl
2009-09-24 14:38:17 +00:00

22 lines
249 B
Perl
Executable File

#!/usr/bin/perl
sub getfiles {
opendir(DIR,".");
while($file = readdir(DIR)) {
if($file !~ /^\./) {
foreach $all ($file) {
system("snmpttconvertmib --in=$all --out=/etc/snmp/snmptt-d.conf");
print "$all\n";
}
}
}
closedir(DIR);
}
&getfiles;