Lines Matching refs:domain
109 my ($lhs, $domain, $key, $value);
136 foreach $domain (@virts)
138 next if ($domain =~ m/^\./);
139 open(DOMAIN, "$virts/$domain") || die "Could not open file $virts/$domain: $!\n";
142 my $st = stat("$virts/$domain");
159 $key = "$1\@$domain";
164 $key = "\@$domain";
170 warn "Bogus line $line in $virts/$domain\n";
174 $key =~ s/\$DOMAIN/$domain/g;
175 $value =~ s/\$DOMAIN/$domain/g;
179 close(DOMAIN) || die "Could not close $virts/$domain: $!\n";
207 foreach $domain (sort @virts)
209 next if ($domain =~ m/^\./);
210 print VIRTHOST "$domain\n";