version 1.22, 2011/12/18 01:23:21
|
version 1.23, 2016/01/27 22:23:18
|
Line 198 sub descend_tree {
|
Line 198 sub descend_tree {
|
closedir(DIR); |
closedir(DIR); |
$depth ++; |
$depth ++; |
foreach my $item (@contents) { |
foreach my $item (@contents) { |
if ($depth < 4) { |
if (($depth < 4) && (length($item) == 1)) { |
&descend_tree($dom,$dir.'/'.$item,$depth,$alldomusers,$coursesref); |
&descend_tree($dom,$dir.'/'.$item,$depth,$alldomusers,$coursesref); |
} elsif (-e $dir.'/'.$item.'/passwd') { |
} elsif (-e $dir.'/'.$item.'/passwd') { |
if (ref($coursesref) eq 'HASH') { |
if (ref($coursesref) eq 'HASH') { |