usermin/install_check.pl

   1 # install_check.pl
   2
   3 do 'usermin-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 (-r "$config{'usermin_dir'}/miniserv.conf" &&
  12     !&same_file($config{'usermin_dir'}, $config_directory)) {
  13         my %miniserv;
  14         &get_usermin_miniserv_config(\%miniserv);
  15         if ($miniserv{'root'} && -d $miniserv{'root'}) {
  16                 return $_[0] ? 2 : 1;
  17                 }
  18         }
  19 return 0;
  20 }
  21