Handle hostnames with upper-case letters
[webmin.git] / majordomo / install_check.pl
1 # install_check.pl
2
3 do 'majordomo-lib.pl';
4
5 # is_installed(mode)
6 # For mode 1, returns 2 if the server is installed and configured for use by
7 # Webmin, 1 if installed but not configured, or 0 otherwise.
8 # For mode 0, returns 1 if installed, 0 if not
9 sub is_installed
10 {
11 return 0 if (!-r $config{'majordomo_cf'} || !-d $config{'program_dir'} ||
12              !-r "$config{'program_dir'}/majordomo_version.pl");
13 require "$config{'program_dir'}/majordomo_version.pl";
14 return 0 if ($majordomo_version < 1.94 || $majordomo_version >= 2);
15 if ($_[0]) {
16         local $conf = &get_config();
17         return 2 if (&homedir_valid($conf));
18         }
19 return 1;
20 }
21