pg_wrapper: check that specified cluster actually exists

postgresql-common-1/PgCommon.pm → postgresql-common-2/PgCommon.pm

@@ -8,7 +8,7 @@ $VERSION = 1.00;
 @ISA = ('Exporter');
 @EXPORT = qw/error set_conf_value get_conf_value user_cluster_map
     get_program_path cluster_info get_versions get_newest_version
-    get_version_clusters next_free_port/;
+    get_version_clusters next_free_port cluster_exists/;
 @EXPORT_OK = qw/$confroot/;
 
 # configuration
@@ -134,6 +134,15 @@ sub get_version_clusters {
     return @clusters;
 }
 
+# Check if a cluster exists.
+# Arguments: <version> <cluster>
+sub cluster_exists {
+    for $c (get_version_clusters $_[0]) {
+	return 1 if $c eq $_[1];
+    }
+    return 0;
+}
+
 # Return the next free PostgreSQL port.
 sub next_free_port {
     # create list of already used ports

postgresql-common-1/debian/changelog → postgresql-common-2/debian/changelog

+postgresql-common (2) experimental; urgency=low
+
+  * pg_wrapper: Check that specified cluster actually exists.
+
+ -- Martin Pitt <mpitt@debian.org>  Wed,  2 Mar 2005 16:55:12 +0100
+
 postgresql-common (1) experimental; urgency=low
 
   * New package to provide a common infrastructure for different PostgreSQL