bacula-backup/install_check.pl

   1 # install_check.pl
   2
   3 do 'bacula-backup-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 $err = &check_bacula();
  12 return 0 if ($err);
  13 if (&has_bacula_dir() && $_[1]) {
  14         eval { my $dbh = &connect_to_database(); };
  15         return $@ ? 1 : 2;
  16         }
  17 return $_[1] ? 2 : 1;
  18 }
  19