X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Test-Session-Broken%2Flib%2FTest%2FLDAP%2FController%2FAuth.pm;fp=Test-Session-Broken%2Flib%2FTest%2FLDAP%2FController%2FAuth.pm;h=027fc70a461959d4f9dc1bf03c0beac1f7e83657;hb=2148a3cd4dca629b4c4d66ff52888e8dbb83c5ee;hp=64c3c597849a715c9ea258b63822f348d6271fdb;hpb=ecd7abeac4a09a301d50cbdc3b91b0e33696ecb0;p=catagits%2FCatalyst-Authentication-Store-LDAP.git

diff --git a/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm b/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm
index 64c3c59..027fc70 100644
--- a/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm
+++ b/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm
@@ -2,7 +2,7 @@ package Test::LDAP::Controller::Auth;
 use Moose;
 use namespace::autoclean;
 
-BEGIN {extends 'Catalyst::Controller::HTML::FormFu'; }
+BEGIN {extends 'Catalyst::Controller'; }
 
 =head1 NAME
 
@@ -20,10 +20,10 @@ Catalyst Controller.
 =head2 index
 
 =cut
-sub index :Path :Args(0) :FormConfig {
+sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
 
-    my $form = $c->stash->{form};
+    $c->res->body("Login");
 }
 
 sub login :Path("login") :Args(0) {
@@ -52,12 +52,12 @@ sub login :Path("login") :Args(0) {
             # Since we got auth, let's bind with the model with a dn & pass as well.
             #$c->model('LDAP')->bind (dn => $
         } else {
-            $c->stash->{"message"} = ("Bad username and/or password");
+            $c->res->body("Bad user/password")
         }
 
     } else {
         # If not throw a message c
-        $c->stash->{"message"} = "Missing Username and/or password"
+        $c->res->body("Missing credentials");
     }
 }