/usr/share/perl5/Jifty/Plugin/Authentication/Bitcard.pm is in libjifty-plugin-authentication-bitcard-perl 0.053-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | use strict;
use warnings;
package Jifty::Plugin::Authentication::Bitcard;
use base qw/Jifty::Plugin/;
use Authen::Bitcard ();
our $VERSION = '0.053';
=head1 NAME
Jifty::Plugin::Authentication::Bitcard - Bitcard authentication plugin
=head1 DESCRIPTION
B<CAUTION:> This plugin has not thuroughly been tested in the wild.
This plugin replaces L<Jifty::Plugin::User>, and L<Jifty::Plugin::Authentication::Password>, since Bitcard handles all the heavy lifting for us.
User logins are handled through Bitcard.
=head2 CONFIGURATION
You will need the following in your site_config.yml:
Plugins:
-
Authentication::Bitcard:
site_token: [Your site token here]
=head2 METHODS
=cut
our %CONFIG = ();
=head3 init
Initialize the plugin.
=cut
sub init
{
my $self = shift;
%CONFIG = @_;
}
=head3 api
Return an Authen::Bitcard object setup with the token, and Bitcard url.
=cut
sub api
{
my $self = shift;
my $api = Authen::Bitcard->new();
$api->token($CONFIG{'site_token'});
$api->bitcard_url($CONFIG{'bitcard_url'}) if $CONFIG{'bitcard_url'};
$api->info_required([qw/ username email /]);
$api->info_optional([qw/ name /]);
return $api;
}
=head1 SUPPORT
Mailing list:
=over 8
=item L<jifty-plugin-authen-bitcard@lists.technosorcery.net>
=item http://lists.technosorcery.net/listinfo.cgi/jifty-plugin-authen-bitcard-technosorcery.net/
=back
=head1 BUGS
No known bugs (yet).
Please report all bugs to bug-Jifty-Plugin-Authentication-Bitcard@rt.cpan.org
=head1 SEE ALSO
L<Jifty::Manual::AccessControl>, L<Jifty::Plugin::Authentication::Bitcard::Mixin::Model::User>
=head1 AUTHOR
Jacob Helwig
CPAN ID: JHELWIG
jacob@technosorcery.net
http://technosorcery.net/
=head1 COPYRIGHT
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with this module.
=cut
1;
|