Utility function for code that hasn't been committed yet

scc · Dec 14, 2004 · ea82ffd · ea82ffd
1 parent 3e8185a
commit ea82ffd
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/Slash/DB/MySQL/MySQL.pm b/Slash/DB/MySQL/MySQL.pm
@@ -2798,6 +2798,19 @@ sub getDB {
 
 #################################################################
 
+# Utility function to return an array of all the virtual users for
+# all the DBs of one specific type.
+
+sub getDBVUsForType {
+	my($self, $type) = @_;
+	my $dbs = $self->getDBs();
+	return map { $dbs->{$_}{virtual_user} }
+		grep { $dbs->{$_}{type} eq $type }
+		keys %$dbs;
+}
+
+#################################################################
+
 # Writing to the dbs_readerstatus table.
 
 sub createDBReaderStatus {