From 2f1dccb06a5bcb7d6f97c6fa0aaeccae8e9a2d5f Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@linuxdv.org>
Date: Fri, 21 Nov 2014 11:03:53 +1000
Subject: [PATCH] * LDV::User->auth : draft

---
 lib/LDV/User.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/LDV/User.pm b/lib/LDV/User.pm
index f7a46e8..1242f4f 100644
--- a/lib/LDV/User.pm
+++ b/lib/LDV/User.pm
@@ -37,6 +37,18 @@ sub logout {
   $self->rendered();
 }
 
+sub auth {
+  my ($self) = @_;
+  my $user = $self->req->param('username');
+  my $pass = $self->req->param('password');
+
+  if (my $delay = $self->app->config->{ldap}->{auth_delay}) {
+    sleep $delay;
+  }
+
+  $self->redirect_to('/user/login');
+}
+
 sub update {
   my ($self) = @_;
   my ($data, $login);