dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use strict

Browse Source
This commit is contained in:
Christophe Maudoux 2020-12-19 00:01:49 +01:00
parent 6f3938d014
commit f7800e5644
12 changed files with 30 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session/Store.pm
View File

@ -1,7 +1,9 @@
package Lemonldap::NG::Common::Apache::Session::Store; package Lemonldap::NG::Common::Apache::Session::Store;
our $VERSION = '2.0.0'; use strict;
our $VERSION = '2.0.10';
sub new { sub new {
my $class = shift; my $class = shift;

3
lemonldap-ng-common/lib/Lemonldap/NG/Common/EmailTransport.pm
View File

@ -1,11 +1,12 @@
package Lemonldap::NG::Common::EmailTransport; package Lemonldap::NG::Common::EmailTransport;
use strict;
use Email::Sender::Transport::SMTP qw(); use Email::Sender::Transport::SMTP qw();
use MIME::Entity; use MIME::Entity;
use Email::Sender::Simple qw(sendmail); use Email::Sender::Simple qw(sendmail);
use Email::Date::Format qw(email_date); use Email::Date::Format qw(email_date);
our $VERSION = '2.0.9'; our $VERSION = '2.0.10';
sub new { sub new {
my ( $class, $conf ) = @_; my ( $class, $conf ) = @_;

7
lemonldap-ng-common/lib/Lemonldap/NG/Common/IPv6.pm
View File

@ -1,8 +1,10 @@
package Lemonldap::NG::Common::IPv6; package Lemonldap::NG::Common::IPv6;
use strict;
use base 'Exporter'; use base 'Exporter';
@EXPORT = qw(&isIPv6 &net6 &expand6); our $VERSION = '2.0.10';
our @EXPORT = qw(&isIPv6 &net6 &expand6);
sub isIPv6 { sub isIPv6 {
my ($ip) = @_; my ($ip) = @_;
@ -15,7 +17,7 @@ sub net6 {
# Convert to binary # Convert to binary
my $b = join '', my $b = join '',
map { unpack( 'B*', pack( 'H*', $_ ) ) } split( ':', expand6($ip) ); map { unpack( 'B*', pack( 'H*', $_ ) ) } split( ':', expand6($ip) );
$net = substr $b, 0, $bits; my $net = substr $b, 0, $bits;
$net .= '0' x ( 128 - length($net) ); $net .= '0' x ( 128 - length($net) );
$net = unpack( 'H*', pack( 'B*', $net ) ); $net = unpack( 'H*', pack( 'B*', $net ) );
$net = join( ':', ( unpack "a4" x 8, $net ) ); $net = join( ':', ( unpack "a4" x 8, $net ) );
@ -24,6 +26,7 @@ sub net6 {
} }
sub expand6 { sub expand6 {
my @arr;
my @_parts = ( $_[0] =~ /([0-9A-Fa-f]+)/g ); my @_parts = ( $_[0] =~ /([0-9A-Fa-f]+)/g );
my $nparts = scalar @_parts; my $nparts = scalar @_parts;
if ( $nparts != 8 ) { if ( $nparts != 8 ) {

4
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI.pm
View File

@ -1,12 +1,12 @@
package Lemonldap::NG::Common::PSGI; package Lemonldap::NG::Common::PSGI;
use 5.10.0; use strict;
use Mouse; use Mouse;
use JSON; use JSON;
use Lemonldap::NG::Common::PSGI::Constants; use Lemonldap::NG::Common::PSGI::Constants;
use Lemonldap::NG::Common::PSGI::Request; use Lemonldap::NG::Common::PSGI::Request;
our $VERSION = '2.0.9'; our $VERSION = '2.0.10';
our $_json = JSON->new->allow_nonref; our $_json = JSON->new->allow_nonref;

3
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Cli/Lib.pm
View File

@ -1,10 +1,11 @@
package Lemonldap::NG::Common::PSGI::Cli::Lib; package Lemonldap::NG::Common::PSGI::Cli::Lib;
use strict;
use JSON; use JSON;
use Mouse; use Mouse;
use Lemonldap::NG::Common::PSGI; use Lemonldap::NG::Common::PSGI;
our $VERSION = '2.0.8'; our $VERSION = '2.0.10';
has iniFile => ( is => 'ro', isa => 'Str' ); has iniFile => ( is => 'ro', isa => 'Str' );

3
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm
View File

@ -1,13 +1,12 @@
package Lemonldap::NG::Common::PSGI::Request; package Lemonldap::NG::Common::PSGI::Request;
use strict; use strict;
use 5.14.0;
use Mouse; use Mouse;
use JSON; use JSON;
use Plack::Request; use Plack::Request;
use URI::Escape; use URI::Escape;
our $VERSION = '2.0.8'; our $VERSION = '2.0.10';
our @ISA = ('Plack::Request'); our @ISA = ('Plack::Request');

3
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Router.pm
View File

@ -1,10 +1,11 @@
package Lemonldap::NG::Common::PSGI::Router; package Lemonldap::NG::Common::PSGI::Router;
use strict;
use Mouse; use Mouse;
use Lemonldap::NG::Common::PSGI; use Lemonldap::NG::Common::PSGI;
use Lemonldap::NG::Common::PSGI::Constants; use Lemonldap::NG::Common::PSGI::Constants;
our $VERSION = '2.0.8'; our $VERSION = '2.0.10';
extends 'Lemonldap::NG::Common::PSGI'; extends 'Lemonldap::NG::Common::PSGI';

6
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/SOAPService.pm
View File

@ -5,9 +5,11 @@
# SOAP wrapper used to restrict exported functions # SOAP wrapper used to restrict exported functions
package Lemonldap::NG::Common::PSGI::SOAPService; package Lemonldap::NG::Common::PSGI::SOAPService;
use strict;
require SOAP::Lite; require SOAP::Lite;
our $VERSION = '2.0.6'; our $VERSION = '2.0.10';
## @cmethod Lemonldap::NG::Common::PSGI::SOAPService new(object obj,string @func) ## @cmethod Lemonldap::NG::Common::PSGI::SOAPService new(object obj,string @func)
# Constructor # Constructor
@ -28,7 +30,7 @@ sub new {
# @return data provided by the exported function # @return data provided by the exported function
sub AUTOLOAD { sub AUTOLOAD {
my $self = shift; my $self = shift;
$AUTOLOAD =~ s/.*:://; our $AUTOLOAD =~ s/.*:://;
if ( grep { $_ eq $AUTOLOAD } @{ $self->{func} } ) { if ( grep { $_ eq $AUTOLOAD } @{ $self->{func} } ) {
my $tmp = $self->{obj}->$AUTOLOAD( $self->{req}, @_ ); my $tmp = $self->{obj}->$AUTOLOAD( $self->{req}, @_ );
unless ( ref($tmp) and ref($tmp) =~ /^SOAP/ ) { unless ( ref($tmp) and ref($tmp) =~ /^SOAP/ ) {

5
lemonldap-ng-common/lib/Lemonldap/NG/Common/Session.pm
View File

@ -6,10 +6,11 @@
package Lemonldap::NG::Common::Session; package Lemonldap::NG::Common::Session;
our $VERSION = '2.0.9'; use strict;
use Lemonldap::NG::Common::Apache::Session; use Lemonldap::NG::Common::Apache::Session;
our $VERSION = '2.0.10';
# Workaround for another ModPerl/Mouse issue... # Workaround for another ModPerl/Mouse issue...
BEGIN { BEGIN {
require Mouse; require Mouse;

3
lemonldap-ng-common/lib/Lemonldap/NG/Common/UserAgent.pm
View File

@ -1,8 +1,9 @@
package Lemonldap::NG::Common::UserAgent; package Lemonldap::NG::Common::UserAgent;
use strict;
use LWP::UserAgent; use LWP::UserAgent;
our $VERSION = '2.0.0'; our $VERSION = '2.0.10';
sub new { sub new {
my ( $class, $conf ) = @_; my ( $class, $conf ) = @_;

5
lemonldap-ng-common/lib/Lemonldap/NG/Common/Util.pm
View File

@ -1,12 +1,11 @@
package Lemonldap::NG::Common::Util; package Lemonldap::NG::Common::Util;
require Exporter; require Exporter;
use strict;
use Digest::MD5; use Digest::MD5;
use MIME::Base64 qw/encode_base64/; use MIME::Base64 qw/encode_base64/;
use 5.10.0; our $VERSION = '2.0.10';
our $VERSION = '2.0.9';
our @ISA = qw(Exporter); our @ISA = qw(Exporter);
our @EXPORT_OK = qw(getSameSite getPSessionID genId2F); our @EXPORT_OK = qw(getSameSite getPSessionID genId2F);

4
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI.pm
View File

@ -3,13 +3,13 @@
# See https://lemonldap-ng.org/documentation/latest/handlerarch # See https://lemonldap-ng.org/documentation/latest/handlerarch
package Lemonldap::NG::Handler::PSGI; package Lemonldap::NG::Handler::PSGI;
use 5.10.0; use strict;
use Mouse; use Mouse;
use Lemonldap::NG::Handler::PSGI::Main; use Lemonldap::NG::Handler::PSGI::Main;
extends 'Lemonldap::NG::Handler::Lib::PSGI', 'Lemonldap::NG::Common::PSGI'; extends 'Lemonldap::NG::Handler::Lib::PSGI', 'Lemonldap::NG::Common::PSGI';
our $VERSION = '2.0.3'; our $VERSION = '2.0.10';
sub init { sub init {
my ( $self, $args ) = @_; my ( $self, $args ) = @_;