|
|
@@ -51,7 +51,7 @@ exit;
|
|
|
sub wanted {
|
|
|
my $filename = $File::Find::name;
|
|
|
my $dev_name = basename($filename);
|
|
|
-if ($filename =~/\.txt$/ and $filename=~/Device/) {
|
|
|
+if ($filename =~/\.txt$/ and $dev_name=~/^(Device|Switch|Router|Gateway)/) {
|
|
|
$dev_name=~s/\.txt$//;
|
|
|
$content{$dev_name}=$filename;
|
|
|
}
|