Lines Matching refs:virts
104 my $virts = "$maildir/virtusers";
132 opendir(VIRTS, $virts) || die "Could not open directory $virts: $!\n";
133 my @virts = grep { -f "$virts/$_" } readdir(VIRTS);
134 closedir(VIRTS) || die "Could not close directory $virts: $!\n";
136 foreach $domain (@virts)
139 open(DOMAIN, "$virts/$domain") || die "Could not open file $virts/$domain: $!\n";
142 my $st = stat("$virts/$domain");
170 warn "Bogus line $line in $virts/$domain\n";
179 close(DOMAIN) || die "Could not close $virts/$domain: $!\n";
207 foreach $domain (sort @virts)