Missing versions (#595)
This commit is contained in:
parent
1efacd1d14
commit
e2f4de3f9d
|
@ -5,6 +5,8 @@ use Mouse;
|
|||
use Data::Dumper;
|
||||
use Lemonldap::NG::Common::Conf;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
has confAccess => (
|
||||
is => 'rw',
|
||||
builder => sub {
|
||||
|
|
|
@ -5,6 +5,8 @@ use Mouse;
|
|||
use Safe;
|
||||
use constant PE_OK => 0;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
# Handle "if then else" (used during init)
|
||||
# return a sub that can be called with ($req) to get a [array] of combination
|
||||
#
|
||||
|
|
|
@ -3,7 +3,9 @@
|
|||
package Lemonldap::NG::Common::Conf::Backends::JSONFile;
|
||||
|
||||
use Lemonldap::NG::Common::Conf::File;
|
||||
|
||||
our @ISA = qw(Lemonldap::NG::Common::Conf::Backends::File);
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
1;
|
||||
|
||||
|
|
|
@ -2,6 +2,8 @@ package Lemonldap::NG::Common::Logger::Apache2;
|
|||
|
||||
use Apache2::ServerRec;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub new {
|
||||
return bless {}, shift;
|
||||
}
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Log::Log4perl;
|
||||
use Mouse;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
our $init = 0;
|
||||
|
||||
sub new {
|
||||
|
|
|
@ -2,6 +2,8 @@ package Lemonldap::NG::Common::Logger::Std;
|
|||
|
||||
use strict;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub new {
|
||||
no warnings 'redefine';
|
||||
my $level = $_[1]->{logLevel} || 'info';
|
||||
|
|
|
@ -3,6 +3,8 @@ package Lemonldap::NG::Common::Logger::Syslog;
|
|||
use strict;
|
||||
use Sys::Syslog qw(:standard);
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub new {
|
||||
my ( $class, $conf, %args ) = @_;
|
||||
my $level = $conf->{logLevel} || 'info';
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Mouse;
|
||||
use JSON qw(from_json to_json);
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub newNotification {
|
||||
my ( $self, $jsonString ) = @_;
|
||||
my $json;
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Mouse;
|
||||
use XML::LibXML;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
# XML parser
|
||||
has parser => (
|
||||
is => 'rw',
|
||||
|
|
|
@ -4,6 +4,8 @@ use JSON;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Common::PSGI;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
has iniFile => ( is => 'ro', isa => 'Str' );
|
||||
|
||||
has app => ( is => 'ro', isa => 'CodeRef' );
|
||||
|
|
|
@ -5,6 +5,8 @@ package Lemonldap::NG::Common::Regexp;
|
|||
|
||||
use AutoLoader 'AUTOLOAD';
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Common::Conf::Constants;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
has sessionTypes => ( is => 'rw' );
|
||||
|
||||
sub setTypes {
|
||||
|
|
|
@ -2,6 +2,8 @@ package Lemonldap::NG::Common::UserAgent;
|
|||
|
||||
use LWP::UserAgent;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub new {
|
||||
my ( $class, $conf ) = @_;
|
||||
my $opts = $conf->{lwpOpts} || {};
|
||||
|
|
|
@ -29,6 +29,8 @@ use constant AUTH_REQUIRED => Apache2::Const::AUTH_REQUIRED;
|
|||
use constant MAINTENANCE => Apache2::Const::HTTP_SERVICE_UNAVAILABLE;
|
||||
use constant BUFF_LEN => 8192;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
# Set default logger
|
||||
use constant defaultLogger => 'Lemonldap::NG::Common::Logger::Apache2';
|
||||
|
||||
|
|
|
@ -12,6 +12,8 @@ use base qw(Lemonldap::NG::Handler::ApacheMP2::Main);
|
|||
use Apache2::Filter ();
|
||||
use constant BUFF_LEN => 8192;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub handler {
|
||||
my $r = pop;
|
||||
__PACKAGE__->run($r);
|
||||
|
|
|
@ -2,6 +2,8 @@ package Lemonldap::NG::Handler::Lib::CDA;
|
|||
|
||||
use strict;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub run {
|
||||
my ( $class, $req, $rule, $protection ) = @_;
|
||||
my $uri = $class->unparsed_uri;
|
||||
|
|
|
@ -3,6 +3,8 @@ package Lemonldap::NG::Handler::PSGI::Try;
|
|||
use strict;
|
||||
use Mouse;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Handler::PSGI::Router';
|
||||
|
||||
has 'authRoutes' => (
|
||||
|
|
|
@ -5,6 +5,8 @@ package Lemonldap::NG::Handler::Server::Main;
|
|||
|
||||
use strict;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
use base 'Lemonldap::NG::Handler::PSGI::Main';
|
||||
|
||||
use constant defaultLogger => 'Lemonldap::NG::Common::Logger::Syslog';
|
||||
|
|
|
@ -6,6 +6,8 @@ use strict;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Handler::Server::Main;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Handler::PSGI';
|
||||
|
||||
sub init {
|
||||
|
|
|
@ -14,6 +14,8 @@
|
|||
|
||||
package Lemonldap::NG::Manager::Build::CTrees;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub cTrees {
|
||||
return {
|
||||
virtualHost => [
|
||||
|
|
|
@ -5,6 +5,8 @@ use Mouse;
|
|||
use Data::Dumper;
|
||||
use Lemonldap::NG::Common::Conf::ReConstants;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends('Lemonldap::NG::Manager::Cli::Lib');
|
||||
|
||||
has cfgNum => (
|
||||
|
|
|
@ -3,6 +3,8 @@ package Lemonldap::NG::Manager::Cli::Lib;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Manager;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Common::PSGI::Cli::Lib';
|
||||
|
||||
has mgr => ( is => 'ro', isa => 'Lemonldap::NG::Manager' );
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Manager::Conf::Parser;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
*defaultValue = \&Lemonldap::NG::Manager::Conf::Parser::defaultValue;
|
||||
|
||||
sub diff {
|
||||
|
|
|
@ -3,6 +3,8 @@ package Lemonldap::NG::Manager::Conf::Tests;
|
|||
use utf8;
|
||||
use Lemonldap::NG::Common::Regexp;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
## @method hashref tests(hashref conf)
|
||||
# Return a hash ref where keys are the names of the tests and values
|
||||
# subroutines to execute.
|
||||
|
|
|
@ -1,5 +1,7 @@
|
|||
package Lemonldap::NG::Manager::Conf::Zero;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub zeroConf {
|
||||
my ( $domain, $sessionDir, $persistentSessionDir, $notificationDir ) = @_;
|
||||
$domain ||= 'example.com';
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK PE_FIRSTACCESS);
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Portal::Lib::Choice';
|
||||
|
||||
sub init {
|
||||
|
|
|
@ -6,6 +6,8 @@ use Lemonldap::NG::Common::Combination::Parser;
|
|||
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK PE_ERROR);
|
||||
use Scalar::Util 'weaken';
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
# TODO: See Lib::Wrapper
|
||||
extends 'Lemonldap::NG::Portal::Auth::Base';
|
||||
|
||||
|
|
|
@ -3,6 +3,8 @@ package Lemonldap::NG::Portal::Lib::OneTimeToken;
|
|||
use strict;
|
||||
use Mouse;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Common::Module';
|
||||
|
||||
has timeout => (
|
||||
|
|
|
@ -9,6 +9,8 @@ package Lemonldap::NG::Portal::Lib::OpenID::SREG;
|
|||
use strict;
|
||||
use Lemonldap::NG::Common::Regexp;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
## @method protected hash sregHook(hash prm)
|
||||
# Hook called to add SREG parameters to the OpenID response
|
||||
# @return Hash containing wanted parameters
|
||||
|
|
|
@ -5,6 +5,8 @@ use Mouse;
|
|||
use Lemonldap::NG::Common::UserAgent;
|
||||
use JSON qw(from_json to_json);
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
has ua => (
|
||||
is => 'rw',
|
||||
default => sub {
|
||||
|
|
|
@ -3,6 +3,8 @@ package Lemonldap::NG::Portal::Main::Constants;
|
|||
use strict;
|
||||
use Exporter 'import';
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
use constant HANDLER => 'Lemonldap::NG::Handler::PSGI::Main';
|
||||
use constant {
|
||||
|
||||
|
|
|
@ -7,6 +7,8 @@ use utf8;
|
|||
use Mouse;
|
||||
use Clone 'clone';
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Common::Module';
|
||||
|
||||
# PROPERTIES
|
||||
|
|
|
@ -7,6 +7,8 @@ use strict;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Portal::Main::Constants ':all';
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Common::PSGI::Request';
|
||||
|
||||
# List of methods to call
|
||||
|
|
|
@ -7,6 +7,8 @@ use Lemonldap::NG::Portal::Main::Constants qw(
|
|||
PE_SESSIONNOTGRANTED
|
||||
);
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Portal::Main::Plugin';
|
||||
|
||||
use constant afterDatas => 'grantSession';
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Portal::Main::Constants qw(PE_INFO PE_OK);
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Portal::Main::Plugin',
|
||||
'Lemonldap::NG::Portal::Lib::OtherSessions';
|
||||
|
||||
|
|
|
@ -4,6 +4,8 @@ use strict;
|
|||
use Mouse;
|
||||
use Lemonldap::NG::Portal::Main::Constants qw(PE_FIRSTACCESS);
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
extends 'Lemonldap::NG::Portal::Lib::Choice';
|
||||
|
||||
# INITIALIZATION
|
||||
|
|
|
@ -1,5 +1,7 @@
|
|||
package Lemonldap::NG::Portal::UserDB::Combination;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
|
||||
sub new {
|
||||
return $_[1]->{p}->{_authentication};
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user