Hooks for real community logins.

diff --git a/perl-lib/PgCommitFest/Handler.pm b/perl-lib/PgCommitFest/Handler.pm
index 820364adcd8721458a874031c5b72f95c9b7b752..89ed0247e0438e584a5203743c1e7f44bfadf706 100644 (file)
--- a/perl-lib/PgCommitFest/Handler.pm
+++ b/perl-lib/PgCommitFest/Handler.pm
@@ -91,10 +91,15 @@ sub login {
 
        # Attempt to validate login.
        if ($r->cgi('go') && ! $r->is_error) {
-               my $u = $r->db->select_one(<<EOM,
+               my $pg_login_db =
+                       PgCommitFest::DB->connect(defined $ENV{'PGCOMMITFEST_LOGIN_DB'} ?
+                               $ENV{'PGCOMMITFEST_LOGIN_DB'}
+                       : 'dbi:Pg:dbname=pgcommitfest user=pgcommitfest', '', '');
+               my $u = $pg_login_db->select_one(<<EOM,
 SELECT userid FROM community_login(?, ?) WHERE success != 0
 EOM
                        $value{'userid'}, $value{'password'});
+               $pg_login_db->disconnect;
                if (defined $u) {
                        my $random_bits;
                        open(RANDOM_BITS, '</dev/urandom') || die "/dev/urandom: $!";