The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SPINNE / Catalyst-Authentication-Store-UserXML-0.04 / lib / Catalyst / Authentication / Store / UserXML.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
—
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

              
package Catalyst::Authentication::Store::UserXML;
use strict;
use warnings;
our $VERSION = '0.04';
use Catalyst::Authentication::Store::UserXML::Folder;
use Class::C3;
sub new {
    my ($class, $config, $c, $realm) = @_;
    my $auth_config = $c->config->{authentication}{userxml} || {};
    my $folder = $auth_config->{folder};
    die 'please set user xml folder in your configuration file ($c->config->{authentication}{userxml}{folder})'
        unless $folder;
     
    $folder = $c->path_to($folder)
        unless ref $folder;
    die $folder.' is not a folder'
        unless -d $folder;
    my $user_folder_file = $auth_config->{user_folder_file};
    $c->default_auth_store(
        Catalyst::Authentication::Store::UserXML::Folder->new({
            folder       => $folder,
            ($user_folder_file ? (user_folder_file => $user_folder_file) : ()),
        })
    );
#       $c->next::method(@_);
    bless { %$config }, $class;
}
1;
__END__
=head1 NAME
Catalyst::Authentication::Store::UserXML - Catalyst authentication storage using xml files
=head1 SYNOPSIS
    use Catalyst qw(
        ...
        Authentication
        Authentication::Store::UserXML
    );
    __PACKAGE__->config(
        'Plugin::Authentication' => {
            default_realm => 'members',
            members => {
                credential => {
                    class         => 'Password',
                    password_type => 'self_check',
                },
                store => {
                    class         => 'UserXML',
                }
            }
        },
        'authentication' => {
            'userxml' => {
                'folder' => 'members',
                'user_folder_file' => 'index.xml',   # optional if credentials stored one per folder
            }
        },
    );
    # later in controller (login)
    $c->authenticate({
        username => $c->req->param('username'),
        password => $c->req->param('password'),
    });
=head1 DESCRIPTION
Catalyst authentication storage using xml files in a folder.
=head1 SEE ALSO
L<Catalyst::Plugin::Authentication>
L<Catalyst::Authentication::Store::UserXML::User>
=head1 AUTHOR
Jozef Kutej, C<< <jkutej at cpan.org> >>
=head1 CONTRIBUTORS
  
The following people have contributed to the File::is by committing their
code, sending patches, reporting bugs, asking questions, suggesting useful
advises, nitpicking, chatting on IRC or commenting on my blog (in no particular
order):
    David Kamholz
=head1 LICENSE AND COPYRIGHT
Copyright 2012 jkutej@cpan.org
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
=cut