Lines Matching refs:listname
93 my $listname = shift @x;
94 die "Didn't find list-name after domain_list" unless defined($listname);
95 push(@{$CONFIG{domain_list}{$listname}}, @x);
99 my $listname = shift @x;
100 die "domain list-name $listname does not exist"
101 unless defined($CONFIG{domain_list}{$listname});
102 $CONFIG{valid_domains}{$server} = $listname;
117 my $listname = $CONFIG{valid_domains}{$server};
119 return (undef) unless defined ($listname);
120 return (undef) unless defined ($CONFIG{domain_list}{$listname});
122 @{$CONFIG{domain_list}{$listname}};