|
|
Should be a simple subdirectory check
03-03-2012
use strict;
my $nas = "/nas";
opendir (NAS, $nas) or die "Can't open $nas: $!";
open OUTFILE, ">bad_accounts" or die $!;
while(my $npa = readdir(NAS)) {
if ($npa =~ /\d{3}/) {
my $path = $nas . "/" . $npa;
print "PATH = '$path' \n";
opendir (NPA, $path) or die "Can't open $path: $!";
while(my $nxx = readdir(NPA)) {
if ($nxx =~ /\d{3}/) {
my $path = $path . "/" . $nxx;
print "PATH = '$path' \n";
opendir (NXX, $path) or die "Can't open $path: $!";
while(my $line = readdir(NXX)) {
if ($line =~ /\d{4}/) {
my $path = $path . "/" . $line;
print "PATH = '$path' \n";
opendir (LINE, $path) or die "Can't open $path: $!";
while(my $vmail = readdir(LINE)) {
if ($vmail == "VMAIL") {
my $path = $path . "/VMAIL";
opendir (VMAIL, $path) or die "Can't open $path: $!";
my $count = grep { ! /^\.{1,2}/ } readdir VMAIL;
if ($count > 2) {
print "COUNT = $count \n";
}
else {
print OUTFILE "BAD ACCT = " . $npa . $nxx . $line . "\n";
print OUTFILE "COUNT = $count \n";
}
}
}
}
}
}
}
}
}
closedir LINE;
closedir NXX;
closedir NPA;
|
|