Handle hostnames with upper-case letters
[webmin.git] / majordomo / feedback_files.pl
1
2 do 'majordomo-lib.pl';
3
4 sub feedback_files
5 {
6 local $conf = &get_config();
7 local $ldir = &perl_var_replace(&find_value("listdir", $_[0]), $_[0]);
8 local @lists = &list_lists($conf);
9 local $aliases = $config{'aliases_file'} ? $config{'aliases_file'}
10                                          : "/etc/aliases";
11 return ( $config{'majordomo_cf'}, $aliases, map { "$ldir/$_.config" } @lists );
12 }
13
14 1;
15