Handle hostnames with upper-case letters
[webmin.git] / lvm / install_check.pl
1 # install_check.pl
2
3 do 'lvm-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 (!&has_command("vgdisplay"));
12 local $out = `vgdisplay --version 2>&1`;
13 if ($out =~ /\s+([0-9\.]+)/ && $1 < 2) {
14         if (!-d $lvm_proc) {
15                 system("modprobe lvm-mod >/dev/null 2>&1");
16                 }
17         return 0 if (!-d $lvm_proc);
18         }
19 return $_[0] ? 2 : 1;
20 }
21