From 648d8bac2919aac370d251c839878b6d982e2d7a Mon Sep 17 00:00:00 2001
From: Jozef Kutej <jozef@emo.cle.sk>
Date: Mon, 1 Dec 2008 22:59:12 +0100
Subject: working login/password check in login

---
 lib/PAUSE/OpenID/Controller/Root.pm | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm
index 41b767e..33c8884 100644
--- a/lib/PAUSE/OpenID/Controller/Root.pm
+++ b/lib/PAUSE/OpenID/Controller/Root.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use parent 'Catalyst::Controller';
 
+use LWP::UserAgent;
+
 #
 # Sets the actions in this controller to be registered with no prefix
 # so they function identically to actions created in MyApp.pm
@@ -52,17 +54,28 @@ sub login :Local {
     
     $c->log->debug('username "'.$username.'" login attemp');
     
-    $c->res->redirect($c->uri_for('/login_failed'));
+    my $ua = LWP::UserAgent->new;
+    $ua->credentials('pause.perl.org:443', 'PAUSE', $username, $password);
+    my $res = $ua->get('https://pause.perl.org/pause/authenquery');
+    
+    if ($res->code == 200) {
+        $c->log->info('login pass');
+        $c->res->redirect($c->uri_for('/login_pass'));
+    }
+    else {
+        $c->log->warn('login failed');
+        $c->res->redirect($c->uri_for('/login_failed'));
+    }
 }
 
-sub login_pass {
+sub login_pass :Local {
     my ( $self, $c ) = @_;
     
     $c->res->content_type('text/plain');
     $c->res->body('login pass');
 }
 
-sub login_failed {
+sub login_failed :Local {
     my ( $self, $c ) = @_;
     
     $c->res->content_type('text/plain');
-- 
cgit v1.2.3