#!/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; 
