# install_check.pl do 'dns-lib.pl'; # is_installed(mode) # For mode 1, returns 2 if the server is installed and configured for use by # Webmin, 1 if installed but not configured, or 0 otherwise. # For mode 0, returns 1 if installed, 0 if not sub is_installed { return 0 if (!-x $config{'named_pathname'}); if ($_[0]) { return 2 if (-s $config{'named_boot_file'}); } return 1; }