if (opendir (DIR, $path)) {
while( my $dir = readdir( DIR ) ) {
next if( ( "." eq $dir ) || ( ".." eq $dir ) );
if (-d "$path/$dir") {
print "
$dir | |
\n";
print "$dir | \n";
if (opendir (CUSTDIR, "$path/$dir")) {
my $count = 0;
while (my $file = readdir( CUSTDIR)) {
next if (("." eq $file) || (".." eq $file));
$count++;
if (eval { $callvals = XMLin("$path/$dir/$file") }) {
# $calldetails{$callvals->{Server}} = "$callvals->{State} $callvals->{Agent_Class} $callvals->{Agent_Instance} $callvals->{Instance_Detail}";
print "
| $callvals->{Server} - $callvals->{State} - $callvals->{Agent_Class} - $callvals->{Agent_Instance} - $callvals->{Instance_Detail} |
\n";
}
else {
die "Cannot Read $path/$dir/$file: $@\n";
}
}
close (CUSTDIR);
print "$count XML files | \n";
}
else {
die "Cannot find path $path/$dir: $!\n";
}
}
}
close(DIR);
}
else {
die "Cannot find path $path: $!\n";
}