165 lines
5.4 KiB
Perl
165 lines
5.4 KiB
Perl
# Auth-basic authentication with Lemonldap::NG rights management
|
|
|
|
# This specific handler is intended to be called directly by Apache
|
|
|
|
package Lemonldap::NG::Handler::AuthBasic;
|
|
|
|
use strict;
|
|
use Lemonldap::NG::Handler::ApacheMP2;
|
|
use Lemonldap::NG::Handler::Lib::AuthBasic;
|
|
|
|
BEGIN {
|
|
our @ISA = ('Lemonldap::NG::Handler::Main');
|
|
}
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
# PUBLIC METHODS
|
|
|
|
sub handler {
|
|
my $class;
|
|
$class = $#_ ? shift : __PACKAGE__;
|
|
my ($res) = $class->run(@_);
|
|
return $res;
|
|
}
|
|
|
|
# For an obscur reason, inheritance isn't possible with ApacheMP2.pm.
|
|
|
|
*FORBIDDEN = *Lemonldap::NG::Handler::ApacheMP2::FORBIDDEN;
|
|
*HTTP_UNAUTHORIZED = *Lemonldap::NG::Handler::ApacheMP2::HTTP_UNAUTHORIZED;
|
|
*REDIRECT = *Lemonldap::NG::Handler::ApacheMP2::REDIRECT;
|
|
*OK = *Lemonldap::NG::Handler::ApacheMP2::OK;
|
|
*DECLINED = *Lemonldap::NG::Handler::ApacheMP2::DECLINED;
|
|
*DONE = *Lemonldap::NG::Handler::ApacheMP2::DONE;
|
|
*SERVER_ERROR = *Lemonldap::NG::Handler::ApacheMP2::SERVER_ERROR;
|
|
*AUTH_REQUIRED = *Lemonldap::NG::Handler::ApacheMP2::AUTH_REQUIRED;
|
|
*MAINTENANCE = *Lemonldap::NG::Handler::ApacheMP2::MAINTENANCE;
|
|
|
|
*_lmLog = *Lemonldap::NG::Handler::ApacheMP2::_lmLog;
|
|
*addToHtmlHead = *Lemonldap::NG::Handler::ApacheMP2::addToHtmlHead;
|
|
*args = *Lemonldap::NG::Handler::ApacheMP2::args;
|
|
*flatten_bb = *Lemonldap::NG::Handler::ApacheMP2::flatten_bb;
|
|
*get_server_port = *Lemonldap::NG::Handler::ApacheMP2::get_server_port;
|
|
*header_in = *Lemonldap::NG::Handler::ApacheMP2::header_in;
|
|
*hostname = *Lemonldap::NG::Handler::ApacheMP2::hostname;
|
|
*is_initial_req = *Lemonldap::NG::Handler::ApacheMP2::is_initial_req;
|
|
*method = *Lemonldap::NG::Handler::ApacheMP2::method;
|
|
*newRequest = *Lemonldap::NG::Handler::ApacheMP2::newRequest;
|
|
*print = *Lemonldap::NG::Handler::ApacheMP2::print;
|
|
*redirectFilter = *Lemonldap::NG::Handler::ApacheMP2::redirectFilter;
|
|
*remote_ip = *Lemonldap::NG::Handler::ApacheMP2::remote_ip;
|
|
*set_header_in = *Lemonldap::NG::Handler::ApacheMP2::set_header_in;
|
|
*set_header_out = *Lemonldap::NG::Handler::ApacheMP2::set_header_out;
|
|
*set_user = *Lemonldap::NG::Handler::ApacheMP2::set_user;
|
|
*setPostParams = *Lemonldap::NG::Handler::ApacheMP2::setPostParams;
|
|
*setServerSignature = *Lemonldap::NG::Handler::ApacheMP2::setServerSignature;
|
|
*thread_share = *Lemonldap::NG::Handler::ApacheMP2::thread_share;
|
|
*unparsed_uri = *Lemonldap::NG::Handler::ApacheMP2::unparsed_uri;
|
|
*unset_header_in = *Lemonldap::NG::Handler::ApacheMP2::unset_header_in;
|
|
*uri = *Lemonldap::NG::Handler::ApacheMP2::uri;
|
|
*uri_with_args = *Lemonldap::NG::Handler::ApacheMP2::uri_with_args;
|
|
*unparsed_uri = *Lemonldap::NG::Handler::ApacheMP2::unparsed_uri;
|
|
|
|
__PACKAGE__->init();
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
=encoding utf8
|
|
|
|
Lemonldap::NG::Handler::AuthBasic - Perl extension to be able to authenticate
|
|
users by basic web system but to use Lemonldap::NG to control authorizations.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Create your own package:
|
|
|
|
package My::Package;
|
|
use Lemonldap::NG::Handler::AuthBasic;
|
|
|
|
# IMPORTANT ORDER
|
|
our @ISA = qw (Lemonldap::NG::Handler::AuthBasic);
|
|
|
|
__PACKAGE__->init ( {
|
|
# Local storage used for sessions and configuration
|
|
localStorage => "Cache::DBFile",
|
|
localStorageOptions => {...},
|
|
# How to get my configuration
|
|
configStorage => {
|
|
type => "DBI",
|
|
dbiChain => "DBI:mysql:database=lemondb;host=$hostname",
|
|
dbiUser => "lemonldap",
|
|
dbiPassword => "password",
|
|
}
|
|
# Uncomment this to activate status module
|
|
# status => 1,
|
|
} );
|
|
|
|
Call your package in <apache-directory>/conf/httpd.conf
|
|
|
|
PerlRequire MyFile
|
|
PerlHeaderParserHandler My::Package
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This library provides a way to use Lemonldap::NG to manage authorizations
|
|
without using Lemonldap::NG for authentications. This can be used in conjunction
|
|
with a normal Lemonldap::NG installation but to manage non-browser clients.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<Lemonldap::NG::Handler(3)>,
|
|
L<http://lemonldap-ng.org/>
|
|
|
|
=head1 AUTHOR
|
|
|
|
=over
|
|
|
|
=item Clement Oudot, E<lt>clem.oudot@gmail.comE<gt>
|
|
|
|
=item François-Xavier Deltombe, E<lt>fxdeltombe@gmail.com.E<gt>
|
|
|
|
=item Xavier Guimard, E<lt>x.guimard@free.frE<gt>
|
|
|
|
=back
|
|
|
|
=head1 BUG REPORT
|
|
|
|
Use OW2 system to report bug or ask for features:
|
|
L<http://jira.ow2.org>
|
|
|
|
=head1 DOWNLOAD
|
|
|
|
Lemonldap::NG is available at
|
|
L<http://forge.objectweb.org/project/showfiles.php?group_id=274>
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
=over
|
|
|
|
=item Copyright (C) 2008-2010 by Xavier Guimard, E<lt>x.guimard@free.frE<gt>
|
|
|
|
=item Copyright (C) 2012-2013 by François-Xavier Deltombe, E<lt>fxdeltombe@gmail.com.E<gt>
|
|
|
|
=item Copyright (C) 2010-2012 by Clement Oudot, E<lt>clem.oudot@gmail.comE<gt>
|
|
|
|
=back
|
|
|
|
This library is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see L<http://www.gnu.org/licenses/>.
|
|
|
|
=cut
|