[Catalyst-commits] r8464 - in Catalyst-Authentication-Store-Htpasswd/1.000/trunk: . lib/Catalyst/Authentication/Store lib/Catalyst/Authentication/Store/Htpasswd

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Sun Sep 28 17:00:34 BST 2008 

Author: t0m
Date: 2008-09-28 17:00:34 +0100 (Sun, 28 Sep 2008)
New Revision: 8464

Added:
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/.shipit
Removed:
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd/Backend.pm
Modified:
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST.SKIP
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Todo
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm
Log:
Checking in changes prior to tagging of version 1.000.  Changelog diff is:

=== Changes
==================================================================
--- Changes	(revision 7764)
+++ Changes	(local)
@@ -1,5 +1,7 @@
-0.03  XXX XXX  x XX:XX:XX GMT 2008
+1.000  Sun Sept  28 16:58:30 GMT 2008
     - Change from Module::Build to Module::Install
+    - Update to the new authentication framework.
+    - Bump revision number due to moving to new repository layout.
 
 0.02  Wed Feb  8 01:18:17 CET 2006
     - work properly again with roles


Added: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/.shipit
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/.shipit	                        (rev 0)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/.shipit	2008-09-28 16:00:34 UTC (rev 8464)
@@ -0,0 +1,3 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+svk.tagpattern = //mirror/Catalyst-Authentication-Store-Htpasswd/1.000/tags/%v
+CheckChangeLog.files = Changes

Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes	2008-09-28 15:49:35 UTC (rev 8463)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes	2008-09-28 16:00:34 UTC (rev 8464)
@@ -1,5 +1,7 @@
-0.03  XXX XXX  x XX:XX:XX GMT 2008
+1.000  Sun Sept  28 16:58:30 GMT 2008
     - Change from Module::Build to Module::Install
+    - Update to the new authentication framework.
+    - Bump revision number due to moving to new repository layout.
 
 0.02  Wed Feb  8 01:18:17 CET 2006
     - work properly again with roles

Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST	2008-09-28 15:49:35 UTC (rev 8463)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST	2008-09-28 16:00:34 UTC (rev 8464)
@@ -1,3 +1,4 @@
+README
 Changes
 inc/Module/Install.pm
 inc/Module/Install/Base.pm

Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST.SKIP
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST.SKIP	2008-09-28 15:49:35 UTC (rev 8463)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST.SKIP	2008-09-28 16:00:34 UTC (rev 8464)
@@ -32,3 +32,6 @@
 
 # skip OS X finder file
 \.DS_Store
+
+# Don't distribute the shipit config.
+.shipit

Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Todo
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Todo	2008-09-28 15:49:35 UTC (rev 8463)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Todo	2008-09-28 16:00:34 UTC (rev 8464)
@@ -1 +1,4 @@
 . Paths to htpasswd which start with / should be taken from root, not the app root
+. Better docs
+. Configurable user class
+. Configurable username/password fields.
\ No newline at end of file

Deleted: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd/Backend.pm
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd/Backend.pm	2008-09-28 15:49:35 UTC (rev 8463)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd/Backend.pm	2008-09-28 16:00:34 UTC (rev 8464)
@@ -1,106 +0,0 @@
-#!/usr/bin/perl
-
-package Catalyst::Plugin::Authentication::Store::Htpasswd::Backend;
-use base qw/Class::Accessor::Fast/;
-
-use strict;
-use warnings;
-
-use Authen::Htpasswd;
-use Catalyst::Plugin::Authentication::Store::Htpasswd::User;
-
-BEGIN { __PACKAGE__->mk_accessors(qw/file/) }
-
-sub new {
-    my ( $class, $file, %extra ) = @_;
-
-    bless { file => ( ref $file ? $file : Authen::Htpasswd->new($file, \%extra) ) }, $class;
-}
-
-sub get_user {
-    my ( $self, $id ) = @_;
-    Catalyst::Plugin::Authentication::Store::Htpasswd::User->new( $self, $self->file->lookup_user($id) );
-}
-
-sub user_supports {
-    my $self = shift;
-
-    # this can work as a class method
-    Catalyst::Plugin::Authentication::Store::Htpasswd::User->supports(@_);
-}
-
-sub from_session {
-	my ( $self, $c, $id ) = @_;
-	$self->get_user( $id );
-}
-
-__PACKAGE__;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-Catalyst::Plugin::Authentication::Store::Htpasswd::Backend - Htpasswd
-authentication storage backend.
-
-=head1 SYNOPSIS
-
-    # you probably just want Store::Htpasswd under most cases,
-    # but if you insist you can instantiate your own store:
-
-    use Catalyst::Plugin::Authentication::Store::Htpasswd::Backend;
-
-    use Catalyst qw/
-        Authentication
-        Authentication::Credential::Password
-    /;
-
-    my %users = (
-        user => { password => "s3cr3t" },
-    );
-    
-    our $users = Catalyst::Plugin::Authentication::Store::Htpasswd::Backend->new(\%users);
-
-    sub action : Local {
-        my ( $self, $c ) = @_;
-
-        $c->login( $users->get_user( $c->req->param("login") ),
-            $c->req->param("password") );
-    }
-
-=head1 DESCRIPTION
-
-You probably want L<Catalyst::Plugin::Authentication::Store::Htpasswd>, unless
-you are mixing several stores in a single app and one of them is Htpasswd.
-
-Otherwise, this lets you create a store manually.
-
-=head1 METHODS
-
-=head2 new $hash_ref
-
-Constructs a new store object, which uses the supplied hash ref as it's backing
-structure.
-
-=head2 get_user $id
-
-Keys the hash by $id and returns the value.
-
-If the return value is unblessed it will be blessed as
-L<Catalyst::Plugin::Authentication::User::Hash>.
-
-=head2 user_supports
-
-Chooses a random user from the hash and delegates to it.
-
-=head1 COPYRIGHT & LICENSE
-
-	Copyright (c) 2005 the aforementioned authors. All rights
-	reserved. This program is free software; you can redistribute
-	it and/or modify it under the same terms as Perl itself.
-
-=cut
-
-

Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm	2008-09-28 15:49:35 UTC (rev 8463)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm	2008-09-28 16:00:34 UTC (rev 8464)
@@ -9,7 +9,7 @@
 use Catalyst::Authentication::Store::Htpasswd::User;
 use Scalar::Util qw/blessed/;
 
-our $VERSION = '0.03';
+our $VERSION = '1.000';
 
 BEGIN { __PACKAGE__->mk_accessors(qw/file/) }

More information about the Catalyst-commits mailing list