jabber/install_check.pl

   1 # install_check.pl
   2
   3 do 'jabber-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 (!-r $config{'jabber_config'} ||
  12              !-d $config{'jabber_dir'});
  13 local $jabberd = $config{'jabber_daemon'} ? $config{'jabber_daemon'}
  14                                           : "$config{'jabber_dir'}/bin/jabberd";
  15 return 0 if (!-x $jabberd || !&get_jabberd_version(\$dummy));
  16 if ($_[0]) {
  17         return 2 if ($got_xml_parser && $got_xml_generator);
  18         }
  19 return 1;
  20 }
  21