use strict
This commit is contained in:
parent
6f3938d014
commit
f7800e5644
|
@ -1,7 +1,9 @@
|
|||
|
||||
package Lemonldap::NG::Common::Apache::Session::Store;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
use strict;
|
||||
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
|
|
|
@ -1,11 +1,12 @@
|
|||
package Lemonldap::NG::Common::EmailTransport;
|
||||
|
||||
use strict;
|
||||
use Email::Sender::Transport::SMTP qw();
|
||||
use MIME::Entity;
|
||||
use Email::Sender::Simple qw(sendmail);
|
||||
use Email::Date::Format qw(email_date);
|
||||
|
||||
our $VERSION = '2.0.9';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
sub new {
|
||||
my ( $class, $conf ) = @_;
|
||||
|
|
|
@ -1,8 +1,10 @@
|
|||
package Lemonldap::NG::Common::IPv6;
|
||||
|
||||
use strict;
|
||||
use base 'Exporter';
|
||||
|
||||
@EXPORT = qw(&isIPv6 &net6 &expand6);
|
||||
our $VERSION = '2.0.10';
|
||||
our @EXPORT = qw(&isIPv6 &net6 &expand6);
|
||||
|
||||
sub isIPv6 {
|
||||
my ($ip) = @_;
|
||||
|
@ -15,7 +17,7 @@ sub net6 {
|
|||
# Convert to binary
|
||||
my $b = join '',
|
||||
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 = unpack( 'H*', pack( 'B*', $net ) );
|
||||
$net = join( ':', ( unpack "a4" x 8, $net ) );
|
||||
|
@ -24,6 +26,7 @@ sub net6 {
|
|||
}
|
||||
|
||||
sub expand6 {
|
||||
my @arr;
|
||||
my @_parts = ( $_[0] =~ /([0-9A-Fa-f]+)/g );
|
||||
my $nparts = scalar @_parts;
|
||||
if ( $nparts != 8 ) {
|
||||
|
|
|
@ -1,12 +1,12 @@
|
|||
package Lemonldap::NG::Common::PSGI;
|
||||
|
||||
use 5.10.0;
|
||||
use strict;
|
||||
use Mouse;
|
||||
use JSON;
|
||||
use Lemonldap::NG::Common::PSGI::Constants;
|
||||
use Lemonldap::NG::Common::PSGI::Request;
|
||||
|
||||
our $VERSION = '2.0.9';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
our $_json = JSON->new->allow_nonref;
|
||||
|
||||
|
|
|
@ -1,10 +1,11 @@
|
|||
package Lemonldap::NG::Common::PSGI::Cli::Lib;
|
||||
|
||||
use strict;
|
||||
use JSON;
|
||||
use Mouse;
|
||||
use Lemonldap::NG::Common::PSGI;
|
||||
|
||||
our $VERSION = '2.0.8';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
has iniFile => ( is => 'ro', isa => 'Str' );
|
||||
|
||||
|
|
|
@ -1,13 +1,12 @@
|
|||
package Lemonldap::NG::Common::PSGI::Request;
|
||||
|
||||
use strict;
|
||||
use 5.14.0;
|
||||
use Mouse;
|
||||
use JSON;
|
||||
use Plack::Request;
|
||||
use URI::Escape;
|
||||
|
||||
our $VERSION = '2.0.8';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
our @ISA = ('Plack::Request');
|
||||
|
||||
|
|
|
@ -1,10 +1,11 @@
|
|||
package Lemonldap::NG::Common::PSGI::Router;
|
||||
|
||||
use strict;
|
||||
use Mouse;
|
||||
use Lemonldap::NG::Common::PSGI;
|
||||
use Lemonldap::NG::Common::PSGI::Constants;
|
||||
|
||||
our $VERSION = '2.0.8';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
extends 'Lemonldap::NG::Common::PSGI';
|
||||
|
||||
|
|
|
@ -5,9 +5,11 @@
|
|||
# SOAP wrapper used to restrict exported functions
|
||||
package Lemonldap::NG::Common::PSGI::SOAPService;
|
||||
|
||||
use strict;
|
||||
|
||||
require SOAP::Lite;
|
||||
|
||||
our $VERSION = '2.0.6';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
## @cmethod Lemonldap::NG::Common::PSGI::SOAPService new(object obj,string @func)
|
||||
# Constructor
|
||||
|
@ -28,7 +30,7 @@ sub new {
|
|||
# @return data provided by the exported function
|
||||
sub AUTOLOAD {
|
||||
my $self = shift;
|
||||
$AUTOLOAD =~ s/.*:://;
|
||||
our $AUTOLOAD =~ s/.*:://;
|
||||
if ( grep { $_ eq $AUTOLOAD } @{ $self->{func} } ) {
|
||||
my $tmp = $self->{obj}->$AUTOLOAD( $self->{req}, @_ );
|
||||
unless ( ref($tmp) and ref($tmp) =~ /^SOAP/ ) {
|
||||
|
|
|
@ -6,10 +6,11 @@
|
|||
|
||||
package Lemonldap::NG::Common::Session;
|
||||
|
||||
our $VERSION = '2.0.9';
|
||||
|
||||
use strict;
|
||||
use Lemonldap::NG::Common::Apache::Session;
|
||||
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
# Workaround for another ModPerl/Mouse issue...
|
||||
BEGIN {
|
||||
require Mouse;
|
||||
|
|
|
@ -1,8 +1,9 @@
|
|||
package Lemonldap::NG::Common::UserAgent;
|
||||
|
||||
use strict;
|
||||
use LWP::UserAgent;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
sub new {
|
||||
my ( $class, $conf ) = @_;
|
||||
|
|
|
@ -1,12 +1,11 @@
|
|||
package Lemonldap::NG::Common::Util;
|
||||
require Exporter;
|
||||
|
||||
use strict;
|
||||
use Digest::MD5;
|
||||
use MIME::Base64 qw/encode_base64/;
|
||||
|
||||
use 5.10.0;
|
||||
|
||||
our $VERSION = '2.0.9';
|
||||
our $VERSION = '2.0.10';
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(getSameSite getPSessionID genId2F);
|
||||
|
||||
|
|
|
@ -3,13 +3,13 @@
|
|||
# See https://lemonldap-ng.org/documentation/latest/handlerarch
|
||||
package Lemonldap::NG::Handler::PSGI;
|
||||
|
||||
use 5.10.0;
|
||||
use strict;
|
||||
use Mouse;
|
||||
use Lemonldap::NG::Handler::PSGI::Main;
|
||||
|
||||
extends 'Lemonldap::NG::Handler::Lib::PSGI', 'Lemonldap::NG::Common::PSGI';
|
||||
|
||||
our $VERSION = '2.0.3';
|
||||
our $VERSION = '2.0.10';
|
||||
|
||||
sub init {
|
||||
my ( $self, $args ) = @_;
|
||||
|
|
Loading…
Reference in New Issue
Block a user