Missing versions (#595)

This commit is contained in:
Xavier Guimard 2017-02-28 20:53:19 +00:00
parent 1efacd1d14
commit e2f4de3f9d
37 changed files with 74 additions and 0 deletions

View File

@ -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 {

View File

@ -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
#

View File

@ -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;

View File

@ -2,6 +2,8 @@ package Lemonldap::NG::Common::Logger::Apache2;
use Apache2::ServerRec;
our $VERSION = '2.0.0';
sub new {
return bless {}, shift;
}

View File

@ -4,6 +4,8 @@ use strict;
use Log::Log4perl;
use Mouse;
our $VERSION = '2.0.0';
our $init = 0;
sub new {

View File

@ -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';

View File

@ -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';

View File

@ -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;

View File

@ -4,6 +4,8 @@ use strict;
use Mouse;
use XML::LibXML;
our $VERSION = '2.0.0';
# XML parser
has parser => (
is => 'rw',

View File

@ -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' );

View File

@ -5,6 +5,8 @@ package Lemonldap::NG::Common::Regexp;
use AutoLoader 'AUTOLOAD';
our $VERSION = '2.0.0';
1;
__END__

View File

@ -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 {

View File

@ -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} || {};

View File

@ -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';

View File

@ -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);

View File

@ -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;

View File

@ -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' => (

View File

@ -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';

View File

@ -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 {

View File

@ -14,6 +14,8 @@
package Lemonldap::NG::Manager::Build::CTrees;
our $VERSION = '2.0.0';
sub cTrees {
return {
virtualHost => [

View File

@ -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 => (

View File

@ -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' );

View File

@ -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 {

View File

@ -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.

View File

@ -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';

View File

@ -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 {

View File

@ -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';

View File

@ -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 => (

View File

@ -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

View File

@ -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 {

View File

@ -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 {

View File

@ -7,6 +7,8 @@ use utf8;
use Mouse;
use Clone 'clone';
our $VERSION = '2.0.0';
extends 'Lemonldap::NG::Common::Module';
# PROPERTIES

View File

@ -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

View File

@ -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';

View File

@ -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';

View File

@ -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

View File

@ -1,5 +1,7 @@
package Lemonldap::NG::Portal::UserDB::Combination;
our $VERSION = '2.0.0';
sub new {
return $_[1]->{p}->{_authentication};
}