From dcc6514aff7c1af1f9ff89c9fdc49ea42fce78cc Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Wed, 30 Apr 2008 21:34:25 +0000
Subject: [PATCH] Detect if Bacula is installed

---
 bacula-backup/install_check.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 bacula-backup/install_check.pl

diff --git a/bacula-backup/install_check.pl b/bacula-backup/install_check.pl
new file mode 100644
index 000000000..c84175f5d
--- /dev/null
+++ b/bacula-backup/install_check.pl
@@ -0,0 +1,19 @@
+# install_check.pl
+
+do 'bacula-backup-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
+{
+local $err = &check_bacula();
+return 0 if ($err);
+if (&has_bacula_dir() && $_[1]) {
+	eval { my $dbh = &connect_to_database(); };
+	return $@ ? 1 : 2;
+	}
+return $_[1] ? 2 : 1;
+}
+