[Catalyst-commits] r13493 - in
Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test:
. LDAP LDAP/Controller LDAP/Model
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Mon Aug 16 17:57:53 GMT 2010
Author: t0m
Date: 2010-08-16 18:57:53 +0100 (Mon, 16 Aug 2010)
New Revision: 13493
Removed:
Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/View/
Modified:
Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP.pm
Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm
Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Root.pm
Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/User.pm
Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Model/LDAP.pm
Log:
Chop stuff out
Modified: Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm 2010-08-16 17:54:40 UTC (rev 13492)
+++ Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Auth.pm 2010-08-16 17:57:53 UTC (rev 13493)
@@ -4,22 +4,6 @@
BEGIN {extends 'Catalyst::Controller'; }
-=head1 NAME
-
-Test::LDAP::Controller::Auth - Catalyst Controller
-
-=head1 DESCRIPTION
-
-Catalyst Controller.
-
-=head1 METHODS
-
-=cut
-
-
-=head2 index
-
-=cut
sub index :Path :Args(0) {
my ( $self, $c ) = @_;
@@ -70,17 +54,6 @@
$c->response->redirect( $c->uri_for( $c->controller("Root")->action_for("index") ) )
}
-=head1 AUTHOR
-
-root
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
__PACKAGE__->meta->make_immutable;
1;
Modified: Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Root.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Root.pm 2010-08-16 17:54:40 UTC (rev 13492)
+++ Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Root.pm 2010-08-16 17:57:53 UTC (rev 13493)
@@ -4,40 +4,14 @@
BEGIN { extends 'Catalyst::Controller' }
-#
-# Sets the actions in this controller to be registered with no prefix
-# so they function identically to actions created in MyApp.pm
-#
__PACKAGE__->config(namespace => '');
-=head1 NAME
-
-Test::LDAP::Controller::Root - Root Controller for Test::LDAP
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 METHODS
-
-=head2 itndex
-
-The root page (/)
-
-=cut
-
sub index :Path :Args(0) {
my ( $self, $c ) = @_;
$c->res->body("Index");
}
-=head2 default
-
-Standard 404 error page
-
-=cut
-
sub default :Path {
my ( $self, $c ) = @_;
@@ -45,34 +19,8 @@
$c->res->status(404);
}
-=head2 end
+sub end {}
-Attempt to render a view, if needed.
-
-=cut
-
-sub end : ActionClass('RenderView') {
- my ($self, $c) = @_;
- my $errors = scalar @{$c->error};
-
- if ($errors) {
- $c->res->body("Internal error");
- $c->res->status("500");
- $c->clear_errors;
- }
-}
-
-=head1 AUTHOR
-
-root
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
__PACKAGE__->meta->make_immutable;
1;
Modified: Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/User.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/User.pm 2010-08-16 17:54:40 UTC (rev 13492)
+++ Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/User.pm 2010-08-16 17:57:53 UTC (rev 13493)
@@ -2,25 +2,8 @@
use Moose;
use namespace::autoclean;
-BEGIN {extends 'Catalyst::Controller::HTML::FormFu'; }
+BEGIN {extends 'Catalyst::Controller'; }
-=head1 NAME
-
-Test::LDAP::Controller::User - Catalyst Controller
-
-=head1 DESCRIPTION
-
-Catalyst Controller.
-
-=head1 METHODS
-
-=cut
-
-
-=head2 index
-
-=cut
-
sub base :Chained('/') :PathPart('user') :CaptureArgs(0) {
my ($self, $c) = @_;
}
@@ -91,11 +74,6 @@
}
}
-=head2 auto
-
-Check if the user is authenicated, if not we just forward to the login page.
-
-=cut
sub auto :Private {
my ( $self, $c ) = @_;
@@ -110,18 +88,6 @@
return 1
}
-
-=head1 AUTHOR
-
-root
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
__PACKAGE__->meta->make_immutable;
1;
Modified: Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Model/LDAP.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Model/LDAP.pm 2010-08-16 17:54:40 UTC (rev 13492)
+++ Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP/Model/LDAP.pm 2010-08-16 17:57:53 UTC (rev 13493)
@@ -3,3 +3,6 @@
use Moose;
use namespace::autoclean;
extends 'Catalyst::Model::LDAP::FromAuthentication';
+
+1;
+
Modified: Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP.pm 2010-08-16 17:54:40 UTC (rev 13492)
+++ Catalyst-Authentication-Store-LDAP/branches/fix_connect_as_user_with_session/t/lib/Test-Session-Broken/lib/Test/LDAP.pm 2010-08-16 17:57:53 UTC (rev 13493)
@@ -4,20 +4,9 @@
use Catalyst::Runtime 5.80;
-# Set flags and add plugins for the application
-#
-# -Debug: activates the debug mode for very useful log messages
-# ConfigLoader: will load the configuration from a Config::General file in the
-# application's home directory
-# Static::Simple: will serve static files from the application's root
-# directory
-
use Catalyst qw/
-Debug
- Static::Simple
-
Authentication
- Authorization::Roles
Session
Session::State::Cookie
Session::Store::FastMmap
@@ -26,7 +15,6 @@
extends 'Catalyst';
our $VERSION = '0.01';
-$VERSION = eval $VERSION;
# Configure the application.
#
@@ -56,16 +44,13 @@
"store" => {
"binddn" => "anonymous",
"bindpw" => "dontcare",
-
"class" => "LDAP",
-
"ldap_server" => "ldap.test.no",
"ldap_server_options" => {
"timeout" => 30,
"port" => "636",
"scheme" => "ldaps"
},
-
"role_basedn" => "ou=stavanger,o=test,c=no",
"role_field" => "cn",
"role_filter" => "(&(objectClass=groupOfNames)(member=%s))",
@@ -79,36 +64,6 @@
}
);
-
-# Start the application
__PACKAGE__->setup();
-
-=head1 NAME
-
-Test::LDAP - Catalyst based application
-
-=head1 SYNOPSIS
-
- script/test_ldap_web_server.pl
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 SEE ALSO
-
-L<Test::LDAP::Controller::Root>, L<Catalyst>
-
-=head1 AUTHOR
-
-root
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
1;
More information about the Catalyst-commits
mailing list