use strict
This commit is contained in:
parent
6f3938d014
commit
f7800e5644
|
@ -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;
|
||||||
|
|
|
@ -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 ) = @_;
|
||||||
|
|
|
@ -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 ) {
|
||||||
|
|
|
@ -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;
|
||||||
|
|
||||||
|
|
|
@ -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' );
|
||||||
|
|
||||||
|
|
|
@ -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');
|
||||||
|
|
||||||
|
|
|
@ -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';
|
||||||
|
|
||||||
|
|
|
@ -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/ ) {
|
||||||
|
|
|
@ -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;
|
||||||
|
|
|
@ -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 ) = @_;
|
||||||
|
|
|
@ -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);
|
||||||
|
|
||||||
|
|
|
@ -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 ) = @_;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user