--- lib/Strix.pm	2008/06/16 12:45:15	170
+++ lib/Strix.pm	2008/06/16 13:16:57	171
@@ -30,11 +30,15 @@
 
 =cut
 
+our $site_dbh;
+
 sub dbh {
 	my $self = shift;
 
 	my $site = shift || $self->site || confess "no site";
 
+	return $site_dbh->{$site} if $site_dbh->{$site};
+
 	my $config = Jifty->config->app('strix') or die "need strix config";
 	my $database = $config->{database} or die "no strix.database in config";
 
@@ -49,6 +53,10 @@
 
 	my $dbh = DBI->connect( $dsn, $database->{user}, $database->{passwd} ) or die $DBI::errstr;
 
+	$site_dbh->{$site} = $dbh;
+
+	warn "## site_dbh = ",dump( $site_dbh );
+
 	return $dbh;
 }