Handle hostnames with upper-case letters
[webmin.git] / ldap-useradmin / install_check.pl
1 # install_check.pl
2
3 do 'ldap-useradmin-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 if ($config{'auth_ldap'}) {
12         return 0 if (!-r $config{'auth_ldap'});
13         }
14 else {
15         if ($_[0]) {
16                 return 1 if (!$config{'ldap_host'} || !$config{'login'} ||
17                              !$config{'pass'} || !$config{'user_base'} ||
18                              !$config{'group_base'});
19                 }
20         }
21 if ($_[0]) {
22         return 2 if ($got_net_ldap);
23         }
24 return 1;
25 }
26