show some more galaxy information

[ndwebbie.git] / ND / Web / AuthHandler.pm

diff --git a/ND/Web/AuthHandler.pm b/ND/Web/AuthHandler.pm
index 45428d8f676f1548e8f039053a46985c99930105..529b2d12a6878e38e1562eceaeafd01bff7fb7f5 100644 (file)
--- a/ND/Web/AuthHandler.pm
+++ b/ND/Web/AuthHandler.pm
@@ -24,7 +24,6 @@ use warnings FATAL => 'all';
 
 use ND::DB;
 use Apache2::Access ();
-use again;
 
 sub handler {
        my $r = shift;
@@ -32,11 +31,11 @@ sub handler {
        return $res if $res != Apache2::Const::OK;
 
        my $dbh = ND::DB::DB();
-       my ($count) = $dbh->selectrow_array(q{SELECT count(*) FROM users WHERE
+       my ($username) = $dbh->selectrow_array(q{SELECT username FROM users WHERE
                lower(username) = lower(?) AND password = MD5(?)},undef,$r->user,$sent_pw);
        $dbh->disconnect;
-       if ($count == 1){
-               do 'reload.pl';
+       if ($username){
+               $r->user($username);
                return Apache2::Const::OK;
        }
        $r->note_basic_auth_failure();