Handle hostnames with upper-case letters
[webmin.git] / ldap-server / install_check.pl
1 # install_check.pl
2
3 do 'ldap-server-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 local $local = &local_ldap_server();
12 return 0 if ($local < 0);
13 if ($_[0]) {
14         # Also check for DB connection
15         local $ldap = &connect_ldap_db();
16         return ref($ldap) ? 2 : 1;
17         }
18 else {
19         return 1;
20         }
21 }
22